jvcl driver development envionment

源代码在线查看: mainform.dfm

软件大小: 11078 K
上传用户: haowfei
关键词: development envionment driver jvcl
下载地址: 免注册下载 普通下载 VIP

相关代码

				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
							

相关资源