Changeset 362 for trunk/Packages


Ignore:
Timestamp:
Dec 31, 2024, 1:15:01 PM (3 weeks ago)
Author:
chronos
Message:
  • Added: Close button on more forms for better touch screen devices support.
Location:
trunk/Packages/Common
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/Packages/Common/Forms/FormKeyShortcuts.lfm

    r332 r362  
    11object FormKeyShortcuts: TFormKeyShortcuts
    22  Left = 839
    3   Height = 329
     3  Height = 274
    44  Top = 609
    5   Width = 704
     5  Width = 587
    66  Caption = 'Key shortcuts'
    7   ClientHeight = 329
    8   ClientWidth = 704
    9   DesignTimePPI = 144
     7  ClientHeight = 274
     8  ClientWidth = 587
     9  DesignTimePPI = 120
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
    1212  OnShow = FormShow
    13   LCLVersion = '3.4.0.0'
     13  LCLVersion = '3.6.0.0'
    1414  object ListView1: TListView
    15     Left = 5
    16     Height = 319
    17     Top = 5
    18     Width = 694
    19     Align = alClient
    20     BorderSpacing.Around = 5
     15    Left = 8
     16    Height = 212
     17    Top = 8
     18    Width = 571
     19    Align = alTop
     20    Anchors = [akTop, akLeft, akRight, akBottom]
     21    BorderSpacing.Around = 8
    2122    Columns = <   
    2223      item
    2324        Caption = 'Action'
    24         Width = 240
     25        Width = 200
    2526      end   
    2627      item
    2728        Caption = 'Window'
    28         Width = 240
     29        Width = 200
    2930      end   
    3031      item
    3132        Caption = 'Shortcut'
    32         Width = 199
     33        Width = 166
    3334      end>
    3435    OwnerData = True
    … …  
    4243    OnKeyPress = ListView1KeyPress
    4344  end
     45  object ButtonClose: TButton
     46    Left = 485
     47    Height = 31
     48    Top = 232
     49    Width = 94
     50    Anchors = [akRight, akBottom]
     51    Caption = 'Close'
     52    ModalResult = 11
     53    TabOrder = 1
     54    OnClick = ButtonCloseClick
     55  end
    4456  object PopupMenu1: TPopupMenu
    45     Left = 408
    46     Top = 144
     57    Left = 340
     58    Top = 120
    4759    object MenuItem1: TMenuItem
    4860      Caption = 'Execute'
    … …  
    5567    Column = 0
    5668    Order = soNone
    57     Left = 200
    58     Top = 160
     69    Left = 184
     70    Top = 120
    5971  end
    6072end

  • trunk/Packages/Common/Forms/FormKeyShortcuts.lrj

    r332 r362  
    44{"hash":98585447,"name":"tformkeyshortcuts.listview1.columns[1].caption","sourcebytes":[87,105,110,100,111,119],"value":"Window"},
    55{"hash":258584404,"name":"tformkeyshortcuts.listview1.columns[2].caption","sourcebytes":[83,104,111,114,116,99,117,116],"value":"Shortcut"},
     6{"hash":4863637,"name":"tformkeyshortcuts.buttonclose.caption","sourcebytes":[67,108,111,115,101],"value":"Close"},
    67{"hash":216771813,"name":"tformkeyshortcuts.menuitem1.caption","sourcebytes":[69,120,101,99,117,116,101],"value":"Execute"}
    78]}

  • trunk/Packages/Common/Forms/FormKeyShortcuts.pas

    r332 r362  
    1313
    1414  TFormKeyShortcuts = class(TFormEx)
     15    ButtonClose: TButton;
    1516    ListView1: TListView;
    1617    ListViewSort1: TListViewSort;
    1718    MenuItem1: TMenuItem;
    1819    PopupMenu1: TPopupMenu;
     20    procedure ButtonCloseClick(Sender: TObject);
    1921    procedure FormCreate(Sender: TObject);
    2022    procedure FormDestroy(Sender: TObject);
    … …  
    2527    procedure MenuItem1Click(Sender: TObject);
    2628  private
    27     function GetImageList: TCustomImageList;
    28     procedure SetImageList(AValue: TCustomImageList);
     29    function GetImages: TCustomImageList;
     30    procedure SetImages(AValue: TCustomImageList);
    2931  public
    3032    SourceComponents: TObjectList<TComponent>;
    3133    MainForm: TForm;
    3234    procedure LoadFromComponent(C: TComponent);
    33     property ImageList: TCustomImageList read GetImageList write SetImageList;
     35    property Images: TCustomImageList read GetImages write SetImages;
    3436  end;
    3537
    … …  
    4951  SShortcut = 'Shortcut';
    5052  SKeyShortcuts = 'Key shortcuts';
     53  SClose = 'Close';
    5154
    5255{ TFormKeyShortcuts }
    … …  
    105108end;
    106109
     110procedure TFormKeyShortcuts.ButtonCloseClick(Sender: TObject);
     111begin
     112  Close;
     113end;
     114
    107115procedure TFormKeyShortcuts.FormDestroy(Sender: TObject);
    108116begin
    … …  
    116124end;
    117125
    118 function TFormKeyShortcuts.GetImageList: TCustomImageList;
     126function TFormKeyShortcuts.GetImages: TCustomImageList;
    119127begin
    120128  Result := ListView1.SmallImages;
    121129end;
    122130
    123 procedure TFormKeyShortcuts.SetImageList(AValue: TCustomImageList);
     131procedure TFormKeyShortcuts.SetImages(AValue: TCustomImageList);
    124132begin
    125133  ListView1.SmallImages := AValue;

  • trunk/Packages/Common/Languages/FormKeyShortcuts.cs.po

    r355 r362  
    1010"Content-Type: text/plain; charset=UTF-8\n"
    1111"Content-Transfer-Encoding: 8bit\n"
    12 "X-Generator: Poedit 3.4.2\n"
     12"X-Generator: Poedit 3.5\n"
    1313
    1414#: formkeyshortcuts.saction
    1515msgid "Action"
    1616msgstr "Akce"
     17
     18#: formkeyshortcuts.sclose
     19msgid "Close"
     20msgstr "Zavřít"
    1721
    1822#: formkeyshortcuts.sexecute
    … …  
    4044msgid "Window"
    4145msgstr "Okno"
    42 

  • trunk/Packages/Common/Languages/FormKeyShortcuts.pot

    r332 r362  
    44#: formkeyshortcuts.saction
    55msgid "Action"
     6msgstr ""
     7
     8#: formkeyshortcuts.sclose
     9msgid "Close"
    610msgstr ""
    711
Note: See TracChangeset for help on using the changeset viewer.