-
Notifications
You must be signed in to change notification settings - Fork 0
/
main.dfm
executable file
·124 lines (124 loc) · 2.4 KB
/
main.dfm
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
object Form1: TForm1
Left = 704
Top = 195
Width = 711
Height = 373
Caption = 'Thumbgen'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 200
Top = 24
Width = 94
Height = 13
Caption = 'Szeroko'#347#263' miniatury'
end
object Label2: TLabel
Left = 312
Top = 24
Width = 94
Height = 13
Caption = 'Wysoko'#347#263' miniatury'
end
object SpeedButton1: TSpeedButton
Left = 272
Top = 280
Width = 113
Height = 30
Caption = 'Generuj'
OnClick = SpeedButton1Click
end
object Image1: TImage
Left = 432
Top = 32
Width = 249
Height = 225
Center = True
Transparent = True
end
object Label3: TLabel
Left = 432
Top = 16
Width = 83
Height = 13
Caption = 'Podgl'#261'd miniatury'
end
object m: TLabeledEdit
Left = 32
Top = 40
Width = 137
Height = 21
EditLabel.Width = 138
EditLabel.Height = 13
EditLabel.Caption = 'Nazwa katalogu z miniaturam'
LabelPosition = lpAbove
LabelSpacing = 3
TabOrder = 0
Text = 'miniatury'
end
object szerokosc: TCSpinEdit
Left = 200
Top = 40
Width = 97
Height = 22
TabOrder = 1
Value = 100
end
object wysokosc: TCSpinEdit
Left = 312
Top = 40
Width = 97
Height = 22
TabOrder = 2
Value = 100
end
object dir: TDirectoryListBox
Left = 32
Top = 104
Width = 377
Height = 145
ItemHeight = 16
TabOrder = 3
end
object DriveComboBox1: TDriveComboBox
Left = 32
Top = 72
Width = 377
Height = 19
DirList = dir
TabOrder = 4
end
object status: TStatusBar
Left = 0
Top = 320
Width = 703
Height = 19
Panels = <>
SimplePanel = False
end
object CheckBox1: TCheckBox
Left = 32
Top = 256
Width = 177
Height = 17
Caption = 'Zast'#261'p istniej'#261'ce miniatury.'
TabOrder = 6
end
object CheckBox2: TCheckBox
Left = 32
Top = 280
Width = 185
Height = 17
Caption = 'Popraw nazwy - usu'#324' spacje.'
TabOrder = 7
end
end