Changeset 614 for trunk/LocalPlayer

Timestamp:

Sep 14, 2024, 5:43:37 PM (3 months ago)

Author:

chronos

Message:

• Added: Nwe editor menu action to create filled map with selected tile.

Location:

trunk/LocalPlayer

Files:

• KeyBindings.pas (modified) (2 diffs)
• Term.lfm (modified) (3 diffs)
• Term.pas (modified) (12 diffs)

trunk/LocalPlayer/KeyBindings.pas

@@ -57 +57 @@
   BResign: TKeyBinding;
   BRandomMap: TKeyBinding;
+  BFillMap: TKeyBinding;
   BDisbandUnit: TKeyBinding;
   BFortify: TKeyBinding;
@@ -321 +322 @@
   BResign := AddItem('Resign', 'Resign', 'Ctrl+Q');
   BRandomMap := AddItem('RandomMap', 'Random map', 'Ctrl+R');
+  BFillMap := AddItem('FillMap', 'Fill map', 'Ctrl+F');
   BDisbandUnit := AddItem('DisbandUnit', 'Disband unit', 'Ctrl+D');
   BFortify := AddItem('Fortify', 'Fortify', 'F');

trunk/LocalPlayer/Term.lfm

@@ -14 +14 @@
   DesignTimePPI = 144
   Font.Color = clWindowText
-  Font.Height = -20
+  Font.Height = -45
   Font.Name = 'MS Sans Serif'
   KeyPreview = True
@@ -31 +31 @@
   OnShow = FormShow
   Position = poDefault
-  LCLVersion = '2.2.0.4'
+  LCLVersion = '3.4.0.0'
   Scaled = False
-  WindowState = wsNormal
   object UnitBtn: TButtonB
     Tag = 14
@@ -555 +554 @@
       OnClick = mRandomMapClick
     end
+    object mFillMap: TMenuItem
+      Tag = 102
+      GroupIndex = 1
+      ShortCut = 16454
+      OnClick = mFillMapClick
+    end
     object N3: TMenuItem
       Caption = '-'

trunk/LocalPlayer/Term.pas

@@ -12 +12 @@
 {$ENDIF}
   Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase,
-  LCLIntf, LCLType, SysUtils, Classes, DrawDlg, Types, Math,
+  LCLIntf, LCLType, Menus, SysUtils, Classes, DrawDlg, Types, Math,
   DateUtils, Platform, ButtonB, ButtonC, EOTButton, Area,
   GraphicSet, MiniMap, IsoEngine, Wonders, TechTree, Enhance, Nego, CityType,
@@ -34 +34 @@
   TMainScreen = class(TDrawDlg)
     mBigTiles: TMenuItem;
+    mFillMap: TMenuItem;
     mNextUnit: TMenuItem;
     N13: TMenuItem;
@@ -197 +198 @@
     procedure mDiagramClick(Sender: TObject);
     procedure mEmpireClick(Sender: TObject);
+    procedure mFillMapClick(Sender: TObject);
     procedure mEnhanceClick(Sender: TObject);
     procedure mEnhanceDefClick(Sender: TObject);
@@ -3761 +3763 @@
 end;
 
+procedure TMainScreen.mFillMapClick(Sender: TObject);
+var
+  FillMapData: TFillMapData;
+begin
+  if not Edited or (SimpleQuery(mkYesNo, Phrases.Lookup('MAP_FILL'), '')
+      = mrOK) then begin
+    FillMapData.Tile := BrushType;
+    Server(sFillMap, Me, 0, FillMapData);
+    Edited := True;
+    MapValid := False;
+    PaintAllMaps;
+  end;
+end;
+
 procedure TMainScreen.mEnhanceClick(Sender: TObject);
 begin
@@ -5220 +5236 @@
                       end;
                     end;
-                    Inc(Count)
+                    Inc(Count);
                   end;
                 end; // for uix:=0 to MyRO.nUn-1
@@ -5270 +5286 @@
               JobFocus := nJob + 3
             else
-              JobFocus := nJob + 4
+              JobFocus := nJob + 4;
           end;
           S := Phrases.Lookup('JOBRESULT', JobFocus);
@@ -5294 +5310 @@
             (PanelHeight - 1), Left + Width, Top + Height - Self.ClientHeight +
             PanelHeight, MainTexture.ColorBevelShade, MainTexture.ColorBevelLight)
-    end; { if TroopLoc>=0 }
+    end; { if TroopLoc >= 0 }
   end;
 
@@ -5332 +5348 @@
   xTreasurySection := ClientWidth div 2 - 172;
   xResearchSection := ClientWidth div 2;
-  // ClientWidth div 2+68 = maximum to right
+  // ClientWidth div 2 + 68 = maximum to right
   FillLarge(TopBar.Canvas, 0, 0, ClientWidth, TopBarHeight - 3,
     ClientWidth div 2);
@@ -5422 +5438 @@
       if ScienceSum > 0 then
       begin
-        { j:=(i-MyRO.Research-1) div ScienceSum +1;
-          if J<1 then J:=1;
-          if J>1 then
-          S:=Format(Phrases.Lookup('TECHWAIT'),[S,J]); }
+        { j := (i - MyRO.Research - 1) div ScienceSum + 1;
+          if J < 1 then J := 1;
+          if J > 1 then
+          S := Format(Phrases.Lookup('TECHWAIT'), [S, J]); }
         LoweredTextOut(TopBar.Canvas, -1, MainTexture,
           xResearchSection + 48, 0, S);
@@ -7003 +7019 @@
   mResign.ShortCut := BResign.ShortCut;
   mRandomMap.ShortCut := BRandomMap.ShortCut;
+  mFillMap.ShortCut := BFillMap.ShortCut;
   mDisband.ShortCut := BDisbandUnit.ShortCut;
   mFort.ShortCut := BFortify.ShortCut;
@@ -7122 +7139 @@
     if BResign.Test(ShortCut) then mResign.Click
     else if BRandomMap.Test(ShortCut) then mRandomMap.Click
+    else if BFillMap.Test(ShortCut) then mFillMap.Click
     else if BHelp.Test(ShortCut) then mHelp.Click;
     (*if Shift = [ssCtrl] then
@@ -7474 +7492 @@
     mRandomMap.Visible := (ClientMode = cEditMap) and
       (Server(sMapGeneratorRequest, Me, 0, nil^) = eOK);
+    mFillMap.Visible := mRandomMap.Visible;
     mOptions.Visible := ClientMode <> cEditMap;
     mManip.Visible := ClientMode <> cEditMap;