Changeset 468 for trunk/LocalPlayer/UnitStat.pas
- Timestamp:
- Dec 3, 2023, 11:28:08 AM (6 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/UnitStat.pas
r460 r468 6 6 uses 7 7 Protocol, ClientTools, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils, 8 Classes, Graphics, Controls, Forms, ButtonB, ButtonC, IsoEngine; 8 Classes, ButtonB, ButtonC, IsoEngine, 9 {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms{$ELSE} 10 Graphics, Controls, Forms{$ENDIF}; 9 11 10 12 type … … 79 81 80 82 Back := TBitmap.Create; 81 Back.PixelFormat := pf24bit;83 Back.PixelFormat := TPixelFormat.pf24bit; 82 84 Back.SetSize(5 * wCommon, hMax); 83 85 Back.Canvas.FillRect(0, 0, Back.Width, Back.Height); 84 86 Template := TBitmap.Create; 85 Template.PixelFormat := pf24bit;87 Template.PixelFormat := TPixelFormat.pf24bit; 86 88 LoadGraphicFile(Template, GetGraphicsDir + DirectorySeparator + 'Unit.png', 87 89 [gfNoGamma]); … … 343 345 Brush.Color := $FFFFFF; 344 346 FillRect(Rect(X - 3 + dx, Y + 2, X + W - 1 + dx, Y + 16)); 345 Brush.Style := bsClear;347 Brush.Style := TBrushStyle.bsClear; 346 348 Textout(X - 3 + dx + 1, Y, S); 347 349 Inc(dx, W + 1); … … 349 351 Brush.Color := $C0C0C0; 350 352 FrameRect(Rect(X - 3 + dx, Y + 2, X + 11 + dx, Y + 16)); 351 Brush.Style := bsClear;353 Brush.Style := TBrushStyle.bsClear; 352 354 Sprite(dst, HGrSystem, X - 1 + dx, Y + 4, 10, 10, 353 355 66 + I mod 11 * 11, 137 + I div 11 * 11); … … 512 514 Offscreen.Canvas.FillRect(Rect(xView, yView, xView + 64, 513 515 yView + 16)); 514 Brush.Style := bsClear;516 Brush.Style := TBrushStyle.bsClear; 515 517 end; 516 518
Note:
See TracChangeset
for help on using the changeset viewer.