fit/version

Author: Cesar4D

Src/Consts/DelphiAIDev.Consts.pas

@@ -5,7 +5,7 @@ interface
 type
   TConsts = class
   public const
-    SEMANTIC_VERSION = '1.8.0';
+    SEMANTIC_VERSION = '2.2.2';
     SEMANTIC_VERSION_LB = 'Version: ' + SEMANTIC_VERSION;
     WIN_CONTROL_FOCU_NIL = nil;
     DELPHI_AI_DEVELOPER_DPROJ = 'DelphiAIDeveloper.dproj';

Src/View/DelphiAIDev.View.About.dfm

@@ -29,7 +29,6 @@ object DelphiAIDevViewAbout: TDelphiAIDevViewAbout
     Color = clWindow
     ParentBackground = False
     TabOrder = 0
-    ExplicitTop = -4
     object Bevel1: TBevel
       AlignWithMargins = True
       Left = 0
@@ -2104,15 +2103,16 @@ object DelphiAIDevViewAbout: TDelphiAIDevViewAbout
       TabOrder = 0
       OnClick = btnOKClick
     end
-    object btnTeste: TButton
+    object btnTest: TButton
       Left = 2
       Top = 2
       Width = 75
       Height = 31
       Align = alLeft
-      Caption = 'Teste'
+      Caption = 'Test'
       TabOrder = 1
-      OnClick = btnTesteClick
+      Visible = False
+      OnClick = btnTestClick
     end
   end
 end

Src/View/DelphiAIDev.View.About.pas

@@ -32,7 +32,7 @@   TDelphiAIDevViewAbout = class(TForm)
     imgGithub: TImage;
     pnButtons: TPanel;
     btnOK: TButton;
-    btnTeste: TButton;
+    btnTest: TButton;
     Panel1: TPanel;
     lbDonateToCode4Delphi: TLabel;
     imgDonate: TImage;
@@ -44,7 +44,7 @@   TDelphiAIDevViewAbout = class(TForm)
     procedure lbSiteCode4DelphiMouseLeave(Sender: TObject);
     procedure lbGitHubCode4DelphiClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
-    procedure btnTesteClick(Sender: TObject);
+    procedure btnTestClick(Sender: TObject);
     procedure lbDonateToCode4DelphiClick(Sender: TObject);
   private
 
@@ -121,7 +121,7 @@ procedure TDelphiAIDevViewAbout.lbSiteCode4DelphiMouseMove(Sender: TObject; Shif
   TLabel(Sender).Font.Style := TLabel(Sender).Font.Style + [fsUnderline];
 end;
 
-procedure TDelphiAIDevViewAbout.btnTesteClick(Sender: TObject);
+procedure TDelphiAIDevViewAbout.btnTestClick(Sender: TObject);
 begin
   //
 end;