Changeset 462 for trunk

Timestamp:

Nov 29, 2023, 10:23:29 AM (5 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

Location:

trunk

Files:

• LocalPlayer/Term.pas (modified) (3 diffs)
• Packages/CevoComponents/ButtonB.pas (modified) (1 diff)
• Start.pas (modified) (2 diffs)

trunk/LocalPlayer/Term.pas

@@ -619 +619 @@
   DestinationMarkON: Boolean;
   StartRunning: Boolean;
-  StayOnTop_Ensured: Boolean;
   Supervising: Boolean;
   UnusedTribeFiles: TStringList;
@@ -1814 +1813 @@
   SoundPreloadDone := [];
   StartRunning := False;
-  StayOnTop_Ensured := False;
 
   sb := TPVScrollbar.Create(Self);
@@ -2901 +2899 @@
         xw := 0;
         yw := ywcenter;
-        if not StayOnTop_Ensured then
-        begin
-          StayOnTop_Ensured := True;
-          //CityDlg.StayOnTop_Workaround;
-          //CityTypeDlg.StayOnTop_Workaround;
-          //DiaDlg.StayOnTop_Workaround;
-          //DraftDlg.StayOnTop_Workaround;
-          //EnhanceDlg.StayOnTop_Workaround;
-          //HelpDlg.StayOnTop_Workaround;
-          //NatStatDlg.StayOnTop_Workaround;
-          //NegoDlg.StayOnTop_Workaround;
-          //ModalSelectDlg.StayOnTop_Workaround;
-          //ListDlg.StayOnTop_Workaround;
-          //UnitStatDlg.StayOnTop_Workaround;
-          //WondersDlg.StayOnTop_Workaround;
-          //RatesDlg.StayOnTop_Workaround;
-        end;
       end;
 

trunk/Packages/CevoComponents/ButtonB.pas

@@ -54 +54 @@
         BitBltCanvas(Canvas, 0, 0, 25, 25, FGraphic.Canvas,
           1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCPAINT);
-      end
+      end;
     end else begin
       Brush.Color := $0000FF;

trunk/Start.pas

@@ -505 +505 @@
     DeleteObject(r1);
     r1 := CreateRectRgn(QuitBtn.Left, QuitBtn.Top, QuitBtn.Left + QuitBtn.Width,
-      QuitBtn.top + QuitBtn.Height);
+      QuitBtn.Top + QuitBtn.Height);
     CombineRgn(r0, r0, r1, RGN_OR);
     DeleteObject(r1);
@@ -512 +512 @@
   end else begin
     BoundsRect := Bounds((Screen.Width - Width) div 2,
-      (Screen.Height - Height) div 2, Width, Height)
+      (Screen.Height - Height) div 2, Width, Height);
   end;
 end;