"Version" display

martok · Aug 1, 2011 · e1df2f8 · e1df2f8
1 parent 6a5f408
commit e1df2f8
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/uMain.pas b/uMain.pas
@@ -49,10 +49,16 @@ implementation
 
 uses uTests;
 
+const
+  sProgramTitle = 'pi - Tiny Math Tool';
+  sProgramVersionStr = 'TP 2';
+
 {$R *.dfm}
 
 procedure TfmPiMain.FormCreate(Sender: TObject);
 begin
+  Application.Title:= sProgramTitle;
+  Caption:= Format('%s   (%s)',[sProgramTitle, sProgramVersionStr]);
   MathS:= TMathSystem.Create;
   MathS.Output.Render:= reOutput;
   reOutput.Clear;