Corectly version display on titlebar

Kisspeace · Dec 31, 2022 · 6a265e9 · 6a265e9
1 parent 897edb5
commit 6a265e9
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/source/Unit1.pas b/source/Unit1.pas
@@ -2522,8 +2522,10 @@ procedure TForm1.FormCreate(Sender: TObject);
       end else begin
         TThread.Synchronize(Nil, procedure begin
           {$IFDEF MSWINDOWS}
-          if Settings.UseNewAppTitlebar then
-            TitleBar.BtnTitle.Text.Text := TitleBar.BtnTitle.Text.Text + ' ( current )';
+          if Settings.UseNewAppTitlebar and ( LastVer = APP_VERSION ) then
+            TitleBar.BtnTitle.Text.Text := TitleBar.BtnTitle.Text.Text + ' ( current )'
+          else
+            TitleBar.BtnTitle.Text.Text := TitleBar.BtnTitle.Text.Text + ' ( higher )';
           {$ENDIF}
         end);
       end;