Changeset 468 for trunk/LocalPlayer/Draft.pas
- Timestamp:
- Dec 3, 2023, 11:28:08 AM (6 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Draft.pas
r460 r468 6 6 uses 7 7 Protocol, ClientTools, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils, 8 Classes, Graphics, Controls, Forms, ExtCtrls, ButtonA, ButtonB, Area; 8 Classes, ButtonA, ButtonB, Area, System.UITypes, 9 {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls{$ELSE} 10 Graphics, Controls, Forms, ExtCtrls{$ENDIF}; 9 11 10 12 type … … 83 85 84 86 Back := TBitmap.Create; 85 Back.PixelFormat := pf24bit;87 Back.PixelFormat := TPixelFormat.pf24bit; 86 88 Back.SetSize(Width, Height); 87 89 Back.Canvas.FillRect(0, 0, Back.Width, Back.Height); 88 90 Template := TBitmap.Create; 89 Template.PixelFormat := pf24bit;91 Template.PixelFormat := TPixelFormat.pf24bit; 90 92 LoadGraphicFile(Template, GetGraphicsDir + DirectorySeparator + 'MiliRes.png', 91 93 [gfNoGamma]); … … 156 158 FrameRect(Rect(xTotal2 - 3 - dx, Y + 2, 157 159 xTotal2 + 11 - dx, Y + 16)); 158 Brush.Style := bsClear;160 Brush.Style := TBrushStyle.bsClear; 159 161 Sprite(Offscreen, HGrSystem, xTotal2 - 1 - dx, Y + 4, 10, 10, 160 162 66 + I mod 11 * 11, 137 + I div 11 * 11); … … 167 169 FillRect(Rect(xTotal2 - 3 - dx, Y + 2, 168 170 xTotal2 + W - 1 - dx, Y + 16)); 169 Brush.Style := bsClear;171 Brush.Style := TBrushStyle.bsClear; 170 172 Textout(xTotal2 - 3 - dx + 1, Y, S); 171 173 end; … … 508 510 I, D: Integer; 509 511 begin 510 if Button = mbLeft then512 if Button = TMouseButton.mbLeft then 511 513 begin 512 514 for D := 0 to nDomains - 1 do
Note:
See TracChangeset
for help on using the changeset viewer.