Changeset 179
- Timestamp:
- Jun 23, 2019, 9:12:54 PM (5 years ago)
- Location:
- branches/highdpi
- Files:
-
- 24 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/highdpi/Back.pas
r178 r179 65 65 begin 66 66 if Assigned(Img) then 67 BitBlt(Canvas.Handle, Screen.Width - Img.Width - (Screen.Width - 800) *67 DpiBitBlt(Canvas.Handle, Screen.Width - Img.Width - (Screen.Width - 800) * 68 68 3 div 8, (Screen.Height - 600) div 3, Img.Width, Img.Height, 69 69 Img.Canvas.Handle, 0, 0, SRCCOPY); -
branches/highdpi/LocalPlayer/Battle.pas
r178 r179 107 107 VLightGradient(ca, xm - 8, ym + 8 + LABaseDamage, LADamage - LABaseDamage, 108 108 FanaticColor); 109 BitBlt(ca.Handle, xm - 12, ym - 12, 24, 24,109 DpiBitBlt(ca.Handle, xm - 12, ym - 12, 24, 24, 110 110 GrExt[HGrSystem].Mask.Canvas.Handle, 26, 146, SRCAND); 111 BitBlt(ca.Handle, xm - 12, ym - 12, 24, 24,111 DpiBitBlt(ca.Handle, xm - 12, ym - 12, 24, 24, 112 112 GrExt[HGrSystem].Data.Canvas.Handle, 26, 146, SRCPAINT); 113 113 … … 132 132 if Forecast.EndHealthDef <= 0 then 133 133 begin 134 BitBlt(ca.Handle, xm + 9 + LDDamage - 7, ym - 6, 14, 17,134 DpiBitBlt(ca.Handle, xm + 9 + LDDamage - 7, ym - 6, 14, 17, 135 135 GrExt[HGrSystem].Mask.Canvas.Handle, 51, 153, SRCAND); 136 BitBlt(ca.Handle, xm + 8 + LDDamage - 7, ym - 7, 14, 17,136 DpiBitBlt(ca.Handle, xm + 8 + LDDamage - 7, ym - 7, 14, 17, 137 137 GrExt[HGrSystem].Mask.Canvas.Handle, 51, 153, SRCAND); 138 BitBlt(ca.Handle, xm + 8 + LDDamage - 7, ym - 7, 14, 17,138 DpiBitBlt(ca.Handle, xm + 8 + LDDamage - 7, ym - 7, 14, 17, 139 139 GrExt[HGrSystem].Data.Canvas.Handle, 51, 153, SRCPAINT); 140 140 end; … … 152 152 if Forecast.EndHealthAtt <= 0 then 153 153 begin 154 BitBlt(ca.Handle, xm - 6, ym + 9 + LADamage - 7, 14, 17,154 DpiBitBlt(ca.Handle, xm - 6, ym + 9 + LADamage - 7, 14, 17, 155 155 GrExt[HGrSystem].Mask.Canvas.Handle, 51, 153, SRCAND); 156 BitBlt(ca.Handle, xm - 7, ym + 8 + LADamage - 7, 14, 17,156 DpiBitBlt(ca.Handle, xm - 7, ym + 8 + LADamage - 7, 14, 17, 157 157 GrExt[HGrSystem].Mask.Canvas.Handle, 51, 153, SRCAND); 158 BitBlt(ca.Handle, xm - 7, ym + 8 + LADamage - 7, 14, 17,158 DpiBitBlt(ca.Handle, xm - 7, ym + 8 + LADamage - 7, 14, 17, 159 159 GrExt[HGrSystem].Data.Canvas.Handle, 51, 153, SRCPAINT); 160 160 end; … … 173 173 174 174 NoMap.SetOutput(Buffer); 175 BitBlt(Buffer.Canvas.Handle, 0, 0, 66, 48, ca.Handle, xm + 8 + 4,175 DpiBitBlt(Buffer.Canvas.Handle, 0, 0, 66, 48, ca.Handle, xm + 8 + 4, 176 176 ym - 8 - 12 - 48, SRCCOPY); 177 177 { if TerrType<fForest then … … 185 185 end; } 186 186 NoMap.PaintUnit(1, 0, UnitInfo, 0); 187 BitBlt(ca.Handle, xm + 8 + 4, ym - 8 - 12 - 48, 66, 48, Buffer.Canvas.Handle,187 DpiBitBlt(ca.Handle, xm + 8 + 4, ym - 8 - 12 - 48, 66, 48, Buffer.Canvas.Handle, 188 188 0, 0, SRCCOPY); 189 189 190 BitBlt(Buffer.Canvas.Handle, 0, 0, 66, 48, ca.Handle, xm - 8 - 4 - 66,190 DpiBitBlt(Buffer.Canvas.Handle, 0, 0, 66, 48, ca.Handle, xm - 8 - 4 - 66, 191 191 ym + 8 + 12, SRCCOPY); 192 192 MakeUnitInfo(me, MyUn[uix], UnitInfo); 193 193 UnitInfo.Flags := UnitInfo.Flags and not unFortified; 194 194 NoMap.PaintUnit(1, 0, UnitInfo, 0); 195 BitBlt(ca.Handle, xm - 8 - 4 - 66, ym + 8 + 12, 66, 48, Buffer.Canvas.Handle,195 DpiBitBlt(ca.Handle, xm - 8 - 4 - 66, ym + 8 + 12, 66, 48, Buffer.Canvas.Handle, 196 196 0, 0, SRCCOPY); 197 197 end; { PaintBattleOutcome } -
branches/highdpi/LocalPlayer/CityScreen.pas
r178 r179 260 260 Back.Canvas.FillRect(0, 0, ClientWidth, ClientHeight); 261 261 262 bitblt(Back.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,262 Dpibitblt(Back.Canvas.Handle, 0, 0, ClientWidth, ClientHeight, 263 263 MainTexture.Image.Canvas.Handle, 0, 0, SRCCOPY); 264 264 ImageOp_B(Back, Template, 0, 0, 0, 0, ClientWidth, ClientHeight); … … 291 291 Color2 := Colors.Canvas.Pixels[clkAge0 + Age, cliHouse]; 292 292 SmallCityMap.Canvas.FillRect(0, 0, SmallCityMap.Width, SmallCityMap.Height); 293 bitblt(SmallCityMap.Canvas.Handle, 0, 0, 83, hSmallMap,293 Dpibitblt(SmallCityMap.Canvas.Handle, 0, 0, 83, hSmallMap, 294 294 SmallCityMapTemplate.Canvas.Handle, 83 * SizeClass, 0, SRCCOPY); 295 295 if IsPort then 296 296 begin 297 bitblt(SmallCityMap.Canvas.Handle, 83, 0, 15, hSmallMap,297 Dpibitblt(SmallCityMap.Canvas.Handle, 83, 0, 15, hSmallMap, 298 298 SmallCityMapTemplate.Canvas.Handle, 332 + 15, 0, SRCCOPY); 299 299 ImageOp_CCC(SmallCityMap, 0, 0, 83, hSmallMap, Color0, Color1, Color2); … … 303 303 else 304 304 begin 305 bitblt(SmallCityMap.Canvas.Handle, 83, 0, 15, hSmallMap,305 Dpibitblt(SmallCityMap.Canvas.Handle, 83, 0, 15, hSmallMap, 306 306 SmallCityMapTemplate.Canvas.Handle, 332, 0, SRCCOPY); 307 307 ImageOp_CCC(SmallCityMap, 0, 0, wSmallMap, hSmallMap, Color0, … … 359 359 ZoomCityMap.Canvas.FillRect(0, 0, ZoomCityMap.Width, ZoomCityMap.Height); 360 360 361 bitblt(ZoomCityMap.Canvas.Handle, 0, 0, wZoomMap, hZoomMap,361 Dpibitblt(ZoomCityMap.Canvas.Handle, 0, 0, wZoomMap, hZoomMap, 362 362 Back.Canvas.Handle, xZoomMap, yZoomMap, SRCCOPY); 363 363 if Mode = mImp then begin … … 542 542 RedTex.clTextShade := $0000FF; 543 543 544 bitblt(offscreen.Canvas.Handle, 0, 0, 640, 480, Back.Canvas.Handle, 0,544 Dpibitblt(offscreen.Canvas.Handle, 0, 0, 640, 480, Back.Canvas.Handle, 0, 545 545 0, SRCCOPY); 546 546 … … 614 614 false, AllowChange and IsCityAlive and 615 615 (c.Status and csResourceWeightsMask = 0)); 616 bitblt(offscreen.Canvas.Handle, xmArea + 102, 42, 90, 33, Back.Canvas.Handle,616 Dpibitblt(offscreen.Canvas.Handle, xmArea + 102, 42, 90, 33, Back.Canvas.Handle, 617 617 xmArea + 102, 42, SRCCOPY); 618 618 … … 645 645 else 646 646 xGr := 141; 647 bitblt(offscreen.Canvas.Handle, xmArea - 192 + 5 + i * d, ymArea - 96 - 29,647 Dpibitblt(offscreen.Canvas.Handle, xmArea - 192 + 5 + i * d, ymArea - 96 - 29, 648 648 27, 30, GrExt[HGrSystem].Mask.Canvas.Handle, xGr, 171, SRCAND); { shadow } 649 649 Sprite(offscreen, HGrSystem, xmArea - 192 + 4 + i * d, ymArea - 96 - 30, 27, … … 657 657 begin 658 658 xGr := 1 + 112; 659 bitblt(offscreen.Canvas.Handle, xmArea + 192 - 27 + 1 - i * d, 29 + 1, 27,659 Dpibitblt(offscreen.Canvas.Handle, xmArea + 192 - 27 + 1 - i * d, 29 + 1, 27, 660 660 30, GrExt[HGrSystem].Mask.Canvas.Handle, xGr, 171, SRCAND); { shadow } 661 661 Sprite(offscreen, HGrSystem, xmArea + 192 - 27 - i * d, 29, 27, 30, … … 803 803 804 804 // small map 805 bitblt(offscreen.Canvas.Handle, xSmallMap, ySmallMap, wSmallMap, hSmallMap,805 Dpibitblt(offscreen.Canvas.Handle, xSmallMap, ySmallMap, wSmallMap, hSmallMap, 806 806 SmallCityMap.Canvas.Handle, 0, 0, SRCCOPY); 807 807 if Mode = mImp then … … 831 831 Sprite(offscreen, HGrSystem, x + 6, y - 5, 10, 10, 154, 126); 832 832 833 bitblt(offscreen.Canvas.Handle, xZoomMap, yZoomMap, wZoomMap, hZoomMap,833 Dpibitblt(offscreen.Canvas.Handle, xZoomMap, yZoomMap, wZoomMap, hZoomMap, 834 834 ZoomCityMap.Canvas.Handle, 0, 0, SRCCOPY); 835 835 … … 1620 1620 with Canvas do 1621 1621 begin 1622 bitblt(Canvas.Handle, xView + 5, yView + 1, 64, 2, Back.Canvas.Handle,1622 Dpibitblt(Canvas.Handle, xView + 5, yView + 1, 64, 2, Back.Canvas.Handle, 1623 1623 xView + 5, yView + 1, SRCCOPY); 1624 bitblt(Canvas.Handle, xView + 5, yView + 3, 2, 42, Back.Canvas.Handle,1624 Dpibitblt(Canvas.Handle, xView + 5, yView + 3, 2, 42, Back.Canvas.Handle, 1625 1625 xView + 5, yView + 3, SRCCOPY); 1626 bitblt(Canvas.Handle, xView + 5 + 62, yView + 3, 2, 42,1626 Dpibitblt(Canvas.Handle, xView + 5 + 62, yView + 3, 2, 42, 1627 1627 Back.Canvas.Handle, xView + 5 + 62, yView + 3, SRCCOPY); 1628 1628 ScreenTools.Frame(Canvas, xView + 9 - 1, yView + 5 - 1, xView + 9 + xSizeBig, … … 1644 1644 else if c.Project and cpImp = 0 then 1645 1645 begin // project is unit 1646 bitblt(Canvas.Handle, xView + 9, yView + 5, xSizeBig, ySizeBig,1646 Dpibitblt(Canvas.Handle, xView + 9, yView + 5, xSizeBig, ySizeBig, 1647 1647 bigimp.Canvas.Handle, 0, 0, SRCCOPY); 1648 1648 with Tribe[cOwner].ModelPicture[c.Project and cpIndex] do -
branches/highdpi/LocalPlayer/CityType.pas
r57 r179 39 39 CityTypeDlg: TCityTypeDlg; 40 40 41 41 42 implementation 42 43 43 uses Help; 44 uses 45 Help, UDpiControls; 44 46 45 47 {$R *.lfm} … … 114 116 xSwitch + 38 + i * 42, ySwitch + 22, MainTexture.clBevelLight, 115 117 MainTexture.clBevelShade); 116 BitBlt(offscreen.Canvas.Handle, xSwitch + 2 + i * 42, ySwitch + 2,118 DpiBitBlt(offscreen.Canvas.Handle, xSwitch + 2 + i * 42, ySwitch + 2, 117 119 xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle, (i + 3) * xSizeSmall, 118 120 0, SRCCOPY) … … 149 151 yList + 16 + ySizeSmall div 2 + i div nListCol * 32, 150 152 MainTexture.clBevelLight, MainTexture.clBevelShade); 151 BitBlt(offscreen.Canvas.Handle, xList + 21 - xSizeSmall div 2 +153 DpiBitBlt(offscreen.Canvas.Handle, xList + 21 - xSizeSmall div 2 + 152 154 i mod nListCol * 42, yList + 16 - ySizeSmall div 2 + i div nListCol * 32, 153 155 xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle, … … 172 174 nPool div nPoolCol * 32, MainTexture.clBevelLight, 173 175 MainTexture.clBevelShade); 174 BitBlt(offscreen.Canvas.Handle, xPool + 21 - xSizeSmall div 2 +176 DpiBitBlt(offscreen.Canvas.Handle, xPool + 21 - xSizeSmall div 2 + 175 177 nPool mod nPoolCol * 42, yPool + 16 - ySizeSmall div 2 + 176 178 nPool div nPoolCol * 32, xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle, -
branches/highdpi/LocalPlayer/Draft.pas
r178 r179 238 238 // assemble background from 2 texture tiles 239 239 begin 240 bitblt(Back.Canvas.Handle, 0, 0, ClientWidth, 64,240 Dpibitblt(Back.Canvas.Handle, 0, 0, ClientWidth, 64, 241 241 MainTexture.Image.Canvas.Handle, (wMainTexture - ClientWidth) div 2, 242 242 hMainTexture - 64, SRCCOPY); 243 bitblt(Back.Canvas.Handle, 0, 64, ClientWidth, ClientHeight - 64,243 Dpibitblt(Back.Canvas.Handle, 0, 64, ClientWidth, ClientHeight - 64, 244 244 MainTexture.Image.Canvas.Handle, (wMainTexture - ClientWidth) div 2, 245 245 0, SRCCOPY); 246 246 end 247 247 else 248 bitblt(Back.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,248 Dpibitblt(Back.Canvas.Handle, 0, 0, ClientWidth, ClientHeight, 249 249 MainTexture.Image.Canvas.Handle, (wMainTexture - ClientWidth) div 2, 250 250 (hMainTexture - ClientHeight) div 2, SRCCOPY); … … 253 253 Template.Height - 64 - Cut); 254 254 255 bitblt(offscreen.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,255 Dpibitblt(offscreen.Canvas.Handle, 0, 0, ClientWidth, ClientHeight, 256 256 Back.Canvas.Handle, 0, 0, SRCCOPY); 257 257 -
branches/highdpi/LocalPlayer/Enhance.pas
r57 r179 45 45 EnhanceDlg: TEnhanceDlg; 46 46 47 47 48 implementation 48 49 49 uses Help; 50 uses 51 Help, UDpiControls; 50 52 51 53 {$R *.lfm} … … 96 98 for i := 0 to ControlCount - 1 do 97 99 if Controls[i] is TButtonC then 98 BitBlt(Canvas.Handle, Controls[i].Left + 2, Controls[i].Top - 11, 8, 8,100 DpiBitBlt(Canvas.Handle, Controls[i].Left + 2, Controls[i].Top - 11, 8, 8, 99 101 GrExt[HGrSystem].Data.Canvas.Handle, 121 + Controls[i].Tag mod 7 * 9, 100 102 1 + Controls[i].Tag div 7 * 9, SRCCOPY); -
branches/highdpi/LocalPlayer/Help.pas
r178 r179 315 315 ca.FrameRect(rect(x+1,i*24+1,x+24-1,i*24+24-1)); 316 316 ca.Brush.Style:=bsClear; } 317 BitBlt(ca.Handle, x, y - 4, 24, 24, GrExt[HGrSystem].Data.Canvas.Handle, 1,317 DpiBitBlt(ca.Handle, x, y - 4, 24, 24, GrExt[HGrSystem].Data.Canvas.Handle, 1, 318 318 146, SRCCOPY); 319 319 BiColorTextOut(ca, $FFFFFF, $7F007F, x + 10 - ca.Textwidth(s[1]) div 2, … … 456 456 if 4 + i * 24 + yl > InnerHeight then 457 457 yl := InnerHeight - (4 + i * 24); 458 BitBlt(Handle, 8, 4 + i * 24, ExtPic.Width, yl, ExtPic.Canvas.Handle,458 DpiBitBlt(Handle, 8, 4 + i * 24, ExtPic.Width, yl, ExtPic.Canvas.Handle, 459 459 0, 0, SRCCOPY); 460 460 end; … … 497 497 8 + xSizeSmall + x0[i], 2 + 20 + i * 24, $000000, $000000); 498 498 if HelpLineInfo.Picpix = imPalace then 499 BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,499 DpiBitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24, 500 500 xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle, 501 501 0 * xSizeSmall, 1 * ySizeSmall, SRCCOPY) 502 502 else 503 BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,503 DpiBitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24, 504 504 xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle, 505 505 HelpLineInfo.Picpix mod 7 * xSizeSmall, … … 564 564 $000000, $000000); 565 565 if AdvIcon[HelpLineInfo.Picpix] < 84 then 566 BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,566 DpiBitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24, 567 567 xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle, 568 568 (AdvIcon[HelpLineInfo.Picpix] + SystemIconLines * 7) mod 7 * … … 574 574 295 + (AdvIcon[HelpLineInfo.Picpix] - 84) div 8 * 21); 575 575 j := AdvValue[HelpLineInfo.Picpix] div 1000; 576 BitBlt(Handle, x0[i] + 4, 4 + i * 24, 14, 14,576 DpiBitBlt(Handle, x0[i] + 4, 4 + i * 24, 14, 14, 577 577 GrExt[HGrSystem].Mask.Canvas.Handle, 127 + j * 15, 85, SRCAND); 578 578 Sprite(OffScreen, HGrSystem, x0[i] + 3, 3 + i * 24, 14, 14, … … 751 751 ScreenTools.Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24, 752 752 8 + xSizeSmall + x0[i], 2 + 20 + i * 24, $000000, $000000); 753 BitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24, xSizeSmall,753 DpiBitBlt(OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24, xSizeSmall, 754 754 ySizeSmall, SmallImp.Canvas.Handle, (HelpLineInfo.Picpix - 1) * 755 755 xSizeSmall, ySizeSmall, SRCCOPY); -
branches/highdpi/LocalPlayer/IsoEngine.pas
r178 r179 521 521 exit; 522 522 523 LCLIntf.BitBlt(FOutput.Canvas.Handle, x, y, Width, Height, Src.Canvas.Handle,523 DpiBitBlt(FOutput.Canvas.Handle, x, y, Width, Height, Src.Canvas.Handle, 524 524 xSrc, ySrc, Rop); 525 525 end; … … 561 561 exit; 562 562 563 LCLIntf.BitBlt(FOutput.Canvas.Handle, xDst, yDst, Width, Height, MaskDC, xSrc, ySrc, SRCAND);563 DpiBitBlt(FOutput.Canvas.Handle, xDst, yDst, Width, Height, MaskDC, xSrc, ySrc, SRCAND); 564 564 if not PureBlack then 565 LCLIntf.BitBlt(FOutput.Canvas.Handle, xDst, yDst, Width, Height, DataDC, xSrc, ySrc,565 DpiBitBlt(FOutput.Canvas.Handle, xDst, yDst, Width, Height, DataDC, xSrc, ySrc, 566 566 SRCPAINT); 567 567 end; … … 1011 1011 Borders.Canvas.FillRect(Bounds(0, p1 * (yyt * 2), xxt * 2, yyt * 2)); 1012 1012 1013 LCLIntf.BitBlt(Borders.Canvas.Handle, 0, p1 * (yyt * 2), xxt * 2,1013 DpiBitBlt(Borders.Canvas.Handle, 0, p1 * (yyt * 2), xxt * 2, 1014 1014 yyt * 2, GrExt[HGrTerrain].Data.Canvas.Handle, 1015 1015 1 + 8 * (xxt * 2 + 1), 1 + yyt + 16 * (yyt * 3 + 1), SRCCOPY); -
branches/highdpi/LocalPlayer/MessgEx.pas
r178 r179 304 304 ImageOp_BCC(LogoBuffer, Templates, 0, 0, xb, yb, wb, hb, clCover, clPage); 305 305 306 BitBlt(ca.Handle, x, y, wb, hb, LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY);306 DpiBitBlt(ca.Handle, x, y, wb, hb, LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY); 307 307 end; 308 308 … … 328 328 with MyRO.EnemyModel[emix], Tribe[Owner].ModelPicture[mix] do 329 329 begin 330 BitBlt(Canvas.Handle, x, y, 64, 48, GrExt[HGr].Mask.Canvas.Handle,330 DpiBitBlt(Canvas.Handle, x, y, 64, 48, GrExt[HGr].Mask.Canvas.Handle, 331 331 pix mod 10 * 65 + 1, pix div 10 * 49 + 1, SRCAND); 332 BitBlt(Canvas.Handle, x, y, 64, 48, GrExt[HGr].Data.Canvas.Handle,332 DpiBitBlt(Canvas.Handle, x, y, 64, 48, GrExt[HGr].Data.Canvas.Handle, 333 333 pix mod 10 * 65 + 1, pix div 10 * 49 + 1, SRCPAINT); 334 334 end; … … 371 371 begin 372 372 p1 := MyRO.Wonder[IconIndex].EffectiveOwner; 373 BitBlt(Buffer.Canvas.Handle, 0, 0, xSizeBig + 2 * GlowRange,373 DpiBitBlt(Buffer.Canvas.Handle, 0, 0, xSizeBig + 2 * GlowRange, 374 374 ySizeBig + 2 * GlowRange, Canvas.Handle, 375 375 ClientWidth div 2 - (28 + GlowRange), 24 - GlowRange, SRCCOPY); 376 BitBlt(Buffer.Canvas.Handle, GlowRange, GlowRange, xSizeBig, ySizeBig,376 DpiBitBlt(Buffer.Canvas.Handle, GlowRange, GlowRange, xSizeBig, ySizeBig, 377 377 BigImp.Canvas.Handle, IconIndex mod 7 * xSizeBig, 378 378 (IconIndex + SystemIconLines * 7) div 7 * ySizeBig, SRCCOPY); … … 382 382 GlowFrame(Buffer, GlowRange, GlowRange, xSizeBig, ySizeBig, 383 383 Tribe[p1].Color); 384 BitBlt(Canvas.Handle, ClientWidth div 2 - (28 + GlowRange),384 DpiBitBlt(Canvas.Handle, ClientWidth div 2 - (28 + GlowRange), 385 385 24 - GlowRange, xSizeBig + 2 * GlowRange, ySizeBig + 2 * GlowRange, 386 386 Buffer.Canvas.Handle, 0, 0, SRCCOPY); … … 400 400 FrameImage(Canvas, BigImp, ClientWidth div 2 - 28, 24, xSizeBig, 401 401 ySizeBig, 0, 0); 402 BitBlt(Canvas.Handle, ClientWidth div 2 - 32, 20, 64, 44,402 DpiBitBlt(Canvas.Handle, ClientWidth div 2 - 32, 20, 64, 44, 403 403 GrExt[HGr].Mask.Canvas.Handle, pix mod 10 * 65 + 1, 404 404 pix div 10 * 49 + 1, SRCAND); 405 BitBlt(Canvas.Handle, ClientWidth div 2 - 32, 20, 64, 44,405 DpiBitBlt(Canvas.Handle, ClientWidth div 2 - 32, 20, 64, 44, 406 406 GrExt[HGr].Data.Canvas.Handle, pix mod 10 * 65 + 1, 407 407 pix div 10 * 49 + 1, SRCPAINT); … … 415 415 Frame(Canvas, ClientWidth div 2 - 32 - 1, 24 - 1, 416 416 ClientWidth div 2 + 32, 24 + 48, $000000, $000000); 417 BitBlt(Canvas.Handle, ClientWidth div 2 - 32, 24, 64, 48,417 DpiBitBlt(Canvas.Handle, ClientWidth div 2 - 32, 24, 64, 48, 418 418 GrExt[Tribe[IconIndex].faceHGr].Data.Canvas.Handle, 419 419 1 + Tribe[IconIndex].facepix mod 10 * 65, … … 432 432 (ClientWidth - 140) div 2, 24, SRCCOPY); 433 433 ImageOp_BCC(Buffer, Templates, 0, 0, 1, 279, 140, 120, 0, $FFFFFF); 434 BitBlt(Canvas.Handle, (ClientWidth - 140) div 2, 24, 140, 120,434 DpiBitBlt(Canvas.Handle, (ClientWidth - 140) div 2, 24, 140, 120, 435 435 Buffer.Canvas.Handle, 0, 0, SRCCOPY); 436 436 end; -
branches/highdpi/LocalPlayer/NatStat.pas
r178 r179 108 108 begin 109 109 AgePrepared := MainTextureAge; 110 bitblt(Back.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,110 Dpibitblt(Back.Canvas.Handle, 0, 0, ClientWidth, ClientHeight, 111 111 MainTexture.Image.Canvas.Handle, (wMainTexture - ClientWidth) div 2, 112 112 (hMainTexture - ClientHeight) div 2, SRCCOPY); … … 263 263 Extinct := 1 shl pView and MyRO.Alive = 0; 264 264 265 bitblt(offscreen.Canvas.Handle, 0, 0, ClientWidth, ClientHeight,265 Dpibitblt(offscreen.Canvas.Handle, 0, 0, ClientWidth, ClientHeight, 266 266 Back.Canvas.Handle, 0, 0, SRCCOPY); 267 267 -
branches/highdpi/LocalPlayer/Rates.pas
r61 r179 29 29 RatesDlg: TRatesDlg; 30 30 31 31 32 implementation 32 33 33 34 uses 34 ClientTools, Term, Tribes ;35 ClientTools, Term, Tribes, UDpiControls; 35 36 36 37 {$R *.lfm} … … 95 96 GlowFrame(Offscreen, ClientWidth div 2 - xSizeBig div 2, 52, xSizeBig, 96 97 ySizeBig, Tribe[me].Color); 97 BitBlt(Offscreen.Canvas.Handle, ClientWidth div 2 - xSizeBig div 2, 52,98 DpiBitBlt(Offscreen.Canvas.Handle, ClientWidth div 2 - xSizeBig div 2, 52, 98 99 xSizeBig, ySizeBig, BigImp.Canvas.Handle, (woLiberty mod 7) * xSizeBig, 99 100 (woLiberty div 7 + SystemIconLines) * ySizeBig, SRCCOPY); … … 122 123 begin 123 124 for i := 0 to current div 8 - 1 do 124 BitBlt(Handle, x + max - 8 - i * 8, y, 8, 7,125 DpiBitBlt(Handle, x + max - 8 - i * 8, y, 8, 7, 125 126 GrExt[HGrSystem].Data.Canvas.Handle, 104, 9 + 8 * 2, SRCCOPY); 126 BitBlt(Handle, x + max - current, y, current - 8 * (current div 8), 7,127 DpiBitBlt(Handle, x + max - current, y, current - 8 * (current div 8), 7, 127 128 GrExt[HGrSystem].Data.Canvas.Handle, 104, 9 + 8 * 2, SRCCOPY); 128 129 Brush.Color := $000000; -
branches/highdpi/LocalPlayer/Select.pas
r178 r179 196 196 if pix and cpType = 0 then 197 197 if (pix and cpIndex = imPalace) and (MyRO.Government <> gAnarchy) then 198 BitBlt(offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall,198 DpiBitBlt(offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall, 199 199 ySizeSmall, SmallImp.Canvas.Handle, (MyRO.Government - 1) * 200 200 xSizeSmall, ySizeSmall, SRCCOPY) 201 201 else 202 BitBlt(offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall,202 DpiBitBlt(offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall, 203 203 ySizeSmall, SmallImp.Canvas.Handle, pix and cpIndex mod 7 * 204 204 xSizeSmall, (pix and cpIndex + SystemIconLines * 7) div 7 * 205 205 ySizeSmall, SRCCOPY) 206 206 else 207 BitBlt(offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall,207 DpiBitBlt(offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall, 208 208 ySizeSmall, SmallImp.Canvas.Handle, (3 + pix and cpIndex) * 209 209 xSizeSmall, 0, SRCCOPY) … … 567 567 MainTexture.clBevelLight, MainTexture.clBevelShade); 568 568 if AdvIcon[lix] < 84 then 569 BitBlt(offscreen.Canvas.Handle, (8 + 16), y0, xSizeSmall,569 DpiBitBlt(offscreen.Canvas.Handle, (8 + 16), y0, xSizeSmall, 570 570 ySizeSmall, SmallImp.Canvas.Handle, 571 571 (AdvIcon[lix] + SystemIconLines * 7) mod 7 * xSizeSmall, … … 577 577 295 + (AdvIcon[lix] - 84) div 8 * 21); 578 578 j := AdvValue[lix] div 1000; 579 BitBlt(Handle, (8 + 16 - 4), y0 + 2, 14, 14,579 DpiBitBlt(Handle, (8 + 16 - 4), y0 + 2, 14, 14, 580 580 GrExt[HGrSystem].Mask.Canvas.Handle, 127 + j * 15, 581 581 85, SRCAND); … … 672 672 8 + 16 + xSizeSmall, y0 - 15 + (16 - 1 + ySizeSmall), 673 673 MainTexture.clBevelLight, MainTexture.clBevelShade); 674 BitBlt(offscreen.Canvas.Handle, 8 + 16, y0 - 15 + (16 - 1),674 DpiBitBlt(offscreen.Canvas.Handle, 8 + 16, y0 - 15 + (16 - 1), 675 675 xSizeSmall, ySizeSmall, SmallImp.Canvas.Handle, 676 676 (lix - 1) * xSizeSmall, ySizeSmall, SRCCOPY); … … 819 819 ImageOp_BCC(ScienceNationDot, Templates, 0, 0, 114, 211, 17, 17, 820 820 MainTexture.clBevelShade, Tribe[ScienceNation].Color); 821 BitBlt(Canvas.Handle, xScreen - 10, ClientHeight - 27, 17, 17,821 DpiBitBlt(Canvas.Handle, xScreen - 10, ClientHeight - 27, 17, 17, 822 822 ScienceNationDot.Canvas.Handle, 0, 0, SRCCOPY); 823 823 end; -
branches/highdpi/LocalPlayer/TechTree.pas
r178 r179 107 107 -BlackBorder - yOffset, Paper); 108 108 end; 109 BitBlt(Canvas.Handle, max(BlackBorder, BlackBorder + xOffset),109 DpiBitBlt(Canvas.Handle, max(BlackBorder, BlackBorder + xOffset), 110 110 max(BlackBorder, BlackBorder + yOffset), 111 111 min(Image.width, min(Image.width + xOffset, -
branches/highdpi/LocalPlayer/Term.pas
r178 r179 2746 2746 begin 2747 2747 if AILogo[pLogo] <> nil then 2748 BitBlt(Canvas.Handle, (xRightPanel + 10) - (16 + 64),2748 DpiBitBlt(Canvas.Handle, (xRightPanel + 10) - (16 + 64), 2749 2749 ClientHeight - PanelHeight, 64, 64, AILogo[pLogo].Canvas.Handle, 2750 2750 0, 0, SRCCOPY); … … 4042 4042 begin 4043 4043 if xMap < 0 then 4044 BitBlt(Canvas.Handle, MapOffset, TopBarHeight, width + xMap,4044 DpiBitBlt(Canvas.Handle, MapOffset, TopBarHeight, width + xMap, 4045 4045 height + yMap, Buffer.Canvas.Handle, -xMap, -yMap, SRCCOPY) 4046 4046 else 4047 BitBlt(Canvas.Handle, xMap + MapOffset, TopBarHeight, width,4047 DpiBitBlt(Canvas.Handle, xMap + MapOffset, TopBarHeight, width, 4048 4048 height + yMap, Buffer.Canvas.Handle, 0, -yMap, SRCCOPY) 4049 4049 end … … 4051 4051 begin 4052 4052 if xMap < 0 then 4053 BitBlt(Canvas.Handle, MapOffset, TopBarHeight + yMap, width + xMap,4053 DpiBitBlt(Canvas.Handle, MapOffset, TopBarHeight + yMap, width + xMap, 4054 4054 height, Buffer.Canvas.Handle, -xMap, 0, SRCCOPY) 4055 4055 else 4056 BitBlt(Canvas.Handle, xMap + MapOffset, TopBarHeight + yMap, width,4056 DpiBitBlt(Canvas.Handle, xMap + MapOffset, TopBarHeight + yMap, width, 4057 4057 height, Buffer.Canvas.Handle, 0, 0, SRCCOPY); 4058 4058 end … … 4325 4325 procedure TMainScreen.CopyMiniToPanel; 4326 4326 begin 4327 BitBlt(Panel.Canvas.Handle, xMini + 2, yMini + 2, G.lx * 2, G.ly,4327 DpiBitBlt(Panel.Canvas.Handle, xMini + 2, yMini + 2, G.lx * 2, G.ly, 4328 4328 Mini.Canvas.Handle, 0, 0, SRCCOPY); 4329 4329 if MarkCityLoc >= 0 then … … 4414 4414 ClientWidth - xPalace + xSizeBig + 1, yPalace + ySizeBig + 1, 4415 4415 $FFFFFF, $B0B0B0); 4416 BitBlt(Panel.Canvas.Handle, ClientWidth - xPalace, yPalace, xSizeBig,4416 DpiBitBlt(Panel.Canvas.Handle, ClientWidth - xPalace, yPalace, xSizeBig, 4417 4417 ySizeBig, GrExt[HGrSystem2].Data.Canvas.Handle, 70, 123, SRCCOPY); 4418 4418 end … … 5272 5272 PaintLoc(MouseLoc, 2); 5273 5273 MiniPaint; 5274 BitBlt(Panel.Canvas.Handle, xMini + 2, yMini + 2, G.lx * 2, G.ly,5274 DpiBitBlt(Panel.Canvas.Handle, xMini + 2, yMini + 2, G.lx * 2, G.ly, 5275 5275 Mini.Canvas.Handle, 0, 0, SRCCOPY); 5276 5276 if ywmax <= 0 then … … 6096 6096 for Step := 0 to abs(Step1 - Step0) do 6097 6097 begin 6098 BitBlt(Buffer.Canvas.Handle, 0, 0, xRange, yRange,6098 DpiBitBlt(Buffer.Canvas.Handle, 0, 0, xRange, yRange, 6099 6099 offscreen.Canvas.Handle, xMin, yMin, SRCCOPY); 6100 6100 if Step1 <> Step0 then … … 6138 6138 if Restore then 6139 6139 begin 6140 BitBlt(Buffer.Canvas.Handle, 0, 0, xRange, yRange, offscreen.Canvas.Handle,6140 DpiBitBlt(Buffer.Canvas.Handle, 0, 0, xRange, yRange, offscreen.Canvas.Handle, 6141 6141 xMin, yMin, SRCCOPY); 6142 6142 PaintBufferToScreen(xMin, yMin, xRange, yRange); … … 7489 7489 InitPopup(Popup); 7490 7490 if FullScreen then 7491 Popup.Popup(Left + T Control(Sender).Left, Top + TControl(Sender).Top)7491 Popup.Popup(Left + TDpiControl(Sender).Left, Top + TDpiControl(Sender).Top) 7492 7492 else 7493 Popup.Popup(Left + T Control(Sender).Left + 4, Top + TControl(Sender).Top +7493 Popup.Popup(Left + TDpiControl(Sender).Left + 4, Top + TDpiControl(Sender).Top + 7494 7494 GetSystemMetrics(SM_CYCAPTION) + 4); 7495 7495 end; … … 7553 7553 yw := ywmax; 7554 7554 end; 7555 BitBlt(Buffer.Canvas.Handle, 0, 0, G.lx * 2, G.ly, Mini.Canvas.Handle, 0,7555 DpiBitBlt(Buffer.Canvas.Handle, 0, 0, G.lx * 2, G.ly, Mini.Canvas.Handle, 0, 7556 7556 0, SRCCOPY); 7557 7557 if ywmax <= 0 then … … 7563 7563 x - xMini - 2 + MapWidth div (xxt * 2) - 1, yw + MapHeight div yyt - 7564 7564 2, MainTexture.clMark, MainTexture.clMark); 7565 BitBlt(Panel.Canvas.Handle, xMini + 2, yMini + 2, G.lx * 2, G.ly,7565 DpiBitBlt(Panel.Canvas.Handle, xMini + 2, yMini + 2, G.lx * 2, G.ly, 7566 7566 Buffer.Canvas.Handle, 0, 0, SRCCOPY); 7567 7567 MainOffscreenPaint; … … 7715 7715 Brush.Style := bsClear; 7716 7716 end; 7717 BitBlt(Canvas.Handle, MapOffset, TopBarHeight, MapWidth, MapHeight - overlap,7717 DpiBitBlt(Canvas.Handle, MapOffset, TopBarHeight, MapWidth, MapHeight - overlap, 7718 7718 offscreen.Canvas.Handle, 0, 0, SRCCOPY); 7719 BitBlt(Canvas.Handle, 0, 0, ClientWidth, TopBarHeight, TopBar.Canvas.Handle,7719 DpiBitBlt(Canvas.Handle, 0, 0, ClientWidth, TopBarHeight, TopBar.Canvas.Handle, 7720 7720 0, 0, SRCCOPY); 7721 7721 if xMidPanel > MapOffset then 7722 BitBlt(Canvas.Handle, xMidPanel, TopBarHeight + MapHeight - overlap,7722 DpiBitBlt(Canvas.Handle, xMidPanel, TopBarHeight + MapHeight - overlap, 7723 7723 ClientWidth div 2 - xMidPanel, overlap, offscreen.Canvas.Handle, 7724 7724 xMidPanel - MapOffset, MapHeight - overlap, SRCCOPY) 7725 7725 else 7726 BitBlt(Canvas.Handle, MapOffset, TopBarHeight + MapHeight - overlap,7726 DpiBitBlt(Canvas.Handle, MapOffset, TopBarHeight + MapHeight - overlap, 7727 7727 ClientWidth div 2 - MapOffset, overlap, offscreen.Canvas.Handle, 0, 7728 7728 MapHeight - overlap, SRCCOPY); 7729 7729 if xRightPanel < MapOffset + MapWidth then 7730 BitBlt(Canvas.Handle, ClientWidth div 2, TopBarHeight + MapHeight - overlap,7730 DpiBitBlt(Canvas.Handle, ClientWidth div 2, TopBarHeight + MapHeight - overlap, 7731 7731 xRightPanel - ClientWidth div 2, overlap, offscreen.Canvas.Handle, 7732 7732 ClientWidth div 2 - MapOffset, MapHeight - overlap, SRCCOPY) 7733 7733 else 7734 BitBlt(Canvas.Handle, ClientWidth div 2, TopBarHeight + MapHeight - overlap,7734 DpiBitBlt(Canvas.Handle, ClientWidth div 2, TopBarHeight + MapHeight - overlap, 7735 7735 MapOffset + MapWidth - ClientWidth div 2, overlap, 7736 7736 offscreen.Canvas.Handle, ClientWidth div 2 - MapOffset, 7737 7737 MapHeight - overlap, SRCCOPY); 7738 BitBlt(Canvas.Handle, 0, TopBarHeight + MapHeight - overlap, xMidPanel,7738 DpiBitBlt(Canvas.Handle, 0, TopBarHeight + MapHeight - overlap, xMidPanel, 7739 7739 overlap, Panel.Canvas.Handle, 0, 0, SRCCOPY); 7740 BitBlt(Canvas.Handle, xRightPanel, TopBarHeight + MapHeight - overlap,7740 DpiBitBlt(Canvas.Handle, xRightPanel, TopBarHeight + MapHeight - overlap, 7741 7741 Panel.width - xRightPanel, overlap, Panel.Canvas.Handle, xRightPanel, 7742 7742 0, SRCCOPY); 7743 BitBlt(Canvas.Handle, 0, TopBarHeight + MapHeight, Panel.width,7743 DpiBitBlt(Canvas.Handle, 0, TopBarHeight + MapHeight, Panel.width, 7744 7744 PanelHeight - overlap, Panel.Canvas.Handle, 0, overlap, SRCCOPY); 7745 7745 if (pLogo >= 0) and (G.RO[pLogo] = nil) and (AILogo[pLogo] <> nil) then 7746 BitBlt(Canvas.Handle, xRightPanel + 10 - (16 + 64),7746 DpiBitBlt(Canvas.Handle, xRightPanel + 10 - (16 + 64), 7747 7747 ClientHeight - PanelHeight, 64, 64, AILogo[pLogo].Canvas.Handle, 0, 7748 7748 0, SRCCOPY); … … 7753 7753 r0: HRgn; 7754 7754 begin 7755 r0 := CreateRectRgn(Left, Top, Rigth, Bottom);7755 r0 := DpiCreateRectRgn(Left, Top, Rigth, Bottom); 7756 7756 InvalidateRgn(Handle, r0, false); 7757 7757 DeleteObject(r0); … … 7763 7763 r0, r1: HRgn; 7764 7764 begin 7765 r0 := CreateRectRgn(Left, Top, Rigth, Bottom);7765 r0 := DpiCreateRectRgn(Left, Top, Rigth, Bottom); 7766 7766 for i := 0 to ControlCount - 1 do 7767 7767 if not(Controls[i] is TArea) and Controls[i].Visible then 7768 7768 begin 7769 7769 with Controls[i].BoundsRect do 7770 r1 := CreateRectRgn(Left, Top, Right, Bottom);7770 r1 := DpiCreateRectRgn(Left, Top, Right, Bottom); 7771 7771 CombineRgn(r0, r0, r1, RGN_DIFF); 7772 7772 DeleteObject(r1); -
branches/highdpi/LocalPlayer/UnitStat.pas
r178 r179 97 97 begin 98 98 AgePrepared := MainTextureAge; 99 bitblt(Back.Canvas.Handle, 0, 0, wCommon, hOwnModel,99 Dpibitblt(Back.Canvas.Handle, 0, 0, wCommon, hOwnModel, 100 100 MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2, 101 101 (hMainTexture - hOwnModel) div 2, SRCCOPY); 102 bitblt(Back.Canvas.Handle, wCommon, 0, wCommon, hEnemyModel,102 Dpibitblt(Back.Canvas.Handle, wCommon, 0, wCommon, hEnemyModel, 103 103 MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2, 104 104 (hMainTexture - hEnemyModel) div 2, SRCCOPY); 105 bitblt(Back.Canvas.Handle, 2 * wCommon, 0, wCommon, hEnemyUnit,105 Dpibitblt(Back.Canvas.Handle, 2 * wCommon, 0, wCommon, hEnemyUnit, 106 106 MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2, 107 107 (hMainTexture - hEnemyUnit) div 2, SRCCOPY); 108 bitblt(Back.Canvas.Handle, 3 * wCommon, 0, wCommon, hEnemyCityDefense,108 Dpibitblt(Back.Canvas.Handle, 3 * wCommon, 0, wCommon, hEnemyCityDefense, 109 109 MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2, 110 110 (hMainTexture - hEnemyCityDefense) div 2, SRCCOPY); 111 bitblt(Back.Canvas.Handle, 4 * wCommon, 0, wCommon, hEnemyCity,111 Dpibitblt(Back.Canvas.Handle, 4 * wCommon, 0, wCommon, hEnemyCity, 112 112 MainTexture.Image.Canvas.Handle, (wMainTexture - wCommon) div 2, 113 113 (hMainTexture - hEnemyCity) div 2, SRCCOPY); … … 387 387 dkOwnModel: 388 388 begin 389 bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hOwnModel,389 Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hOwnModel, 390 390 Back.Canvas.Handle, 0, 0, SRCCOPY); 391 391 yView := 13; … … 394 394 dkEnemyModel: 395 395 begin 396 bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyModel,396 Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyModel, 397 397 Back.Canvas.Handle, wCommon, 0, SRCCOPY); 398 398 yView := 13; … … 401 401 dkEnemyUnit, dkOwnUnit: 402 402 begin 403 bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyUnit,403 Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyUnit, 404 404 Back.Canvas.Handle, 2 * wCommon, 0, SRCCOPY); 405 405 yView := 13; … … 408 408 dkEnemyCityDefense: 409 409 begin 410 bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyCityDefense,410 Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyCityDefense, 411 411 Back.Canvas.Handle, 3 * wCommon, 0, SRCCOPY); 412 412 yView := 171; … … 415 415 dkEnemyCity: 416 416 begin 417 bitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyCity,417 Dpibitblt(offscreen.Canvas.Handle, 0, 0, wCommon, hEnemyCity, 418 418 Back.Canvas.Handle, 4 * wCommon, 0, SRCCOPY); 419 419 end; … … 445 445 yImp + ySizeSmall, MainTexture.clBevelLight, 446 446 MainTexture.clBevelShade); 447 bitblt(offscreen.Canvas.Handle, x, yImp, xSizeSmall, ySizeSmall,447 Dpibitblt(offscreen.Canvas.Handle, x, yImp, xSizeSmall, ySizeSmall, 448 448 SmallImp.Canvas.Handle, j mod 7 * xSizeSmall, 449 449 (j + SystemIconLines * 7) div 7 * ySizeSmall, SRCCOPY); … … 564 564 * (yyt * 3 + 1)); 565 565 end; 566 bitblt(offscreen.Canvas.Handle, xView, yView + 16, 64, 32,566 Dpibitblt(offscreen.Canvas.Handle, xView, yView + 16, 64, 32, 567 567 Buffer.Canvas.Handle, 1, 0, SRCCOPY); 568 568 -
branches/highdpi/LocalPlayer/Wonders.pas
r178 r179 38 38 39 39 uses 40 Term, ClientTools, Help, Tribes ;40 Term, ClientTools, Help, Tribes, UDpiControls; 41 41 42 42 {$R *.lfm} … … 249 249 begin 250 250 HaveWonder := True; 251 BitBlt(Offscreen.Canvas.Handle,251 DpiBitBlt(Offscreen.Canvas.Handle, 252 252 Center.X - xSizeBig div 2 + RingPosition[I].X, 253 253 Center.Y - ySizeBig div 2 + RingPosition[I].Y, xSizeBig, … … 258 258 begin 259 259 HaveWonder := True; 260 BitBlt(Offscreen.Canvas.Handle,260 DpiBitBlt(Offscreen.Canvas.Handle, 261 261 Center.X - xSizeBig div 2 + RingPosition[I].X, 262 262 Center.Y - ySizeBig div 2 + RingPosition[I].Y, xSizeBig, ySizeBig, -
branches/highdpi/NoTerm.pas
r178 r179 127 127 RisedTextOut(State.Canvas, 0, 0, Format(Phrases.Lookup('AIT_ROUND'), [Round]) 128 128 + ' ' + TurnToString(G.RO[me].Turn)); 129 BitBlt(Canvas.Handle, 64, 287 + 138, 192, 20, State.Canvas.Handle, 0,129 DpiBitBlt(Canvas.Handle, 64, 287 + 138, 192, 20, State.Canvas.Handle, 0, 130 130 0, SRCCOPY); 131 131 end; … … 331 331 yBrain[i] - 16, 64, 64, 0, 0); 332 332 if 1 shl i and G.RO[me].Alive = 0 then 333 BitBlt(Canvas.Handle, xBrain[i], yBrain[i] - 16, 64, 64,333 DpiBitBlt(Canvas.Handle, xBrain[i], yBrain[i] - 16, 64, 64, 334 334 Shade.Canvas.Handle, 0, 0, SRCAND); 335 335 Sprite(Canvas, HGrSystem, xBrain[i] + 30 - 14, yBrain[i] + 53, 14, -
branches/highdpi/Packages/CevoComponents/ButtonB.pas
r178 r179 44 44 if FGraphic <> nil then 45 45 begin 46 BitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle, 169,46 DpiBitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle, 169, 47 47 243 + 26 * Byte(FDown), SRCCOPY); 48 48 if FIndex >= 0 then 49 49 begin 50 BitBlt(Canvas.Handle, 0, 0, 25, 25, FMask.Canvas.Handle,50 DpiBitBlt(Canvas.Handle, 0, 0, 25, 25, FMask.Canvas.Handle, 51 51 1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCAND); 52 BitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle,52 DpiBitBlt(Canvas.Handle, 0, 0, 25, 25, FGraphic.Canvas.Handle, 53 53 1 + FIndex mod 12 * 26, 337 + FIndex div 12 * 26, SRCPAINT); 54 54 end -
branches/highdpi/Packages/CevoComponents/ButtonBase.pas
r178 r179 7 7 8 8 type 9 10 { TButtonBase } 11 9 12 TButtonBase = class(TDpiGraphicControl) 10 13 protected … … 24 27 private 25 28 Active: boolean; 29 procedure SetGraphic(AValue: TDpiBitmap); 26 30 public 27 31 constructor Create(aOwner: TComponent); override; 28 property Graphic: TDpiBitmap read FGraphic write FGraphic;32 property Graphic: TDpiBitmap read FGraphic write SetGraphic; 29 33 // property DownSound: string read FDownSound write FDownSound; 30 34 // property UpSound: string read FUpSound write FUpSound; … … 119 123 end; 120 124 125 procedure TButtonBase.SetGraphic(AValue: TDpiBitmap); 126 begin 127 if FGraphic = AValue then Exit; 128 FGraphic := AValue; 129 end; 130 121 131 procedure TButtonBase.SetDown(x: boolean); 122 132 begin -
branches/highdpi/Packages/CevoComponents/ButtonC.pas
r178 r179 4 4 5 5 uses 6 ButtonBase, 7 Classes, Graphics, LCLIntf, LCLType; 6 ButtonBase, Classes, Graphics, LCLIntf, LCLType, UDpiControls; 8 7 9 8 type … … 41 40 with Canvas do 42 41 if FGraphic <> nil then 43 BitBlt(Canvas.Handle, 0, 0, 12, 12, FGraphic.Canvas.Handle,42 DpiBitBlt(Canvas.Handle, 0, 0, 12, 12, FGraphic.Canvas.Handle, 44 43 169 + 13 * Byte(FDown), 159 + 13 * FIndex, SRCCOPY) 45 44 else -
branches/highdpi/Packages/CevoComponents/ScreenTools.pas
r178 r179 441 441 end; 442 442 443 procedure ResizeBitmap(Bitmap: TDpiBitmap; const NewWidth, NewHeight: Integer); 444 var 445 Buffer: TDpiBitmap; 446 begin 447 Buffer := TDpiBitmap.Create; 448 try 449 Buffer.SetSize(NewWidth, NewHeight); 450 Buffer.Canvas.StretchDraw(Rect(0, 0, NewWidth, NewHeight), Bitmap); 451 Bitmap.SetSize(NewWidth, NewHeight); 452 Bitmap.Canvas.Draw(0, 0, Buffer); 453 finally 454 Buffer.Free; 455 end; 456 end; 457 443 458 function LoadGraphicFile(bmp: TDpiBitmap; Path: string; Options: Integer): Boolean; 444 459 var … … 453 468 try 454 469 jtex.LoadFromFile(Path); 470 ResizeBitmap(jtex, ScaleToVcl(jtex.Width), ScaleToVcl(jtex.Height)); 455 471 except 456 472 Result := False; … … 471 487 try 472 488 Png.LoadFromFile(Path); 489 ResizeBitmap(Png, ScaleToVcl(Png.Width), ScaleToVcl(Png.Height)); 473 490 except 474 491 Result := False; … … 494 511 try 495 512 bmp.LoadFromFile(Path); 513 ResizeBitmap(bmp, ScaleToVcl(bmp.Width), ScaleToVcl(bmp.Height)); 496 514 except 497 515 Result := False; … … 580 598 procedure Dump(dst: TDpiBitmap; HGr, xDst, yDst, Width, Height, xGr, yGr: integer); 581 599 begin 582 BitBlt(dst.Canvas.Handle, xDst, yDst, Width, Height,600 DpiBitBlt(dst.Canvas.Handle, xDst, yDst, Width, Height, 583 601 GrExt[HGr].Data.Canvas.Handle, xGr, yGr, SRCCOPY); 584 602 end; … … 764 782 procedure Sprite(Canvas: TDpiCanvas; HGr, xDst, yDst, Width, Height, xGr, yGr: integer); 765 783 begin 766 BitBlt(Canvas.Handle, xDst, yDst, Width, Height,784 DpiBitBlt(Canvas.Handle, xDst, yDst, Width, Height, 767 785 GrExt[HGr].Mask.Canvas.Handle, xGr, yGr, SRCAND); 768 BitBlt(Canvas.Handle, xDst, yDst, Width, Height,786 DpiBitBlt(Canvas.Handle, xDst, yDst, Width, Height, 769 787 GrExt[HGr].Data.Canvas.Handle, xGr, yGr, SRCPAINT); 770 788 end; … … 772 790 procedure Sprite(dst: TDpiBitmap; HGr, xDst, yDst, Width, Height, xGr, yGr: integer); 773 791 begin 774 BitBlt(dst.Canvas.Handle, xDst, yDst, Width, Height,792 DpiBitBlt(dst.Canvas.Handle, xDst, yDst, Width, Height, 775 793 GrExt[HGr].Mask.Canvas.Handle, xGr, yGr, SRCAND); 776 BitBlt(dst.Canvas.Handle, xDst, yDst, Width, Height,794 DpiBitBlt(dst.Canvas.Handle, xDst, yDst, Width, Height, 777 795 GrExt[HGr].Data.Canvas.Handle, xGr, yGr, SRCPAINT); 778 796 end; … … 866 884 end else 867 885 Frame(ca, x - 1, y - 1, x + Width, y + Height, $000000, $000000); 868 BitBlt(ca.Handle, x, y, Width, Height, Src.Canvas.Handle, xSrc, ySrc,886 DpiBitBlt(ca.Handle, x, y, Width, Height, Src.Canvas.Handle, xSrc, ySrc, 869 887 SRCCOPY); 870 888 end; … … 947 965 $FF * intensity div $FF shl 16; 948 966 end; 949 BitBlt(GrExt[HGrSystem].Mask.Canvas.Handle, 77, 47, 10, 10,967 DpiBitBlt(GrExt[HGrSystem].Mask.Canvas.Handle, 77, 47, 10, 10, 950 968 GrExt[HGrSystem].Mask.Canvas.Handle, 66, 47, SRCCOPY); 951 969 end; … … 955 973 Assert((Left + xOffset >= 0) and (Left + xOffset + Width <= wMainTexture) and 956 974 (Top + yOffset >= 0) and (Top + yOffset + Height <= hMainTexture)); 957 BitBlt(ca.Handle, Left, Top, Width, Height, MainTexture.Image.Canvas.Handle,975 DpiBitBlt(ca.Handle, Left, Top, Width, Height, MainTexture.Image.Canvas.Handle, 958 976 Left + xOffset, Top + yOffset, SRCCOPY); 959 977 end; … … 977 995 begin 978 996 for I := 0 to (x1 - xm) div wMainTexture - 1 do 979 BitBlt(ca.Handle, xm + I * wMainTexture, y0, wMainTexture, y1 - y0,997 DpiBitBlt(ca.Handle, xm + I * wMainTexture, y0, wMainTexture, y1 - y0, 980 998 MainTexture.Image.Canvas.Handle, 0, hMainTexture div 2 + Band(I) * 981 999 (y1 - y0), SRCCOPY); 982 BitBlt(ca.Handle, xm + ((x1 - xm) div wMainTexture) * wMainTexture, y0,1000 DpiBitBlt(ca.Handle, xm + ((x1 - xm) div wMainTexture) * wMainTexture, y0, 983 1001 x1 - (xm + ((x1 - xm) div wMainTexture) * wMainTexture), y1 - y0, 984 1002 MainTexture.Image.Canvas.Handle, 0, hMainTexture div 2 + Band( 985 1003 (x1 - xm) div wMainTexture) * (y1 - y0), SRCCOPY); 986 1004 for I := 0 to (xm - x0) div wMainTexture - 1 do 987 BitBlt(ca.Handle, xm - (I + 1) * wMainTexture, y0, wMainTexture, y1 - y0,1005 DpiBitBlt(ca.Handle, xm - (I + 1) * wMainTexture, y0, wMainTexture, y1 - y0, 988 1006 MainTexture.Image.Canvas.Handle, 0, hMainTexture div 2 + 989 1007 Band(-I - 1) * (y1 - y0), SRCCOPY); 990 BitBlt(ca.Handle, x0, y0, xm - ((xm - x0) div wMainTexture) *1008 DpiBitBlt(ca.Handle, x0, y0, xm - ((xm - x0) div wMainTexture) * 991 1009 wMainTexture - x0, y1 - y0, MainTexture.Image.Canvas.Handle, 992 1010 ((xm - x0) div wMainTexture + 1) * wMainTexture - (xm - x0), … … 1021 1039 if x1cut < 0 then 1022 1040 x1cut := 0; 1023 BitBlt(ca.Handle, x * Texture.Width + x0cut - xOffset,1041 DpiBitBlt(ca.Handle, x * Texture.Width + x0cut - xOffset, 1024 1042 y * Texture.Height + y0cut - yOffset, Texture.Width - x0cut - x1cut, 1025 1043 Texture.Height - y0cut - y1cut, Texture.Canvas.Handle, x0cut, … … 1043 1061 procedure Corner(ca: TDpiCanvas; x, y, Kind: Integer; const T: TTexture); 1044 1062 begin 1045 { BitBlt(ca.Handle,x,y,8,8,GrExt[T.HGr].Mask.Canvas.Handle,1063 { DpiBitBlt(ca.Handle,x,y,8,8,GrExt[T.HGr].Mask.Canvas.Handle, 1046 1064 T.xGr+29+Kind*9,T.yGr+89,SRCAND); 1047 BitBlt(ca.Handle,x,y,8,8,GrExt[T.HGr].Data.Canvas.Handle,1065 DpiBitBlt(ca.Handle,x,y,8,8,GrExt[T.HGr].Data.Canvas.Handle, 1048 1066 T.xGr+29+Kind*9,T.yGr+89,SRCPAINT); } 1049 1067 end; … … 1053 1071 procedure PaintIcon(x, y, Kind: Integer); 1054 1072 begin 1055 BitBlt(ca.Handle, x, y + 6, 10, 10, GrExt[HGrSystem].Mask.Canvas.Handle,1073 DpiBitBlt(ca.Handle, x, y + 6, 10, 10, GrExt[HGrSystem].Mask.Canvas.Handle, 1056 1074 66 + Kind mod 11 * 11, 115 + Kind div 11 * 11, SRCAND); 1057 BitBlt(ca.Handle, x, y + 6, 10, 10, GrExt[HGrSystem].Data.Canvas.Handle,1075 DpiBitBlt(ca.Handle, x, y + 6, 10, 10, GrExt[HGrSystem].Data.Canvas.Handle, 1058 1076 66 + Kind mod 11 * 11, 115 + Kind div 11 * 11, SRCPAINT); 1059 1077 end; … … 1277 1295 for i := 0 to val mod 10 - 1 do 1278 1296 begin 1279 BitBlt(Handle, xIcon + 4 + i * (14 * ld div sd), yIcon + 2 + 1, 14,1297 DpiBitBlt(Handle, xIcon + 4 + i * (14 * ld div sd), yIcon + 2 + 1, 14, 1280 1298 14, GrExt[HGrSystem].Mask.Canvas.Handle, 67 + Kind mod 8 * 15, 1281 1299 70 + Kind div 8 * 15, SRCAND); … … 1285 1303 for i := 0 to val div 10 - 1 do 1286 1304 begin 1287 BitBlt(dst.Canvas.Handle, xIcon + 4 + (val mod 10) *1305 DpiBitBlt(dst.Canvas.Handle, xIcon + 4 + (val mod 10) * 1288 1306 (14 * ld div sd) + i * (14 * ld div sd), yIcon + 3, 14, 14, 1289 1307 GrExt[HGrSystem].Mask.Canvas.Handle, 67 + 7 mod 8 * 15, … … 1310 1328 for i := 0 to val div 10 - 1 do 1311 1329 begin 1312 BitBlt(Handle, xIcon + 4 + i * (14 * ld div sd), yIcon + 3, 14, 14,1330 DpiBitBlt(Handle, xIcon + 4 + i * (14 * ld div sd), yIcon + 3, 14, 14, 1313 1331 GrExt[HGrSystem].Mask.Canvas.Handle, 67 + Kind mod 8 * 15, 1314 1332 70 + Kind div 8 * 15, SRCAND); … … 1318 1336 for i := 0 to val mod 10 - 1 do 1319 1337 begin 1320 BitBlt(dst.Canvas.Handle, xIcon + 4 + (val div 10) *1338 DpiBitBlt(dst.Canvas.Handle, xIcon + 4 + (val div 10) * 1321 1339 (14 * ld div sd) + i * (10 * ld div sd), yIcon + 7, 10, 10, 1322 1340 GrExt[HGrSystem].Mask.Canvas.Handle, 66 + Kind mod 11 * 11, … … 1355 1373 begin 1356 1374 for i := 0 to pos div 8 - 1 do 1357 BitBlt(Handle, x + i * 8, y, 8, 7,1375 DpiBitBlt(Handle, x + i * 8, y, 8, 7, 1358 1376 GrExt[HGrSystem].Data.Canvas.Handle, 104, 9 + 8 * Kind, SRCCOPY); 1359 BitBlt(Handle, x + 8 * (pos div 8), y, pos - 8 * (pos div 8), 7,1377 DpiBitBlt(Handle, x + 8 * (pos div 8), y, pos - 8 * (pos div 8), 7, 1360 1378 GrExt[HGrSystem].Data.Canvas.Handle, 104, 9 + 8 * Kind, SRCCOPY); 1361 1379 if Growth > 0 then 1362 1380 begin 1363 1381 for i := 0 to Growth div 8 - 1 do 1364 BitBlt(Handle, x + pos + i * 8, y, 8, 7,1382 DpiBitBlt(Handle, x + pos + i * 8, y, 8, 7, 1365 1383 GrExt[HGrSystem].Data.Canvas.Handle, 112, 9 + 8 * Kind, SRCCOPY); 1366 BitBlt(Handle, x + pos + 8 * (Growth div 8), y,1384 DpiBitBlt(Handle, x + pos + 8 * (Growth div 8), y, 1367 1385 Growth - 8 * (Growth div 8), 7, GrExt[HGrSystem].Data.Canvas.Handle, 1368 1386 112, 9 + 8 * Kind, SRCCOPY); … … 1371 1389 begin 1372 1390 for i := 0 to -Growth div 8 - 1 do 1373 BitBlt(Handle, x + pos + i * 8, y, 8, 7,1391 DpiBitBlt(Handle, x + pos + i * 8, y, 8, 7, 1374 1392 GrExt[HGrSystem].Data.Canvas.Handle, 104, 1, SRCCOPY); 1375 BitBlt(Handle, x + pos + 8 * (-Growth div 8), y, -Growth -1393 DpiBitBlt(Handle, x + pos + 8 * (-Growth div 8), y, -Growth - 1376 1394 8 * (-Growth div 8), 7, 1377 1395 GrExt[HGrSystem].Data.Canvas.Handle, 104, 1, SRCCOPY); … … 1404 1422 ImageOp_BCC(LogoBuffer, Templates, 0, 0, 1, 1, wLogo, hLogo, 1405 1423 clLight, clShade); 1406 BitBlt(ca.Handle, x, y, wLogo, hLogo, LogoBuffer.Canvas.Handle, 0,1424 DpiBitBlt(ca.Handle, x, y, wLogo, hLogo, LogoBuffer.Canvas.Handle, 0, 1407 1425 0, SRCCOPY); 1408 1426 end; -
branches/highdpi/Packages/DpiControls/UDpiControls.pas
r178 r179 258 258 public 259 259 VclCanvas: TCanvas; 260 procedure StretchDraw(const DestRect: TRect; SrcGraphic: TDpiGraphic); virtual; 260 261 procedure FrameRect(Rect: TRect); 261 262 procedure Rectangle(X1, Y1, X2, Y2: Integer); … … 709 710 procedure Register; 710 711 function DpiBitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean; 712 function DpiCreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN; 713 function ScaleToVcl(Value: Integer): Integer; 714 function ScaleFromVcl(Value: Integer): Integer; 715 function ScalePointToVcl(Value: TPoint): TPoint; 716 function ScalePointFromVcl(Value: TPoint): TPoint; 717 function ScaleSizeToVcl(Value: TSize): TSize; 718 function ScaleSizeFromVcl(Value: TSize): TSize; 719 function ScaleRectToVcl(Value: TRect): TRect; 720 function ScaleRectFromVcl(Value: TRect): TRect; 711 721 712 722 … … 723 733 RegisterProjectFileDescriptor(DpiFormFileDesc); 724 734 RegisterComponents('DpiControls', [TDpiButton, TDpiImage, TDpiPaintBox, TDpiListBox]); 735 end; 736 737 function DpiCreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN; 738 begin 739 Result := CreateRectRgn(ScaleToVcl(X1), ScaleToVcl(Y1), ScaleToVcl(X2), 740 ScaleToVcl(Y2)); 725 741 end; 726 742 … … 1465 1481 end; 1466 1482 1483 procedure TDpiCanvas.StretchDraw(const DestRect: TRect; SrcGraphic: TDpiGraphic 1484 ); 1485 begin 1486 GetVclCanvas.StretchDraw(ScaleRectToVcl(DestRect), SrcGraphic.GetVclGraphic); 1487 end; 1488 1467 1489 procedure TDpiCanvas.FrameRect(Rect: TRect); 1468 1490 begin -
branches/highdpi/Start.lfm
r178 r179 329 329 end 330 330 object PopupMenu1: TPopupMenu 331 left = 8332 top = 8331 left = 112 332 top = 232 333 333 end 334 334 end -
branches/highdpi/Start.pas
r178 r179 266 266 Top := Location.Y; 267 267 268 r0 := CreateRectRgn(0, 0, Width, Height);269 r1 := CreateRectRgn(TabOffset + 4 * TabSize + 2, 0, Width, TabHeight);268 r0 := DpiCreateRectRgn(0, 0, Width, Height); 269 r1 := DpiCreateRectRgn(TabOffset + 4 * TabSize + 2, 0, Width, TabHeight); 270 270 CombineRgn(r0, r0, r1, RGN_DIFF); 271 271 DeleteObject(r1); 272 r1 := CreateRectRgn(QuitBtn.Left, QuitBtn.Top, QuitBtn.Left + QuitBtn.Width,272 r1 := DpiCreateRectRgn(QuitBtn.Left, QuitBtn.Top, QuitBtn.Left + QuitBtn.Width, 273 273 QuitBtn.top + QuitBtn.Height); 274 274 CombineRgn(r0, r0, r1, RGN_OR); … … 326 326 Brains[0].Picture := TDpiBitmap.Create; 327 327 Brains[0].Picture.SetSize(64, 64); 328 BitBlt(Brains[0].Picture.Canvas.Handle, 0, 0, 64, 64,328 DpiBitBlt(Brains[0].Picture.Canvas.Handle, 0, 0, 64, 64, 329 329 GrExt[HGrSystem2].Data.Canvas.Handle, 1, 111, SRCCOPY); 330 330 Brains[1].Picture := TDpiBitmap.Create; 331 331 Brains[1].Picture.SetSize(64, 64); 332 BitBlt(Brains[1].Picture.Canvas.Handle, 0, 0, 64, 64,332 DpiBitBlt(Brains[1].Picture.Canvas.Handle, 0, 0, 64, 64, 333 333 GrExt[HGrSystem2].Data.Canvas.Handle, 66, 111, SRCCOPY); 334 334 Brains[2].Picture := TDpiBitmap.Create; 335 335 Brains[2].Picture.SetSize(64, 64); 336 BitBlt(Brains[2].Picture.Canvas.Handle, 0, 0, 64, 64,336 DpiBitBlt(Brains[2].Picture.Canvas.Handle, 0, 0, 64, 64, 337 337 GrExt[HGrSystem2].Data.Canvas.Handle, 131, 111, SRCCOPY); 338 338 Brains[3].Picture := TDpiBitmap.Create; 339 339 Brains[3].Picture.SetSize(64, 64); 340 BitBlt(Brains[3].Picture.Canvas.Handle, 0, 0, 64, 64,340 DpiBitBlt(Brains[3].Picture.Canvas.Handle, 0, 0, 64, 64, 341 341 GrExt[HGrSystem2].Data.Canvas.Handle, 131, 46, SRCCOPY); 342 342 … … 408 408 r0, r1: HRgn; 409 409 begin 410 r0 := CreateRectRgn(x0, y0, x1, y1);410 r0 := DpiCreateRectRgn(x0, y0, x1, y1); 411 411 for i := 0 to ControlCount - 1 do 412 412 if not (Controls[i] is TArea) and Controls[i].Visible then 413 413 begin 414 414 with Controls[i].BoundsRect do 415 r1 := CreateRectRgn(left, top, Right, Bottom);415 r1 := DpiCreateRectRgn(left, top, Right, Bottom); 416 416 CombineRgn(r0, r0, r1, RGN_DIFF); 417 417 DeleteObject(r1); … … 419 419 if not invalidateTab0 then 420 420 begin 421 r1 := CreateRectRgn(0, 0, 6 + 36, 3 + 38); // tab 0 icon421 r1 := DpiCreateRectRgn(0, 0, 6 + 36, 3 + 38); // tab 0 icon 422 422 CombineRgn(r0, r0, r1, RGN_DIFF); 423 423 DeleteObject(r1); … … 496 496 xActionIcon - 2, y - 2, SRCCOPY); 497 497 GlowFrame(LogoBuffer, 8, 8, 34, 34, $202020); 498 BitBlt(Canvas.Handle, xActionIcon - 2, y - 2, 50, 50,498 DpiBitBlt(Canvas.Handle, xActionIcon - 2, y - 2, 50, 50, 499 499 LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY); 500 BitBlt(Canvas.Handle, xActionIcon, y, 40, 40, BigImp.Canvas.Handle,500 DpiBitBlt(Canvas.Handle, xActionIcon, y, 40, 40, BigImp.Canvas.Handle, 501 501 (IconIndex mod 7) * xSizeBig + 8, (IconIndex div 7) * ySizeBig, SRCCOPY); 502 502 RFrame(Canvas, xActionIcon - 1, y - 1, xActionIcon + 40, y + 40, … … 595 595 ImageOp_BCC(LogoBuffer, Templates, 10, 27, 155, 38 + 27, 26, 9, $BFBF20, 596 596 $4040DF); // logo part 2 597 BitBlt(Canvas.Handle, 6, 3 + 2 * integer(Tab <> tbMain), 36, 36,597 DpiBitBlt(Canvas.Handle, 6, 3 + 2 * integer(Tab <> tbMain), 36, 36, 598 598 LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY); 599 599 … … 615 615 - 8, SRCCOPY); 616 616 MakeBlue(LogoBuffer, 0, 0, w, h); 617 BitBlt(Canvas.Handle, ActionSideBorder + i * wBuffer,617 DpiBitBlt(Canvas.Handle, ActionSideBorder + i * wBuffer, 618 618 yAction + SelectedAction * ActionPitch - 8, w, h, 619 619 LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY); … … 643 643 ImageOp_BCC(LogoBuffer, Templates, 0, 0, 1, 400, 91, 25, 0, 644 644 Colors.Canvas.Pixels[clkAge0 - 1, cliDimmedText]); 645 BitBlt(Canvas.Handle, xActionIcon, y + 2, 91, 25,645 DpiBitBlt(Canvas.Handle, xActionIcon, y + 2, 91, 25, 646 646 LogoBuffer.Canvas.Handle, 0, 0, SRCCOPY); 647 647 end; … … 668 668 if (i < 13) or (i > 17) then 669 669 begin 670 BitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,670 DpiBitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna, 671 671 GrExt[HGrSystem2].Mask.Canvas.Handle, xOrna, yOrna, SRCAND); 672 BitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,672 DpiBitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna, 673 673 GrExt[HGrSystem2].Data.Canvas.Handle, xOrna, yOrna, SRCPAINT); 674 674 end; … … 687 687 if Assigned(PlayersBrain[I]) and (PlayersBrain[i].Kind in [btTerm, btRandom, btAI]) then 688 688 begin 689 BitBlt(Canvas.Handle, xBrain[i] - 18, yBrain[i] + 19, 12, 14,689 DpiBitBlt(Canvas.Handle, xBrain[i] - 18, yBrain[i] + 19, 12, 14, 690 690 GrExt[HGrSystem].Data.Canvas.Handle, 134 + (Difficulty[i] - 1) * 691 691 13, 28, SRCCOPY); … … 707 707 PlayerSlots[I].MultiBtn.left + 12, PlayerSlots[I].MultiBtn.top + 12, 708 708 MainTexture.clBevelShade, MainTexture.clBevelLight); 709 BitBlt(Canvas.Handle, xBrain[i] - 31, yBrain[i], 13, 12,709 DpiBitBlt(Canvas.Handle, xBrain[i] - 31, yBrain[i], 13, 12, 710 710 GrExt[HGrSystem].Data.Canvas.Handle, 88, 47, SRCCOPY); 711 711 end; … … 752 752 if (i < 2) or (i > 6) then 753 753 begin 754 BitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,754 DpiBitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna, 755 755 GrExt[HGrSystem2].Mask.Canvas.Handle, xOrna, yOrna, SRCAND); 756 BitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna,756 DpiBitBlt(Canvas.Handle, 9 + i * 27, yLogo - 2, wOrna, hOrna, 757 757 GrExt[HGrSystem2].Data.Canvas.Handle, xOrna, yOrna, SRCPAINT); 758 758 end; … … 848 848 if MiniMode = mmPicture then 849 849 begin 850 BitBlt(Canvas.Handle, xMini + 2, yMini + 2, MiniWidth * 2, MiniHeight,850 DpiBitBlt(Canvas.Handle, xMini + 2, yMini + 2, MiniWidth * 2, MiniHeight, 851 851 Mini.Canvas.Handle, 0, 0, SRCCOPY); 852 852 if Page = pgStartRandom then
Note:
See TracChangeset
for help on using the changeset viewer.