Changeset 530 for trunk/LocalPlayer/UnitStat.pas
- Timestamp:
- Feb 24, 2024, 8:04:26 PM (9 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/UnitStat.pas
r510 r530 101 101 if MainTexture.Age <> AgePrepared then begin 102 102 AgePrepared := MainTexture.Age; 103 BitBlt Canvas(Back.Canvas, 0, 0, wCommon, hOwnModel,104 MainTexture.Image .Canvas, (MainTexture.Width - wCommon) div 2,103 BitBltBitmap(Back, 0, 0, wCommon, hOwnModel, 104 MainTexture.Image, (MainTexture.Width - wCommon) div 2, 105 105 (MainTexture.Height - hOwnModel) div 2); 106 BitBlt Canvas(Back.Canvas, wCommon, 0, wCommon, hEnemyModel,107 MainTexture.Image .Canvas, (MainTexture.Width - wCommon) div 2,106 BitBltBitmap(Back, wCommon, 0, wCommon, hEnemyModel, 107 MainTexture.Image, (MainTexture.Width - wCommon) div 2, 108 108 (MainTexture.Height - hEnemyModel) div 2); 109 BitBlt Canvas(Back.Canvas, 2 * wCommon, 0, wCommon, hEnemyUnit,110 MainTexture.Image .Canvas, (MainTexture.Width - wCommon) div 2,109 BitBltBitmap(Back, 2 * wCommon, 0, wCommon, hEnemyUnit, 110 MainTexture.Image, (MainTexture.Width - wCommon) div 2, 111 111 (MainTexture.Height - hEnemyUnit) div 2); 112 BitBlt Canvas(Back.Canvas, 3 * wCommon, 0, wCommon, hEnemyCityDefense,113 MainTexture.Image .Canvas, (MainTexture.Width - wCommon) div 2,112 BitBltBitmap(Back, 3 * wCommon, 0, wCommon, hEnemyCityDefense, 113 MainTexture.Image, (MainTexture.Width - wCommon) div 2, 114 114 (MainTexture.Height - hEnemyCityDefense) div 2); 115 BitBlt Canvas(Back.Canvas, 4 * wCommon, 0, wCommon, hEnemyCity,116 MainTexture.Image .Canvas, (MainTexture.Width - wCommon) div 2,115 BitBltBitmap(Back, 4 * wCommon, 0, wCommon, hEnemyCity, 116 MainTexture.Image, (MainTexture.Width - wCommon) div 2, 117 117 (MainTexture.Height - hEnemyCity) div 2); 118 118 ImageOp_B(Back, Template, 0, 0, 0, 0, 5 * wCommon, hMax); … … 378 378 case Kind of 379 379 dkOwnModel: begin 380 BitBltCanvas(Offscreen.Canvas, 0, 0, wCommon, hOwnModel, 381 Back.Canvas, 0, 0); 380 BitBltBitmap(Offscreen, 0, 0, wCommon, hOwnModel, Back, 0, 0); 382 381 yView := 13; 383 382 yTotal := 92; 384 383 end; 385 384 dkEnemyModel: begin 386 BitBltCanvas(Offscreen.Canvas, 0, 0, wCommon, hEnemyModel, 387 Back.Canvas, wCommon, 0); 385 BitBltBitmap(Offscreen, 0, 0, wCommon, hEnemyModel, Back, wCommon, 0); 388 386 yView := 13; 389 387 yTotal := 92; 390 388 end; 391 389 dkEnemyUnit, dkOwnUnit: begin 392 BitBltCanvas(Offscreen.Canvas, 0, 0, wCommon, hEnemyUnit, 393 Back.Canvas, 2 * wCommon, 0); 390 BitBltBitmap(Offscreen, 0, 0, wCommon, hEnemyUnit, Back, 2 * wCommon, 0); 394 391 yView := 13; 395 392 yTotal := 123; 396 393 end; 397 394 dkEnemyCityDefense: begin 398 BitBltCanvas(Offscreen.Canvas, 0, 0, wCommon, hEnemyCityDefense, 399 Back.Canvas, 3 * wCommon, 0); 395 BitBltBitmap(Offscreen, 0, 0, wCommon, hEnemyCityDefense, Back, 3 * wCommon, 0); 400 396 yView := 171; 401 397 yTotal := 231; 402 398 end; 403 399 dkEnemyCity: begin 404 BitBltCanvas(Offscreen.Canvas, 0, 0, wCommon, hEnemyCity, 405 Back.Canvas, 4 * wCommon, 0); 400 BitBltBitmap(Offscreen, 0, 0, wCommon, hEnemyCity, Back, 4 * wCommon, 0); 406 401 yView := 171; 407 402 yTotal := 231; … … 430 425 yImp + ySizeSmall, MainTexture.ColorBevelLight, 431 426 MainTexture.ColorBevelShade); 432 BitBlt Canvas(Offscreen.Canvas, X, yImp, xSizeSmall, ySizeSmall,433 SmallImp .Canvas, J mod 7 * xSizeSmall,427 BitBltBitmap(Offscreen, X, yImp, xSizeSmall, ySizeSmall, 428 SmallImp, J mod 7 * xSizeSmall, 434 429 (J + SystemIconLines * 7) div 7 * ySizeSmall); 435 430 Inc(X, xSizeSmall + 4); … … 549 544 * (yyt * 3 + 1)); 550 545 end; 551 BitBltCanvas(Offscreen.Canvas, xView, yView + 16, 64, 32, 552 Buffer.Canvas, 1, 0); 546 BitBltBitmap(Offscreen, xView, yView + 16, 64, 32, Buffer, 1, 0); 553 547 554 548 // show unit, experience and health
Note:
See TracChangeset
for help on using the changeset viewer.