Changeset 530 for trunk/LocalPlayer/Help.pas
- Timestamp:
- Feb 24, 2024, 8:04:26 PM (9 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Help.pas
r529 r530 551 551 if 4 + I * 24 + yl > InnerHeight then 552 552 yl := InnerHeight - (4 + I * 24); 553 BitBltCanvas(OffScreen.Canvas, 8, 4 + I * 24, ExtPic.Width, yl, ExtPic.Canvas, 554 0, 0); 553 BitBltBitmap(OffScreen, 8, 4 + I * 24, ExtPic.Width, yl, ExtPic, 0, 0); 555 554 end; 556 555 end; … … 592 591 8 + xSizeSmall + x0[I], 2 + 20 + I * 24, $000000, $000000); 593 592 if HelpLineInfo.Picpix = imPalace then 594 BitBlt Canvas(OffScreen.Canvas, 8 + x0[I], 2 + I * 24,595 xSizeSmall, ySizeSmall, SmallImp .Canvas,593 BitBltBitmap(OffScreen, 8 + x0[I], 2 + I * 24, 594 xSizeSmall, ySizeSmall, SmallImp, 596 595 0 * xSizeSmall, 1 * ySizeSmall) 597 596 else 598 BitBlt Canvas(OffScreen.Canvas, 8 + x0[I], 2 + I * 24,599 xSizeSmall, ySizeSmall, SmallImp .Canvas,597 BitBltBitmap(OffScreen, 8 + x0[I], 2 + I * 24, 598 xSizeSmall, ySizeSmall, SmallImp, 600 599 HelpLineInfo.Picpix mod 7 * xSizeSmall, 601 600 (HelpLineInfo.Picpix + SystemIconLines * 7) div 7 * … … 659 658 $000000, $000000); 660 659 if AdvIcon[HelpLineInfo.Picpix] < 84 then 661 BitBlt Canvas(OffScreen.Canvas, 8 + x0[I], 2 + I * 24,662 xSizeSmall, ySizeSmall, SmallImp .Canvas,660 BitBltBitmap(OffScreen, 8 + x0[I], 2 + I * 24, 661 xSizeSmall, ySizeSmall, SmallImp, 663 662 (AdvIcon[HelpLineInfo.Picpix] + SystemIconLines * 7) mod 7 * 664 663 xSizeSmall, (AdvIcon[HelpLineInfo.Picpix] + SystemIconLines * … … 669 668 295 + (AdvIcon[HelpLineInfo.Picpix] - 84) div 8 * 21); 670 669 J := AdvValue[HelpLineInfo.Picpix] div 1000; 671 BitBlt Canvas(OffScreen.Canvas, x0[I] + 4, 4 + I * 24, 14, 14,672 HGrSystem.Mask .Canvas, 127 + J * 15, 85, SRCAND);670 BitBltBitmap(OffScreen, x0[I] + 4, 4 + I * 24, 14, 14, 671 HGrSystem.Mask, 127 + J * 15, 85, SRCAND); 673 672 Sprite(OffScreen, HGrSystem, x0[I] + 3, 3 + I * 24, 14, 14, 674 673 127 + J * 15, 85); … … 846 845 ScreenTools.Frame(OffScreen.Canvas, 8 - 1 + x0[I], 2 - 1 + I * 24, 847 846 8 + xSizeSmall + x0[I], 2 + 20 + I * 24, $000000, $000000); 848 BitBlt Canvas(OffScreen.Canvas, 8 + x0[I], 2 + I * 24, xSizeSmall,849 ySizeSmall, SmallImp .Canvas, (HelpLineInfo.Picpix - 1) *847 BitBltBitmap(OffScreen, 8 + x0[I], 2 + I * 24, xSizeSmall, 848 ySizeSmall, SmallImp, (HelpLineInfo.Picpix - 1) * 850 849 xSizeSmall, ySizeSmall); 851 850 x0[I] := x0[I] + (8 + 8 + 36);
Note:
See TracChangeset
for help on using the changeset viewer.