599 lines
14 KiB
Plaintext
599 lines
14 KiB
Plaintext
object fmain: Tfmain
|
|
Left = 199
|
|
Top = 87
|
|
Caption = 'Layers Demo - www.ImageEn.com'
|
|
ClientHeight = 712
|
|
ClientWidth = 954
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
Menu = MainMenu1
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnActivate = FormActivate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 728
|
|
Top = 0
|
|
Width = 226
|
|
Height = 712
|
|
Align = alRight
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object Label2: TLabel
|
|
Left = 8
|
|
Top = 595
|
|
Width = 30
|
|
Height = 13
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Zoom:'
|
|
end
|
|
object SpeedButton1: TSpeedButton
|
|
Left = 159
|
|
Top = 315
|
|
Width = 58
|
|
Height = 25
|
|
AllowAllUp = True
|
|
Anchors = [akLeft, akBottom]
|
|
GroupIndex = 12
|
|
Caption = 'Rotate'
|
|
OnClick = SpeedButton1Click
|
|
end
|
|
object lblPreviewQuality: TLabel
|
|
Left = 8
|
|
Top = 622
|
|
Width = 109
|
|
Height = 13
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Layer Preview Quality:'
|
|
end
|
|
object ImageEnMView1: TImageEnMView
|
|
Left = 8
|
|
Top = 8
|
|
Width = 145
|
|
Height = 332
|
|
Background = clGray
|
|
Ctl3D = False
|
|
ParentCtl3D = False
|
|
BorderStyle = bsNone
|
|
StoreType = ietThumb
|
|
ThumbWidth = 110
|
|
ThumbHeight = 100
|
|
HorizBorder = 4
|
|
VertBorder = 4
|
|
TextMargin = 0
|
|
OnImageSelect = ImageEnMView1ImageSelect
|
|
OnImageDeselect = ImageEnMView1ImageDeselect
|
|
GridWidth = 1
|
|
SelectionColor = clRed
|
|
Style = iemsFlat
|
|
ThumbnailsBackground = clGray
|
|
ThumbnailsBackgroundSelected = clBtnFace
|
|
EnableMultiSelect = True
|
|
MultiSelectionOptions = []
|
|
ThumbnailsBorderWidth = 0
|
|
ThumbnailsBorderColor = clBlack
|
|
DefaultBottomText = iedtNone
|
|
Anchors = [akLeft, akTop, akBottom]
|
|
TabOrder = 0
|
|
end
|
|
object Button1: TButton
|
|
Left = 159
|
|
Top = 8
|
|
Width = 58
|
|
Height = 25
|
|
Hint = 'Add new layer'
|
|
Caption = 'Add'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
OnClick = Button1Click
|
|
end
|
|
object Button2: TButton
|
|
Left = 159
|
|
Top = 60
|
|
Width = 58
|
|
Height = 25
|
|
Hint = 'Remove selected layers'
|
|
Caption = 'Remove'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 2
|
|
OnClick = Button2Click
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 8
|
|
Top = 347
|
|
Width = 209
|
|
Height = 213
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = ' Selected Layer '
|
|
TabOrder = 3
|
|
object Label3: TLabel
|
|
Left = 8
|
|
Top = 177
|
|
Width = 52
|
|
Height = 13
|
|
Caption = 'Rectangle:'
|
|
end
|
|
object Label4: TLabel
|
|
Left = 8
|
|
Top = 192
|
|
Width = 8
|
|
Height = 13
|
|
Caption = '()'
|
|
end
|
|
object PageControl1: TPageControl
|
|
Left = 7
|
|
Top = 16
|
|
Width = 194
|
|
Height = 153
|
|
ActivePage = TabSheet1
|
|
TabOrder = 0
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'General'
|
|
object CheckBox1: TCheckBox
|
|
Left = 7
|
|
Top = 3
|
|
Width = 89
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Visible'
|
|
TabOrder = 0
|
|
OnClick = CheckBox1Click
|
|
end
|
|
object CheckBox3: TCheckBox
|
|
Left = 7
|
|
Top = 20
|
|
Width = 89
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Cropped'
|
|
TabOrder = 1
|
|
OnClick = CheckBox3Click
|
|
end
|
|
object CheckBox5: TCheckBox
|
|
Left = 7
|
|
Top = 37
|
|
Width = 89
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Visible Box'
|
|
TabOrder = 2
|
|
OnClick = CheckBox5Click
|
|
end
|
|
object CheckBox6: TCheckBox
|
|
Left = 7
|
|
Top = 54
|
|
Width = 89
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Locked'
|
|
TabOrder = 3
|
|
OnClick = CheckBox6Click
|
|
end
|
|
object CheckBox10: TCheckBox
|
|
Left = 7
|
|
Top = 71
|
|
Width = 89
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Layer Mask'
|
|
TabOrder = 4
|
|
OnClick = CheckBox10Click
|
|
end
|
|
object CheckBox11: TCheckBox
|
|
Left = 7
|
|
Top = 88
|
|
Width = 89
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Selectable'
|
|
TabOrder = 5
|
|
OnClick = CheckBox11Click
|
|
end
|
|
object CheckBox12: TCheckBox
|
|
Left = 7
|
|
Top = 105
|
|
Width = 89
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Draw Outer'
|
|
TabOrder = 6
|
|
OnClick = CheckBox12Click
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'Effects'
|
|
object Label1: TLabel
|
|
Left = 8
|
|
Top = 10
|
|
Width = 37
|
|
Height = 13
|
|
Caption = 'Opacity'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 10
|
|
Top = 41
|
|
Width = 48
|
|
Height = 13
|
|
Caption = 'Operation'
|
|
end
|
|
object lblFeather: TLabel
|
|
Left = 10
|
|
Top = 72
|
|
Width = 65
|
|
Height = 13
|
|
Caption = 'Edge Feather'
|
|
end
|
|
object TrackBar1: TTrackBar
|
|
Left = 80
|
|
Top = 9
|
|
Width = 105
|
|
Height = 18
|
|
Max = 100
|
|
Frequency = 16
|
|
TabOrder = 0
|
|
OnChange = TrackBar1Change
|
|
end
|
|
object ComboBox2: TComboBox
|
|
Left = 84
|
|
Top = 37
|
|
Width = 89
|
|
Height = 21
|
|
Style = csDropDownList
|
|
TabOrder = 1
|
|
OnChange = ComboBox2Change
|
|
Items.Strings = (
|
|
'Normal'
|
|
'Add (Additive)'
|
|
'Sub (Difference)'
|
|
'Div'
|
|
'Mul'
|
|
'OR'
|
|
'AND'
|
|
'XOR'
|
|
'MAX (Lighten)'
|
|
'MIN (Darken)'
|
|
'Average'
|
|
'Screen'
|
|
'Negation'
|
|
'Exclusion'
|
|
'Overlay'
|
|
'HardLight'
|
|
'SoftLight'
|
|
'XFader'
|
|
'ColorEdge'
|
|
'ColorBurn'
|
|
'InverseColorDodge'
|
|
'InverseColorBurn'
|
|
'SoftDodge'
|
|
'SoftBurn'
|
|
'Reflect'
|
|
'Glow'
|
|
'Freeze'
|
|
'Eat'
|
|
'Subtractive'
|
|
'Interpolation'
|
|
'Stamp'
|
|
'Red'
|
|
'Green'
|
|
'Blue'
|
|
'Hue'
|
|
'Saturation'
|
|
'Color'
|
|
'Luminosity')
|
|
end
|
|
object edtEdgeFeather: TEdit
|
|
Left = 84
|
|
Top = 68
|
|
Width = 60
|
|
Height = 21
|
|
TabOrder = 2
|
|
Text = '0'
|
|
OnChange = edtEdgeFeatherChange
|
|
end
|
|
object updEdgeFeather: TUpDown
|
|
Left = 144
|
|
Top = 68
|
|
Width = 16
|
|
Height = 21
|
|
Associate = edtEdgeFeather
|
|
TabOrder = 3
|
|
end
|
|
end
|
|
object TabSheet3: TTabSheet
|
|
Caption = 'Magnify layer'
|
|
object Label5: TLabel
|
|
Left = 10
|
|
Top = 34
|
|
Width = 63
|
|
Height = 13
|
|
Caption = 'Magnification'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 10
|
|
Top = 59
|
|
Width = 65
|
|
Height = 13
|
|
Caption = 'Magnify Style'
|
|
end
|
|
object Label8: TLabel
|
|
Left = 10
|
|
Top = 86
|
|
Width = 74
|
|
Height = 13
|
|
Caption = 'Magnify Source'
|
|
end
|
|
object CheckBox4: TCheckBox
|
|
Left = 8
|
|
Top = 9
|
|
Width = 92
|
|
Height = 17
|
|
Alignment = taLeftJustify
|
|
Caption = 'Magnify layer'
|
|
TabOrder = 0
|
|
OnClick = CheckBox4Click
|
|
end
|
|
object TrackBar3: TTrackBar
|
|
Left = 82
|
|
Top = 31
|
|
Width = 105
|
|
Height = 18
|
|
Max = 1000
|
|
Frequency = 100
|
|
TabOrder = 1
|
|
OnChange = TrackBar3Change
|
|
end
|
|
object ComboBox1: TComboBox
|
|
Left = 88
|
|
Top = 55
|
|
Width = 89
|
|
Height = 21
|
|
Style = csDropDownList
|
|
TabOrder = 2
|
|
OnChange = ComboBox1Change
|
|
Items.Strings = (
|
|
'Rectangle'
|
|
'Ellipse')
|
|
end
|
|
object ComboBox3: TComboBox
|
|
Left = 88
|
|
Top = 82
|
|
Width = 89
|
|
Height = 21
|
|
Style = csDropDownList
|
|
TabOrder = 3
|
|
OnChange = ComboBox3Change
|
|
Items.Strings = (
|
|
'Background'
|
|
'Canvas')
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object btnMerge: TButton
|
|
Left = 159
|
|
Top = 196
|
|
Width = 58
|
|
Height = 25
|
|
Hint = 'Merge selected layers'
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Merge'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 4
|
|
OnClick = btnMergeClick
|
|
end
|
|
object Button4: TButton
|
|
Left = 159
|
|
Top = 241
|
|
Width = 58
|
|
Height = 25
|
|
Hint = 'Move Up'
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Up'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 5
|
|
OnClick = Button4Click
|
|
end
|
|
object Button5: TButton
|
|
Left = 159
|
|
Top = 267
|
|
Width = 58
|
|
Height = 25
|
|
Hint = 'Move Down'
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Down'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 6
|
|
OnClick = Button5Click
|
|
end
|
|
object Button6: TButton
|
|
Left = 159
|
|
Top = 34
|
|
Width = 58
|
|
Height = 25
|
|
Hint = 'Insert new layer'
|
|
Caption = 'Insert'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 7
|
|
OnClick = Button6Click
|
|
end
|
|
object TrackBar2: TTrackBar
|
|
Left = 40
|
|
Top = 591
|
|
Width = 161
|
|
Height = 20
|
|
Anchors = [akLeft, akBottom]
|
|
Max = 3000
|
|
Min = 1
|
|
Frequency = 100
|
|
Position = 100
|
|
TabOrder = 8
|
|
OnChange = TrackBar2Change
|
|
end
|
|
object CheckBox2: TCheckBox
|
|
Left = 8
|
|
Top = 568
|
|
Width = 121
|
|
Height = 17
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Show Layers Box'
|
|
TabOrder = 9
|
|
OnClick = CheckBox2Click
|
|
end
|
|
object CheckBox8: TCheckBox
|
|
Left = 8
|
|
Top = 645
|
|
Width = 97
|
|
Height = 17
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Alpha Channel'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 10
|
|
OnClick = CheckBox8Click
|
|
end
|
|
object CheckBox9: TCheckBox
|
|
Left = 8
|
|
Top = 666
|
|
Width = 97
|
|
Height = 17
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Aspect Ratio'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 11
|
|
OnClick = CheckBox9Click
|
|
end
|
|
object cmbPreviewQuality: TComboBox
|
|
Left = 121
|
|
Top = 619
|
|
Width = 96
|
|
Height = 21
|
|
Style = csDropDownList
|
|
Anchors = [akLeft, akBottom]
|
|
TabOrder = 13
|
|
OnChange = cmbPreviewQualityChange
|
|
Items.Strings = (
|
|
'Fast'
|
|
'Best (Delayed)'
|
|
'Best Quality')
|
|
end
|
|
object chkMultiSelect: TCheckBox
|
|
Left = 8
|
|
Top = 687
|
|
Width = 201
|
|
Height = 17
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Allow Multiple Select (Shift key)'
|
|
Checked = True
|
|
State = cbChecked
|
|
TabOrder = 12
|
|
OnClick = chkMultiSelectClick
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 728
|
|
Height = 712
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object ImageEnView1: TImageEnView
|
|
Left = 0
|
|
Top = 0
|
|
Width = 728
|
|
Height = 712
|
|
Background = clBtnFace
|
|
Ctl3D = False
|
|
ParentCtl3D = False
|
|
BorderStyle = bsNone
|
|
LegacyBitmap = False
|
|
BackgroundStyle = iebsChessboard
|
|
OnLayerNotify = ImageEnView1LayerNotify
|
|
OnDrawLayerBox = ImageEnView1DrawLayerBox
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
Left = 112
|
|
Top = 64
|
|
object File1: TMenuItem
|
|
Caption = '&File'
|
|
object Open1: TMenuItem
|
|
Caption = '&Open...'
|
|
OnClick = Open1Click
|
|
end
|
|
object Save1: TMenuItem
|
|
Caption = '&Save Layer...'
|
|
OnClick = Save1Click
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Loadalllayers1: TMenuItem
|
|
Caption = 'Load all layers...'
|
|
OnClick = Loadalllayers1Click
|
|
end
|
|
object Savealllayers1: TMenuItem
|
|
Caption = 'Save all layers...'
|
|
OnClick = Savealllayers1Click
|
|
end
|
|
object N3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Savemergedlayers1: TMenuItem
|
|
Caption = 'Save Merged Layers...'
|
|
OnClick = Savemergedlayers1Click
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object Exit1: TMenuItem
|
|
Caption = '&Exit'
|
|
OnClick = Exit1Click
|
|
end
|
|
end
|
|
end
|
|
object dlgSaveImages: TSaveImageEnDialog
|
|
Filter =
|
|
'JPEG Bitmap (JPG)|*.jpg|CompuServe Bitmap (GIF)|*.gif|TIFF Bitma' +
|
|
'p (TIF)|*.tif|PaintBrush (PCX)|*.pcx|Portable Network Graphics (' +
|
|
'PNG)|*.png|Windows Bitmap (BMP)|*.bmp|OS/2 Bitmap (BMP)|*.bmp|Ta' +
|
|
'rga Bitmap (TGA)|*.tga|Portable PixMap (PXM)|*.pxm|Portable PixM' +
|
|
'ap (PPM)|*.ppm|Portable GreyMap (PGM)|*.pgm|Portable Bitmap (PBM' +
|
|
')|*.pbm|JPEG2000 (JP2)|*.jp2|JPEG2000 Code Stream (J2K)|*.j2k|Mu' +
|
|
'ltipage PCX (DCX)|*.dcx'
|
|
ExOptions = [sdShowPreview, sdShowAdvanced]
|
|
Left = 320
|
|
Top = 64
|
|
end
|
|
object dlgOpenLayers: TOpenImageEnDialog
|
|
DefaultExt = 'ien'
|
|
Filter = 'ImageEn Layers|*.ien;*.imageen;*.lyr|All Files|*.*'
|
|
AutoSetFilter = False
|
|
Left = 426
|
|
Top = 64
|
|
end
|
|
object dlgSaveLayers: TSaveImageEnDialog
|
|
DefaultExt = 'ien'
|
|
Filter = 'ImageEn Layers|*.ien|ImageEn Layers|*.lyr'
|
|
AutoSetFilter = False
|
|
ExOptions = [sdShowPreview, sdShowAdvanced]
|
|
Left = 212
|
|
Top = 64
|
|
end
|
|
end
|