Changeset 536 for trunk/LocalPlayer/CityScreen.pas
- Timestamp:
- Apr 15, 2024, 8:59:23 PM (7 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/CityScreen.pas
r530 r536 579 579 J := Pos('\', S); 580 580 if J = 0 then 581 LoweredText out(Offscreen.Canvas, -1, MainTexture, xmOpt + 40,581 LoweredTextOut(Offscreen.Canvas, -1, MainTexture, xmOpt + 40, 582 582 ymOpt - 9, S) 583 583 else 584 584 begin 585 LoweredText out(Offscreen.Canvas, -1, MainTexture, xmOpt + 40,585 LoweredTextOut(Offscreen.Canvas, -1, MainTexture, xmOpt + 40, 586 586 ymOpt - 17, Copy(S, 1, J - 1)); 587 LoweredText out(Offscreen.Canvas, -1, MainTexture, xmOpt + 40, ymOpt - 1,587 LoweredTextOut(Offscreen.Canvas, -1, MainTexture, xmOpt + 40, ymOpt - 1, 588 588 Copy(S, J + 1, 255)); 589 589 end; … … 718 718 CutCityFoodSurplus(Report.FoodSurplus, IsCityAlive, cGov, C.Size), 719 719 Report.Storage, 1, CanGrow); 720 LoweredText out(Offscreen.Canvas, -1, MainTexture, xFood + 3 - 5,720 LoweredTextOut(Offscreen.Canvas, -1, MainTexture, xFood + 3 - 5, 721 721 yFood + 102 - 20, Format('%d/%d', [TrueFood, Report.Storage])); 722 LoweredText out(Offscreen.Canvas, -1, MainTexture, xFood - 2, yFood + 66,722 LoweredTextOut(Offscreen.Canvas, -1, MainTexture, xFood - 2, yFood + 66, 723 723 Phrases.Lookup('STORAGE')); 724 724 … … 751 751 I := 0; 752 752 FillBar(xProd + 3, yProd + 16 + 63, TrueProd, I, PrCost, 4, True); 753 LoweredText out(Offscreen.Canvas, -1, MainTexture, xProd + 3 - 5,753 LoweredTextOut(Offscreen.Canvas, -1, MainTexture, xProd + 3 - 5, 754 754 yProd + 16 + 43, Format('%d/%d', [TrueProd, PrCost])); 755 755 if BiColorTextWidth(Offscreen.Canvas, PrName) > wBar + dxBar then … … 912 912 else { if SmallMapMode = smSupportedUnits then } 913 913 begin 914 LoweredText out(Offscreen.Canvas, -1, MainTexture, xZoomMap + 6,914 LoweredTextOut(Offscreen.Canvas, -1, MainTexture, xZoomMap + 6, 915 915 yZoomMap + 2, Phrases.Lookup('SUPUNITS')); 916 916 FreeSupp := C.Size * SupportFree[cGov] shr 1;
Note:
See TracChangeset
for help on using the changeset viewer.