Changeset 66

Timestamp:

Jan 23, 2020, 12:33:26 AM (5 years ago)

Author:

chronos

Message:

• Fixed: Init form opaque control style during its creation.

File:

• trunk/Forms/UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -149 +149 @@
   TimeStart: TDateTime;
 begin
+  {$IFDEF DEBUG}
   TimeStart := Now;
+  {$ENDIF}
   Core.Game.Render(Canvas, Point(Width, Height - MainMenu1.Height));
+  {$IFDEF DEBUG}
   DrawDuration := Now - TimeStart;
+  {$ENDIF}
 end;
 
@@ -157 +161 @@
 begin
   Core.PersistentForm1.Save(Self);
-  ControlStyle := [csOpaque];
 end;
 
@@ -167 +170 @@
   MoveThread.FreeOnTerminate := False;
   MoveThread.Start;
+  ControlStyle := ControlStyle + [csOpaque];
 end;
 
@@ -191 +195 @@
     RedrawPending := False;
     Repaint;
-    Caption := FloatToStr(Round(DrawDuration / OneMillisecond));
+{$IFDEF DEBUG}
+    //Caption := FloatToStr(Round(DrawDuration / OneMillisecond));
+{$ENDIF}
   end;
 end;