126 lines
2.5 KiB
Plaintext
126 lines
2.5 KiB
Plaintext
object Form1: TForm1
|
|
Left = 329
|
|
Top = 239
|
|
Caption = 'Frames Demo - www.ImageEn.com'
|
|
ClientHeight = 331
|
|
ClientWidth = 404
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 350
|
|
Constraints.MinWidth = 400
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
Scaled = False
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Label1: TLabel
|
|
Left = 32
|
|
Top = 297
|
|
Width = 56
|
|
Height = 13
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Select mask'
|
|
FocusControl = ComboBox1
|
|
end
|
|
object ImageEnView1: TImageEnView
|
|
Left = 16
|
|
Top = 15
|
|
Width = 290
|
|
Height = 254
|
|
Cursor = crDefault
|
|
Background = clBtnFace
|
|
Ctl3D = False
|
|
ParentCtl3D = False
|
|
LegacyBitmap = False
|
|
AutoFit = True
|
|
AutoStretch = True
|
|
AutoShrink = True
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
EnableInteractionHints = True
|
|
TabOrder = 0
|
|
end
|
|
object TryBtn: TButton
|
|
Left = 316
|
|
Top = 16
|
|
Width = 75
|
|
Height = 25
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Try it'
|
|
TabOrder = 1
|
|
OnClick = TryBtnClick
|
|
end
|
|
object ComboBox1: TComboBox
|
|
Left = 96
|
|
Top = 294
|
|
Width = 145
|
|
Height = 21
|
|
Style = csDropDownList
|
|
Anchors = [akLeft, akBottom]
|
|
TabOrder = 2
|
|
OnChange = TryBtnClick
|
|
Items.Strings = (
|
|
'mask.jpg'
|
|
'mask1.jpg'
|
|
'mask2.jpg'
|
|
'mask3.jpg'
|
|
'mask4.jpg'
|
|
'mask5.jpg'
|
|
'mask6.jpg'
|
|
'mask7.jpg')
|
|
end
|
|
object ProgressBar1: TProgressBar
|
|
Left = 17
|
|
Top = 278
|
|
Width = 289
|
|
Height = 8
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
TabOrder = 3
|
|
Visible = False
|
|
end
|
|
object CBRot: TCheckBox
|
|
Left = 285
|
|
Top = 290
|
|
Width = 84
|
|
Height = 17
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Rotate mask'
|
|
TabOrder = 4
|
|
OnClick = TryBtnClick
|
|
end
|
|
object CBInvert: TCheckBox
|
|
Left = 285
|
|
Top = 307
|
|
Width = 119
|
|
Height = 17
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Invert mask'
|
|
TabOrder = 5
|
|
OnClick = TryBtnClick
|
|
end
|
|
object Degrees: TMaskEdit
|
|
Left = 367
|
|
Top = 288
|
|
Width = 23
|
|
Height = 21
|
|
Anchors = [akRight, akBottom]
|
|
EditMask = '99'
|
|
MaxLength = 2
|
|
TabOrder = 6
|
|
Text = '90'
|
|
end
|
|
object StaticText1: TStaticText
|
|
Left = 391
|
|
Top = 290
|
|
Width = 9
|
|
Height = 17
|
|
Anchors = [akRight, akBottom]
|
|
Caption = #176
|
|
TabOrder = 7
|
|
end
|
|
end
|