Changeset 188 for trunk/LocalPlayer/Select.pas
- Timestamp:
- May 6, 2020, 11:21:12 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Select.pas
r89 r188 197 197 if pix and cpType = 0 then 198 198 if (pix and cpIndex = imPalace) and (MyRO.Government <> gAnarchy) then 199 BitBlt (offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall,200 ySizeSmall, SmallImp.Canvas .Handle, (MyRO.Government - 1) *201 xSizeSmall, ySizeSmall , SRCCOPY)199 BitBltCanvas(offscreen.Canvas, x + 16, y + (16 - 1), xSizeSmall, 200 ySizeSmall, SmallImp.Canvas, (MyRO.Government - 1) * 201 xSizeSmall, ySizeSmall) 202 202 else 203 BitBlt (offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall,204 ySizeSmall, SmallImp.Canvas .Handle, pix and cpIndex mod 7 *203 BitBltCanvas(offscreen.Canvas, x + 16, y + (16 - 1), xSizeSmall, 204 ySizeSmall, SmallImp.Canvas, pix and cpIndex mod 7 * 205 205 xSizeSmall, (pix and cpIndex + SystemIconLines * 7) div 7 * 206 ySizeSmall , SRCCOPY)206 ySizeSmall) 207 207 else 208 BitBlt (offscreen.Canvas.Handle, x + 16, y + (16 - 1), xSizeSmall,209 ySizeSmall, SmallImp.Canvas .Handle, (3 + pix and cpIndex) *210 xSizeSmall, 0 , SRCCOPY)208 BitBltCanvas(offscreen.Canvas, x + 16, y + (16 - 1), xSizeSmall, 209 ySizeSmall, SmallImp.Canvas, (3 + pix and cpIndex) * 210 xSizeSmall, 0); 211 211 end; 212 212 end; … … 568 568 MainTexture.clBevelLight, MainTexture.clBevelShade); 569 569 if AdvIcon[lix] < 84 then 570 BitBlt (offscreen.Canvas.Handle, (8 + 16), y0, xSizeSmall,571 ySizeSmall, SmallImp.Canvas .Handle,570 BitBltCanvas(offscreen.Canvas, (8 + 16), y0, xSizeSmall, 571 ySizeSmall, SmallImp.Canvas, 572 572 (AdvIcon[lix] + SystemIconLines * 7) mod 7 * xSizeSmall, 573 573 (AdvIcon[lix] + SystemIconLines * 7) div 7 * 574 ySizeSmall , SRCCOPY)574 ySizeSmall) 575 575 else 576 576 Dump(offscreen, HGrSystem, (8 + 16), y0, 36, 20, … … 578 578 295 + (AdvIcon[lix] - 84) div 8 * 21); 579 579 j := AdvValue[lix] div 1000; 580 BitBlt (Handle, (8 + 16 - 4), y0 + 2, 14, 14,581 GrExt[HGrSystem].Mask.Canvas .Handle, 127 + j * 15,580 BitBltCanvas(Canvas, (8 + 16 - 4), y0 + 2, 14, 14, 581 GrExt[HGrSystem].Mask.Canvas, 127 + j * 15, 582 582 85, SRCAND); 583 583 Sprite(offscreen, HGrSystem, (8 + 16 - 5), y0 + 1, 14, 14, … … 673 673 8 + 16 + xSizeSmall, y0 - 15 + (16 - 1 + ySizeSmall), 674 674 MainTexture.clBevelLight, MainTexture.clBevelShade); 675 BitBlt (offscreen.Canvas.Handle, 8 + 16, y0 - 15 + (16 - 1),676 xSizeSmall, ySizeSmall, SmallImp.Canvas .Handle,677 (lix - 1) * xSizeSmall, ySizeSmall , SRCCOPY);675 BitBltCanvas(offscreen.Canvas, 8 + 16, y0 - 15 + (16 - 1), 676 xSizeSmall, ySizeSmall, SmallImp.Canvas, 677 (lix - 1) * xSizeSmall, ySizeSmall); 678 678 end 679 679 end; … … 817 817 ClientHeight - 29, s); 818 818 BitBltCanvas(ScienceNationDot.Canvas, 0, 0, 17, 17, Canvas, 819 xScreen - 10, ClientHeight - 27 , SRCCOPY);819 xScreen - 10, ClientHeight - 27); 820 820 ImageOp_BCC(ScienceNationDot, Templates, 0, 0, 114, 211, 17, 17, 821 821 MainTexture.clBevelShade, Tribe[ScienceNation].Color); 822 BitBlt (Canvas.Handle, xScreen - 10, ClientHeight - 27, 17, 17,823 ScienceNationDot.Canvas .Handle, 0, 0, SRCCOPY);822 BitBltCanvas(Canvas, xScreen - 10, ClientHeight - 27, 17, 17, 823 ScienceNationDot.Canvas, 0, 0); 824 824 end; 825 825 end
Note:
See TracChangeset
for help on using the changeset viewer.