jvcl driver development envionment
源代码在线查看: mainform.dfm
object frmMain: TfrmMain
Left = 192
Top = 107
Width = 476
Height = 454
Caption = 'JvColorCombo Demo'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label3: TLabel
Left = 304
Top = 8
Width = 37
Height = 13
Caption = 'Display:'
end
object Label2: TLabel
Left = 172
Top = 8
Width = 94
Height = 13
Caption = 'Custom Color Prefix:'
end
object Label1: TLabel
Left = 16
Top = 8
Width = 32
Height = 13
Caption = 'Colors:'
end
object memInfo: TMemo
Left = 16
Top = 96
Width = 433
Height = 321
Anchors = [akLeft, akTop, akRight, akBottom]
ScrollBars = ssVertical
TabOrder = 0
end
object JvColorComboBox1: TJvColorComboBox
Left = 16
Top = 24
Width = 145
Height = 22
ColorNameMap.Strings = (
'clBlack=Black'
'clMaroon=Maroon'
'clGreen=Green'
'clOlive=Olive'
'clNavy=Navy'
'clPurple=Purple'
'clTeal=Teal'
'clGray=Gray'
'clSilver=Silver'
'clRed=Red'
'clLime=Lime'
'clYellow=Yellow'
'clBlue=Blue'
'clFuchsia=Fuchsia'
'clAqua=Aqua'
'clLtGray=Light Gray'
'clDkGray=Dark Gray'
'clWhite=White'
'clMoneyGreen=Money Green'
'clSkyBlue=Sky Blue'
'clCream=Cream'
'clMedGray=Medium Gray'
'clScrollBar=ScrollBar'
'clBackground=Background'
'clActiveCaption=Active Caption'
'clInactiveCaption=Inactive Caption'
'clMenu=Menu'
'clWindow=Window'
'clWindowFrame=Window Frame'
'clMenuText=Menu Text'
'clWindowText=Window Text'
'clCaptionText=Caption Text'
'clActiveBorder=Active Border'
'clInactiveBorder=Inactive Border'
'clAppWorkSpace=Application Workspace'
'clHighlight=Highlight'
'clHighlightText=Highlight Text'
'clBtnFace=Button Face'
'clBtnShadow=Button Shadow'
'clGrayText=Gray Text'
'clBtnText=Button Text'
'clInactiveCaptionText=Inactive Caption Text'
'clBtnHighlight=Button Highlight'
'cl3DDkShadow=3D Dark Shadow'
'cl3DLight=3D Light'
'clInfoText=Info Text'
'clInfoBk=Info Background'
'clHotLight=Hot Light'
'clGradientActiveCaption=Gradient Active Caption'
'clGradientInactiveCaption=Gradient Inactive Caption'
'clMenuHighlight=Menu Highlight'
'clMenuBar=MenuBar'
'clNone=None'
'clDefault=Default')
ColorDialogText = '(Other...)'
DroppedDownWidth = 145
NewColorText = 'Custom Color %d'
Options = [coText, coSysColors, coCustomColors]
OnNewColor = JvColorComboBox1NewColor
TabOrder = 1
OnChange = JvColorComboBox1Change
end
object edNameTemplate: TEdit
Left = 172
Top = 24
Width = 121
Height = 21
TabOrder = 2
Text = 'Custom Color %d'
end
object chkAllowCustom: TCheckBox
Left = 176
Top = 64
Width = 113
Height = 17
Caption = 'Display Color Dialog'
Checked = True
State = cbChecked
TabOrder = 3
OnClick = chkAllowCustomClick
end
object cbDisplayStyle: TComboBox
Left = 304
Top = 23
Width = 145
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 4
OnChange = cbDisplayStyleChange
Items.Strings = (
'(none)'
'Text'
'Hex'
'RGB')
end
object btnCustColors: TButton
Left = 360
Top = 64
Width = 89
Height = 25
Caption = 'Custom Colors'
TabOrder = 5
OnClick = btnCustColorsClick
end
object btnColorNames: TButton
Left = 16
Top = 64
Width = 90
Height = 25
Caption = 'Get Color Map:'
TabOrder = 6
OnClick = btnColorNamesClick
end
end