Changeset 468 for trunk/LocalPlayer/Select.pas
- Timestamp:
- Dec 3, 2023, 11:28:08 AM (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Select.pas
r460 r468 5 5 6 6 uses 7 Protocol, ClientTools, ScreenTools, PVSB, BaseWin, 8 LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms, 9 ExtCtrls, ButtonB, ButtonBase, Menus, Types; 7 Protocol, ClientTools, ScreenTools, PVSB, BaseWin, System.UITypes, 8 LCLIntf, LCLType, Messages, SysUtils, Classes, ButtonB, ButtonBase, Types, 9 {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls, Dpi.Menus{$ELSE} 10 Graphics, Controls, Forms, ExtCtrls, Menus{$ENDIF}; 10 11 11 12 const … … 118 119 Layer2Btn.Hint := Phrases.Lookup('BTN_CLASSES'); 119 120 ScienceNationDotBuffer := TBitmap.Create; 120 ScienceNationDotBuffer.PixelFormat := pf24bit;121 ScienceNationDotBuffer.PixelFormat := TPixelFormat.pf24bit; 121 122 ScienceNationDotBuffer.SetSize(17, 17); 122 123 ScienceNationDotBuffer.Canvas.FillRect(0, 0, ScienceNationDotBuffer.Width, ScienceNationDotBuffer.Height); … … 276 277 Brush.Color := $FFFFFF; 277 278 FillRect(rect(X - 4 - 12, Y, X - 4 + 12, Y + 20)); 278 Brush. style :=bsClear;279 Brush.Style := TBrushStyle.bsClear; 279 280 Font.Color := $000000; 280 281 S := IntToStr(MyCity[lix].Size); … … 749 750 FillRect(rect(104 - 33 + 14 + TechNameSpace + 24 * I + 1 * 2, 0, 750 751 104 - 33 + 17 + TechNameSpace + 24 * I + 8 * 2, InnerHeight)); 751 Brush. style :=bsClear;752 Brush.Style := TBrushStyle.bsClear; 752 753 end 753 754 else
Note:
See TracChangeset
for help on using the changeset viewer.