Changeset 210 for branches/highdpi/LocalPlayer/CityType.pas
- Timestamp:
- May 9, 2020, 4:02:07 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/highdpi/LocalPlayer/CityType.pas
r179 r210 5 5 6 6 uses 7 Protocol, ClientTools, Term, ScreenTools, BaseWin, LCLIntf, LCLType,7 UDpiControls, Protocol, ClientTools, Term, ScreenTools, BaseWin, LCLIntf, LCLType, 8 8 SysUtils, Classes, Graphics, Controls, Forms, 9 9 ButtonB, ExtCtrls; … … 39 39 CityTypeDlg: TCityTypeDlg; 40 40 41 42 41 implementation 43 42 44 uses 45 Help, UDpiControls; 43 uses Help; 46 44 47 45 {$R *.lfm} … … 116 114 xSwitch + 38 + i * 42, ySwitch + 22, MainTexture.clBevelLight, 117 115 MainTexture.clBevelShade); 118 DpiBitBlt(offscreen.Canvas.Handle, xSwitch + 2 + i * 42, ySwitch + 2, 119 xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle, (i + 3) * xSizeSmall, 120 0, SRCCOPY) 116 DpiBitCanvas(offscreen.Canvas, xSwitch + 2 + i * 42, ySwitch + 2, 117 xSizeSmall, ySizeSmall, SmallImp.Canvas, (i + 3) * xSizeSmall, 0); 121 118 end; 122 119 RisedTextOut(offscreen.Canvas, 8, yList + 32 * nListRow + 2, … … 151 148 yList + 16 + ySizeSmall div 2 + i div nListCol * 32, 152 149 MainTexture.clBevelLight, MainTexture.clBevelShade); 153 DpiBit Blt(offscreen.Canvas.Handle, xList + 21 - xSizeSmall div 2 +150 DpiBitCanvas(offscreen.Canvas, xList + 21 - xSizeSmall div 2 + 154 151 i mod nListCol * 42, yList + 16 - ySizeSmall div 2 + i div nListCol * 32, 155 xSizeSmall, ySizeSmall, SmallImp.Canvas .Handle,152 xSizeSmall, ySizeSmall, SmallImp.Canvas, 156 153 MyData.ImpOrder[ctype, i] mod 7 * xSizeSmall, 157 154 (MyData.ImpOrder[ctype, i] + SystemIconLines * 7) div 7 * 158 ySizeSmall , SRCCOPY);155 ySizeSmall); 159 156 inc(i); 160 157 end; … … 174 171 nPool div nPoolCol * 32, MainTexture.clBevelLight, 175 172 MainTexture.clBevelShade); 176 DpiBit Blt(offscreen.Canvas.Handle, xPool + 21 - xSizeSmall div 2 +173 DpiBitCanvas(offscreen.Canvas, xPool + 21 - xSizeSmall div 2 + 177 174 nPool mod nPoolCol * 42, yPool + 16 - ySizeSmall div 2 + 178 nPool div nPoolCol * 32, xSizeSmall, ySizeSmall, SmallImp.Canvas .Handle,175 nPool div nPoolCol * 32, xSizeSmall, ySizeSmall, SmallImp.Canvas, 179 176 iix mod 7 * xSizeSmall, (iix + SystemIconLines * 7) div 7 * 180 ySizeSmall , SRCCOPY);181 inc(nPool) 177 ySizeSmall); 178 inc(nPool); 182 179 end; 183 180 DeleteBtn.Visible := MyData.ImpOrder[ctype, 0] >= 0; … … 254 251 begin 255 252 dragiix := MyData.ImpOrder[ctype, i]; 256 Screen.Cursor := crImpDrag;253 DpiScreen.Cursor := crImpDrag; 257 254 SmartUpdateContent 258 255 end; … … 270 267 begin 271 268 dragiix := Pooliix[i]; 272 Screen.Cursor := crImpDrag;269 DpiScreen.Cursor := crImpDrag; 273 270 SmartUpdateContent 274 271 end; … … 332 329 SmartUpdateContent 333 330 end; 334 Screen.Cursor := crDefault331 DpiScreen.Cursor := crDefault 335 332 end; 336 333
Note:
See TracChangeset
for help on using the changeset viewer.