Changeset 350


Ignore:
Timestamp:
Apr 6, 2021, 8:22:04 PM (7 months ago)
Author:
chronos
Message:
  • Modified: Code cleanup.
Location:
trunk
Files:
14 edited

Legend:

Unmodified
Added
Removed
  • trunk/Inp.pas

    r111 r350  
    3737  Canvas.Brush.Style := bsClear;
    3838  TitleHeight := Height;
    39   InitButtons();
     39  InitButtons;
    4040  Center := true;
    4141end;
  • trunk/LocalPlayer/Battle.pas

    r330 r350  
    206206  OKBtn.Caption := Phrases.Lookup('BTN_YES');
    207207  CancelBtn.Caption := Phrases.Lookup('BTN_NO');
    208   InitButtons();
     208  InitButtons;
    209209end;
    210210
  • trunk/LocalPlayer/CityScreen.pas

    r330 r350  
    208208  AgePrepared := -2;
    209209  Optimize_cixTileChange := -1;
    210   InitButtons();
     210  InitButtons;
    211211  // InitWindowRegion;
    212212  CloseBtn.Caption := Phrases.Lookup('BTN_OK');
  • trunk/LocalPlayer/CityType.pas

    r328 r350  
    6363  inherited;
    6464  CaptionRight := CloseBtn.Left;
    65   InitButtons();
     65  InitButtons;
    6666  HelpContext := 'MACRO';
    6767  Caption := Phrases.Lookup('TITLE_CITYTYPES');
     
    7171procedure TCityTypeDlg.CloseBtnClick(Sender: TObject);
    7272begin
    73   Close
     73  Close;
    7474end;
    7575
     
    137137      Textout(xList + 20 + i mod nListCol * 42 - TextWidth(s) div 2,
    138138        yList + 15 + i div nListCol * 32 - TextHeight(s) div 2, s);
    139     end
     139    end;
    140140  end;
    141141
     
    201201  begin
    202202    include(listed, MyData.ImpOrder[ctype, i]);
    203     inc(i)
    204   end;
    205   Changed := false
     203    inc(i);
     204  end;
     205  Changed := false;
    206206end;
    207207
     
    215215      if (MyCity[cix].Loc >= 0) and (MyCity[cix].Status and 7 = ctype + 1) then
    216216        AutoBuild(cix, MyData.ImpOrder[ctype]);
    217     Changed := false
     217    Changed := false;
    218218  end;
    219219end;
     
    252252      dragiix := MyData.ImpOrder[ctype, i];
    253253      Screen.Cursor := crImpDrag;
    254       SmartUpdateContent
     254      SmartUpdateContent;
    255255    end;
    256256    exit;
     
    268268      dragiix := Pooliix[i];
    269269      Screen.Cursor := crImpDrag;
    270       SmartUpdateContent
     270      SmartUpdateContent;
    271271    end;
    272272    exit;
     
    279279    SaveType;
    280280    LoadType(i);
    281     SmartUpdateContent
    282   end
     281    SmartUpdateContent;
     282  end;
    283283end;
    284284
     
    318318      MyData.ImpOrder[ctype, i] := dragiix;
    319319      include(listed, dragiix);
    320       Changed := true
     320      Changed := true;
    321321    end
    322322    else if (dragiix in listed) and (x >= xPool) and (x < xPool + nPoolCol * 42)
     
    324324    begin
    325325      UnList(dragiix);
    326       Changed := true
     326      Changed := true;
    327327    end;
    328328    dragiix := -1;
    329     SmartUpdateContent
    330   end;
    331   Screen.Cursor := crDefault
     329    SmartUpdateContent;
     330  end;
     331  Screen.Cursor := crDefault;
    332332end;
    333333
  • trunk/LocalPlayer/Diagram.pas

    r340 r350  
    132132  CaptionRight := CloseBtn.Left;
    133133  CaptionLeft := ToggleBtn.Left + ToggleBtn.Width;
    134   InitButtons();
     134  InitButtons;
    135135end;
    136136
  • trunk/LocalPlayer/Draft.pas

    r323 r350  
    6868begin
    6969  inherited;
    70   InitButtons();
     70  InitButtons;
    7171  HelpContext := 'CLASSES';
    7272  Caption := Phrases.Lookup('TITLE_DRAFT');
  • trunk/LocalPlayer/Enhance.pas

    r340 r350  
    6565  CaptionRight := CloseBtn.Left;
    6666  CaptionLeft := ToggleBtn.Left + ToggleBtn.Width;
    67   InitButtons();
     67  InitButtons;
    6868  HelpContext := 'MACRO';
    6969  Caption := Phrases.Lookup('TITLE_ENHANCE');
  • trunk/LocalPlayer/Help.pas

    r346 r350  
    301301  CaptionFont.Assign(UniFont[ftNormal]);
    302302  CaptionFont.Style := CaptionFont.Style + [fsItalic, fsBold];
    303   InitButtons();
     303  InitButtons;
    304304
    305305  TopBtn.Hint := Phrases.Lookup('BTN_CONTENTS');
  • trunk/LocalPlayer/NatStat.pas

    r336 r350  
    8181  GetMem(SelfReport, SizeOf(TEnemyReport) - 2 * (INFIN + 1));
    8282  ReportText := TStringList.Create;
    83   InitButtons();
     83  InitButtons;
    8484  ContactBtn.Template := Templates.Data;
    8585  HelpContext := 'DIPLOMACY';
  • trunk/LocalPlayer/Nego.pas

    r340 r350  
    144144  cix: integer;
    145145begin
    146   InitButtons();
     146  InitButtons;
    147147  for cix := 0 to ComponentCount - 1 do
    148148    if Components[cix] is TButtonN then
  • trunk/LocalPlayer/Rates.pas

    r313 r350  
    4242begin
    4343  TitleHeight := Screen.Height;
    44   InitButtons();
     44  InitButtons;
    4545end;
    4646
  • trunk/LocalPlayer/Select.pas

    r346 r350  
    114114  sb.SetBorderSpacing(36, 10, 36);
    115115  sb.OnUpdate := ScrollBarUpdate;
    116   InitButtons();
     116  InitButtons;
    117117  Kind := kMission;
    118118  Layer0Btn.Hint := Phrases.Lookup('BTN_IMPRS');
  • trunk/LocalPlayer/UnitStat.pas

    r330 r350  
    7777  AgePrepared := -2;
    7878  TitleHeight := Screen.Height;
    79   InitButtons();
     79  InitButtons;
    8080
    8181  Back := TBitmap.Create;
  • trunk/NoTerm.pas

    r290 r350  
    8080  Canvas.Font.Assign(UniFont[ftSmall]);
    8181  TitleHeight := 36;
    82   InitButtons();
     82  InitButtons;
    8383  LastShowYearTime := 0;
    8484end;
Note: See TracChangeset for help on using the changeset viewer.