Changeset 133 for trunk


Ignore:
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.
Location:
trunk
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormMain.pas

    r132 r133  
    130130var
    131131  DrawStart: TDateTime;
     132const
     133  BackgroundColor = $404040;
    132134begin
    133135  DrawStart := Now;
    … …  
    137139    if csOpaque in PaintBox1.ControlStyle then begin
    138140      TempBitmap.SetSize(PaintBox1.Width, PaintBox1.Height);
    139       TempBitmap.Canvas.Brush.Color := clBackground; //PaintBox1.GetColorResolvingParent;
     141      TempBitmap.Canvas.Brush.Color := BackGroundColor; //clBackground; //PaintBox1.GetColorResolvingParent;
    140142      TempBitmap.Canvas.FillRect(0, 0, PaintBox1.Width, PaintBox1.Height);
    141143      if Assigned(ControlPlayer) then ControlPlayer.Paint(TempBitmap.Canvas, View)
    … …  
    144146    end else begin
    145147      {$ifdef WINDOWS}
    146       PaintBox1.Canvas.Brush.Color := clBackground; //PaintBox1.GetColorResolvingParent;
     148      PaintBox1.Canvas.Brush.Color := BackgroundColor; //clBackground; //PaintBox1.GetColorResolvingParent;
    147149      PaintBox1.Canvas.FillRect(0, 0, PaintBox1.Width, PaintBox1.Height);
    148150      {$endif}

  • trunk/UCore.lfm

    r128 r133  
    20492049    AuthorsName = 'Chronos'
    20502050    AppName = 'xTactics'
    2051     ReleaseDate = 42736
     2051    ReleaseDate = 42913
    20522052    RegistryKey = '\Software\xTactics'
    20532053    RegistryRoot = rrKeyCurrentUser
Note: See TracChangeset for help on using the changeset viewer.