Changeset 133
- Timestamp:
- Jun 27, 2017, 9:38:01 PM (7 years ago)
- Location:
- trunk
- Files:
-
- 1 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Forms/UFormMain.pas
r132 r133 130 130 var 131 131 DrawStart: TDateTime; 132 const 133 BackgroundColor = $404040; 132 134 begin 133 135 DrawStart := Now; … … 137 139 if csOpaque in PaintBox1.ControlStyle then begin 138 140 TempBitmap.SetSize(PaintBox1.Width, PaintBox1.Height); 139 TempBitmap.Canvas.Brush.Color := clBackground; //PaintBox1.GetColorResolvingParent;141 TempBitmap.Canvas.Brush.Color := BackGroundColor; //clBackground; //PaintBox1.GetColorResolvingParent; 140 142 TempBitmap.Canvas.FillRect(0, 0, PaintBox1.Width, PaintBox1.Height); 141 143 if Assigned(ControlPlayer) then ControlPlayer.Paint(TempBitmap.Canvas, View) … … 144 146 end else begin 145 147 {$ifdef WINDOWS} 146 PaintBox1.Canvas.Brush.Color := clBackground; //PaintBox1.GetColorResolvingParent;148 PaintBox1.Canvas.Brush.Color := BackgroundColor; //clBackground; //PaintBox1.GetColorResolvingParent; 147 149 PaintBox1.Canvas.FillRect(0, 0, PaintBox1.Width, PaintBox1.Height); 148 150 {$endif} -
trunk/UCore.lfm
r128 r133 2049 2049 AuthorsName = 'Chronos' 2050 2050 AppName = 'xTactics' 2051 ReleaseDate = 42 7362051 ReleaseDate = 42913 2052 2052 RegistryKey = '\Software\xTactics' 2053 2053 RegistryRoot = rrKeyCurrentUser
Note:
See TracChangeset
for help on using the changeset viewer.