-
Notifications
You must be signed in to change notification settings - Fork 25
/
Copy pathcropedges.lfm
executable file
·160 lines (160 loc) · 3.69 KB
/
cropedges.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
object CropEdgeForm: TCropEdgeForm
Left = 631
Height = 146
Top = 197
Width = 398
ActiveControl = DEdit
AutoSize = True
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
BorderWidth = 4
Caption = 'Crop Edges'
ClientHeight = 146
ClientWidth = 398
OnCreate = FormCreate
OnHide = FormHide
OnShow = FormShow
Position = poScreenCenter
LCLVersion = '2.1.0.0'
object CancelBtn: TSpeedButton
AnchorSideTop.Control = VEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 310
Height = 20
Top = 75
Width = 80
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 4
BorderSpacing.Right = 4
Constraints.MinWidth = 80
Caption = ' Cancel '
OnClick = CancelBtnClick
end
object ApplyBtn: TSpeedButton
AnchorSideTop.Control = CancelBtn
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = CancelBtn
Left = 226
Height = 20
Top = 75
Width = 80
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 4
Constraints.MinWidth = 80
Caption = ' Apply '
OnClick = ApplyBtnClick
end
object CropFileSzBtn: TSpeedButton
AnchorSideTop.Control = CancelBtn
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = ApplyBtn
Left = 126
Height = 20
Top = 75
Width = 96
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Right = 4
Constraints.MinWidth = 80
Caption = ' Save Cropped '
OnClick = CropFileSzBtnClick
end
object DEdit: TSpinEdit
AnchorSideLeft.Control = PEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
Left = 84
Height = 21
Top = 8
Width = 72
BorderSpacing.Left = 4
BorderSpacing.Top = 4
MaxValue = 9999
OnChange = CropEditChange
TabOrder = 0
Value = 8
end
object PEdit: TSpinEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = DEdit
AnchorSideTop.Side = asrBottom
Left = 8
Height = 21
Top = 29
Width = 72
BorderSpacing.Left = 4
MaxValue = 9999
OnChange = CropEditChange
TabOrder = 1
Value = 8
end
object AEdit: TSpinEdit
AnchorSideLeft.Control = DEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PEdit
AnchorSideTop.Side = asrCenter
Left = 160
Height = 21
Top = 29
Width = 72
BorderSpacing.Left = 4
MaxValue = 9999
OnChange = CropEditChange
TabOrder = 2
Value = 8
end
object VEdit: TSpinEdit
AnchorSideLeft.Control = DEdit
AnchorSideTop.Control = PEdit
AnchorSideTop.Side = asrBottom
Left = 84
Height = 21
Top = 50
Width = 72
MaxValue = 9999
OnChange = CropEditChange
TabOrder = 3
Value = 8
end
object REdit: TSpinEdit
AnchorSideLeft.Control = LEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PEdit
AnchorSideTop.Side = asrCenter
Left = 326
Height = 21
Top = 29
Width = 72
BorderSpacing.Left = 4
MaxValue = 9999
OnChange = CropEditChange
TabOrder = 4
Value = 8
end
object LEdit: TSpinEdit
AnchorSideLeft.Control = AEdit
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = PEdit
AnchorSideTop.Side = asrCenter
Left = 250
Height = 21
Top = 29
Width = 72
BorderSpacing.Left = 18
MaxValue = 9999
OnChange = CropEditChange
TabOrder = 5
Value = 8
end
object Timer1: TTimer
Enabled = False
Interval = 150
OnTimer = Timer1Timer
left = 24
top = 56
end
end