Changeset 43 for trunk/Forms


Ignore:
Timestamp:
Apr 19, 2019, 11:25:56 AM (6 years ago)
Author:
chronos
Message:
  • Fixed: Configurable player tank colors in New game dialog.
Location:
trunk/Forms
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UMainForm.pas

    r42 r43  
    141141  Application.OnDeactivate := FormDeactivate;
    142142  Randomize;
    143   DoubleBuffered := True;
     143  DoubleBuffered := False;
    144144  Engine := TEngine.Create;
    145145  Engine.Bitmap := Image1.Picture.Bitmap;
     146  CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('cs');
    146147  LoadConfig;
    147148  Engine.NewGame;
    148149  Engine.Active := True;
    149150  Image1Resize(Self);
    150 
    151151  Image1.ControlStyle := Image1.ControlStyle + [csOpaque];
    152152end;
    … …  
    236236begin
    237237  PersistentForm.Load(Self);
    238   CoolTranslator1.Language := CoolTranslator1.Languages.SearchByCode('cs');
    239238end;
    240239

  • trunk/Forms/UNewGameForm.lfm

    r39 r43  
    11object NewGameForm: TNewGameForm
    22  Left = 579
    3   Height = 542
     3  Height = 650
    44  Top = 226
    5   Width = 846
     5  Width = 1015
    66  Caption = 'New game'
    7   ClientHeight = 542
    8   ClientWidth = 846
    9   DesignTimePPI = 120
     7  ClientHeight = 650
     8  ClientWidth = 1015
     9  DesignTimePPI = 144
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
    … …  
    1313  LCLVersion = '2.0.0.4'
    1414  object ButtonStart: TButton
    15     Left = 740
    16     Height = 31
    17     Top = 500
    18     Width = 94
     15    Left = 888
     16    Height = 37
     17    Top = 600
     18    Width = 113
    1919    Anchors = [akRight, akBottom]
    2020    Caption = 'Start'
    … …  
    2424  end
    2525  object ButtonCancel: TButton
    26     Left = 630
    27     Height = 31
    28     Top = 500
    29     Width = 94
     26    Left = 756
     27    Height = 37
     28    Top = 600
     29    Width = 113
    3030    Anchors = [akRight, akBottom]
    3131    Caption = 'Cancel'
    … …  
    3535  end
    3636  object Label1: TLabel
    37     Left = 10
    38     Height = 20
     37    Left = 12
     38    Height = 26
    3939    Top = 0
    40     Width = 49
     40    Width = 66
    4141    Caption = 'Players:'
    4242    ParentColor = False
    … …  
    4444  end
    4545  object ListView1: TListView
    46     Left = 10
    47     Height = 460
    48     Top = 30
    49     Width = 368
     46    Left = 12
     47    Height = 552
     48    Top = 36
     49    Width = 442
    5050    Anchors = [akTop, akLeft, akBottom]
    5151    Checkboxes = True
    … …  
    5353      item
    5454        Caption = 'Name'
    55         Width = 188
     55        Width = 226
    5656      end   
    5757      item
    5858        Caption = 'Color'
    59         Width = 62
     59        Width = 74
    6060      end   
    6161      item
    6262        Caption = 'Controls'
    63         Width = 189
     63        Width = 227
    6464      end>
    6565    OwnerData = True
    … …  
    7070    ViewStyle = vsReport
    7171    OnChange = ListView1Change
     72    OnCustomDrawSubItem = ListView1CustomDrawSubItem
    7273    OnData = ListView1Data
    7374    OnSelectItem = ListView1SelectItem
    7475  end
    7576  object ColorButton1: TColorButton
    76     Left = 630
    77     Height = 31
    78     Top = 80
    79     Width = 94
     77    Left = 756
     78    Height = 37
     79    Top = 96
     80    Width = 113
    8081    BorderWidth = 2
    8182    ButtonColorSize = 16
    … …  
    8586  end
    8687  object Label2: TLabel
    87     Left = 500
    88     Height = 20
    89     Top = 84
    90     Width = 39
    91     Caption = 'Color:'
     88    Left = 600
     89    Height = 26
     90    Top = 101
     91    Width = 65
     92    Caption = 'Color 1:'
    9293    ParentColor = False
    9394    ParentFont = False
    9495  end
    9596  object GroupBox1: TGroupBox
    96     Left = 490
    97     Height = 330
    98     Top = 130
    99     Width = 340
     97    Left = 588
     98    Height = 368
     99    Top = 184
     100    Width = 408
    100101    Caption = 'Control keys'
    101     ClientHeight = 305
    102     ClientWidth = 336
     102    ClientHeight = 341
     103    ClientWidth = 406
    103104    ParentFont = False
    104105    TabOrder = 3
    105106    object EditUp: TEdit
    106       Left = 108
    107       Height = 28
     107      Left = 130
     108      Height = 43
    108109      Top = 2
    109       Width = 100
     110      Width = 120
    110111      OnChange = EditUpChange
    111112      OnKeyDown = EditUpKeyDown
    … …  
    114115    end
    115116    object Label3: TLabel
    116       Left = 8
    117       Height = 20
    118       Top = 12
    119       Width = 22
     117      Left = 10
     118      Height = 26
     119      Top = 14
     120      Width = 29
    120121      Caption = 'Up:'
    121122      ParentColor = False
    … …  
    123124    end
    124125    object Label4: TLabel
    125       Left = 8
    126       Height = 20
    127       Top = 52
    128       Width = 42
     126      Left = 10
     127      Height = 26
     128      Top = 62
     129      Width = 54
    129130      Caption = 'Down:'
    130131      ParentColor = False
    … …  
    132133    end
    133134    object EditDown: TEdit
    134       Left = 108
    135       Height = 28
    136       Top = 40
    137       Width = 100
     135      Left = 130
     136      Height = 43
     137      Top = 48
     138      Width = 120
    138139      OnChange = EditDownChange
    139140      OnKeyDown = EditDownKeyDown
    … …  
    142143    end
    143144    object Label5: TLabel
    144       Left = 8
    145       Height = 20
    146       Top = 92
    147       Width = 28
     145      Left = 10
     146      Height = 26
     147      Top = 110
     148      Width = 37
    148149      Caption = 'Left:'
    149150      ParentColor = False
    … …  
    151152    end
    152153    object EditLeft: TEdit
    153       Left = 108
    154       Height = 28
    155       Top = 82
    156       Width = 100
     154      Left = 130
     155      Height = 43
     156      Top = 98
     157      Width = 120
    157158      OnChange = EditLeftChange
    158159      OnKeyDown = EditLeftKeyDown
    … …  
    161162    end
    162163    object Label6: TLabel
    163       Left = 8
    164       Height = 20
    165       Top = 132
    166       Width = 38
     164      Left = 10
     165      Height = 26
     166      Top = 158
     167      Width = 50
    167168      Caption = 'Right:'
    168169      ParentColor = False
    … …  
    170171    end
    171172    object EditRight: TEdit
    172       Left = 108
    173       Height = 28
    174       Top = 122
    175       Width = 100
     173      Left = 130
     174      Height = 43
     175      Top = 146
     176      Width = 120
    176177      OnChange = EditRightChange
    177178      OnKeyDown = EditRightKeyDown
    … …  
    180181    end
    181182    object Label7: TLabel
    182       Left = 8
    183       Height = 20
    184       Top = 172
    185       Width = 42
     183      Left = 10
     184      Height = 26
     185      Top = 206
     186      Width = 55
    186187      Caption = 'Shoot:'
    187188      ParentColor = False
    … …  
    189190    end
    190191    object EditShoot: TEdit
    191       Left = 108
    192       Height = 28
    193       Top = 162
    194       Width = 100
     192      Left = 130
     193      Height = 43
     194      Top = 194
     195      Width = 120
    195196      OnChange = EditShootChange
    196197      OnKeyDown = EditShootKeyDown
    … …  
    200201  end
    201202  object EditName: TEdit
     203    Left = 720
     204    Height = 43
     205    Top = 36
     206    Width = 264
     207    OnChange = EditNameChange
     208    ParentFont = False
     209    TabOrder = 4
     210  end
     211  object Label8: TLabel
    202212    Left = 600
    203     Height = 28
    204     Top = 30
    205     Width = 220
    206     OnChange = EditNameChange
    207     ParentFont = False
    208     TabOrder = 4
    209   end
    210   object Label8: TLabel
    211     Left = 500
    212     Height = 20
    213     Top = 40
    214     Width = 43
     213    Height = 26
     214    Top = 48
     215    Width = 56
    215216    Caption = 'Name:'
    216217    ParentColor = False
    217218    ParentFont = False
    218219  end
     220  object Label9: TLabel
     221    Left = 600
     222    Height = 26
     223    Top = 141
     224    Width = 65
     225    Caption = 'Color 2:'
     226    ParentColor = False
     227    ParentFont = False
     228  end
     229  object ColorButton2: TColorButton
     230    Left = 756
     231    Height = 37
     232    Top = 136
     233    Width = 113
     234    BorderWidth = 2
     235    ButtonColorSize = 16
     236    ButtonColor = clBlack
     237    OnColorChanged = ColorButton2ColorChanged
     238    ParentFont = False
     239  end
    219240end

  • trunk/Forms/UNewGameForm.lrj

    r39 r43  
    77{"hash":4875106,"name":"tnewgameform.listview1.columns[1].caption","sourcebytes":[67,111,108,111,114],"value":"Color"},
    88{"hash":106664595,"name":"tnewgameform.listview1.columns[2].caption","sourcebytes":[67,111,110,116,114,111,108,115],"value":"Controls"},
    9 {"hash":78001754,"name":"tnewgameform.label2.caption","sourcebytes":[67,111,108,111,114,58],"value":"Color:"},
     9{"hash":104220650,"name":"tnewgameform.label2.caption","sourcebytes":[67,111,108,111,114,32,49,58],"value":"Color 1:"},
    1010{"hash":21055635,"name":"tnewgameform.groupbox1.caption","sourcebytes":[67,111,110,116,114,111,108,32,107,101,121,115],"value":"Control keys"},
    1111{"hash":23610,"name":"tnewgameform.label3.caption","sourcebytes":[85,112,58],"value":"Up:"},
    … …  
    1414{"hash":93314938,"name":"tnewgameform.label6.caption","sourcebytes":[82,105,103,104,116,58],"value":"Right:"},
    1515{"hash":94332538,"name":"tnewgameform.label7.caption","sourcebytes":[83,104,111,111,116,58],"value":"Shoot:"},
    16 {"hash":5538698,"name":"tnewgameform.label8.caption","sourcebytes":[78,97,109,101,58],"value":"Name:"}
     16{"hash":5538698,"name":"tnewgameform.label8.caption","sourcebytes":[78,97,109,101,58],"value":"Name:"},
     17{"hash":104220666,"name":"tnewgameform.label9.caption","sourcebytes":[67,111,108,111,114,32,50,58],"value":"Color 2:"}
    1718]}

  • trunk/Forms/UNewGameForm.pas

    r41 r43  
    1717    ButtonCancel: TButton;
    1818    ColorButton1: TColorButton;
     19    ColorButton2: TColorButton;
    1920    EditUp: TEdit;
    2021    EditDown: TEdit;
    … …  
    3233    Label7: TLabel;
    3334    Label8: TLabel;
     35    Label9: TLabel;
    3436    ListView1: TListView;
    3537    procedure ColorButton1ColorChanged(Sender: TObject);
     38    procedure ColorButton2ColorChanged(Sender: TObject);
    3639    procedure EditDownChange(Sender: TObject);
    3740    procedure EditDownKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
    … …  
    5457    procedure ListView1Change(Sender: TObject; Item: TListItem;
    5558      Change: TItemChange);
     59    procedure ListView1CustomDrawSubItem(Sender: TCustomListView;
     60      Item: TListItem; SubItem: Integer; State: TCustomDrawState;
     61      var DefaultDraw: Boolean);
    5662    procedure ListView1Data(Sender: TObject; Item: TListItem);
    5763    procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
    … …  
    6167    procedure ReloadList;
    6268  public
     69    procedure UpdateInterface;
    6370    procedure LoadData(Engine: TEngine);
    6471    procedure SaveData(Engine: TEngine);
    … …  
    7380{$R *.lfm}
    7481
     82uses
     83  UMainForm;
     84
    7585{ TNewGameForm }
    7686
    … …  
    8090  if Change = ctState then
    8191    TPlayer(Item.Data).Enabled := Item.Checked;
     92end;
     93
     94procedure TNewGameForm.ListView1CustomDrawSubItem(Sender: TCustomListView;
     95  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
     96  var DefaultDraw: Boolean);
     97begin
     98  if SubItem = 1 then
     99  with ListView1.Canvas do begin
     100    Brush.Color := TPlayer(Item.Data).Color1;
     101    Brush.Style := bsSolid;
     102    FillRect(Item.DisplayRectSubItem(1, drBounds));
     103  end;
    82104end;
    83105
    … …  
    87109  with TPlayer(Players[Item.Index]) do begin
    88110    Item.Caption := Name;
    89     Item.SubItems.Add(IntToHex(Color, 6));
     111    Item.SubItems.Add('');
    90112    Item.SubItems.Add('');
    91113    Item.Checked := Enabled;
    … …  
    100122  with TPlayer(Item.Data) do begin
    101123    EditName.Text := Name;
    102     ColorButton1.ButtonColor := Color;
     124    ColorButton1.ButtonColor := Color1;
     125    ColorButton2.ButtonColor := Color2;
    103126    EditDown.Text := IntToStr(Keys.Down);
    104127    EditUp.Text := IntToStr(Keys.Up);
    … …  
    107130    EditShoot.Text := IntToStr(Keys.Shoot);
    108131  end;
     132  UpdateInterface;
    109133end;
    110134
    … …  
    115139end;
    116140
     141procedure TNewGameForm.UpdateInterface;
     142begin
     143  EditUp.Enabled := Assigned(ListView1.Selected);
     144  EditDown.Enabled := Assigned(ListView1.Selected);
     145  EditLeft.Enabled := Assigned(ListView1.Selected);
     146  EditRight.Enabled := Assigned(ListView1.Selected);
     147  EditShoot.Enabled := Assigned(ListView1.Selected);
     148  EditName.Enabled := Assigned(ListView1.Selected);
     149  ColorButton1.Enabled := Assigned(ListView1.Selected);
     150  ColorButton2.Enabled := Assigned(ListView1.Selected);
     151end;
     152
    117153procedure TNewGameForm.LoadData(Engine: TEngine);
    118154begin
    … …  
    129165  if Assigned(ListView1.Selected) then
    130166  with TPlayer(ListView1.Selected.Data) do begin
    131     Color := ColorButton1.ButtonColor;
     167    Color1 := ColorButton1.ButtonColor;
     168    ReloadList;
     169  end;
     170end;
     171
     172procedure TNewGameForm.ColorButton2ColorChanged(Sender: TObject);
     173begin
     174  if Assigned(ListView1.Selected) then
     175  with TPlayer(ListView1.Selected.Data) do begin
     176    Color2 := ColorButton2.ButtonColor;
    132177    ReloadList;
    133178  end;
    … …  
    230275procedure TNewGameForm.FormCreate(Sender: TObject);
    231276begin
    232   Players := TPlayers.Create
     277  MainForm.CoolTranslator1.TranslateComponentRecursive(Self);
     278  Players := TPlayers.Create;
    233279end;
    234280
    … …  
    241287begin
    242288  ReloadList;
     289  UpdateInterface;
    243290end;
    244291
Note: See TracChangeset for help on using the changeset viewer.