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/FormCheck.lfm

    r218 r219  
    11object FormCheck: TFormCheck
    22  Left = 483
    3   Height = 635
     3  Height = 762
    44  Top = 257
    5   Width = 891
     5  Width = 1069
    66  Caption = 'Check document'
    7   ClientHeight = 635
    8   ClientWidth = 891
    9   DesignTimePPI = 120
    10   OnClose = FormClose
     7  ClientHeight = 762
     8  ClientWidth = 1069
     9  DesignTimePPI = 144
    1110  OnCreate = FormCreate
    1211  OnDestroy = FormDestroy
    1312  OnShow = FormShow
    14   LCLVersion = '2.0.2.0'
     13  LCLVersion = '3.6.0.0'
    1514  object Panel1: TPanel
    1615    Left = 0
    17     Height = 635
     16    Height = 762
    1817    Top = 0
    19     Width = 224
     18    Width = 269
    2019    Align = alLeft
    2120    BevelOuter = bvNone
    22     ClientHeight = 635
    23     ClientWidth = 224
     21    ClientHeight = 762
     22    ClientWidth = 269
    2423    TabOrder = 0
    2524    object ButtonCheck: TButton
    26       Left = 11
    27       Height = 31
    28       Top = 13
    29       Width = 94
     25      Left = 13
     26      Height = 37
     27      Top = 16
     28      Width = 113
    3029      Caption = 'Check'
     30      TabOrder = 0
    3131      OnClick = ButtonCheckClick
    32       TabOrder = 0
    3332    end
    3433    object GroupBox1: TGroupBox
    35       Left = 11
    36       Height = 217
    37       Top = 199
    38       Width = 206
     34      Left = 13
     35      Height = 260
     36      Top = 239
     37      Width = 248
    3938      Anchors = [akTop, akLeft, akRight]
    4039      Caption = 'Summary section'
    41       ClientHeight = 192
    42       ClientWidth = 202
     40      ClientHeight = 233
     41      ClientWidth = 246
    4342      TabOrder = 1
    4443      object ButtonAcronymsSummary: TButton
    45         Left = 6
    46         Height = 31
    47         Top = 8
    48         Width = 150
     44        Left = 7
     45        Height = 37
     46        Top = 10
     47        Width = 180
    4948        Caption = 'Acronyms'
     49        TabOrder = 0
    5050        OnClick = ButtonAcronymsSummaryClick
    51         TabOrder = 0
    5251      end
    5352      object LabelAcronymCountSummary: TLabel
    54         Left = 6
    55         Height = 20
    56         Top = 48
    57         Width = 103
     53        Left = 7
     54        Height = 26
     55        Top = 58
     56        Width = 134
    5857        Caption = 'Acronym count:'
    5958        ParentColor = False
    6059      end
    6160      object Label1: TLabel
    62         Left = 8
    63         Height = 20
    64         Top = 72
    65         Width = 75
     61        Left = 10
     62        Height = 26
     63        Top = 86
     64        Width = 98
    6665        Caption = 'Start string:'
    6766        ParentColor = False
    6867      end
    6968      object EditSummaryStart: TEdit
    70         Left = 8
    71         Height = 28
    72         Top = 96
    73         Width = 184
     69        Left = 10
     70        Height = 43
     71        Top = 115
     72        Width = 224
    7473        Anchors = [akTop, akLeft, akRight]
    7574        TabOrder = 1
    7675      end
    7776      object Label2: TLabel
    78         Left = 8
    79         Height = 20
    80         Top = 128
    81         Width = 69
     77        Left = 10
     78        Height = 26
     79        Top = 154
     80        Width = 91
    8281        Caption = 'End string:'
    8382        ParentColor = False
    8483      end
    8584      object EditSummaryEnd: TEdit
    86         Left = 8
    87         Height = 28
    88         Top = 152
    89         Width = 184
     85        Left = 10
     86        Height = 43
     87        Top = 182
     88        Width = 224
    9089        Anchors = [akTop, akLeft, akRight]
    9190        TabOrder = 2
    … …  
    9392    end
    9493    object GroupBox2: TGroupBox
    95       Left = 11
    96       Height = 99
    97       Top = 96
    98       Width = 207
     94      Left = 13
     95      Height = 119
     96      Top = 115
     97      Width = 249
    9998      Anchors = [akTop, akLeft, akRight]
    10099      Caption = 'Content'
    101       ClientHeight = 74
    102       ClientWidth = 203
     100      ClientHeight = 92
     101      ClientWidth = 247
    103102      TabOrder = 2
    104103      object ButtonAcronymsContent: TButton
    105         Left = 8
    106         Height = 31
     104        Left = 10
     105        Height = 37
    107106        Top = 0
    108         Width = 150
     107        Width = 180
    109108        Caption = 'Acronyms'
     109        TabOrder = 0
    110110        OnClick = ButtonAcronymsContentClick
    111         TabOrder = 0
    112111      end
    113112      object LabelAcronymCountContent: TLabel
    114         Left = 8
    115         Height = 20
    116         Top = 40
    117         Width = 103
     113        Left = 10
     114        Height = 26
     115        Top = 48
     116        Width = 134
    118117        Caption = 'Acronym count:'
    119118        ParentColor = False
    … …  
    121120    end
    122121    object ButtonLoadFromFile: TButton
    123       Left = 11
    124       Height = 31
    125       Top = 48
    126       Width = 134
     122      Left = 13
     123      Height = 37
     124      Top = 58
     125      Width = 161
    127126      Caption = 'Load from file'
     127      TabOrder = 3
    128128      OnClick = ButtonLoadFromFileClick
    129       TabOrder = 3
    130129    end
    131130    object CheckBoxCaseSensitive: TCheckBox
    132       Left = 11
    133       Height = 24
    134       Top = 424
    135       Width = 197
     131      Left = 13
     132      Height = 30
     133      Top = 509
     134      Width = 251
    136135      Caption = 'Case sensitive comparison'
    137136      TabOrder = 4
    … …  
    139138  end
    140139  object Splitter1: TSplitter
    141     Left = 224
    142     Height = 635
     140    Left = 269
     141    Height = 762
    143142    Top = 0
    144     Width = 6
     143    Width = 7
    145144  end
    146145  object Panel2: TPanel
    147     Left = 230
    148     Height = 635
     146    Left = 276
     147    Height = 762
    149148    Top = 0
    150     Width = 661
     149    Width = 793
    151150    Align = alClient
    152151    BevelOuter = bvNone
    153     ClientHeight = 635
    154     ClientWidth = 661
     152    ClientHeight = 762
     153    ClientWidth = 793
    155154    TabOrder = 2
    156155    object PageControl1: TPageControl
    157       Left = 8
    158       Height = 619
    159       Top = 8
    160       Width = 645
     156      Left = 10
     157      Height = 742
     158      Top = 10
     159      Width = 773
    161160      ActivePage = TabSheetReport
    162161      Align = alClient
    163       BorderSpacing.Around = 8
     162      BorderSpacing.Around = 10
    164163      TabIndex = 1
    165164      TabOrder = 0
    166165      object TabSheetSource: TTabSheet
    167166        Caption = 'Source'
    168         ClientHeight = 586
    169         ClientWidth = 637
     167        ClientHeight = 702
     168        ClientWidth = 763
    170169        object MemoDocument: TMemo
    171           Left = 8
    172           Height = 570
    173           Top = 8
    174           Width = 620
     170          Left = 10
     171          Height = 682
     172          Top = 10
     173          Width = 742
    175174          Anchors = [akTop, akLeft, akRight, akBottom]
    176175          ScrollBars = ssAutoBoth
    … …  
    181180      object TabSheetReport: TTabSheet
    182181        Caption = 'Report'
    183         ClientHeight = 586
    184         ClientWidth = 637
     182        ClientHeight = 702
     183        ClientWidth = 763
    185184        object ListViewReport: TListView
    186           Left = 7
    187           Height = 564
    188           Top = 13
    189           Width = 625
     185          Left = 8
     186          Height = 675
     187          Top = 16
     188          Width = 749
    190189          Anchors = [akTop, akLeft, akRight, akBottom]
    191190          Columns = <         
    192191            item
    193192              Caption = 'Position'
    194               Width = 80
     193              Width = 96
    195194            end         
    196195            item
    197196              Caption = 'Type'
    198               Width = 100
     197              Width = 120
    199198            end         
    200199            item
    201200              Caption = 'Message'
    202               Width = 800
     201              Width = 960
    203202            end>
    204203          OwnerData = True
    … …  
    216215    DefaultExt = '.txt'
    217216    Filter = 'Text files (.txt)|*.txt|Any file|*.*'
    218     left = 544
    219     top = 288
     217    Left = 653
     218    Top = 346
    220219  end
    221220  object PopupMenuReport: TPopupMenu
    222     left = 376
    223     top = 202
     221    Left = 451
     222    Top = 242
    224223    object MenuItemGoTo: TMenuItem
    225224      Action = AGoToLocation
    … …  
    231230  end
    232231  object ActionList1: TActionList
    233     left = 546
    234     top = 203
     232    Left = 655
     233    Top = 244
    235234    object ASaveToCsv: TAction
    236235      Caption = 'Save to CSV...'
    … …  
    243242  end
    244243  object SaveDialog1: TSaveDialog
    245     left = 378
    246     top = 288
     244    Left = 454
     245    Top = 346
    247246  end
    248247end
Note: See TracChangeset for help on using the changeset viewer.