Changeset 221 for trunk/Forms


Ignore:
Timestamp:
Jan 17, 2025, 10:06:21 PM (4 days ago)
Author:
chronos
Message:
  • Fixed: Use scrollbox in resizable forms.
  • Fixed: Translate all forms.
Location:
trunk/Forms
Files:
27 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormAcronym.lfm

    r219 r221  
    11object FormAcronym: TFormAcronym
    2   Left = 845
    3   Height = 893
    4   Top = 480
    5   Width = 1030
     2  Left = 476
     3  Height = 853
     4  Top = 277
     5  Width = 810
    66  Caption = 'Acronym'
    7   ClientHeight = 893
    8   ClientWidth = 1030
     7  ClientHeight = 853
     8  ClientWidth = 810
    99  DesignTimePPI = 144
    1010  OnShow = FormShow
    1111  Position = poScreenCenter
    1212  LCLVersion = '3.6.0.0'
    13   object Label1: TLabel
    14     Left = 12
    15     Height = 26
    16     Top = 24
    17     Width = 56
    18     Caption = 'Name:'
    19     ParentColor = False
    20     ParentFont = False
    21   end
    22   object EditAcronym: TEdit
    23     Left = 229
    24     Height = 43
    25     Top = 23
    26     Width = 783
    27     Anchors = [akTop, akLeft, akRight]
    28     ParentFont = False
    29     TabOrder = 0
    30     OnKeyPress = EditMeaningKeyPress
    31   end
    32   object Label2: TLabel
    33     Left = 12
    34     Height = 26
    35     Top = 73
    36     Width = 79
    37     Caption = 'Meaning:'
    38     ParentColor = False
    39     ParentFont = False
    40   end
    41   object EditMeaning: TEdit
    42     Left = 229
    43     Height = 43
    44     Top = 73
    45     Width = 783
    46     Anchors = [akTop, akLeft, akRight]
    47     ParentFont = False
    48     TabOrder = 1
    49     OnKeyPress = EditMeaningKeyPress
    50   end
    5113  object ButtonOk: TButton
    52     Left = 880
     14    Left = 548
    5315    Height = 37
    54     Top = 833
     16    Top = 804
    5517    Width = 113
    5618    Anchors = [akRight, akBottom]
    … …  
    5820    ModalResult = 1
    5921    ParentFont = False
    60     TabOrder = 7
     22    TabOrder = 1
    6123    OnKeyPress = EditMeaningKeyPress
    6224  end
    6325  object ButtonCancel: TButton
    64     Left = 736
     26    Left = 684
    6527    Height = 37
    66     Top = 833
     28    Top = 804
    6729    Width = 113
    6830    Anchors = [akRight, akBottom]
    … …  
    7032    ModalResult = 2
    7133    ParentFont = False
    72     TabOrder = 6
     34    TabOrder = 0
    7335    OnKeyPress = EditMeaningKeyPress
    7436  end
    75   object Label3: TLabel
    76     Left = 12
    77     Height = 26
    78     Top = 132
    79     Width = 102
    80     Caption = 'Description:'
    81     ParentColor = False
    82     ParentFont = False
    83   end
    84   object MemoDescription: TMemo
    85     Left = 229
    86     Height = 170
    87     Top = 132
    88     Width = 783
    89     Anchors = [akTop, akLeft, akRight]
    90     ParentFont = False
    91     ScrollBars = ssAutoBoth
     37  object ScrollBox1: TScrollBox
     38    Left = 8
     39    Height = 781
     40    Top = 8
     41    Width = 787
     42    HorzScrollBar.Page = 540
     43    VertScrollBar.Page = 760
     44    Anchors = [akTop, akLeft, akRight, akBottom]
     45    ClientHeight = 779
     46    ClientWidth = 785
    9247    TabOrder = 2
    93     OnKeyPress = EditMeaningKeyPress
    94   end
    95   object Label4: TLabel
    96     Left = 18
    97     Height = 26
    98     Top = 312
    99     Width = 95
    100     Caption = 'Categories:'
    101     ParentColor = False
    102     ParentFont = False
    103   end
    104   object ListBoxCategories: TListBox
    105     Left = 229
    106     Height = 211
    107     Top = 312
    108     Width = 782
    109     Anchors = [akTop, akLeft, akRight]
    110     ItemHeight = 0
    111     MultiSelect = True
    112     ParentFont = False
    113     PopupMenu = PopupMenuCategory
    114     ScrollWidth = 518
    115     TabOrder = 3
    116     TopIndex = -1
    117     OnKeyPress = EditMeaningKeyPress
    118     OnSelectionChange = ListBoxCategoriesSelectionChange
    119   end
    120   object Button1: TButton
    121     Left = 229
    122     Height = 37
    123     Top = 540
    124     Width = 131
    125     Action = ACategoryAdd
    126     ParentFont = False
    127     TabOrder = 4
    128     OnKeyPress = EditMeaningKeyPress
    129   end
    130   object Button2: TButton
    131     Left = 384
    132     Height = 37
    133     Top = 540
    134     Width = 156
    135     Action = ACategoryRemove
    136     ParentFont = False
    137     TabOrder = 5
    138     OnKeyPress = EditMeaningKeyPress
    139   end
    140   object Label5: TLabel
    141     Left = 12
    142     Height = 26
    143     Top = 588
    144     Width = 130
    145     Caption = 'Imported from:'
    146     ParentColor = False
    147     ParentFont = False
    148   end
    149   object ListBoxImportSources: TListBox
    150     Left = 229
    151     Height = 168
    152     Top = 588
    153     Width = 783
    154     Anchors = [akTop, akLeft, akRight]
    155     ItemHeight = 0
    156     MultiSelect = True
    157     ParentFont = False
    158     ScrollWidth = 519
    159     TabOrder = 8
    160     TopIndex = -1
    161     OnKeyPress = EditMeaningKeyPress
    162     OnSelectionChange = ListBoxCategoriesSelectionChange
     48    object Label1: TLabel
     49      Left = 12
     50      Height = 26
     51      Top = 24
     52      Width = 56
     53      Caption = 'Name:'
     54      ParentColor = False
     55      ParentFont = False
     56    end
     57    object EditAcronym: TEdit
     58      Left = 229
     59      Height = 43
     60      Top = 23
     61      Width = 539
     62      Anchors = [akTop, akLeft, akRight]
     63      ParentFont = False
     64      TabOrder = 0
     65      OnKeyPress = EditMeaningKeyPress
     66    end
     67    object Label2: TLabel
     68      Left = 12
     69      Height = 26
     70      Top = 73
     71      Width = 79
     72      Caption = 'Meaning:'
     73      ParentColor = False
     74      ParentFont = False
     75    end
     76    object EditMeaning: TEdit
     77      Left = 229
     78      Height = 43
     79      Top = 73
     80      Width = 539
     81      Anchors = [akTop, akLeft, akRight]
     82      ParentFont = False
     83      TabOrder = 1
     84      OnKeyPress = EditMeaningKeyPress
     85    end
     86    object Label3: TLabel
     87      Left = 12
     88      Height = 26
     89      Top = 132
     90      Width = 102
     91      Caption = 'Description:'
     92      ParentColor = False
     93      ParentFont = False
     94    end
     95    object MemoDescription: TMemo
     96      Left = 229
     97      Height = 170
     98      Top = 132
     99      Width = 537
     100      Anchors = [akTop, akLeft, akRight]
     101      ParentFont = False
     102      ScrollBars = ssAutoBoth
     103      TabOrder = 2
     104      OnKeyPress = EditMeaningKeyPress
     105    end
     106    object Label4: TLabel
     107      Left = 18
     108      Height = 26
     109      Top = 312
     110      Width = 95
     111      Caption = 'Categories:'
     112      ParentColor = False
     113      ParentFont = False
     114    end
     115    object ListBoxCategories: TListBox
     116      Left = 229
     117      Height = 211
     118      Top = 312
     119      Width = 537
     120      Anchors = [akTop, akLeft, akRight]
     121      ItemHeight = 0
     122      MultiSelect = True
     123      ParentFont = False
     124      PopupMenu = PopupMenuCategory
     125      ScrollWidth = 518
     126      TabOrder = 3
     127      TopIndex = -1
     128      OnKeyPress = EditMeaningKeyPress
     129      OnSelectionChange = ListBoxCategoriesSelectionChange
     130    end
     131    object Button1: TButton
     132      Left = 229
     133      Height = 37
     134      Top = 540
     135      Width = 131
     136      Action = ACategoryAdd
     137      ParentFont = False
     138      TabOrder = 4
     139      OnKeyPress = EditMeaningKeyPress
     140    end
     141    object Button2: TButton
     142      Left = 384
     143      Height = 37
     144      Top = 540
     145      Width = 156
     146      Action = ACategoryRemove
     147      ParentFont = False
     148      TabOrder = 5
     149      OnKeyPress = EditMeaningKeyPress
     150    end
     151    object Label5: TLabel
     152      Left = 12
     153      Height = 26
     154      Top = 588
     155      Width = 130
     156      Caption = 'Imported from:'
     157      ParentColor = False
     158      ParentFont = False
     159    end
     160    object ListBoxImportSources: TListBox
     161      Left = 229
     162      Height = 168
     163      Top = 592
     164      Width = 539
     165      Anchors = [akTop, akLeft, akRight]
     166      ItemHeight = 0
     167      MultiSelect = True
     168      ParentFont = False
     169      ScrollWidth = 519
     170      TabOrder = 6
     171      TopIndex = -1
     172      OnKeyPress = EditMeaningKeyPress
     173      OnSelectionChange = ListBoxCategoriesSelectionChange
     174    end
    163175  end
    164176  object ActionList1: TActionList
    165     Left = 541
    166     Top = 360
     177    Left = 581
     178    Top = 400
    167179    object ACategoryRemove: TAction
    168180      Caption = 'Remove'
    … …  
    177189  end
    178190  object PopupMenuCategory: TPopupMenu
    179     Left = 288
    180     Top = 366
     191    Left = 328
     192    Top = 406
    181193    object MenuItem2: TMenuItem
    182194      Action = ACategoryAdd

  • trunk/Forms/FormAcronym.lrj

    r219 r221  
    11{"version":1,"strings":[
    22{"hash":128542141,"name":"tformacronym.caption","sourcebytes":[65,99,114,111,110,121,109],"value":"Acronym"},
     3{"hash":1371,"name":"tformacronym.buttonok.caption","sourcebytes":[79,107],"value":"Ok"},
     4{"hash":77089212,"name":"tformacronym.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
    35{"hash":5538698,"name":"tformacronym.label1.caption","sourcebytes":[78,97,109,101,58],"value":"Name:"},
    46{"hash":193266074,"name":"tformacronym.label2.caption","sourcebytes":[77,101,97,110,105,110,103,58],"value":"Meaning:"},
    5 {"hash":1371,"name":"tformacronym.buttonok.caption","sourcebytes":[79,107],"value":"Ok"},
    6 {"hash":77089212,"name":"tformacronym.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
    77{"hash":81166474,"name":"tformacronym.label3.caption","sourcebytes":[68,101,115,99,114,105,112,116,105,111,110,58],"value":"Description:"},
    88{"hash":237074138,"name":"tformacronym.label4.caption","sourcebytes":[67,97,116,101,103,111,114,105,101,115,58],"value":"Categories:"},

  • trunk/Forms/FormAcronym.pas

    r219 r221  
    1212
    1313  TFormAcronym = class(TFormEx)
     14    ACategoryAdd: TAction;
    1415    ACategoryRemove: TAction;
    15     ACategoryAdd: TAction;
    1616    ActionList1: TActionList;
    1717    Button1: TButton;
    … …  
    3232    MenuItem2: TMenuItem;
    3333    PopupMenuCategory: TPopupMenu;
     34    ScrollBox1: TScrollBox;
    3435    procedure ACategoryAddExecute(Sender: TObject);
    3536    procedure ACategoryRemoveExecute(Sender: TObject);

  • trunk/Forms/FormAcronyms.lfm

    r219 r221  
    6666    Align = alBottom
    6767    Caption = 'ToolBar1'
    68     Images = Core.ImageList1
     68    Images = Core.ImageListSmall
    6969    ParentShowHint = False
    7070    ShowHint = True
    … …  
    111111  end
    112112  object ActionList1: TActionList
    113     Images = Core.ImageList1
    114113    Left = 298
    115114    Top = 278
    … …  
    139138  end
    140139  object PopupMenuAcronym: TPopupMenu
    141     Images = Core.ImageList1
    142140    Left = 298
    143141    Top = 355

  • trunk/Forms/FormCategories.lfm

    r219 r221  
    4848    Width = 941
    4949    Align = alBottom
    50     Images = Core.ImageList1
     50    Images = Core.ImageListSmall
    5151    ParentShowHint = False
    5252    ShowHint = True
    … …  
    6969  end
    7070  object ActionList1: TActionList
    71     Images = Core.ImageList1
    7271    Left = 456
    7372    Top = 235
    … …  
    105104  end
    106105  object PopupMenuCategory: TPopupMenu
    107     Images = Core.ImageList1
    108106    Left = 143
    109107    Top = 230

  • trunk/Forms/FormCategorySelect.lfm

    r219 r221  
    11object FormCategorySelect: TFormCategorySelect
    22  Left = 500
    3   Height = 701
     3  Height = 631
    44  Top = 253
    5   Width = 949
     5  Width = 918
    66  Caption = 'Select categories'
    7   ClientHeight = 701
    8   ClientWidth = 949
     7  ClientHeight = 631
     8  ClientWidth = 918
    99  DesignTimePPI = 144
    1010  Position = poScreenCenter
    … …  
    1212  object ListBox1: TListBox
    1313    Left = 19
    14     Height = 621
     14    Height = 551
    1515    Top = 10
    16     Width = 913
     16    Width = 882
    1717    Anchors = [akTop, akLeft, akRight, akBottom]
    1818    ItemHeight = 0
    … …  
    2525  end
    2626  object ButtonOk: TButton
    27     Left = 841
    28     Height = 30
    29     Top = 649
    30     Width = 90
     27    Left = 648
     28    Height = 38
     29    Top = 581
     30    Width = 114
    3131    Anchors = [akRight, akBottom]
    3232    Caption = 'Select'
    … …  
    3535  end
    3636  object ButtonCancel: TButton
    37     Left = 726
    38     Height = 30
    39     Top = 651
    40     Width = 90
     37    Left = 792
     38    Height = 38
     39    Top = 581
     40    Width = 109
    4141    Anchors = [akRight, akBottom]
    4242    Caption = 'Cancel'

  • trunk/Forms/FormCategorySelect.pas

    r219 r221  
    1111  { TFormCategorySelect }
    1212
    13   TFormCategorySelect = class(TFormeX)
     13  TFormCategorySelect = class(TFormEx)
    1414    ButtonOk: TButton;
    1515    ButtonCancel: TButton;

  • trunk/Forms/FormCheck.lfm

    r219 r221  
    2424    object ButtonCheck: TButton
    2525      Left = 13
    26       Height = 37
     26      Height = 38
    2727      Top = 16
    2828      Width = 113
    … …  
    4343      object ButtonAcronymsSummary: TButton
    4444        Left = 7
    45         Height = 37
     45        Height = 38
    4646        Top = 10
    4747        Width = 180
    … …  
    103103      object ButtonAcronymsContent: TButton
    104104        Left = 10
    105         Height = 37
     105        Height = 38
    106106        Top = 0
    107107        Width = 180
    … …  
    121121    object ButtonLoadFromFile: TButton
    122122      Left = 13
    123       Height = 37
     123      Height = 38
    124124      Top = 58
    125125      Width = 161

  • trunk/Forms/FormCheck.pas

    r219 r221  
    66  Classes, SysUtils, LazFileUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
    77  ExtCtrls, ComCtrls, Menus, ActnList, Acronym, RegistryEx, Registry, Common,
    8   Generics.Collections;
     8  Generics.Collections, FormEx;
    99
    1010type
    … …  
    2727  { TFormCheck }
    2828
    29   TFormCheck = class(TForm)
     29  TFormCheck = class(TFormEx)
    3030    AGoToLocation: TAction;
    3131    ASaveToCsv: TAction;

  • trunk/Forms/FormExport.lfm

    r219 r221  
    1212  object ButtonProcess: TButton
    1313    Left = 22
    14     Height = 40
     14    Height = 38
    1515    Top = 11
    1616    Width = 167
    … …  
    2222    Left = 409
    2323    Height = 38
    24     Top = 6
     24    Top = 11
    2525    Width = 218
    2626    ItemHeight = 0
    … …  
    3737  object ButtonSaveToFile: TButton
    3838    Left = 784
    39     Height = 40
     39    Height = 38
    4040    Top = 11
    4141    Width = 217
    … …  
    5454    TabOrder = 3
    5555  end
     56  object Label1: TLabel
     57    Left = 280
     58    Height = 26
     59    Top = 16
     60    Width = 106
     61    Caption = 'Data format:'
     62    ParentColor = False
     63    ParentFont = False
     64  end
    5665  object SaveDialog1: TSaveDialog
    5766    Left = 474

  • trunk/Forms/FormExport.lrj

    r219 r221  
    33{"hash":127245555,"name":"tformexport.buttonprocess.caption","sourcebytes":[80,114,111,99,101,115,115],"value":"Process"},
    44{"hash":18566,"name":"tformexport.comboboxdataformat.text","sourcebytes":[67,83,86],"value":"CSV"},
    5 {"hash":9308581,"name":"tformexport.buttonsavetofile.caption","sourcebytes":[83,97,118,101,32,116,111,32,102,105,108,101],"value":"Save to file"}
     5{"hash":9308581,"name":"tformexport.buttonsavetofile.caption","sourcebytes":[83,97,118,101,32,116,111,32,102,105,108,101],"value":"Save to file"},
     6{"hash":163683098,"name":"tformexport.label1.caption","sourcebytes":[68,97,116,97,32,102,111,114,109,97,116,58],"value":"Data format:"}
    67]}

  • trunk/Forms/FormExport.pas

    r219 r221  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    7   JobProgressView;
     7  JobProgressView, FormEx;
    88
    99type
    … …  
    1111  { TFormExport }
    1212
    13   TFormExport = class(TForm)
     13  TFormExport = class(TFormEx)
    1414    ButtonProcess: TButton;
    1515    ButtonSaveToFile: TButton;
    1616    ComboBoxDataFormat: TComboBox;
     17    Label1: TLabel;
    1718    Memo1: TMemo;
    1819    SaveDialog1: TSaveDialog;

  • trunk/Forms/FormImport.lfm

    r219 r221  
    1111  LCLVersion = '3.6.0.0'
    1212  object ButtonProcess: TButton
    13     Left = 19
    14     Height = 30
     13    Left = 16
     14    Height = 38
    1515    Top = 10
    1616    Width = 128
    … …  
    2222  object Memo1: TMemo
    2323    Left = 10
    24     Height = 549
    25     Top = 48
     24    Height = 533
     25    Top = 64
    2626    Width = 765
    2727    Anchors = [akTop, akLeft, akRight, akBottom]
    … …  
    3333    Left = 317
    3434    Height = 38
    35     Top = 6
     35    Top = 11
    3636    Width = 168
    3737    ItemHeight = 0
    … …  
    4949    Left = 184
    5050    Height = 26
    51     Top = 11
     51    Top = 16
    5252    Width = 106
    5353    Caption = 'Data format:'
    … …  
    5656  end
    5757  object ButtonLoadFromFile: TButton
    58     Left = 604
    59     Height = 30
     58    Left = 608
     59    Height = 38
    6060    Top = 10
    6161    Width = 167

  • trunk/Forms/FormImportFormat.lfm

    r219 r221  
    11object FormImportFormat: TFormImportFormat
    2   Left = 462
    3   Height = 527
    4   Top = 322
    5   Width = 755
     2  Left = 578
     3  Height = 557
     4  Top = 353
     5  Width = 831
    66  Caption = 'Import format'
    7   ClientHeight = 527
    8   ClientWidth = 755
     7  ClientHeight = 557
     8  ClientWidth = 831
     9  Constraints.MinHeight = 200
     10  Constraints.MinWidth = 300
    911  DesignTimePPI = 144
    1012  OnCreate = FormCreate
    … …  
    1315  LCLVersion = '3.6.0.0'
    1416  object ButtonOk: TButton
    15     Left = 630
    16     Height = 30
    17     Top = 468
    18     Width = 90
     17    Left = 588
     18    Height = 38
     19    Top = 510
     20    Width = 114
    1921    Anchors = [akRight, akBottom]
    2022    Caption = 'Ok'
    2123    ModalResult = 1
    22     TabOrder = 6
     24    TabOrder = 1
    2325  end
    2426  object ButtonCancel: TButton
    25     Left = 515
    26     Height = 30
    27     Top = 468
    28     Width = 90
     27    Left = 716
     28    Height = 38
     29    Top = 510
     30    Width = 106
    2931    Anchors = [akRight, akBottom]
    3032    Caption = 'Cancel'
    3133    ModalResult = 2
    32     TabOrder = 5
    33   end
    34   object Label1: TLabel
    35     Left = 24
    36     Height = 26
    37     Top = 64
    38     Width = 56
    39     Caption = 'Name:'
    40     ParentColor = False
    41   end
    42   object EditName: TEdit
    43     Left = 215
    44     Height = 43
    45     Top = 58
    46     Width = 511
    47     Anchors = [akTop, akLeft, akRight]
    48     TabOrder = 1
    49   end
    50   object Label8: TLabel
    51     Left = 24
    52     Height = 26
    53     Top = 108
    54     Width = 95
    55     Caption = 'Block start:'
    56     ParentColor = False
    57   end
    58   object EditBlockStart: TEdit
    59     Left = 215
    60     Height = 43
    61     Top = 102
    62     Width = 511
    63     Anchors = [akTop, akLeft, akRight]
     34    TabOrder = 0
     35  end
     36  object ScrollBox1: TScrollBox
     37    Left = 8
     38    Height = 480
     39    Top = 16
     40    Width = 812
     41    HorzScrollBar.Page = 451
     42    VertScrollBar.Page = 226
     43    Anchors = [akTop, akLeft, akRight, akBottom]
     44    ClientHeight = 478
     45    ClientWidth = 810
    6446    TabOrder = 2
    65   end
    66   object Label9: TLabel
    67     Left = 24
    68     Height = 26
    69     Top = 156
    70     Width = 89
    71     Caption = 'Block end:'
    72     ParentColor = False
    73   end
    74   object EditBlockEnd: TEdit
    75     Left = 215
    76     Height = 43
    77     Top = 150
    78     Width = 511
    79     Anchors = [akTop, akLeft, akRight]
    80     TabOrder = 3
    81   end
    82   object ListViewItemRules: TListView
    83     Left = 24
    84     Height = 238
    85     Top = 217
    86     Width = 702
    87     Anchors = [akTop, akLeft, akRight, akBottom]
    88     Columns = <   
    89       item
    90         Caption = 'Start string'
    91         Width = 120
    92       end   
    93       item
    94         Caption = 'End string'
    95         Width = 120
    96       end   
    97       item
    98         Caption = 'Action'
    99         Width = 120
    100       end   
    101       item
    102         Caption = 'Variable'
    103         Width = 120
    104       end   
    105       item
    106         Caption = 'Repetition'
    107         Width = 207
    108       end>
    109     OwnerData = True
    110     PopupMenu = PopupMenu1
    111     ReadOnly = True
    112     RowSelect = True
    113     TabOrder = 4
    114     ViewStyle = vsReport
    115     OnData = ListViewItemRulesData
    116     OnDblClick = AModifyExecute
    117   end
    118   object Label2: TLabel
    119     Left = 24
    120     Height = 26
    121     Top = 188
    122     Width = 91
    123     Caption = 'Item rules:'
    124     ParentColor = False
    125   end
    126   object Label3: TLabel
    127     Left = 24
    128     Height = 26
    129     Top = 16
    130     Width = 45
    131     Caption = 'Type:'
    132     ParentColor = False
    133   end
    134   object ComboBoxType: TComboBox
    135     Left = 215
    136     Height = 38
    137     Top = 16
    138     Width = 236
    139     ItemHeight = 0
    140     Items.Strings = (
    141       'Text parse HTTP'
    142       'MS Access database'
    143       'Text parse file'
    144     )
    145     Style = csDropDownList
    146     TabOrder = 0
     47    object Label1: TLabel
     48      Left = 24
     49      Height = 26
     50      Top = 64
     51      Width = 56
     52      Caption = 'Name:'
     53      ParentColor = False
     54    end
     55    object EditName: TEdit
     56      Left = 215
     57      Height = 43
     58      Top = 56
     59      Width = 579
     60      Anchors = [akTop, akLeft, akRight]
     61      TabOrder = 0
     62    end
     63    object Label8: TLabel
     64      Left = 24
     65      Height = 26
     66      Top = 108
     67      Width = 95
     68      Caption = 'Block start:'
     69      ParentColor = False
     70    end
     71    object EditBlockStart: TEdit
     72      Left = 215
     73      Height = 43
     74      Top = 102
     75      Width = 579
     76      Anchors = [akTop, akLeft, akRight]
     77      TabOrder = 1
     78    end
     79    object Label9: TLabel
     80      Left = 24
     81      Height = 26
     82      Top = 156
     83      Width = 89
     84      Caption = 'Block end:'
     85      ParentColor = False
     86    end
     87    object EditBlockEnd: TEdit
     88      Left = 215
     89      Height = 43
     90      Top = 150
     91      Width = 579
     92      Anchors = [akTop, akLeft, akRight]
     93      TabOrder = 2
     94    end
     95    object ListViewItemRules: TListView
     96      Left = 24
     97      Height = 223
     98      Top = 232
     99      Width = 772
     100      Anchors = [akTop, akLeft, akRight, akBottom]
     101      Columns = <     
     102        item
     103          Caption = 'Start string'
     104          Width = 120
     105        end     
     106        item
     107          Caption = 'End string'
     108          Width = 120
     109        end     
     110        item
     111          Caption = 'Action'
     112          Width = 120
     113        end     
     114        item
     115          Caption = 'Variable'
     116          Width = 120
     117        end     
     118        item
     119          Caption = 'Repetition'
     120          Width = 277
     121        end>
     122      OwnerData = True
     123      PopupMenu = PopupMenu1
     124      ReadOnly = True
     125      RowSelect = True
     126      TabOrder = 3
     127      ViewStyle = vsReport
     128      OnData = ListViewItemRulesData
     129      OnDblClick = AModifyExecute
     130    end
     131    object Label2: TLabel
     132      Left = 24
     133      Height = 26
     134      Top = 200
     135      Width = 91
     136      Caption = 'Item rules:'
     137      ParentColor = False
     138    end
     139    object Label3: TLabel
     140      Left = 24
     141      Height = 26
     142      Top = 16
     143      Width = 45
     144      Caption = 'Type:'
     145      ParentColor = False
     146    end
     147    object ComboBoxType: TComboBox
     148      Left = 215
     149      Height = 38
     150      Top = 16
     151      Width = 236
     152      ItemHeight = 0
     153      Items.Strings = (
     154        'Text parse HTTP'
     155        'MS Access database'
     156        'Text parse file'
     157      )
     158      Style = csDropDownList
     159      TabOrder = 4
     160    end
    147161  end
    148162  object PopupMenu1: TPopupMenu
    149     Left = 217
    150     Top = 332
     163    Left = 257
     164    Top = 372
    151165    object MenuItem1: TMenuItem
    152166      Action = AAdd
    … …  
    274288  end
    275289  object ActionList1: TActionList
    276     Left = 460
    277     Top = 338
     290    Left = 500
     291    Top = 378
    278292    object AAdd: TAction
    279293      Caption = 'Add'

  • trunk/Forms/FormImportFormat.pas

    r219 r221  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    7   ComCtrls, Menus, ActnList, Acronym;
     7  ComCtrls, Menus, ActnList, Acronym, FormEx;
    88
    99type
    … …  
    1111  { TFormImportFormat }
    1212
    13   TFormImportFormat = class(TForm)
     13  TFormImportFormat = class(TFormEx)
    1414    AAdd: TAction;
     15    ActionList1: TActionList;
     16    AModify: TAction;
     17    AMoveDown: TAction;
    1518    AMoveUp: TAction;
    16     AMoveDown: TAction;
    17     AModify: TAction;
    1819    ARemove: TAction;
    19     ActionList1: TActionList;
    2020    ButtonOk: TButton;
    2121    ButtonCancel: TButton;
    … …  
    3636    MenuItem5: TMenuItem;
    3737    PopupMenu1: TPopupMenu;
     38    ScrollBox1: TScrollBox;
    3839    procedure AAddExecute(Sender: TObject);
    3940    procedure AModifyExecute(Sender: TObject);

  • trunk/Forms/FormImportFormats.lfm

    r219 r221  
    4343    Width = 887
    4444    Align = alBottom
     45    Images = Core.ImageListSmall
    4546    ParentFont = False
    4647    ParentShowHint = False

  • trunk/Forms/FormImportPattern.lfm

    r219 r221  
    11object FormImportPattern: TFormImportPattern
    2   Left = 459
    3   Height = 517
    4   Top = 235
    5   Width = 794
     2  Left = 482
     3  Height = 364
     4  Top = 334
     5  Width = 681
    66  Caption = 'Import pattern'
    7   ClientHeight = 517
    8   ClientWidth = 794
     7  ClientHeight = 364
     8  ClientWidth = 681
    99  DesignTimePPI = 144
    1010  OnCreate = FormCreate
    … …  
    1212  Position = poScreenCenter
    1313  LCLVersion = '3.6.0.0'
    14   object Label8: TLabel
    15     Left = 29
    16     Height = 26
    17     Top = 16
    18     Width = 98
    19     Caption = 'Start string:'
    20     ParentColor = False
    21   end
    22   object Label9: TLabel
    23     Left = 29
    24     Height = 26
    25     Top = 64
    26     Width = 91
    27     Caption = 'End string:'
    28     ParentColor = False
    29   end
    30   object EditBlockEnd: TEdit
    31     Left = 220
    32     Height = 43
    33     Top = 58
    34     Width = 552
    35     Anchors = [akTop, akLeft, akRight]
    36     TabOrder = 1
    37   end
    38   object EditBlockStart: TEdit
    39     Left = 220
    40     Height = 43
    41     Top = 10
    42     Width = 552
    43     Anchors = [akTop, akLeft, akRight]
    44     TabOrder = 0
    45   end
    4614  object ButtonCancel: TButton
    47     Left = 556
    48     Height = 30
    49     Top = 461
    50     Width = 90
     15    Left = 551
     16    Height = 38
     17    Top = 317
     18    Width = 120
    5119    Anchors = [akRight, akBottom]
    5220    Caption = 'Cancel'
    5321    ModalResult = 2
    54     TabOrder = 5
     22    TabOrder = 0
    5523  end
    5624  object ButtonOk: TButton
    57     Left = 672
    58     Height = 30
    59     Top = 461
    60     Width = 90
     25    Left = 415
     26    Height = 38
     27    Top = 317
     28    Width = 114
    6129    Anchors = [akRight, akBottom]
    6230    Caption = 'Ok'
    6331    ModalResult = 1
    64     TabOrder = 6
     32    TabOrder = 1
    6533  end
    66   object Label10: TLabel
    67     Left = 29
    68     Height = 26
    69     Top = 106
    70     Width = 59
    71     Caption = 'Action:'
    72     ParentColor = False
    73   end
    74   object Label11: TLabel
    75     Left = 29
    76     Height = 26
    77     Top = 144
    78     Width = 73
    79     Caption = 'Variable:'
    80     ParentColor = False
    81   end
    82   object ComboBoxAction: TComboBox
    83     Left = 220
    84     Height = 42
    85     Top = 104
    86     Width = 552
    87     Anchors = [akTop, akLeft, akRight]
    88     ItemHeight = 0
    89     Style = csDropDownList
     34  object ScrollBox1: TScrollBox
     35    Left = 16
     36    Height = 285
     37    Top = 16
     38    Width = 655
     39    HorzScrollBar.Page = 150
     40    VertScrollBar.Page = 238
     41    Anchors = [akTop, akLeft, akRight, akBottom]
     42    ClientHeight = 283
     43    ClientWidth = 653
    9044    TabOrder = 2
    91   end
    92   object ComboBoxVariable: TComboBox
    93     Left = 220
    94     Height = 38
    95     Top = 144
    96     Width = 552
    97     Anchors = [akTop, akLeft, akRight]
    98     ItemHeight = 0
    99     Items.Strings = (
    100       ''
    101     )
    102     Style = csDropDownList
    103     TabOrder = 3
    104   end
    105   object CheckBoxRepetition: TCheckBox
    106     Left = 29
    107     Height = 30
    108     Top = 192
    109     Width = 112
    110     Caption = 'Repetition'
    111     TabOrder = 4
     45    object Label8: TLabel
     46      Left = 16
     47      Height = 26
     48      Top = 16
     49      Width = 98
     50      Caption = 'Start string:'
     51      ParentColor = False
     52    end
     53    object Label9: TLabel
     54      Left = 16
     55      Height = 26
     56      Top = 64
     57      Width = 91
     58      Caption = 'End string:'
     59      ParentColor = False
     60    end
     61    object EditBlockEnd: TEdit
     62      Left = 207
     63      Height = 43
     64      Top = 58
     65      Width = 431
     66      Anchors = [akTop, akLeft, akRight]
     67      TabOrder = 0
     68    end
     69    object EditBlockStart: TEdit
     70      Left = 207
     71      Height = 43
     72      Top = 10
     73      Width = 431
     74      Anchors = [akTop, akLeft, akRight]
     75      TabOrder = 1
     76    end
     77    object Label10: TLabel
     78      Left = 16
     79      Height = 26
     80      Top = 112
     81      Width = 59
     82      Caption = 'Action:'
     83      ParentColor = False
     84    end
     85    object Label11: TLabel
     86      Left = 16
     87      Height = 26
     88      Top = 156
     89      Width = 73
     90      Caption = 'Variable:'
     91      ParentColor = False
     92    end
     93    object ComboBoxAction: TComboBox
     94      Left = 207
     95      Height = 42
     96      Top = 104
     97      Width = 431
     98      Anchors = [akTop, akLeft, akRight]
     99      ItemHeight = 0
     100      Style = csDropDownList
     101      TabOrder = 2
     102    end
     103    object ComboBoxVariable: TComboBox
     104      Left = 207
     105      Height = 38
     106      Top = 152
     107      Width = 431
     108      Anchors = [akTop, akLeft, akRight]
     109      ItemHeight = 0
     110      Items.Strings = (
     111        ''
     112      )
     113      Style = csDropDownList
     114      TabOrder = 3
     115    end
     116    object CheckBoxRepetition: TCheckBox
     117      Left = 16
     118      Height = 30
     119      Top = 208
     120      Width = 112
     121      Caption = 'Repetition'
     122      TabOrder = 4
     123    end
    112124  end
    113125end

  • trunk/Forms/FormImportPattern.lrj

    r219 r221  
    11{"version":1,"strings":[
    22{"hash":50151422,"name":"tformimportpattern.caption","sourcebytes":[73,109,112,111,114,116,32,112,97,116,116,101,114,110],"value":"Import pattern"},
     3{"hash":77089212,"name":"tformimportpattern.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
     4{"hash":1371,"name":"tformimportpattern.buttonok.caption","sourcebytes":[79,107],"value":"Ok"},
    35{"hash":1077898,"name":"tformimportpattern.label8.caption","sourcebytes":[83,116,97,114,116,32,115,116,114,105,110,103,58],"value":"Start string:"},
    46{"hash":183812826,"name":"tformimportpattern.label9.caption","sourcebytes":[69,110,100,32,115,116,114,105,110,103,58],"value":"End string:"},
    5 {"hash":77089212,"name":"tformimportpattern.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
    6 {"hash":1371,"name":"tformimportpattern.buttonok.caption","sourcebytes":[79,107],"value":"Ok"},
    77{"hash":128648794,"name":"tformimportpattern.label10.caption","sourcebytes":[65,99,116,105,111,110,58],"value":"Action:"},
    88{"hash":150466058,"name":"tformimportpattern.label11.caption","sourcebytes":[86,97,114,105,97,98,108,101,58],"value":"Variable:"},

  • trunk/Forms/FormImportPattern.pas

    r219 r221  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    7   Acronym;
     7  Acronym, FormEx;
    88
    99type
    … …  
    1111  { TFormImportPattern }
    1212
    13   TFormImportPattern = class(TForm)
     13  TFormImportPattern = class(TFormEx)
    1414    ButtonCancel: TButton;
    1515    ButtonOk: TButton;
    … …  
    2323    Label8: TLabel;
    2424    Label9: TLabel;
     25    ScrollBox1: TScrollBox;
    2526    procedure FormCreate(Sender: TObject);
    2627    procedure FormShow(Sender: TObject);
    … …  
    3637
    3738{$R *.lfm}
    38 
    39 uses
    40   Core;
    4139
    4240{ TFormImportPattern }

  • trunk/Forms/FormImportSource.lfm

    r219 r221  
    11object FormImportSource: TFormImportSource
    22  Left = 493
    3   Height = 551
     3  Height = 549
    44  Top = 315
    5   Width = 744
     5  Width = 808
    66  Caption = 'Import source'
    7   ClientHeight = 551
    8   ClientWidth = 744
     7  ClientHeight = 549
     8  ClientWidth = 808
     9  Constraints.MinHeight = 200
     10  Constraints.MinWidth = 300
    911  DesignTimePPI = 144
    1012  OnShow = FormShow
    1113  Position = poScreenCenter
    1214  LCLVersion = '3.6.0.0'
    13   object EditName: TEdit
    14     Left = 162
    15     Height = 43
    16     Top = 12
    17     Width = 565
    18     Anchors = [akTop, akLeft, akRight]
    19     TabOrder = 0
    20   end
    21   object Label1: TLabel
    22     Left = 12
    23     Height = 26
    24     Top = 11
    25     Width = 56
    26     Caption = 'Name:'
    27     ParentColor = False
    28   end
    29   object Label2: TLabel
    30     Left = 12
    31     Height = 26
    32     Top = 59
    33     Width = 101
    34     Caption = 'Source URL:'
    35     ParentColor = False
    36   end
    37   object EditURL: TEdit
    38     Left = 163
    39     Height = 43
    40     Top = 59
    41     Width = 420
    42     Anchors = [akTop, akLeft, akRight]
    43     TabOrder = 1
    44   end
    4515  object ButtonOk: TButton
    46     Left = 637
    47     Height = 30
    48     Top = 505
    49     Width = 90
     16    Left = 528
     17    Height = 38
     18    Top = 502
     19    Width = 114
    5020    Anchors = [akRight, akBottom]
    5121    Caption = 'Ok'
    5222    ModalResult = 1
    53     TabOrder = 11
     23    TabOrder = 1
    5424  end
    5525  object ButtonCancel: TButton
    56     Left = 515
    57     Height = 30
    58     Top = 505
    59     Width = 90
     26    Left = 676
     27    Height = 38
     28    Top = 502
     29    Width = 122
    6030    Anchors = [akRight, akBottom]
    6131    Caption = 'Cancel'
    6232    ModalResult = 2
    63     TabOrder = 10
    64   end
    65   object Label3: TLabel
    66     Left = 12
    67     Height = 26
    68     Top = 115
    69     Width = 106
    70     Caption = 'Data format:'
    71     ParentColor = False
    72   end
    73   object ComboBox1: TComboBox
    74     Left = 162
    75     Height = 42
    76     Top = 109
    77     Width = 420
    78     Anchors = [akTop, akLeft, akRight]
    79     ItemHeight = 0
    80     Style = csDropDownList
     33    TabOrder = 0
     34  end
     35  object ScrollBox1: TScrollBox
     36    Left = 8
     37    Height = 487
     38    Top = 8
     39    Width = 788
     40    HorzScrollBar.Page = 707
     41    VertScrollBar.Page = 464
     42    Anchors = [akTop, akLeft, akRight, akBottom]
     43    ClientHeight = 485
     44    ClientWidth = 786
    8145    TabOrder = 2
    82   end
    83   object ButtonShowFormat: TButton
    84     Left = 592
    85     Height = 30
    86     Top = 109
    87     Width = 134
    88     Anchors = [akTop, akRight]
    89     Caption = 'Configure'
    90     TabOrder = 3
    91     OnClick = ButtonShowFormatClick
    92   end
    93   object CheckBoxEnabled: TCheckBox
    94     Left = 12
    95     Height = 30
    96     Top = 154
    97     Width = 94
    98     Caption = 'Enabled'
    99     TabOrder = 4
    100   end
    101   object Label4: TLabel
    102     Left = 12
    103     Height = 26
    104     Top = 192
    105     Width = 95
    106     Caption = 'Categories:'
    107     ParentColor = False
    108   end
    109   object ListBox1: TListBox
    110     Left = 162
    111     Height = 169
    112     Top = 192
    113     Width = 565
    114     Anchors = [akTop, akLeft, akRight]
    115     ItemHeight = 0
    116     MultiSelect = True
    117     PopupMenu = PopupMenuCategory
    118     ScrollWidth = 469
    119     TabOrder = 5
    120     TopIndex = -1
    121   end
    122   object Button1: TButton
    123     Left = 162
    124     Height = 30
    125     Top = 374
    126     Width = 90
    127     Action = ACategoryAdd
    128     TabOrder = 6
    129   end
    130   object Button2: TButton
    131     Left = 277
    132     Height = 30
    133     Top = 374
    134     Width = 90
    135     Action = ACategoryRemove
    136     TabOrder = 7
    137   end
    138   object Bevel1: TBevel
    139     Left = 12
    140     Height = 2
    141     Top = 490
    142     Width = 716
    143     Anchors = [akLeft, akRight, akBottom]
    144   end
    145   object Label5: TLabel
    146     Left = 12
    147     Height = 26
    148     Top = 422
    149     Width = 97
    150     Caption = 'User name:'
    151     ParentColor = False
    152   end
    153   object Label6: TLabel
    154     Left = 366
    155     Height = 26
    156     Top = 421
    157     Width = 87
    158     Caption = 'Password:'
    159     ParentColor = False
    160   end
    161   object EditUserName: TEdit
    162     Left = 163
    163     Height = 43
    164     Top = 421
    165     Width = 184
    166     TabOrder = 8
    167   end
    168   object EditPassword: TEdit
    169     Left = 523
    170     Height = 43
    171     Top = 421
    172     Width = 184
    173     EchoMode = emPassword
    174     PasswordChar = '*'
    175     TabOrder = 9
    176   end
    177   object ButtonOpenURL: TButton
    178     Left = 592
    179     Height = 30
    180     Top = 62
    181     Width = 134
    182     Anchors = [akTop, akRight]
    183     Caption = 'Open URL'
    184     TabOrder = 12
    185     OnClick = ButtonOpenURLClick
     46    object EditName: TEdit
     47      Left = 162
     48      Height = 43
     49      Top = 12
     50      Width = 609
     51      Anchors = [akTop, akLeft, akRight]
     52      TabOrder = 0
     53    end
     54    object Label1: TLabel
     55      Left = 12
     56      Height = 26
     57      Top = 11
     58      Width = 56
     59      Caption = 'Name:'
     60      ParentColor = False
     61    end
     62    object Label2: TLabel
     63      Left = 12
     64      Height = 26
     65      Top = 59
     66      Width = 101
     67      Caption = 'Source URL:'
     68      ParentColor = False
     69    end
     70    object EditURL: TEdit
     71      Left = 163
     72      Height = 43
     73      Top = 59
     74      Width = 464
     75      Anchors = [akTop, akLeft, akRight]
     76      TabOrder = 1
     77    end
     78    object Label3: TLabel
     79      Left = 12
     80      Height = 26
     81      Top = 115
     82      Width = 106
     83      Caption = 'Data format:'
     84      ParentColor = False
     85    end
     86    object ComboBox1: TComboBox
     87      Left = 162
     88      Height = 42
     89      Top = 109
     90      Width = 464
     91      Anchors = [akTop, akLeft, akRight]
     92      ItemHeight = 0
     93      Style = csDropDownList
     94      TabOrder = 2
     95    end
     96    object ButtonShowFormat: TButton
     97      Left = 636
     98      Height = 38
     99      Top = 109
     100      Width = 134
     101      Anchors = [akTop, akRight]
     102      Caption = 'Configure'
     103      TabOrder = 3
     104      OnClick = ButtonShowFormatClick
     105    end
     106    object CheckBoxEnabled: TCheckBox
     107      Left = 12
     108      Height = 30
     109      Top = 154
     110      Width = 94
     111      Caption = 'Enabled'
     112      TabOrder = 4
     113    end
     114    object Label4: TLabel
     115      Left = 12
     116      Height = 26
     117      Top = 192
     118      Width = 95
     119      Caption = 'Categories:'
     120      ParentColor = False
     121    end
     122    object ListBox1: TListBox
     123      Left = 162
     124      Height = 169
     125      Top = 192
     126      Width = 609
     127      Anchors = [akTop, akLeft, akRight]
     128      ItemHeight = 0
     129      MultiSelect = True
     130      PopupMenu = PopupMenuCategory
     131      ScrollWidth = 469
     132      TabOrder = 5
     133      TopIndex = -1
     134    end
     135    object Button1: TButton
     136      Left = 162
     137      Height = 38
     138      Top = 374
     139      Width = 90
     140      Action = ACategoryAdd
     141      TabOrder = 6
     142    end
     143    object Button2: TButton
     144      Left = 277
     145      Height = 38
     146      Top = 374
     147      Width = 99
     148      Action = ACategoryRemove
     149      TabOrder = 7
     150    end
     151    object Label5: TLabel
     152      Left = 12
     153      Height = 26
     154      Top = 428
     155      Width = 97
     156      Caption = 'User name:'
     157      ParentColor = False
     158    end
     159    object Label6: TLabel
     160      Left = 366
     161      Height = 26
     162      Top = 428
     163      Width = 87
     164      Caption = 'Password:'
     165      ParentColor = False
     166    end
     167    object EditUserName: TEdit
     168      Left = 163
     169      Height = 43
     170      Top = 421
     171      Width = 184
     172      TabOrder = 8
     173    end
     174    object EditPassword: TEdit
     175      Left = 523
     176      Height = 43
     177      Top = 421
     178      Width = 184
     179      EchoMode = emPassword
     180      PasswordChar = '*'
     181      TabOrder = 9
     182    end
     183    object ButtonOpenURL: TButton
     184      Left = 636
     185      Height = 38
     186      Top = 62
     187      Width = 134
     188      Anchors = [akTop, akRight]
     189      Caption = 'Open URL'
     190      TabOrder = 10
     191      OnClick = ButtonOpenURLClick
     192    end
    186193  end
    187194  object ActionList1: TActionList
    188     Left = 461
    189     Top = 250
     195    Left = 501
     196    Top = 290
    190197    object ACategoryRemove: TAction
    191198      Caption = 'Remove'
    … …  
    200207  end
    201208  object PopupMenuCategory: TPopupMenu
    202     Left = 250
    203     Top = 250
     209    Left = 290
     210    Top = 290
    204211    object MenuItem2: TMenuItem
    205212      Action = ACategoryAdd

  • trunk/Forms/FormImportSource.lrj

    r219 r221  
    11{"version":1,"strings":[
    22{"hash":132227493,"name":"tformimportsource.caption","sourcebytes":[73,109,112,111,114,116,32,115,111,117,114,99,101],"value":"Import source"},
     3{"hash":1371,"name":"tformimportsource.buttonok.caption","sourcebytes":[79,107],"value":"Ok"},
     4{"hash":77089212,"name":"tformimportsource.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
    35{"hash":5538698,"name":"tformimportsource.label1.caption","sourcebytes":[78,97,109,101,58],"value":"Name:"},
    46{"hash":154126970,"name":"tformimportsource.label2.caption","sourcebytes":[83,111,117,114,99,101,32,85,82,76,58],"value":"Source URL:"},
    5 {"hash":1371,"name":"tformimportsource.buttonok.caption","sourcebytes":[79,107],"value":"Ok"},
    6 {"hash":77089212,"name":"tformimportsource.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
    77{"hash":163683098,"name":"tformimportsource.label3.caption","sourcebytes":[68,97,116,97,32,102,111,114,109,97,116,58],"value":"Data format:"},
    88{"hash":80717541,"name":"tformimportsource.buttonshowformat.caption","sourcebytes":[67,111,110,102,105,103,117,114,101],"value":"Configure"},

  • trunk/Forms/FormImportSource.pas

    r219 r221  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
    7   ActnList, Menus, ExtCtrls, Acronym, LCLIntf;
     7  ActnList, Menus, ExtCtrls, Acronym, LCLIntf, FormEx;
    88
    99type
    … …  
    1111  { TFormImportSource }
    1212
    13   TFormImportSource = class(TForm)
     13  TFormImportSource = class(TFormEx)
    1414    ACategoryAdd: TAction;
    1515    ACategoryRemove: TAction;
    1616    ActionList1: TActionList;
    17     Bevel1: TBevel;
    1817    Button1: TButton;
    1918    Button2: TButton;
    20     ButtonShowFormat: TButton;
    2119    ButtonOk: TButton;
    2220    ButtonCancel: TButton;
    2321    ButtonOpenURL: TButton;
     22    ButtonShowFormat: TButton;
    2423    CheckBoxEnabled: TCheckBox;
    2524    ComboBox1: TComboBox;
     25    EditName: TEdit;
     26    EditPassword: TEdit;
     27    EditURL: TEdit;
    2628    EditUserName: TEdit;
    27     EditName: TEdit;
    28     EditURL: TEdit;
    29     EditPassword: TEdit;
    3029    Label1: TLabel;
    3130    Label2: TLabel;
    … …  
    3837    MenuItem2: TMenuItem;
    3938    PopupMenuCategory: TPopupMenu;
     39    ScrollBox1: TScrollBox;
    4040    procedure ACategoryAddExecute(Sender: TObject);
    4141    procedure ACategoryRemoveExecute(Sender: TObject);

  • trunk/Forms/FormImportSources.lfm

    r219 r221  
    1919    Align = alBottom
    2020    Caption = 'ToolBar1'
    21     Images = Core.ImageList1
     21    Images = Core.ImageListSmall
    2222    ParentShowHint = False
    2323    ShowHint = True
    … …  
    101101  end
    102102  object ActionList1: TActionList
    103     Images = Core.ImageList1
    104103    Left = 490
    105104    Top = 269
    … …  
    137136  end
    138137  object PopupMenuImportSource: TPopupMenu
    139     Images = Core.ImageList1
    140138    Left = 176
    141139    Top = 264

  • trunk/Forms/FormImportSources.pas

    r219 r221  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    7   ActnList, Menus, Acronym, JobProgressView, ListViewSort, LazUTF8,
     7  ActnList, Menus, Acronym, JobProgressView, ListViewSort, LazUTF8, FormEx,
    88  Generics.Collections;
    99
    … …  
    1212  { TFormImportSources }
    1313
    14   TFormImportSources = class(TForm)
     14  TFormImportSources = class(TFormEx)
    1515    AAdd: TAction;
    1616    AEnable: TAction;

  • trunk/Forms/FormSettings.lfm

    r219 r221  
    11object FormSettings: TFormSettings
    22  Left = 798
    3   Height = 394
     3  Height = 487
    44  Top = 367
    5   Width = 590
     5  Width = 654
    66  Caption = 'Settings'
    7   ClientHeight = 394
    8   ClientWidth = 590
    9   Constraints.MinHeight = 394
    10   Constraints.MinWidth = 467
     7  ClientHeight = 487
     8  ClientWidth = 654
     9  Constraints.MinHeight = 200
     10  Constraints.MinWidth = 300
    1111  DesignTimePPI = 144
    1212  OnCreate = FormCreate
    1313  Position = poScreenCenter
    1414  LCLVersion = '3.6.0.0'
    15   object ComboBoxLanguage: TComboBox
    16     Left = 182
    17     Height = 42
    18     Top = 29
    19     Width = 250
    20     ItemHeight = 0
    21     Style = csDropDownList
    22     TabOrder = 0
    23   end
    24   object Label1: TLabel
    25     Left = 19
    26     Height = 26
    27     Top = 29
    28     Width = 88
    29     Caption = 'Language:'
    30     ParentColor = False
    31   end
    3215  object ButtonOk: TButton
    33     Left = 489
    34     Height = 30
    35     Top = 340
    36     Width = 90
     16    Left = 400
     17    Height = 38
     18    Top = 440
     19    Width = 106
    3720    Anchors = [akRight, akBottom]
    3821    Caption = 'Ok'
    3922    ModalResult = 1
    40     TabOrder = 3
     23    TabOrder = 1
    4124  end
    4225  object ButtonCancel: TButton
    43     Left = 374
    44     Height = 30
    45     Top = 340
    46     Width = 90
     26    Left = 527
     27    Height = 38
     28    Top = 440
     29    Width = 114
    4730    Anchors = [akRight, akBottom]
    4831    Caption = 'Cancel'
    4932    ModalResult = 2
     33    TabOrder = 0
     34  end
     35  object ScrollBox1: TScrollBox
     36    Left = 8
     37    Height = 418
     38    Top = 8
     39    Width = 631
     40    HorzScrollBar.Page = 432
     41    VertScrollBar.Page = 359
     42    Anchors = [akTop, akLeft, akRight, akBottom]
     43    ClientHeight = 416
     44    ClientWidth = 629
    5045    TabOrder = 2
    51   end
    52   object CheckBoxAlwaysOnTop: TCheckBox
    53     Left = 19
    54     Height = 30
    55     Top = 77
    56     Width = 145
    57     Caption = 'Always on top'
    58     TabOrder = 1
    59   end
    60   object CheckBoxStartOnLogon: TCheckBox
    61     Left = 19
    62     Height = 30
    63     Top = 115
    64     Width = 188
    65     Caption = 'Start on user logon'
    66     Color = clDefault
    67     ParentColor = False
    68     ParentFont = False
    69     TabOrder = 4
    70     OnChange = CheckBoxStartOnLogonChange
    71   end
    72   object CheckBoxStartMinimizedToTray: TCheckBox
    73     Left = 58
    74     Height = 30
    75     Top = 154
    76     Width = 218
    77     Caption = 'Start minimized to tray'
    78     TabOrder = 5
    79   end
    80   object CheckBoxAutomaticDPI: TCheckBox
    81     Left = 19
    82     Height = 30
    83     Top = 230
    84     Width = 148
    85     Caption = 'Automatic DPI'
    86     TabOrder = 6
    87     Visible = False
    88     OnChange = CheckBoxAutomaticDPIChange
    89   end
    90   object SpinEditDPI: TSpinEdit
    91     Left = 113
    92     Height = 43
    93     Top = 266
    94     Width = 116
    95     MaxValue = 300
    96     MinValue = 96
    97     TabOrder = 7
    98     Value = 96
    99     Visible = False
    100   end
    101   object Label2: TLabel
    102     Left = 55
    103     Height = 26
    104     Top = 266
    105     Width = 35
    106     Caption = 'DPI:'
    107     ParentColor = False
    108     Visible = False
    109   end
    110   object CheckBoxReopenLastFileOnStart: TCheckBox
    111     Left = 19
    112     Height = 30
    113     Top = 192
    114     Width = 226
    115     Caption = 'Reopen last file on start'
    116     TabOrder = 8
    117   end
    118   object Bevel1: TBevel
    119     Left = 10
    120     Height = 2
    121     Top = 320
    122     Width = 566
    123     Anchors = [akLeft, akRight, akBottom]
    124   end
    125   object Label3: TLabel
    126     Left = 19
    127     Height = 26
    128     Top = 317
    129     Width = 63
    130     Caption = 'Theme:'
    131     ParentColor = False
    132   end
    133   object ComboBoxTheme: TComboBox
    134     Left = 182
    135     Height = 42
    136     Top = 317
    137     Width = 250
    138     ItemHeight = 0
    139     Style = csDropDownList
    140     TabOrder = 9
     46    object ComboBoxLanguage: TComboBox
     47      Left = 182
     48      Height = 42
     49      Top = 29
     50      Width = 250
     51      ItemHeight = 0
     52      Style = csDropDownList
     53      TabOrder = 0
     54    end
     55    object Label1: TLabel
     56      Left = 19
     57      Height = 26
     58      Top = 29
     59      Width = 88
     60      Caption = 'Language:'
     61      ParentColor = False
     62    end
     63    object CheckBoxAlwaysOnTop: TCheckBox
     64      Left = 19
     65      Height = 30
     66      Top = 77
     67      Width = 145
     68      Caption = 'Always on top'
     69      TabOrder = 1
     70    end
     71    object CheckBoxStartOnLogon: TCheckBox
     72      Left = 19
     73      Height = 30
     74      Top = 115
     75      Width = 188
     76      Caption = 'Start on user logon'
     77      Color = clDefault
     78      ParentColor = False
     79      ParentFont = False
     80      TabOrder = 2
     81      OnChange = CheckBoxStartOnLogonChange
     82    end
     83    object CheckBoxStartMinimizedToTray: TCheckBox
     84      Left = 58
     85      Height = 30
     86      Top = 154
     87      Width = 218
     88      Caption = 'Start minimized to tray'
     89      TabOrder = 3
     90    end
     91    object CheckBoxAutomaticDPI: TCheckBox
     92      Left = 19
     93      Height = 30
     94      Top = 230
     95      Width = 148
     96      Caption = 'Automatic DPI'
     97      TabOrder = 4
     98      Visible = False
     99      OnChange = CheckBoxAutomaticDPIChange
     100    end
     101    object SpinEditDPI: TSpinEdit
     102      Left = 113
     103      Height = 43
     104      Top = 266
     105      Width = 116
     106      MaxValue = 300
     107      MinValue = 96
     108      TabOrder = 5
     109      Value = 96
     110      Visible = False
     111    end
     112    object Label2: TLabel
     113      Left = 55
     114      Height = 26
     115      Top = 266
     116      Width = 35
     117      Caption = 'DPI:'
     118      ParentColor = False
     119      Visible = False
     120    end
     121    object CheckBoxReopenLastFileOnStart: TCheckBox
     122      Left = 19
     123      Height = 30
     124      Top = 192
     125      Width = 226
     126      Caption = 'Reopen last file on start'
     127      TabOrder = 6
     128    end
     129    object Label3: TLabel
     130      Left = 19
     131      Height = 26
     132      Top = 317
     133      Width = 63
     134      Caption = 'Theme:'
     135      ParentColor = False
     136    end
     137    object ComboBoxTheme: TComboBox
     138      Left = 182
     139      Height = 42
     140      Top = 317
     141      Width = 250
     142      ItemHeight = 0
     143      Style = csDropDownList
     144      TabOrder = 7
     145    end
    141146  end
    142147end

  • trunk/Forms/FormSettings.lrj

    r219 r221  
    11{"version":1,"strings":[
    22{"hash":213582195,"name":"tformsettings.caption","sourcebytes":[83,101,116,116,105,110,103,115],"value":"Settings"},
    3 {"hash":82521866,"name":"tformsettings.label1.caption","sourcebytes":[76,97,110,103,117,97,103,101,58],"value":"Language:"},
    43{"hash":1371,"name":"tformsettings.buttonok.caption","sourcebytes":[79,107],"value":"Ok"},
    54{"hash":77089212,"name":"tformsettings.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},
     5{"hash":82521866,"name":"tformsettings.label1.caption","sourcebytes":[76,97,110,103,117,97,103,101,58],"value":"Language:"},
    66{"hash":259910512,"name":"tformsettings.checkboxalwaysontop.caption","sourcebytes":[65,108,119,97,121,115,32,111,110,32,116,111,112],"value":"Always on top"},
    77{"hash":81658830,"name":"tformsettings.checkboxstartonlogon.caption","sourcebytes":[83,116,97,114,116,32,111,110,32,117,115,101,114,32,108,111,103,111,110],"value":"Start on user logon"},

  • trunk/Forms/FormSettings.pas

    r219 r221  
    1212
    1313  TFormSettings = class(TFormEx)
    14     Bevel1: TBevel;
    1514    ButtonOk: TButton;
    1615    ButtonCancel: TButton;
     16    CheckBoxAlwaysOnTop: TCheckBox;
     17    CheckBoxAutomaticDPI: TCheckBox;
    1718    CheckBoxReopenLastFileOnStart: TCheckBox;
    18     CheckBoxAutomaticDPI: TCheckBox;
    1919    CheckBoxStartMinimizedToTray: TCheckBox;
    2020    CheckBoxStartOnLogon: TCheckBox;
    21     CheckBoxAlwaysOnTop: TCheckBox;
    2221    ComboBoxLanguage: TComboBox;
    2322    ComboBoxTheme: TComboBox;
    … …  
    2524    Label2: TLabel;
    2625    Label3: TLabel;
     26    ScrollBox1: TScrollBox;
    2727    SpinEditDPI: TSpinEdit;
    2828    procedure CheckBoxAutomaticDPIChange(Sender: TObject);
Note: See TracChangeset for help on using the changeset viewer.