Changeset 468 for trunk/LocalPlayer/IsoEngine.pas
- Timestamp:
- Dec 3, 2023, 11:28:08 AM (5 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/IsoEngine.pas
r456 r468 6 6 uses 7 7 Protocol, ClientTools, ScreenTools, Tribes, LCLIntf, LCLType, SysUtils, 8 Classes, Graphics, PixelPointer, GraphicSet; 8 Classes, GraphicSet, 9 {$IFDEF DPI}Dpi.Graphics, Dpi.PixelPointer, Dpi.Common{$ELSE} 10 Graphics, PixelPointer{$ENDIF}; 9 11 10 12 const … … 215 217 begin 216 218 LandPatch := TBitmap.Create; 217 LandPatch.PixelFormat := pf24bit;219 LandPatch.PixelFormat := TPixelFormat.pf24bit; 218 220 OceanPatch := TBitmap.Create; 219 OceanPatch.PixelFormat := pf24bit;221 OceanPatch.PixelFormat := TPixelFormat.pf24bit; 220 222 Borders := TBitmap.Create; 221 Borders.PixelFormat := pf24bit;223 Borders.PixelFormat := TPixelFormat.pf24bit; 222 224 HGrTerrain := nil; 223 225 HGrCities := nil; … … 251 253 Mask24 := TBitmap.Create; 252 254 Mask24.Assign(HGrTerrain.Mask); 253 Mask24.PixelFormat := pf24bit;255 Mask24.PixelFormat := TPixelFormat.pf24bit; 254 256 Mask24.BeginUpdate; 255 257 for ySrc := 0 to TerrainIconLines - 1 do begin … … 344 346 OceanPatch.Canvas.FillRect(0, 0, OceanPatch.Width, OceanPatch.Height); 345 347 LandMore := TBitmap.Create; 346 LandMore.PixelFormat := pf24bit;348 LandMore.PixelFormat := TPixelFormat.pf24bit; 347 349 LandMore.Canvas.Brush.Color := 0; 348 350 LandMore.SetSize(xxt * 18, yyt * 9); 349 351 LandMore.Canvas.FillRect(0, 0, LandMore.Width, LandMore.Height); 350 352 OceanMore := TBitmap.Create; 351 OceanMore.PixelFormat := pf24bit;353 OceanMore.PixelFormat := TPixelFormat.pf24bit; 352 354 OceanMore.Canvas.Brush.Color := 0; 353 355 OceanMore.SetSize(xxt * 8, yyt * 4); 354 356 OceanMore.Canvas.FillRect(0, 0, OceanMore.Width, OceanMore.Height); 355 357 DitherMask := TBitmap.Create; 356 DitherMask.PixelFormat := pf24bit;358 DitherMask.PixelFormat := TPixelFormat.pf24bit; 357 359 DitherMask.SetSize(xxt * 2, yyt * 2); 358 360 DitherMask.Canvas.FillRect(0, 0, DitherMask.Width, DitherMask.Height); … … 584 586 FOutput.Canvas.Brush.Color := Color; 585 587 FOutput.Canvas.FillRect(Rect(X, Y, X + Width, Y + Height)); 586 FOutput.Canvas.Brush.Style := bsClear;588 FOutput.Canvas.Brush.Style := TBrushStyle.bsClear; 587 589 end; 588 590 … … 1080 1082 xs := X + xxt - (W + 1) div 2; 1081 1083 if IsCapital then 1082 FOutput.Canvas.Font.Style := FOutput.Canvas.Font.Style + [ fsUnderline];1084 FOutput.Canvas.Font.Style := FOutput.Canvas.Font.Style + [TFontStyle.fsUnderline]; 1083 1085 Textout(xs + 1, Y - 9, $000000, S); 1084 1086 Textout(xs, Y - 10, $FFFFFF, S); 1085 1087 if IsCapital then 1086 FOutput.Canvas.Font.Style := FOutput.Canvas.Font.Style - [ fsUnderline];1088 FOutput.Canvas.Font.Style := FOutput.Canvas.Font.Style - [TFontStyle.fsUnderline]; 1087 1089 end; 1088 1090 end; … … 1509 1511 Brush.Color := $000000; 1510 1512 FillRect(Rect(FLeft, RealTop, FRight, RealBottom)); 1511 Brush.Style := bsClear;1513 Brush.Style := TBrushStyle.bsClear; 1512 1514 end; 1513 1515
Note:
See TracChangeset
for help on using the changeset viewer.