Changeset 133 for trunk/Forms

Timestamp:

Jun 27, 2017, 9:38:01 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Black under Windows OS was not correct. Used dark gray color so bridges between cells are visible.
• Added: Installer build batch file for Windows.

File:

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

trunk/Forms/UFormMain.pas

@@ -130 +130 @@
 var
   DrawStart: TDateTime;
+const
+  BackgroundColor = $404040;
 begin
   DrawStart := Now;
@@ -137 +139 @@
     if csOpaque in PaintBox1.ControlStyle then begin
       TempBitmap.SetSize(PaintBox1.Width, PaintBox1.Height);
-      TempBitmap.Canvas.Brush.Color := clBackground; //PaintBox1.GetColorResolvingParent;
+      TempBitmap.Canvas.Brush.Color := BackGroundColor; //clBackground; //PaintBox1.GetColorResolvingParent;
       TempBitmap.Canvas.FillRect(0, 0, PaintBox1.Width, PaintBox1.Height);
       if Assigned(ControlPlayer) then ControlPlayer.Paint(TempBitmap.Canvas, View)
@@ -144 +146 @@
     end else begin
       {$ifdef WINDOWS}
-      PaintBox1.Canvas.Brush.Color := clBackground; //PaintBox1.GetColorResolvingParent;
+      PaintBox1.Canvas.Brush.Color := BackgroundColor; //clBackground; //PaintBox1.GetColorResolvingParent;
       PaintBox1.Canvas.FillRect(0, 0, PaintBox1.Width, PaintBox1.Height);
       {$endif}