make tag being viewed appear first in title of the window

FRex · Sep 11, 2024 · 6cdbc64 · 6cdbc64
1 parent abf0615
commit 6cdbc64
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/mainunit.lfm b/mainunit.lfm
@@ -3,7 +3,7 @@ object Form1: TForm1
   Height = 633
   Top = 175
   Width = 939
-  Caption = 'Botes v23.01.22'
+  Caption = 'Botes v24.09.11'
   ClientHeight = 633
   ClientWidth = 939
   DesignTimePPI = 120

diff --git a/mainunit.pas b/mainunit.pas
@@ -842,7 +842,7 @@ procedure TForm1.AwesomeBarChange(Sender: TObject);
   end
   else
   begin
-    Caption := FBaseTitle + ' - ' + AwesomeBar.Text;
+    Caption := AwesomeBar.Text + ' - ' + FBaseTitle;
     Application.Title := Caption;
     FilterTextByAwesomeBar;
   end;