Ignore:
Timestamp:
Jan 17, 2025, 9:05:54 PM (4 days ago)
Author:
chronos
Message:
  • Modified: Updated Common package.
  • Modified: Remove U prefix from unit names.
  • Modified: Use Gneeric.Collections instead of fgl.
  • Modified: Do not use global form variables.
File:
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/Forms/FormImportFormat.lfm

    r218 r219  
    11object FormImportFormat: TFormImportFormat
    22  Left = 462
    3   Height = 439
     3  Height = 527
    44  Top = 322
    5   Width = 629
     5  Width = 755
    66  Caption = 'Import format'
    7   ClientHeight = 439
    8   ClientWidth = 629
    9   DesignTimePPI = 120
    10   OnClose = FormClose
     7  ClientHeight = 527
     8  ClientWidth = 755
     9  DesignTimePPI = 144
    1110  OnCreate = FormCreate
    1211  OnShow = FormShow
    1312  Position = poScreenCenter
    14   LCLVersion = '2.0.2.0'
     13  LCLVersion = '3.6.0.0'
    1514  object ButtonOk: TButton
    16     Left = 525
    17     Height = 25
    18     Top = 390
    19     Width = 75
     15    Left = 630
     16    Height = 30
     17    Top = 468
     18    Width = 90
    2019    Anchors = [akRight, akBottom]
    2120    Caption = 'Ok'
    … …  
    2423  end
    2524  object ButtonCancel: TButton
    26     Left = 429
    27     Height = 25
    28     Top = 390
    29     Width = 75
     25    Left = 515
     26    Height = 30
     27    Top = 468
     28    Width = 90
    3029    Anchors = [akRight, akBottom]
    3130    Caption = 'Cancel'
    … …  
    3433  end
    3534  object Label1: TLabel
    36     Left = 20
    37     Height = 20
    38     Top = 53
    39     Width = 43
     35    Left = 24
     36    Height = 26
     37    Top = 64
     38    Width = 56
    4039    Caption = 'Name:'
    4140    ParentColor = False
    4241  end
    4342  object EditName: TEdit
    44     Left = 179
    45     Height = 28
    46     Top = 48
    47     Width = 426
     43    Left = 215
     44    Height = 43
     45    Top = 58
     46    Width = 511
    4847    Anchors = [akTop, akLeft, akRight]
    4948    TabOrder = 1
    5049  end
    5150  object Label8: TLabel
    52     Left = 20
    53     Height = 20
    54     Top = 90
    55     Width = 72
     51    Left = 24
     52    Height = 26
     53    Top = 108
     54    Width = 95
    5655    Caption = 'Block start:'
    5756    ParentColor = False
    5857  end
    5958  object EditBlockStart: TEdit
    60     Left = 179
    61     Height = 28
    62     Top = 85
    63     Width = 426
     59    Left = 215
     60    Height = 43
     61    Top = 102
     62    Width = 511
    6463    Anchors = [akTop, akLeft, akRight]
    6564    TabOrder = 2
    6665  end
    6766  object Label9: TLabel
    68     Left = 20
    69     Height = 20
    70     Top = 130
    71     Width = 68
     67    Left = 24
     68    Height = 26
     69    Top = 156
     70    Width = 89
    7271    Caption = 'Block end:'
    7372    ParentColor = False
    7473  end
    7574  object EditBlockEnd: TEdit
    76     Left = 179
    77     Height = 28
    78     Top = 125
    79     Width = 426
     75    Left = 215
     76    Height = 43
     77    Top = 150
     78    Width = 511
    8079    Anchors = [akTop, akLeft, akRight]
    8180    TabOrder = 3
    8281  end
    8382  object ListViewItemRules: TListView
    84     Left = 20
    85     Height = 198
    86     Top = 181
    87     Width = 585
     83    Left = 24
     84    Height = 238
     85    Top = 217
     86    Width = 702
    8887    Anchors = [akTop, akLeft, akRight, akBottom]
    8988    Columns = <   
    9089      item
    9190        Caption = 'Start string'
    92         Width = 100
     91        Width = 120
    9392      end   
    9493      item
    9594        Caption = 'End string'
    96         Width = 100
     95        Width = 120
    9796      end   
    9897      item
    9998        Caption = 'Action'
    100         Width = 100
     99        Width = 120
    101100      end   
    102101      item
    103102        Caption = 'Variable'
    104         Width = 100
     103        Width = 120
    105104      end   
    106105      item
    107106        Caption = 'Repetition'
    108         Width = 165
     107        Width = 207
    109108      end>
    110109    OwnerData = True
    … …  
    118117  end
    119118  object Label2: TLabel
    120     Left = 20
    121     Height = 20
    122     Top = 157
    123     Width = 68
     119    Left = 24
     120    Height = 26
     121    Top = 188
     122    Width = 91
    124123    Caption = 'Item rules:'
    125124    ParentColor = False
    126125  end
    127126  object Label3: TLabel
    128     Left = 20
    129     Height = 20
    130     Top = 13
    131     Width = 35
     127    Left = 24
     128    Height = 26
     129    Top = 16
     130    Width = 45
    132131    Caption = 'Type:'
    133132    ParentColor = False
    134133  end
    135134  object ComboBoxType: TComboBox
    136     Left = 179
    137     Height = 28
    138     Top = 13
    139     Width = 197
    140     ItemHeight = 20
     135    Left = 215
     136    Height = 38
     137    Top = 16
     138    Width = 236
     139    ItemHeight = 0
    141140    Items.Strings = (
    142141      'Text parse HTTP'
    … …  
    148147  end
    149148  object PopupMenu1: TPopupMenu
    150     left = 181
    151     top = 277
     149    Left = 217
     150    Top = 332
    152151    object MenuItem1: TMenuItem
    153152      Action = AAdd
    … …  
    275274  end
    276275  object ActionList1: TActionList
    277     left = 383
    278     top = 282
     276    Left = 460
     277    Top = 338
    279278    object AAdd: TAction
    280279      Caption = 'Add'
Note: See TracChangeset for help on using the changeset viewer.