Changeset 468 for trunk/LocalPlayer/CityScreen.pas
- Timestamp:
- Dec 3, 2023, 11:28:08 AM (6 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/CityScreen.pas
r464 r468 7 7 {$IFDEF UNIX}LMessages,{$ENDIF} 8 8 Protocol, ClientTools, ScreenTools, IsoEngine, BaseWin, LCLIntf, LCLType, 9 Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls, ButtonA, 10 ButtonC, Area, GraphType, Texture; 9 Messages, SysUtils, Classes, ButtonA, ButtonC, Area, GraphType, Texture, 10 System.UITypes, 11 {$IFDEF DPI}Dpi.Graphics, Dpi.Controls, Dpi.Forms, Dpi.ExtCtrls{$ELSE} 12 Graphics, Controls, Forms, ExtCtrls{$ENDIF}; 11 13 12 14 const … … 224 226 225 227 Back := TBitmap.Create; 226 Back.PixelFormat := pf24bit;228 Back.PixelFormat := TPixelFormat.pf24bit; 227 229 Back.SetSize(Width, Height); 228 230 Back.Canvas.FillRect(0, 0, Back.Width, Back.Height); 229 231 Template := TBitmap.Create; 230 Template.PixelFormat := pf24bit;232 Template.PixelFormat := TPixelFormat.pf24bit; 231 233 LoadGraphicFile(Template, GetGraphicsDir + DirectorySeparator + 'City.png', 232 234 [gfNoGamma]); 233 235 CityMapTemplate := TBitmap.Create; 234 CityMapTemplate.PixelFormat := pf24bit;236 CityMapTemplate.PixelFormat := TPixelFormat.pf24bit; 235 237 LoadGraphicFile(CityMapTemplate, GetGraphicsDir + DirectorySeparator + 'BigCityMap.png', 236 238 [gfNoGamma]); 237 239 SmallCityMapTemplate := TBitmap.Create; 238 SmallCityMapTemplate.PixelFormat := pf24bit;240 SmallCityMapTemplate.PixelFormat := TPixelFormat.pf24bit; 239 241 LoadGraphicFile(SmallCityMapTemplate, GetGraphicsDir + DirectorySeparator + 'SmallCityMap.png', 240 242 [gfNoGamma]); 241 243 SmallCityMap := TBitmap.Create; 242 SmallCityMap.PixelFormat := pf24bit;244 SmallCityMap.PixelFormat := TPixelFormat.pf24bit; 243 245 SmallCityMap.SetSize(98, 74); 244 246 SmallCityMap.Canvas.FillRect(0, 0, SmallCityMap.Width, SmallCityMap.Height); 245 247 ZoomCityMap := TBitmap.Create; 246 ZoomCityMap.PixelFormat := pf24bit;248 ZoomCityMap.PixelFormat := TPixelFormat.pf24bit; 247 249 ZoomCityMap.SetSize(228, 124); 248 250 ZoomCityMap.Canvas.FillRect(0, 0, ZoomCityMap.Width, ZoomCityMap.Height); … … 362 364 end; 363 365 end; 364 Brush.style := bsClear;366 Brush.style := TBrushStyle.bsClear; 365 367 end; 366 368 end; … … 537 539 Brush.Color := $FFFFFF; 538 540 FillRect(Rect(8, 7, 36, 32)); 539 Brush.style := bsClear;541 Brush.style := TBrushStyle.bsClear; 540 542 Font.Color := $000000; 541 543 S := IntToStr(C.Size); … … 810 812 Offscreen.Canvas.Brush.Color := MainTexture.ColorMark; 811 813 Offscreen.Canvas.FillRect(Rect(X - 27, Y - 6, X + 27, Y + 6)); 812 Offscreen.Canvas.Brush. style :=bsClear;814 Offscreen.Canvas.Brush.Style := TBrushStyle.bsClear; 813 815 end; 814 816 Sprite(Offscreen, HGrSystem, X - 16, Y - 5, 10, 10, 88, 115); … … 985 987 FillRect(Rect(xView + 9, yView + 5, xView + 1 + 72 - 8, 986 988 yView + 5 + 40)); 987 Brush. style :=bsClear;989 Brush.Style := TBrushStyle.bsClear; 988 990 end; 989 991 end … … 1624 1626 FillRect(Rect(xView + 9, yView + 5, xView + 1 + 72 - 8, 1625 1627 yView + 5 + 40)); 1626 Brush. style :=bsClear;1628 Brush.Style := TBrushStyle.bsClear; 1627 1629 end 1628 1630 else if BlinkTime = 6 then
Note:
See TracChangeset
for help on using the changeset viewer.