Changeset 51 for trunk/Forms


Ignore:
Timestamp:
Jul 25, 2016, 5:20:29 PM (8 years ago)
Author:
chronos
Message:
  • Added: Bottom action toolbar to windows with lists.
Location:
trunk/Forms
Files:
15 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormAcronyms.lfm

    r50 r51  
    77  ClientHeight = 558
    88  ClientWidth = 740
     9  OnCreate = FormCreate
    910  OnShow = FormShow
    1011  LCLVersion = '1.6.0.4'
    1112  object ListViewAcronyms: TListView
    1213    Left = 8
    13     Height = 480
     14    Height = 456
    1415    Top = 40
    1516    Width = 725
    … …  
    6162      end>
    6263    SimplePanel = False
     64  end
     65  object ToolBar1: TToolBar
     66    Left = 0
     67    Height = 26
     68    Top = 504
     69    Width = 740
     70    Align = alBottom
     71    Caption = 'ToolBar1'
     72    Images = FormMain.ImageList1
     73    ParentShowHint = False
     74    ShowHint = True
     75    TabOrder = 3
     76    object ToolButton1: TToolButton
     77      Left = 1
     78      Top = 2
     79      Action = AAdd
     80    end
     81    object ToolButton2: TToolButton
     82      Left = 24
     83      Top = 2
     84      Action = AModify
     85    end
     86    object ToolButton3: TToolButton
     87      Left = 47
     88      Top = 2
     89      Action = ARemove
     90    end
    6391  end
    6492  object ListViewSort1: TListViewSort

  • trunk/Forms/UFormAcronyms.lrt

    r50 r51  
    33TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[1].CAPTION=Description
    44TFORMACRONYMS.LISTVIEWACRONYMS.COLUMNS[2].CAPTION=Categories
     5TFORMACRONYMS.TOOLBAR1.CAPTION=ToolBar1
    56TFORMACRONYMS.AADD.CAPTION=Add
    67TFORMACRONYMS.AMODIFY.CAPTION=Modify

  • trunk/Forms/UFormAcronyms.pas

    r45 r51  
    2828    PopupMenuAcronym: TPopupMenu;
    2929    StatusBar1: TStatusBar;
     30    ToolBar1: TToolBar;
     31    ToolButton1: TToolButton;
     32    ToolButton2: TToolButton;
     33    ToolButton3: TToolButton;
    3034    procedure AAddExecute(Sender: TObject);
    3135    procedure AModifyExecute(Sender: TObject);
    3236    procedure ARemoveExecute(Sender: TObject);
    3337    procedure ASelectAllExecute(Sender: TObject);
     38    procedure FormCreate(Sender: TObject);
    3439    procedure FormShow(Sender: TObject);
    3540    procedure ListViewAcronymsData(Sender: TObject; Item: TListItem);
    … …  
    6065
    6166resourcestring
    62   SRemoveAcronym = 'Remove acronym';
    63   SRemoveAcronymQuery = 'Do you want to remove selected acronym?';
     67  SRemoveAcronym = 'Remove acronyms';
     68  SRemoveAcronymQuery = 'Do you want to remove selected acronyms?';
    6469  STotal = 'Total';
    6570  SFiltered = 'Filtered';
    … …  
    190195end;
    191196
     197procedure TFormAcronyms.FormCreate(Sender: TObject);
     198var
     199  I: Integer;
     200begin
     201  for I := 0 to ToolBar1.ButtonCount - 1 do
     202    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
     203end;
     204
    192205procedure TFormAcronyms.ListViewFilter1Change(Sender: TObject);
    193206begin

  • trunk/Forms/UFormCategories.lfm

    r35 r51  
    77  ClientHeight = 429
    88  ClientWidth = 784
     9  OnCreate = FormCreate
    910  OnShow = FormShow
    1011  LCLVersion = '1.6.0.4'
    … …  
    3334    OnSelectItem = ListViewCategoriesSelectItem
    3435  end
    35   object Button1: TButton
    36     Left = 15
    37     Height = 25
    38     Top = 390
    39     Width = 75
    40     Action = AAdd
    41     Anchors = [akLeft, akBottom]
     36  object ToolBar1: TToolBar
     37    Left = 0
     38    Height = 26
     39    Top = 403
     40    Width = 784
     41    Align = alBottom
     42    Caption = 'ToolBar1'
     43    Images = FormMain.ImageList1
     44    ParentShowHint = False
     45    ShowHint = True
    4246    TabOrder = 1
    43   end
    44   object Button2: TButton
    45     Left = 104
    46     Height = 25
    47     Top = 390
    48     Width = 75
    49     Action = AModify
    50     Anchors = [akLeft, akBottom]
    51     TabOrder = 2
    52   end
    53   object Button3: TButton
    54     Left = 192
    55     Height = 25
    56     Top = 390
    57     Width = 75
    58     Action = ARemove
    59     Anchors = [akLeft, akBottom]
    60     TabOrder = 3
     47    object ToolButton1: TToolButton
     48      Left = 1
     49      Top = 2
     50      Action = AAdd
     51    end
     52    object ToolButton2: TToolButton
     53      Left = 24
     54      Top = 2
     55      Action = AModify
     56    end
     57    object ToolButton3: TToolButton
     58      Left = 47
     59      Top = 2
     60      Action = ARemove
     61    end
    6162  end
    6263  object ActionList1: TActionList

  • trunk/Forms/UFormCategories.lrt

    r19 r51  
    22TFORMCATEGORIES.LISTVIEWCATEGORIES.COLUMNS[0].CAPTION=Name
    33TFORMCATEGORIES.LISTVIEWCATEGORIES.COLUMNS[1].CAPTION=Used count
     4TFORMCATEGORIES.TOOLBAR1.CAPTION=ToolBar1
    45TFORMCATEGORIES.AADD.CAPTION=Add
    56TFORMCATEGORIES.AREMOVE.CAPTION=Remove

  • trunk/Forms/UFormCategories.pas

    r20 r51  
    1818    AModify: TAction;
    1919    ActionList1: TActionList;
    20     Button1: TButton;
    21     Button2: TButton;
    22     Button3: TButton;
    2320    ListViewCategories: TListView;
    2421    MenuItem1: TMenuItem;
    … …  
    2623    MenuItem3: TMenuItem;
    2724    PopupMenuCategory: TPopupMenu;
     25    ToolBar1: TToolBar;
     26    ToolButton1: TToolButton;
     27    ToolButton2: TToolButton;
     28    ToolButton3: TToolButton;
    2829    procedure AAddExecute(Sender: TObject);
    2930    procedure AModifyExecute(Sender: TObject);
    3031    procedure ARemoveExecute(Sender: TObject);
     32    procedure FormCreate(Sender: TObject);
    3133    procedure FormShow(Sender: TObject);
    3234    procedure ListViewCategoriesData(Sender: TObject; Item: TListItem);
    … …  
    110112end;
    111113
     114procedure TFormCategories.FormCreate(Sender: TObject);
     115var
     116  I: Integer;
     117begin
     118  for I := 0 to ToolBar1.ButtonCount - 1 do
     119    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
     120end;
     121
    112122procedure TFormCategories.ListViewCategoriesData(Sender: TObject; Item: TListItem);
    113123begin

  • trunk/Forms/UFormImportFormats.lfm

    r35 r51  
    44  Top = 327
    55  Width = 591
    6   Caption = 'Import sources'
     6  Caption = 'Import formats'
    77  ClientHeight = 414
    88  ClientWidth = 591
     9  OnCreate = FormCreate
    910  OnShow = FormShow
    1011  LCLVersion = '1.6.0.4'
    1112  object ListView1: TListView
    1213    Left = 8
    13     Height = 398
     14    Height = 368
    1415    Top = 8
    1516    Width = 577
    … …  
    3031    OnDblClick = ListView1DblClick
    3132    OnSelectItem = ListView1SelectItem
     33  end
     34  object ToolBar1: TToolBar
     35    Left = 0
     36    Height = 26
     37    Top = 388
     38    Width = 591
     39    Align = alBottom
     40    Caption = 'ToolBar1'
     41    Images = FormMain.ImageList1
     42    ParentShowHint = False
     43    ShowHint = True
     44    TabOrder = 1
     45    object ToolButton1: TToolButton
     46      Left = 1
     47      Top = 2
     48      Action = AAdd
     49    end
     50    object ToolButton2: TToolButton
     51      Left = 24
     52      Top = 2
     53      Action = AModify
     54    end
     55    object ToolButton3: TToolButton
     56      Left = 47
     57      Top = 2
     58      Action = ARemove
     59    end
    3260  end
    3361  object ActionList1: TActionList

  • trunk/Forms/UFormImportFormats.lrt

    r30 r51  
    1 TFORMIMPORTFORMATS.CAPTION=Import sources
     1TFORMIMPORTFORMATS.CAPTION=Import formats
    22TFORMIMPORTFORMATS.LISTVIEW1.COLUMNS[0].CAPTION=Name
     3TFORMIMPORTFORMATS.TOOLBAR1.CAPTION=ToolBar1
    34TFORMIMPORTFORMATS.AADD.CAPTION=Add
    45TFORMIMPORTFORMATS.AREMOVE.CAPTION=Remove

  • trunk/Forms/UFormImportFormats.pas

    r22 r51  
    2323    MenuItem3: TMenuItem;
    2424    PopupMenuImportSource: TPopupMenu;
     25    ToolBar1: TToolBar;
     26    ToolButton1: TToolButton;
     27    ToolButton2: TToolButton;
     28    ToolButton3: TToolButton;
    2529    procedure AAddExecute(Sender: TObject);
    2630    procedure AModifyExecute(Sender: TObject);
    2731    procedure ARemoveExecute(Sender: TObject);
     32    procedure FormCreate(Sender: TObject);
    2833    procedure FormShow(Sender: TObject);
    2934    procedure ListView1Data(Sender: TObject; Item: TListItem);
    … …  
    155160end;
    156161
     162procedure TFormImportFormats.FormCreate(Sender: TObject);
     163var
     164  I: Integer;
     165begin
     166  for I := 0 to ToolBar1.ButtonCount - 1 do
     167    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
     168end;
     169
    157170end.
    158171

  • trunk/Forms/UFormImportSources.lfm

    r50 r51  
    77  ClientHeight = 414
    88  ClientWidth = 812
     9  OnCreate = FormCreate
    910  OnShow = FormShow
    1011  LCLVersion = '1.6.0.4'
    1112  object ListView1: TListView
    1213    Left = 8
    13     Height = 398
     14    Height = 376
    1415    Top = 8
    1516    Width = 798
    … …  
    4344    OnDblClick = ListView1DblClick
    4445    OnSelectItem = ListView1SelectItem
     46  end
     47  object ToolBar1: TToolBar
     48    Left = 0
     49    Height = 26
     50    Top = 388
     51    Width = 812
     52    Align = alBottom
     53    Caption = 'ToolBar1'
     54    Images = FormMain.ImageList1
     55    ParentShowHint = False
     56    ShowHint = True
     57    TabOrder = 1
     58    object ToolButton1: TToolButton
     59      Left = 1
     60      Top = 2
     61      Action = AAdd
     62    end
     63    object ToolButton2: TToolButton
     64      Left = 24
     65      Top = 2
     66      Action = AModify
     67    end
     68    object ToolButton3: TToolButton
     69      Left = 47
     70      Top = 2
     71      Action = ARemove
     72    end
     73    object ToolButton4: TToolButton
     74      Left = 70
     75      Top = 2
     76      Action = AProcess
     77    end
    4578  end
    4679  object ActionList1: TActionList

  • trunk/Forms/UFormImportSources.lrt

    r33 r51  
    44TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[2].CAPTION=Count
    55TFORMIMPORTSOURCES.LISTVIEW1.COLUMNS[3].CAPTION=Categories
     6TFORMIMPORTSOURCES.TOOLBAR1.CAPTION=ToolBar1
    67TFORMIMPORTSOURCES.AADD.CAPTION=Add
    78TFORMIMPORTSOURCES.AREMOVE.CAPTION=Remove

  • trunk/Forms/UFormImportSources.pas

    r39 r51  
    2626    MenuItem4: TMenuItem;
    2727    PopupMenuImportSource: TPopupMenu;
     28    ToolBar1: TToolBar;
     29    ToolButton1: TToolButton;
     30    ToolButton2: TToolButton;
     31    ToolButton3: TToolButton;
     32    ToolButton4: TToolButton;
    2833    procedure AAddExecute(Sender: TObject);
    2934    procedure AModifyExecute(Sender: TObject);
    3035    procedure AProcessExecute(Sender: TObject);
    3136    procedure ARemoveExecute(Sender: TObject);
     37    procedure FormCreate(Sender: TObject);
    3238    procedure FormShow(Sender: TObject);
    3339    procedure ListView1Data(Sender: TObject; Item: TListItem);
    … …  
    178184end;
    179185
     186procedure TFormImportSources.FormCreate(Sender: TObject);
     187var
     188  I: Integer;
     189begin
     190  for I := 0 to ToolBar1.ButtonCount - 1 do
     191    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
     192end;
     193
    180194end.
    181195

  • trunk/Forms/UFormMain.lfm

    r50 r51  
    126126      Top = 2
    127127      Action = AProcessImports
     128    end
     129    object ToolButton10: TToolButton
     130      Left = 190
     131      Height = 22
     132      Top = 2
     133      Width = 5
     134      Caption = 'ToolButton10'
     135      Style = tbsDivider
     136    end
     137    object ToolButton11: TToolButton
     138      Left = 195
     139      Top = 2
     140      Action = ASettings
    128141    end
    129142  end

  • trunk/Forms/UFormMain.lrt

    r50 r51  
    66TFORMMAIN.TOOLBAR1.CAPTION=ToolBar1
    77TFORMMAIN.TOOLBUTTON8.CAPTION=ToolButton8
     8TFORMMAIN.TOOLBUTTON10.CAPTION=ToolButton10
    89TFORMMAIN.AEXIT.CAPTION=Exit
    910TFORMMAIN.ASHOW.CAPTION=Show

  • trunk/Forms/UFormMain.pas

    r50 r51  
    7474    ToolBar1: TToolBar;
    7575    ToolButton1: TToolButton;
     76    ToolButton10: TToolButton;
     77    ToolButton11: TToolButton;
    7678    ToolButton2: TToolButton;
    7779    ToolButton3: TToolButton;
Note: See TracChangeset for help on using the changeset viewer.