mxMarkEdit/unit6.lfm at main · maxnd/mxMarkEdit · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
object fmFiles: TfmFiles
  Left = 316
  Height = 549
  Top = 234
  Width = 1004
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Search in files'
  ClientHeight = 549
  ClientWidth = 1004
  KeyPreview = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  Position = poDesktopCenter
  ShowInTaskBar = stNever
  LCLVersion = '3.7.0.0'
  object sgFiles: TStringGrid
    Left = 15
    Height = 492
    Top = 10
    Width = 974
    Align = alClient
    AutoEdit = False
    BorderSpacing.Left = 5
    BorderSpacing.Right = 5
    BorderSpacing.Around = 10
    Color = clForm
    ColCount = 4
    ColumnClickSorts = True
    Columns = <
      item
        Title.Caption = 'iPos'
        Visible = False
      end
      item
        Title.Caption = 'Path'
        Width = 300
      end
      item
        Title.Caption = 'File name'
        Width = 250
      end
      item
        Title.Caption = 'Context'
        Width = 415
      end>
    ExtendedSelect = False
    FixedColor = clForm
    FixedCols = 0
    Flat = True
    GridLineColor = clBackground
    HeaderHotZones = []
    MouseWheelOption = mwGrid
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goColSizing, goRowSelect, goSmoothScroll, goCellHints]
    ParentShowHint = False
    RowCount = 2
    ShowHint = True
    TabOrder = 0
    OnDblClick = sgFilesDblClick
    OnKeyDown = sgFilesKeyDown
    ColWidths = (
      0
      300
      250
      415
    )
  end
  object pnTasks: TPanel
    Left = 0
    Height = 37
    Top = 512
    Width = 1004
    Align = alBottom
    BevelOuter = bvNone
    ClientHeight = 37
    ClientWidth = 1004
    ParentBackground = False
    ParentColor = False
    TabOrder = 1
    object bnOK: TButton
      Left = 912
      Height = 32
      Top = -3
      Width = 75
      Anchors = [akRight, akBottom]
      Caption = 'Close'
      TabOrder = 3
      TabStop = False
      OnClick = bnOKClick
    end
    object bnFind: TButton
      Left = 822
      Height = 32
      Top = -3
      Width = 75
      Anchors = [akRight, akBottom]
      Caption = 'Find'
      TabOrder = 4
      TabStop = False
      OnClick = bnFindClick
    end
    object edFolder: TEdit
      Left = 80
      Height = 22
      Top = 3
      Width = 240
      ReadOnly = True
      TabOrder = 0
    end
    object lbFolder: TLabel
      Left = 29
      Height = 16
      Top = 5
      Width = 38
      Alignment = taRightJustify
      Caption = 'Folder'
    end
    object bnFolder: TButton
      Left = 336
      Height = 32
      Top = -3
      Width = 115
      Anchors = [akRight, akBottom]
      Caption = 'Set folder'
      TabOrder = 1
      TabStop = False
      OnClick = bnFolderClick
    end
    object lbFind: TLabel
      Left = 497
      Height = 16
      Top = 5
      Width = 26
      Alignment = taRightJustify
      Caption = 'Find'
    end
    object edFind: TEdit
      Left = 538
      Height = 22
      Top = 3
      Width = 188
      TabOrder = 2
      OnKeyUp = edFindKeyUp
    end
    object lbCount: TLabel
      Left = 737
      Height = 16
      Top = 5
      Width = 8
      Alignment = taRightJustify
      Caption = '0'
    end
  end
  object sdDirOpen: TSelectDirectoryDialog
    Title = 'Select a folder'
    Left = 168
    Top = 116
  end
end