Changeset 188 for trunk/LocalPlayer/Help.pas
- Timestamp:
- May 6, 2020, 11:21:12 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Help.pas
r172 r188 395 395 ca.FrameRect(rect(x+1,i*24+1,x+24-1,i*24+24-1)); 396 396 ca.Brush.Style:=bsClear; } 397 BitBlt (ca.Handle, x, y - 4, 24, 24, GrExt[HGrSystem].Data.Canvas.Handle, 1,398 146 , SRCCOPY);397 BitBltCanvas(ca, x, y - 4, 24, 24, GrExt[HGrSystem].Data.Canvas, 1, 398 146); 399 399 BiColorTextOut(ca, $FFFFFF, $7F007F, x + 10 - ca.Textwidth(s[1]) div 2, 400 400 y - 3, s[1]); … … 533 533 if 4 + i * 24 + yl > InnerHeight then 534 534 yl := InnerHeight - (4 + i * 24); 535 BitBlt (Handle, 8, 4 + i * 24, ExtPic.Width, yl, ExtPic.Canvas.Handle,536 0, 0 , SRCCOPY);535 BitBltCanvas(OffScreen.Canvas, 8, 4 + i * 24, ExtPic.Width, yl, ExtPic.Canvas, 536 0, 0); 537 537 end; 538 538 end; … … 574 574 8 + xSizeSmall + x0[i], 2 + 20 + i * 24, $000000, $000000); 575 575 if HelpLineInfo.Picpix = imPalace then 576 BitBlt (OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,577 xSizeSmall, ySizeSmall, SmallImp.Canvas .Handle,578 0 * xSizeSmall, 1 * ySizeSmall , SRCCOPY)576 BitBltCanvas(OffScreen.Canvas, 8 + x0[i], 2 + i * 24, 577 xSizeSmall, ySizeSmall, SmallImp.Canvas, 578 0 * xSizeSmall, 1 * ySizeSmall) 579 579 else 580 BitBlt (OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,581 xSizeSmall, ySizeSmall, SmallImp.Canvas .Handle,580 BitBltCanvas(OffScreen.Canvas, 8 + x0[i], 2 + i * 24, 581 xSizeSmall, ySizeSmall, SmallImp.Canvas, 582 582 HelpLineInfo.Picpix mod 7 * xSizeSmall, 583 583 (HelpLineInfo.Picpix + SystemIconLines * 7) div 7 * 584 ySizeSmall , SRCCOPY);584 ySizeSmall); 585 585 x0[i] := x0[i] + (8 + 8 + 36); 586 586 end; … … 641 641 $000000, $000000); 642 642 if AdvIcon[HelpLineInfo.Picpix] < 84 then 643 BitBlt (OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24,644 xSizeSmall, ySizeSmall, SmallImp.Canvas .Handle,643 BitBltCanvas(OffScreen.Canvas, 8 + x0[i], 2 + i * 24, 644 xSizeSmall, ySizeSmall, SmallImp.Canvas, 645 645 (AdvIcon[HelpLineInfo.Picpix] + SystemIconLines * 7) mod 7 * 646 646 xSizeSmall, (AdvIcon[HelpLineInfo.Picpix] + SystemIconLines * 647 7) div 7 * ySizeSmall , SRCCOPY)647 7) div 7 * ySizeSmall) 648 648 else 649 649 Dump(OffScreen, HGrSystem, 8 + x0[i], 2 + i * 24, 36, 20, … … 651 651 295 + (AdvIcon[HelpLineInfo.Picpix] - 84) div 8 * 21); 652 652 j := AdvValue[HelpLineInfo.Picpix] div 1000; 653 BitBlt (Handle, x0[i] + 4, 4 + i * 24, 14, 14,654 GrExt[HGrSystem].Mask.Canvas .Handle, 127 + j * 15, 85, SRCAND);653 BitBltCanvas(OffScreen.Canvas, x0[i] + 4, 4 + i * 24, 14, 14, 654 GrExt[HGrSystem].Mask.Canvas, 127 + j * 15, 85, SRCAND); 655 655 Sprite(OffScreen, HGrSystem, x0[i] + 3, 3 + i * 24, 14, 14, 656 656 127 + j * 15, 85); … … 828 828 ScreenTools.Frame(OffScreen.Canvas, 8 - 1 + x0[i], 2 - 1 + i * 24, 829 829 8 + xSizeSmall + x0[i], 2 + 20 + i * 24, $000000, $000000); 830 BitBlt (OffScreen.Canvas.Handle, 8 + x0[i], 2 + i * 24, xSizeSmall,831 ySizeSmall, SmallImp.Canvas .Handle, (HelpLineInfo.Picpix - 1) *832 xSizeSmall, ySizeSmall , SRCCOPY);830 BitBltCanvas(OffScreen.Canvas, 8 + x0[i], 2 + i * 24, xSizeSmall, 831 ySizeSmall, SmallImp.Canvas, (HelpLineInfo.Picpix - 1) * 832 xSizeSmall, ySizeSmall); 833 833 x0[i] := x0[i] + (8 + 8 + 36); 834 834 end;
Note:
See TracChangeset
for help on using the changeset viewer.