475 lines
11 KiB
Plaintext
475 lines
11 KiB
Plaintext
object Form1: TForm1
|
|
Left = 167
|
|
Top = 59
|
|
Caption = 'ImageEn Transparency and Layer Textout Demo'
|
|
ClientHeight = 634
|
|
ClientWidth = 801
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 801
|
|
Height = 38
|
|
Align = alTop
|
|
TabOrder = 0
|
|
object SpeedButton1: TSpeedButton
|
|
Left = 600
|
|
Top = 9
|
|
Width = 144
|
|
Height = 24
|
|
AllowAllUp = True
|
|
GroupIndex = 2
|
|
Down = True
|
|
Caption = 'Enable Transparency'
|
|
Transparent = False
|
|
OnClick = SpeedButton1Click
|
|
end
|
|
object SpeedButton2: TSpeedButton
|
|
Left = 440
|
|
Top = 9
|
|
Width = 155
|
|
Height = 24
|
|
AllowAllUp = True
|
|
GroupIndex = 1
|
|
Caption = 'Pick Transparent Color'
|
|
Transparent = False
|
|
OnClick = SpeedButton2Click
|
|
end
|
|
object Label2: TLabel
|
|
Left = 253
|
|
Top = 3
|
|
Width = 26
|
|
Height = 13
|
|
Caption = 'Zoom'
|
|
end
|
|
object Button1: TButton
|
|
Left = 87
|
|
Top = 9
|
|
Width = 70
|
|
Height = 24
|
|
Caption = 'TextOut'
|
|
TabOrder = 0
|
|
OnClick = Button1Click
|
|
end
|
|
object Button2: TButton
|
|
Left = 6
|
|
Top = 9
|
|
Width = 77
|
|
Height = 24
|
|
Caption = 'Open Image'
|
|
TabOrder = 1
|
|
OnClick = Button2Click
|
|
end
|
|
object Button3: TButton
|
|
Left = 165
|
|
Top = 9
|
|
Width = 70
|
|
Height = 24
|
|
Caption = 'Clear'
|
|
TabOrder = 2
|
|
OnClick = Button3Click
|
|
end
|
|
object TrackBar2: TTrackBar
|
|
Left = 247
|
|
Top = 14
|
|
Width = 187
|
|
Height = 17
|
|
Max = 3000
|
|
Min = 1
|
|
ParentShowHint = False
|
|
Frequency = 100
|
|
Position = 100
|
|
ShowHint = True
|
|
TabOrder = 3
|
|
OnChange = TrackBar2Change
|
|
end
|
|
end
|
|
object ImageEnView1: TImageEnView
|
|
Left = 0
|
|
Top = 38
|
|
Width = 594
|
|
Height = 577
|
|
Background = clBtnFace
|
|
Ctl3D = False
|
|
ParentCtl3D = False
|
|
LegacyBitmap = False
|
|
BackgroundStyle = iebsChessboard
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 1
|
|
OnMouseDown = ImageEnView1MouseDown
|
|
OnMouseMove = ImageEnView1MouseMove
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 594
|
|
Top = 38
|
|
Width = 207
|
|
Height = 577
|
|
Align = alRight
|
|
TabOrder = 2
|
|
object Panel9: TPanel
|
|
Left = 1
|
|
Top = 347
|
|
Width = 205
|
|
Height = 229
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
ParentColor = True
|
|
TabOrder = 0
|
|
object Panel10: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 205
|
|
Height = 17
|
|
Align = alTop
|
|
Alignment = taLeftJustify
|
|
BevelOuter = bvNone
|
|
Caption = ' Color:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
object HSVBox1: THSVBox
|
|
Left = 11
|
|
Top = 30
|
|
Width = 178
|
|
Height = 82
|
|
end
|
|
object GroupBox2: TGroupBox
|
|
Left = 108
|
|
Top = 119
|
|
Width = 94
|
|
Height = 83
|
|
Caption = 'Selected Color'
|
|
TabOrder = 2
|
|
object Label4: TLabel
|
|
Left = 9
|
|
Top = 13
|
|
Width = 22
|
|
Height = 11
|
|
Caption = 'Color'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -9
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object SelectedColorPanel: TShape
|
|
Left = 4
|
|
Top = 27
|
|
Width = 82
|
|
Height = 35
|
|
end
|
|
end
|
|
object GroupBox3: TGroupBox
|
|
Left = 7
|
|
Top = 121
|
|
Width = 94
|
|
Height = 94
|
|
Caption = 'Current Color'
|
|
TabOrder = 3
|
|
object Label5: TLabel
|
|
Left = 7
|
|
Top = 17
|
|
Width = 10
|
|
Height = 11
|
|
Caption = 'R:'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -9
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object L_R: TLabel
|
|
Left = 27
|
|
Top = 17
|
|
Width = 9
|
|
Height = 11
|
|
Caption = 'R:'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -9
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label7: TLabel
|
|
Left = 7
|
|
Top = 27
|
|
Width = 10
|
|
Height = 11
|
|
Caption = 'G:'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -9
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object L_G: TLabel
|
|
Left = 27
|
|
Top = 27
|
|
Width = 9
|
|
Height = 11
|
|
Caption = 'R:'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -9
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label8: TLabel
|
|
Left = 7
|
|
Top = 38
|
|
Width = 10
|
|
Height = 11
|
|
Caption = 'B:'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -9
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object L_B: TLabel
|
|
Left = 27
|
|
Top = 38
|
|
Width = 9
|
|
Height = 11
|
|
Caption = 'R:'
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -9
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object ActiveColorPanel: TShape
|
|
Left = 4
|
|
Top = 52
|
|
Width = 82
|
|
Height = 31
|
|
end
|
|
end
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 205
|
|
Height = 17
|
|
Align = alTop
|
|
Alignment = taLeftJustify
|
|
BevelOuter = bvNone
|
|
Caption = ' Layer:'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 9
|
|
Top = 28
|
|
Width = 187
|
|
Height = 272
|
|
Caption = 'Layers:'
|
|
TabOrder = 2
|
|
object ImageEnMView1: TImageEnMView
|
|
Left = 7
|
|
Top = 22
|
|
Width = 109
|
|
Height = 161
|
|
Background = clGray
|
|
Ctl3D = False
|
|
ParentCtl3D = False
|
|
BorderStyle = bsNone
|
|
StoreType = ietThumb
|
|
ThumbWidth = 90
|
|
ThumbHeight = 90
|
|
HorizBorder = 4
|
|
VertBorder = 4
|
|
TextMargin = 0
|
|
OnImageSelect = ImageEnMView1ImageSelect
|
|
GridWidth = 1
|
|
SelectionWidth = 3
|
|
SelectionColor = clRed
|
|
Style = iemsFlat
|
|
ThumbnailsBackground = clGray
|
|
ThumbnailsBackgroundSelected = clBtnFace
|
|
EnableMultiSelect = True
|
|
MultiSelectionOptions = []
|
|
ThumbnailsBorderWidth = 0
|
|
ThumbnailsBorderColor = clBlack
|
|
DefaultBottomText = iedtNone
|
|
TabOrder = 0
|
|
end
|
|
object Button5: TButton
|
|
Left = 124
|
|
Top = 24
|
|
Width = 56
|
|
Height = 23
|
|
Hint = 'Add new layer'
|
|
Caption = 'Add'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
OnClick = Button5Click
|
|
end
|
|
object Button10: TButton
|
|
Left = 124
|
|
Top = 47
|
|
Width = 56
|
|
Height = 24
|
|
Hint = 'Insert new layer'
|
|
Caption = 'Ins'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 2
|
|
OnClick = Button10Click
|
|
end
|
|
object Button6: TButton
|
|
Left = 124
|
|
Top = 71
|
|
Width = 56
|
|
Height = 23
|
|
Hint = 'Remove layer'
|
|
Caption = 'Del'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 3
|
|
OnClick = Button6Click
|
|
end
|
|
object Button7: TButton
|
|
Left = 124
|
|
Top = 99
|
|
Width = 56
|
|
Height = 24
|
|
Hint = 'Merge selected layers'
|
|
Caption = 'Merge'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 4
|
|
OnClick = Button7Click
|
|
end
|
|
object Button8: TButton
|
|
Left = 124
|
|
Top = 142
|
|
Width = 56
|
|
Height = 23
|
|
Hint = 'Move Up'
|
|
Caption = 'Up'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 5
|
|
OnClick = Button8Click
|
|
end
|
|
object Button9: TButton
|
|
Left = 124
|
|
Top = 165
|
|
Width = 56
|
|
Height = 24
|
|
Hint = 'Move Down'
|
|
Caption = 'Down'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 6
|
|
OnClick = Button9Click
|
|
end
|
|
object GroupBox4: TGroupBox
|
|
Left = 9
|
|
Top = 191
|
|
Width = 154
|
|
Height = 70
|
|
Caption = ' Selected Layer '
|
|
TabOrder = 7
|
|
object Label1: TLabel
|
|
Left = 7
|
|
Top = 22
|
|
Width = 66
|
|
Height = 13
|
|
Caption = 'Transparency'
|
|
end
|
|
object TrackBar1: TTrackBar
|
|
Left = 74
|
|
Top = 21
|
|
Width = 69
|
|
Height = 17
|
|
Max = 255
|
|
Frequency = 16
|
|
TabOrder = 0
|
|
OnChange = TrackBar1Change
|
|
end
|
|
object CheckBox1: TCheckBox
|
|
Left = 9
|
|
Top = 46
|
|
Width = 82
|
|
Height = 16
|
|
Alignment = taLeftJustify
|
|
Caption = 'Visible'
|
|
TabOrder = 1
|
|
OnClick = CheckBox1Click
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object StatusBar1: TStatusBar
|
|
Left = 0
|
|
Top = 615
|
|
Width = 801
|
|
Height = 19
|
|
Panels = <
|
|
item
|
|
Width = 300
|
|
end
|
|
item
|
|
Width = 200
|
|
end
|
|
item
|
|
Width = 150
|
|
end
|
|
item
|
|
Width = 150
|
|
end
|
|
item
|
|
Width = 50
|
|
end>
|
|
end
|
|
object OpenImageEnDialog1: TOpenImageEnDialog
|
|
Filter =
|
|
'All graphics|*.tif;*.tiff;*.fax;*.g3n;*.g3f;*.jpg;*.jpeg;*.jpe;*' +
|
|
'.pcx;*.bmp;*.dib;*.rle;*.ico;*.cur;*.png;*.wmf;*.emf;*.tga;*.tar' +
|
|
'ga;*.vda;*.icb;*.vst;*.pix;*.pxm;*.ppm;*.pgm;*.pbm;*.jp2;*.j2k;*' +
|
|
'.jpc;*.j2c;*.avi|TIFF Bitmap (TIF;TIFF;FAX;G3N;G3F)|*.tif;*.tiff' +
|
|
';*.fax;*.g3n;*.g3f|JPEG Bitmap (JPG;JPEG;JPE)|*.jpg;*.jpeg;*.jpe' +
|
|
'|PaintBrush (PCX)|*.pcx|Windows Bitmap (BMP;DIB;RLE)|*.bmp;*.dib' +
|
|
';*.rle|Windows Icon (ICO)|*.ico|Windows Cursor (CUR)|*.cur|Porta' +
|
|
'ble Network Graphics (PNG)|*.png|Windows Metafile (WMF)|*.wmf|En' +
|
|
'hanced Windows Metafile (EMF)|*.emf|Targa Bitmap (TGA;TARGA;VDA;' +
|
|
'ICB;VST;PIX)|*.tga;*.targa;*.vda;*.icb;*.vst;*.pix|Portable Pixm' +
|
|
'ap, GreyMap, BitMap (PXM;PPM;PGM;PBM)|*.pxm;*.ppm;*.pgm;*.pbm|JP' +
|
|
'EG2000 (JP2)|*.jp2|JPEG2000 Code Stream (J2K;JPC;J2C)|*.j2k;*.jp' +
|
|
'c;*.j2c|Video for Windows (AVI)|*.avi'
|
|
Left = 26
|
|
Top = 95
|
|
end
|
|
end
|