/
GF_Main.lfm
217 lines (217 loc) · 6.29 KB
/
GF_Main.lfm
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
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
object Form1: TForm1
Left = 199
Height = 691
Top = 148
Width = 883
Caption = 'Godfather'
ClientHeight = 691
ClientWidth = 883
Color = clBtnFace
DesignTimePPI = 168
Font.Color = clWindowText
Font.Height = -18
Font.Name = 'Segoe UI'
OnCreate = FormCreate
LCLVersion = '1.8.0.6'
object Label1: TLabel
Left = 7
Height = 19
Top = 7
Width = 260
Caption = 'Godfather : The absolute renamer utility'
Font.CharSet = GREEK_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = 'Segoe UI'
Font.Style = [fsBold, fsItalic]
ParentColor = False
ParentFont = False
end
object PageControl1: TPageControl
Left = 7
Height = 252
Top = 406
Width = 865
ActivePage = TabSheet2
Anchors = [akLeft, akRight, akBottom]
TabIndex = 0
TabOrder = 0
object TabSheet2: TTabSheet
Caption = 'Simple Ops'
ClientHeight = 214
ClientWidth = 857
ImageIndex = 1
object rdgTitle: TRadioGroup
Left = 14
Height = 186
Top = 14
Width = 330
AutoFill = True
Caption = 'File Title'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 156
ClientWidth = 326
ItemIndex = 1
Items.Strings = (
'Do not change'
'UPPERCASE'
'lowercase'
'Capitalize First Letter In Each Word'
'Capitalize first Letter'
)
TabOrder = 0
end
object rdgExt: TRadioGroup
Left = 350
Height = 184
Top = 14
Width = 330
AutoFill = True
Caption = 'File Extention'
ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
ClientHeight = 154
ClientWidth = 326
ItemIndex = 2
Items.Strings = (
'Do not change'
'UPPERCASE'
'lowercase'
'Capitalize First Letter In Each Word'
'Capitalize first Letter'
)
TabOrder = 1
end
object btnOK_SO: TBitBtn
Left = 693
Height = 63
Top = 135
Width = 147
Caption = 'Rename'
Kind = bkOK
OnClick = btnOK_SOClick
TabOrder = 2
end
end
object TabSheet3: TTabSheet
Caption = 'More Ops!'
ClientHeight = 214
ClientWidth = 857
ImageIndex = 2
object btnRemoveCommonLeadingPart: TBitBtn
Left = 14
Height = 36
Top = 14
Width = 426
Caption = 'Remove Common String Part From The Beggining'
OnClick = btnRemoveCommonLeadingPartClick
TabOrder = 0
end
object btnOrganize: TBitBtn
Left = 14
Height = 36
Top = 56
Width = 426
Caption = 'Organize'
OnClick = btnOrganizeClick
TabOrder = 1
end
end
end
object lvFiles: TListView
Left = 7
Height = 364
Top = 28
Width = 700
Anchors = [akTop, akLeft, akRight, akBottom]
Columns = <
item
Caption = 'File Name'
Width = 219
end
item
Caption = 'In Folder'
Width = 219
end>
MultiSelect = True
TabOrder = 1
ViewStyle = vsReport
end
object btnAddFiles: TBitBtn
Left = 721
Height = 49
Top = 28
Width = 150
Anchors = [akTop, akRight]
Caption = 'Add files'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
F033777777777337F73309999990FFF0033377777777FFF77333099999000000
3333777777777777333333399033333333333337773333333333333903333333
3333333773333333333333303333333333333337333333333333
}
NumGlyphs = 2
OnClick = btnAddFilesClick
TabOrder = 2
end
object btnRemoveFiles: TBitBtn
Left = 721
Height = 49
Top = 91
Width = 150
Anchors = [akTop, akRight]
Caption = 'Remove files'
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
333333333333337FF3333333333333903333333333333377FF33333333333399
03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
3333777777333333333333333333333333333333333333333333
}
NumGlyphs = 2
OnClick = btnRemoveFilesClick
TabOrder = 3
end
object btnClearAll: TBitBtn
Left = 721
Height = 50
Top = 154
Width = 150
Anchors = [akTop, akRight]
Caption = 'Clear All'
NumGlyphs = 2
OnClick = btnClearAllClick
TabOrder = 4
end
object OpenDialog1: TOpenDialog
Options = [ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
left = 483
top = 175
end
end