浏览代码

Adding archeticture 32/64 bit information in about box
modified: TurboBird.lpi
modified: TurboBird.lpr
modified: about.pas

Motaz Abdel Azeem 13 年之前
父节点
当前提交
8d832ff664
共有 3 个文件被更改,包括 20 次插入16 次删除
  1. 4 4
      TurboBird.lpi
  2. 2 2
      TurboBird.lpr
  3. 14 10
      about.pas

+ 4 - 4
TurboBird.lpi

@@ -60,10 +60,11 @@
         <Filename Value="TurboBird.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="TurboBird"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="8"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
-        <CursorPos X="50" Y="7"/>
+        <CursorPos X="28" Y="27"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -73,7 +74,6 @@
         <ComponentName Value="fmMain"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="main"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
         <TopLine Value="2179"/>
@@ -241,8 +241,8 @@
         <UnitName Value="About"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="9"/>
-        <CursorPos X="28" Y="16"/>
+        <TopLine Value="59"/>
+        <CursorPos X="55" Y="81"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>

+ 2 - 2
TurboBird.lpr

@@ -2,7 +2,7 @@
 {  TurboBird: FireBird database administration and management tool          }
 {  Developed by: Motaz Abdel Azeem http://code.sd/                          }
 {  Start development:  5.Dec.2009                                           }
-{  Last updated     : 24.Mar.2012                                           }
+{  Last updated     :  2.Apr.2012                                           }
 {  License          : GPL for GUI, LGPL for Units                           }
 {***************************************************************************}
 
@@ -24,7 +24,7 @@ uses
 
 const
   Version = '0.9.1';
-  VersionDate = '2010 - Mar 2012';
+  VersionDate = '2010 - Apr 2012';
 {$IFDEF Unix}
 {$DEFINE extdecl:=cdecl}
     fbclib = 'libfbclient.' + sharedsuffix;

+ 14 - 10
about.pas

@@ -10,23 +10,27 @@ uses
 
 const
   {$IFDEF LINUX}
-  Target = 'Linux';
+   Target = 'Linux';
   {$ENDIF}
 
-  {$IFDEF WIN32}
-  Target = 'Win32';
-  {$ENDIF}
-
-  {$IFDEF Win64}
-  Target = 'Win64';
+  {$IFDEF WINDOWS}
+   Target = 'Win';
   {$ENDIF}
 
   {$IFDEF MAC}
-  Target = 'Mac';
+   Target = 'Mac';
   {$ENDIF}
 
   {$IFDEF BSD}
-  Target = 'BSD';
+   Target = 'BSD';
+  {$ENDIF}
+
+  {$ifDEF CPU32}
+   Arch = '32';
+  {$ENDIF}
+
+  {$ifDEF CPU64}
+   Arch = '64';
   {$ENDIF}
 
 type
@@ -74,7 +78,7 @@ procedure TfmAbout.Init;
 begin
   laVersion.Caption:= 'Beta Version ' + fmMain.Version;
   laVersionDate.Caption:= fmMain.VersionDate;
-  laTarget.Caption:= 'Target : ' + Target;
+  laTarget.Caption:= 'Target : ' + Target + '-' + Arch;
 end;
 
 procedure TfmAbout.Label6Click(Sender: TObject);