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.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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'
Note: See TracChangeset for help on using the changeset viewer.