179 lines
3.7 KiB
Plaintext
179 lines
3.7 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 200
|
|
Top = 114
|
|
Caption = 'Palette Demo - www.ImageEn.com'
|
|
ClientHeight = 611
|
|
ClientWidth = 804
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Splitter1: TSplitter
|
|
Left = 537
|
|
Top = 0
|
|
Height = 518
|
|
Align = alRight
|
|
end
|
|
object ImageEnView1: TImageEnView
|
|
Left = 0
|
|
Top = 0
|
|
Width = 537
|
|
Height = 518
|
|
Background = clBtnFace
|
|
Ctl3D = False
|
|
AutoShrink = True
|
|
EnableInteractionHints = True
|
|
Align = alClient
|
|
TabOrder = 0
|
|
OnMouseDown = ImageEnView1MouseDown
|
|
OnMouseMove = ImageEnView1MouseMove
|
|
end
|
|
object IEColorPalette1: TIEColorPalette
|
|
Left = 540
|
|
Top = 0
|
|
Width = 264
|
|
Height = 518
|
|
Ctl3D = False
|
|
MaxColors = 65536
|
|
HintFormat = '%HTML% (R: %RGB_R%, G: %RGB_G%, B: %RGB_B%)'
|
|
OnSelectedColorChange = IEColorPalette1SelectedColorChange
|
|
Align = alRight
|
|
ParentCtl3D = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
TabStop = True
|
|
OnDblClick = btnSetColorClick
|
|
OnMouseMove = IEColorPalette1MouseMove
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 518
|
|
Width = 804
|
|
Height = 93
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
DesignSize = (
|
|
804
|
|
93)
|
|
object btnAnimatePalette: TSpeedButton
|
|
Left = 16
|
|
Top = 54
|
|
Width = 97
|
|
Height = 25
|
|
AllowAllUp = True
|
|
GroupIndex = 99
|
|
Caption = 'Animate Palette'
|
|
OnClick = btnAnimatePaletteClick
|
|
end
|
|
object Label1: TLabel
|
|
Left = 174
|
|
Top = 60
|
|
Width = 73
|
|
Height = 13
|
|
Caption = 'Selected Color:'
|
|
end
|
|
object Label2: TLabel
|
|
Left = 174
|
|
Top = 20
|
|
Width = 77
|
|
Height = 13
|
|
Caption = 'Color at Cursor:'
|
|
end
|
|
object Label6: TLabel
|
|
Left = 635
|
|
Top = 20
|
|
Width = 28
|
|
Height = 13
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Style:'
|
|
end
|
|
object Label7: TLabel
|
|
Left = 750
|
|
Top = 20
|
|
Width = 23
|
|
Height = 13
|
|
Anchors = [akRight, akBottom]
|
|
Caption = 'Size:'
|
|
end
|
|
object btnLoadImage: TButton
|
|
Left = 16
|
|
Top = 14
|
|
Width = 97
|
|
Height = 25
|
|
Caption = 'Load Image'
|
|
TabOrder = 0
|
|
OnClick = btnLoadImageClick
|
|
end
|
|
object pnlCursorColor: TPanel
|
|
Left = 259
|
|
Top = 9
|
|
Width = 109
|
|
Height = 34
|
|
TabOrder = 1
|
|
end
|
|
object pnlSelectedColor: TPanel
|
|
Left = 259
|
|
Top = 49
|
|
Width = 109
|
|
Height = 34
|
|
TabOrder = 2
|
|
end
|
|
object cmbStyle: TComboBox
|
|
Left = 666
|
|
Top = 16
|
|
Width = 71
|
|
Height = 21
|
|
Style = csDropDownList
|
|
Anchors = [akRight, akBottom]
|
|
TabOrder = 3
|
|
OnChange = cmbStyleChange
|
|
Items.Strings = (
|
|
'Default'
|
|
'Grid'
|
|
'Flat Grid')
|
|
end
|
|
object updCellSize: TUpDown
|
|
Left = 776
|
|
Top = 16
|
|
Width = 17
|
|
Height = 21
|
|
Anchors = [akRight, akBottom]
|
|
Position = 22
|
|
TabOrder = 4
|
|
Thousands = False
|
|
Wrap = True
|
|
OnChanging = updCellSizeChanging
|
|
end
|
|
object btnSetColor: TButton
|
|
Left = 666
|
|
Top = 54
|
|
Width = 127
|
|
Height = 25
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Set Selected Color...'
|
|
TabOrder = 5
|
|
OnClick = btnSetColorClick
|
|
end
|
|
end
|
|
object ColorDialog1: TColorDialog
|
|
Left = 218
|
|
Top = 34
|
|
end
|
|
object Timer1: TTimer
|
|
Enabled = False
|
|
Interval = 200
|
|
OnTimer = Timer1Timer
|
|
Left = 410
|
|
Top = 114
|
|
end
|
|
end
|