Changeset 442 for trunk/LocalPlayer
- Timestamp:
- May 18, 2022, 10:43:27 PM (3 years ago)
- Location:
- trunk/LocalPlayer
- Files:
-
- 17 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LocalPlayer/Battle.pas
r437 r442 200 200 IsoMap.PaintUnit(1, 0, UnitInfo, 0); 201 201 BitBltCanvas(ca, xm - 8 - 4 - 66, ym + 8 + 12, 66, 48, Buffer.Canvas, 0, 0); 202 end; { PaintBattleOutcome }202 end; 203 203 204 204 procedure TBattleDlg.FormCreate(Sender: TObject); -
trunk/LocalPlayer/CityScreen.pas
r432 r442 1027 1027 1028 1028 MarkUsedOffscreen(ClientWidth, ClientHeight); 1029 end; { OffscreenPaint }1029 end; 1030 1030 1031 1031 procedure TCityDlg.FormShow(Sender: TObject); … … 1408 1408 end; 1409 1409 end; 1410 end; { FormMouseDown }1410 end; 1411 1411 1412 1412 procedure TCityDlg.ChooseProject; -
trunk/LocalPlayer/CityType.pas
r432 r442 189 189 end; 190 190 MarkUsedOffscreen(InnerWidth, InnerHeight); 191 end; { MainPaint }191 end; 192 192 193 193 procedure TCityTypeDlg.LoadType(NewType: integer); -
trunk/LocalPlayer/ClientTools.pas
r397 r442 316 316 UnitInfo := MyRO.EnemyUn[uix]; 317 317 end; 318 end; { GetUnitInfo }318 end; 319 319 320 320 procedure GetCityInfo(Loc: integer; var cix: integer; var CityInfo: TCityInfo); … … 756 756 initialization 757 757 758 759 758 Assert(nImp < 128); 759 CalculateAdvValues; 760 760 761 761 end. -
trunk/LocalPlayer/Diagram.pas
r431 r442 273 273 end; 274 274 MarkUsedOffscreen(InnerWidth, InnerHeight); 275 end; // OffscreenPaint275 end; 276 276 277 277 procedure TDiaDlg.FormPaint(Sender: TObject); -
trunk/LocalPlayer/Draft.pas
r437 r442 5 5 6 6 uses 7 Protocol, ClientTools, Term, ScreenTools, BaseWin, 8 9 LCLIntf, LCLType, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls, 10 ButtonA, 11 ButtonB, Area; 7 Protocol, ClientTools, Term, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils, 8 Classes, Graphics, Controls, Forms, ExtCtrls, ButtonA, ButtonB, Area; 12 9 13 10 type -
trunk/LocalPlayer/Enhance.pas
r432 r442 5 5 6 6 uses 7 ScreenTools, BaseWin, Protocol, ClientTools, Term, LCLIntf, LCLType, 8 9 SysUtils, Classes, Graphics, Controls, Forms, IsoEngine, 10 ButtonB, ButtonC, Menus; 7 ScreenTools, BaseWin, Protocol, ClientTools, Term, LCLIntf, LCLType, SysUtils, 8 Classes, Graphics, Controls, Forms, IsoEngine, ButtonB, ButtonC, Menus; 11 9 12 10 type … … 299 297 300 298 MarkUsedOffscreen(InnerWidth, InnerHeight); 301 end; { OffscreenPaint }299 end; 302 300 303 301 procedure TEnhanceDlg.CloseBtnClick(Sender: TObject); -
trunk/LocalPlayer/IsoEngine.pas
r401 r442 5 5 6 6 uses 7 Protocol, ClientTools, ScreenTools, Tribes, 8 LCLIntf, LCLType, SysUtils,Classes, Graphics, UPixelPointer, UGraphicSet;7 Protocol, ClientTools, ScreenTools, Tribes, LCLIntf, LCLType, SysUtils, 8 Classes, Graphics, UPixelPointer, UGraphicSet; 9 9 10 10 const … … 719 719 end; 720 720 end; 721 end; { PaintUnit }721 end; 722 722 723 723 procedure TIsoMap.PaintCity(x, y: integer; const CityInfo: TCityInfo; … … 804 804 Textout(xShield + 2, yShield - 1, LabelTextColor, s); 805 805 end; 806 end; { PaintCity }806 end; 807 807 808 808 function PoleTile(Loc: integer): integer; … … 1300 1300 Textout(x + xxt - 16, y + yyt - 9, $00E0FF, 1301 1301 IntToStr(integer(DebugMap[Loc]))) 1302 end; { PaintTileObjects }1302 end; 1303 1303 1304 1304 procedure TIsoMap.PaintGrid(x, y, nx, ny: integer); … … 1687 1687 1688 1688 // frame(FOutput.Canvas,x+1,y+1,x+nx*33+33-2,y+ny*16+32-2,$FFFF,$FFFF); 1689 end; { Paint }1689 end; 1690 1690 1691 1691 procedure TIsoMap.AttackBegin(const ShowMove: TShowMove); -
trunk/LocalPlayer/MessgEx.pas
r438 r442 5 5 6 6 uses 7 Messg, Protocol, ScreenTools, Platform, DateUtils, 8 LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms, ButtonA,9 ButtonB, StdCtrls,DrawDlg;7 Messg, Protocol, ScreenTools, Platform, DateUtils, LCLIntf, LCLType, Messages, 8 SysUtils, Classes, Graphics, Controls, Forms, ButtonA, ButtonB, StdCtrls, 9 DrawDlg; 10 10 11 11 type -
trunk/LocalPlayer/NatStat.pas
r431 r442 48 48 NatStatDlg: TNatStatDlg; 49 49 50 50 51 implementation 51 52 … … 394 395 395 396 MarkUsedOffscreen(ClientWidth, ClientHeight); 396 end; { OffscreenPaint }397 end; 397 398 398 399 procedure TNatStatDlg.CloseBtnClick(Sender: TObject); -
trunk/LocalPlayer/Nego.pas
r432 r442 96 96 NegoDlg: TNegoDlg; 97 97 98 98 99 implementation 99 100 … … 476 477 (ButtonPrice[Tag and $FF] shr 24 in MyAllowed); 477 478 Lit := Delivers[Tag and $FF] <> $FFFFFFFF; 478 end 479 end; 479 480 end; 480 481 end; … … 630 631 631 632 MarkUsedOffscreen(ClientWidth, ClientHeight); 632 end; { OffscreenPaint }633 end; 633 634 634 635 procedure TNegoDlg.Initiate; … … 784 785 if a > MaxShipPartPrice then 785 786 a := MaxShipPartPrice; 786 inc(Price, a) 787 inc(Price, a); 787 788 end; 788 789 opAllTech: … … 843 844 begin 844 845 SimpleMessage(Phrases.Lookup('MAX2OFFERS')); 845 exit 846 exit; 846 847 end; 847 848 Price := ButtonPrice[TButtonN(Sender).Tag and $FF]; … … 886 887 if a > MaxShipPartPrice then 887 888 a := MaxShipPartPrice; 888 inc(Price, a) 889 inc(Price, a); 889 890 end; 890 891 opAllTech: … … 906 907 Price := opAllModel 907 908 else 908 Price := OpModel + ModalSelectDlg.result 909 Price := OpModel + ModalSelectDlg.result; 909 910 end; 910 911 opTreaty: -
trunk/LocalPlayer/PVSB.pas
r346 r442 5 5 6 6 uses 7 {$IFDEF WINDOWS} 8 Windows, 9 {$ENDIF} 7 {$IFDEF WINDOWS}Windows,{$ENDIF} 10 8 Classes, Controls, Forms, LCLIntf, LCLType, LMessages, Messages, SysUtils, 11 9 StdCtrls, Math; -
trunk/LocalPlayer/Rates.pas
r431 r442 5 5 6 6 uses 7 Protocol, ScreenTools, BaseWin, LCLIntf, LCLType, 8 9 SysUtils, Classes, Graphics, Controls, Forms, 10 ButtonB, ButtonC; 7 Protocol, ScreenTools, BaseWin, LCLIntf, LCLType, SysUtils, Classes, Graphics, 8 Controls, Forms, ButtonB, ButtonC; 11 9 12 10 type … … 28 26 var 29 27 RatesDlg: TRatesDlg; 28 30 29 31 30 implementation -
trunk/LocalPlayer/Select.pas
r439 r442 1519 1519 Lines[2] := 0; 1520 1520 end; 1521 end; // InitLines1521 end; 1522 1522 1523 1523 function TListDlg.OnlyChoice(TestKind: TListKind): integer; -
trunk/LocalPlayer/Term.pas
r441 r442 2082 2082 s := Tribe[me].TPhrase('AGE0'); 2083 2083 MessgText := 2084 Format(s, [TurnToString(MyRO.Turn), CityName(MyCity[0].ID)]) 2084 Format(s, [TurnToString(MyRO.Turn), CityName(MyCity[0].ID)]); 2085 2085 end 2086 2086 else … … 2088 2088 s := Tribe[me].TString(Phrases2.Lookup('AGE0')); 2089 2089 MessgText := Format(s, [TurnToString(MyRO.Turn)]); 2090 end 2090 end; 2091 2091 end 2092 2092 else … … 8302 8302 end; 8303 8303 8304 initialization8305 8306 8304 end. 8307 8305 -
trunk/LocalPlayer/UnitStat.pas
r431 r442 695 695 (ClientWidth - BiColorTextWidth(offscreen.Canvas, Caption)) div 2, 696 696 yCaption, Caption); 697 end; { OffscreenPaint }697 end; 698 698 699 699 procedure TUnitStatDlg.ModelBoxChange(Sender: TObject); -
trunk/LocalPlayer/Wonders.pas
r432 r442 281 281 282 282 MarkUsedOffscreen(ClientWidth, ClientHeight); 283 end; { OffscreenPaint }283 end; 284 284 285 285 procedure TWondersDlg.CloseBtnClick(Sender: TObject);
Note:
See TracChangeset
for help on using the changeset viewer.