Changeset 268 for trunk/Forms


Ignore:
Timestamp:
Jan 20, 2019, 9:32:16 PM (6 years ago)
Author:
chronos
Message:
  • Added: New menu action show/hide map grid lines.
  • Modified: Draw cell polygons without a gap so it can be drawn as solid surface without grid lines.
Location:
trunk/Forms
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormClient.pas

    r265 r268  
    254254              )
    255255            );
     256            Client.DrawCities(PaintBox1.Canvas, TempView);
     257          end;
     258        end;
     259        for Y := 0 to CountP.Y do begin
     260          for X := 0 to CountP.X do begin
     261            TempView.Assign(View);
     262            TempView.DestRect := TRect.Create(
     263              TPoint.Create(
     264                -StartP.X + R.Size.X * X,
     265                -StartP.Y + R.Size.Y * Y
     266              ),
     267              TPoint.Create(
     268                -StartP.X + R.Size.X * X + View.DestRect.Size.X,
     269                -StartP.Y + R.Size.Y * Y + View.DestRect.Size.Y
     270              )
     271            );
     272            Client.DrawSelection(PaintBox1.Canvas, TempView);
     273          end;
     274        end;
     275        TempView.Free;
     276        for Y := 0 to CountP.Y do begin
     277          for X := 0 to CountP.X do begin
     278            TempView.Assign(View);
     279            TempView.DestRect := TRect.Create(
     280              TPoint.Create(
     281                -StartP.X + R.Size.X * X,
     282                -StartP.Y + R.Size.Y * Y
     283              ),
     284              TPoint.Create(
     285                -StartP.X + R.Size.X * X + View.DestRect.Size.X,
     286                -StartP.Y + R.Size.Y * Y + View.DestRect.Size.Y
     287              )
     288            );
    256289            Client.DrawArrows(PaintBox1.Canvas, TempView);
    257290          end;
    258291        end;
    259         TempView.Free;
    260292      end else begin
    261293        Client.DrawCellLinks(PaintBox1.Canvas, View);
    262294        Client.Paint(PaintBox1.Canvas, View);
     295        Client.DrawCities(PaintBox1.Canvas, View);
     296        Client.DrawSelection(PaintBox1.Canvas, View);
    263297        Client.DrawArrows(PaintBox1.Canvas, View);
    264298      end;
    … …  
    316350    FClient.OnNextPlayer := DoNextPlayer;
    317351    FClient.View.DestRect := TRect.CreateBounds(TPoint.Create(0, 0), TPoint.Create(PaintBox1.Width, PaintBox1.Height));
     352    FClient.ShowCellGrid := Core.ShowCellGrid;
    318353  end;
    319354  Redraw;

  • trunk/Forms/UFormMain.lfm

    r250 r268  
    1515  OnKeyUp = FormKeyUp
    1616  OnShow = FormShow
    17   LCLVersion = '1.8.2.0'
     17  LCLVersion = '1.8.4.0'
    1818  WindowState = wsMaximized
    1919  object ToolBar1: TToolBar
    … …  
    146146        Caption = '-'
    147147      end
     148      object MenuItem33: TMenuItem
     149        Action = AMapGridVisible
     150      end
    148151      object MenuItem21: TMenuItem
    149152        Action = AToolBarVisible
    … …  
    218221      OnExecute = AStatusBarVisibleExecute
    219222    end
     223    object AMapGridVisible: TAction
     224      Caption = 'Map grid visible'
     225      OnExecute = AMapGridVisibleExecute
     226    end
    220227  end
    221228  object PopupMenuToolbar: TPopupMenu

  • trunk/Forms/UFormMain.pas

    r253 r268  
    1818
    1919  TFormMain = class(TForm)
     20    AMapGridVisible: TAction;
    2021    AStatusBarVisible: TAction;
    2122    AToolBarVisible: TAction;
    … …  
    4748    MenuItem30: TMenuItem;
    4849    MenuItem32: TMenuItem;
     50    MenuItem33: TMenuItem;
    4951    MenuItemDebug: TMenuItem;
    5052    MenuItem31: TMenuItem;
    … …  
    7072    ToolButton5: TToolButton;
    7173    ToolButton9: TToolButton;
     74    procedure AMapGridVisibleExecute(Sender: TObject);
    7275    procedure AStatusBarVisibleExecute(Sender: TObject);
    7376    procedure AToolBarBigIconsExecute(Sender: TObject);
    … …  
    178181end;
    179182
     183procedure TFormMain.AMapGridVisibleExecute(Sender: TObject);
     184begin
     185  AMapGridVisible.Checked := not AMapGridVisible.Checked;
     186  UpdateClientForms;
     187end;
     188
    180189procedure TFormMain.AToolBarBigIconsExecute(Sender: TObject);
    181190begin
    … …  
    211220  Core.PersistentForm.Save(Self);
    212221  SaveConfig(Core.XMLConfig1, 'FormMain');
     222  Core.ShowCellGrid := AMapGridVisible.Checked;
    213223  Core.Done;
    214224end;
    … …  
    234244  FormClient.AStatusBarVisible.Checked := AStatusBarVisible.Checked;
    235245  FormClient.AStatusBarVisible.Update;
     246  Core.ShowCellGrid := AMapGridVisible.Checked;
     247  if Assigned(FormClient.Client) then
     248    FormClient.Client.ShowCellGrid := Core.ShowCellGrid;
     249  FormClient.Redraw;
    236250  for I := 0 to Core.FormClients.Count - 1 do begin
    237251    Core.FormClients[I].AToolBarBigIcons.Checked := AToolBarBigIcons.Checked;
    … …  
    241255    Core.FormClients[I].AStatusBarVisible.Checked := AStatusBarVisible.Checked;
    242256    Core.FormClients[I].AStatusBarVisible.Update;
     257    if Assigned(Core.FormClients[I].Client) then
     258      Core.FormClients[I].Client.ShowCellGrid := Core.ShowCellGrid;
     259    Core.FormClients[I].Redraw;
    243260  end;
    244261end;
    … …  
    248265  if not FormShown then begin
    249266    Core.LoadConfig;
     267    AMapGridVisible.Checked := Core.ShowCellGrid;
    250268    Core.ScaleDPI;
    251269    Core.PersistentForm.Load(Self, True);

  • trunk/Forms/UFormNew.lfm

    r266 r268  
    2121    Top = 4
    2222    Width = 749
    23     ActivePage = TabSheetRules
     23    ActivePage = TabSheetMode
    2424    Align = alClient
    2525    BorderSpacing.Around = 4
    26     TabIndex = 3
     26    TabIndex = 0
    2727    TabOrder = 0
    2828    object TabSheetMode: TTabSheet
    … …  
    3232      object Panel3: TPanel
    3333        Left = 0
    34         Height = 651
     34        Height = 655
    3535        Top = 0
    36         Width = 743
     36        Width = 739
    3737        Align = alClient
    3838        BevelOuter = bvNone
    39         ClientHeight = 651
    40         ClientWidth = 743
     39        ClientHeight = 655
     40        ClientWidth = 739
    4141        TabOrder = 0
    4242        object RadioButtonModeLocal: TRadioButton
    … …  
    4444          Height = 30
    4545          Top = 14
    46           Width = 68
     46          Width = 70
    4747          Caption = 'Local'
    4848          Checked = True
    … …  
    5555          Height = 30
    5656          Top = 48
    57           Width = 154
     57          Width = 156
    5858          Caption = 'Network server'
    5959          OnChange = RadioButtonModeLocalChange
    … …  
    6464          Height = 30
    6565          Top = 152
    66           Width = 149
     66          Width = 151
    6767          Caption = 'Network client'
    6868          OnChange = RadioButtonModeLocalChange
    … …  
    7171        object EditServerAddress: TEdit
    7272          Left = 24
    73           Height = 36
     73          Height = 43
    7474          Top = 112
    7575          Width = 220
    … …  
    7878        object SpinEditServerPort: TSpinEdit
    7979          Left = 256
    80           Height = 36
     80          Height = 43
    8181          Top = 112
    8282          Width = 79
    … …  
    102102        object ListViewServers: TListView
    103103          Left = 26
    104           Height = 419
     104          Height = 423
    105105          Top = 181
    106106          Width = 334
    … …  
    130130          Left = 27
    131131          Height = 31
    132           Top = 612
     132          Top = 616
    133133          Width = 94
    134134          Action = AServerAdd
    … …  
    139139          Left = 240
    140140          Height = 31
    141           Top = 612
     141          Top = 616
    142142          Width = 94
    143143          Action = AServerRemove
    … …  
    148148          Left = 136
    149149          Height = 30
    150           Top = 612
     150          Top = 616
    151151          Width = 94
    152152          Action = AServerModify
    … …  
    324324        object ComboBoxGridType: TComboBox
    325325          Left = 146
    326           Height = 42
     326          Height = 38
    327327          Top = 104
    328328          Width = 208
    … …  
    340340        object ComboBoxMapShape: TComboBox
    341341          Left = 146
    342           Height = 42
     342          Height = 38
    343343          Top = 144
    344344          Width = 208
Note: See TracChangeset for help on using the changeset viewer.