Changeset 442 for trunk/LocalPlayer


Ignore:
Timestamp:
May 18, 2022, 10:43:27 PM (2 years ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
Location:
trunk/LocalPlayer
Files:
17 edited

Legend:

Unmodified
Added
Removed

  • trunk/LocalPlayer/Battle.pas

    r437 r442  
    200200  IsoMap.PaintUnit(1, 0, UnitInfo, 0);
    201201  BitBltCanvas(ca, xm - 8 - 4 - 66, ym + 8 + 12, 66, 48, Buffer.Canvas, 0, 0);
    202 end; { PaintBattleOutcome }
     202end;
    203203
    204204procedure TBattleDlg.FormCreate(Sender: TObject);

  • trunk/LocalPlayer/CityScreen.pas

    r432 r442  
    10271027
    10281028  MarkUsedOffscreen(ClientWidth, ClientHeight);
    1029 end; { OffscreenPaint }
     1029end;
    10301030
    10311031procedure TCityDlg.FormShow(Sender: TObject);
    … …  
    14081408      end;
    14091409    end;
    1410 end; { FormMouseDown }
     1410end;
    14111411
    14121412procedure TCityDlg.ChooseProject;

  • trunk/LocalPlayer/CityType.pas

    r432 r442  
    189189  end;
    190190  MarkUsedOffscreen(InnerWidth, InnerHeight);
    191 end; { MainPaint }
     191end;
    192192
    193193procedure TCityTypeDlg.LoadType(NewType: integer);

  • trunk/LocalPlayer/ClientTools.pas

    r397 r442  
    316316    UnitInfo := MyRO.EnemyUn[uix];
    317317  end;
    318 end; { GetUnitInfo }
     318end;
    319319
    320320procedure GetCityInfo(Loc: integer; var cix: integer; var CityInfo: TCityInfo);
    … …  
    756756initialization
    757757
    758   Assert(nImp < 128);
    759   CalculateAdvValues;
     758Assert(nImp < 128);
     759CalculateAdvValues;
    760760
    761761end.

  • trunk/LocalPlayer/Diagram.pas

    r431 r442  
    273273    end;
    274274  MarkUsedOffscreen(InnerWidth, InnerHeight);
    275 end; // OffscreenPaint
     275end;
    276276
    277277procedure TDiaDlg.FormPaint(Sender: TObject);

  • trunk/LocalPlayer/Draft.pas

    r437 r442  
    55
    66uses
    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;
    129
    1310type

  • trunk/LocalPlayer/Enhance.pas

    r432 r442  
    55
    66uses
    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;
    119
    1210type
    … …  
    299297
    300298  MarkUsedOffscreen(InnerWidth, InnerHeight);
    301 end; { OffscreenPaint }
     299end;
    302300
    303301procedure TEnhanceDlg.CloseBtnClick(Sender: TObject);

  • trunk/LocalPlayer/IsoEngine.pas

    r401 r442  
    55
    66uses
    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;
    99
    1010const
    … …  
    719719      end;
    720720    end;
    721 end; { PaintUnit }
     721end;
    722722
    723723procedure TIsoMap.PaintCity(x, y: integer; const CityInfo: TCityInfo;
    … …  
    804804    Textout(xShield + 2, yShield - 1, LabelTextColor, s);
    805805  end;
    806 end; { PaintCity }
     806end;
    807807
    808808function PoleTile(Loc: integer): integer;
    … …  
    13001300      Textout(x + xxt - 16, y + yyt - 9, $00E0FF,
    13011301        IntToStr(integer(DebugMap[Loc])))
    1302 end; { PaintTileObjects }
     1302end;
    13031303
    13041304procedure TIsoMap.PaintGrid(x, y, nx, ny: integer);
    … …  
    16871687
    16881688  // frame(FOutput.Canvas,x+1,y+1,x+nx*33+33-2,y+ny*16+32-2,$FFFF,$FFFF);
    1689 end; { Paint }
     1689end;
    16901690
    16911691procedure TIsoMap.AttackBegin(const ShowMove: TShowMove);

  • trunk/LocalPlayer/MessgEx.pas

    r438 r442  
    55
    66uses
    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;
    1010
    1111type

  • trunk/LocalPlayer/NatStat.pas

    r431 r442  
    4848  NatStatDlg: TNatStatDlg;
    4949
     50
    5051implementation
    5152
    … …  
    394395
    395396  MarkUsedOffscreen(ClientWidth, ClientHeight);
    396 end; { OffscreenPaint }
     397end;
    397398
    398399procedure TNatStatDlg.CloseBtnClick(Sender: TObject);

  • trunk/LocalPlayer/Nego.pas

    r432 r442  
    9696  NegoDlg: TNegoDlg;
    9797
     98
    9899implementation
    99100
    … …  
    476477                (ButtonPrice[Tag and $FF] shr 24 in MyAllowed);
    477478              Lit := Delivers[Tag and $FF] <> $FFFFFFFF;
    478             end
     479            end;
    479480        end;
    480481end;
    … …  
    630631
    631632  MarkUsedOffscreen(ClientWidth, ClientHeight);
    632 end; { OffscreenPaint }
     633end;
    633634
    634635procedure TNegoDlg.Initiate;
    … …  
    784785          if a > MaxShipPartPrice then
    785786            a := MaxShipPartPrice;
    786           inc(Price, a)
     787          inc(Price, a);
    787788        end;
    788789      opAllTech:
    … …  
    843844    begin
    844845      SimpleMessage(Phrases.Lookup('MAX2OFFERS'));
    845       exit
     846      exit;
    846847    end;
    847848    Price := ButtonPrice[TButtonN(Sender).Tag and $FF];
    … …  
    886887          if a > MaxShipPartPrice then
    887888            a := MaxShipPartPrice;
    888           inc(Price, a)
     889          inc(Price, a);
    889890        end;
    890891      opAllTech:
    … …  
    906907            Price := opAllModel
    907908          else
    908             Price := OpModel + ModalSelectDlg.result
     909            Price := OpModel + ModalSelectDlg.result;
    909910        end;
    910911      opTreaty:

  • trunk/LocalPlayer/PVSB.pas

    r346 r442  
    55
    66uses
    7   {$IFDEF WINDOWS}
    8   Windows,
    9   {$ENDIF}
     7  {$IFDEF WINDOWS}Windows,{$ENDIF}
    108  Classes, Controls, Forms, LCLIntf, LCLType, LMessages, Messages, SysUtils,
    119  StdCtrls, Math;

  • trunk/LocalPlayer/Rates.pas

    r431 r442  
    55
    66uses
    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;
    119
    1210type
    … …  
    2826var
    2927  RatesDlg: TRatesDlg;
     28
    3029
    3130implementation

  • trunk/LocalPlayer/Select.pas

    r439 r442  
    15191519      Lines[2] := 0;
    15201520    end;
    1521 end; // InitLines
     1521end;
    15221522
    15231523function TListDlg.OnlyChoice(TestKind: TListKind): integer;

  • trunk/LocalPlayer/Term.pas

    r441 r442  
    20822082            s := Tribe[me].TPhrase('AGE0');
    20832083            MessgText :=
    2084               Format(s, [TurnToString(MyRO.Turn), CityName(MyCity[0].ID)])
     2084              Format(s, [TurnToString(MyRO.Turn), CityName(MyCity[0].ID)]);
    20852085          end
    20862086          else
    … …  
    20882088            s := Tribe[me].TString(Phrases2.Lookup('AGE0'));
    20892089            MessgText := Format(s, [TurnToString(MyRO.Turn)]);
    2090           end
     2090          end;
    20912091        end
    20922092        else
    … …  
    83028302end;
    83038303
    8304 initialization
    8305 
    83068304end.
    83078305

  • trunk/LocalPlayer/UnitStat.pas

    r431 r442  
    695695    (ClientWidth - BiColorTextWidth(offscreen.Canvas, Caption)) div 2,
    696696    yCaption, Caption);
    697 end; { OffscreenPaint }
     697end;
    698698
    699699procedure TUnitStatDlg.ModelBoxChange(Sender: TObject);

  • trunk/LocalPlayer/Wonders.pas

    r432 r442  
    281281
    282282  MarkUsedOffscreen(ClientWidth, ClientHeight);
    283 end; { OffscreenPaint }
     283end;
    284284
    285285procedure TWondersDlg.CloseBtnClick(Sender: TObject);
Note: See TracChangeset for help on using the changeset viewer.