inherited ColourForm: TColourForm Caption = 'Colour Options' ClientHeight = 248 ClientWidth = 290 PixelsPerInch = 96 TextHeight = 13 object Preview: TPaintBox [0] Left = 6 Top = 6 Width = 277 Height = 113 OnMouseDown = PreviewMouseDown OnPaint = PreviewPaint end inherited ButtonOk: TButton Left = 49 Top = 218 TabOrder = 4 end inherited ButtonCancel: TButton Left = 129 Top = 218 TabOrder = 5 end inherited ButtonHelp: THelpButton Left = 209 Top = 218 TabOrder = 6 HelpKey = 'option_colour' end inherited PresetGroup: TGroupBox Top = 162 Caption = ' &Schemes ' TabOrder = 3 end object Item: TComboBox Left = 35 Top = 134 Width = 162 Height = 21 Style = csDropDownList DropDownCount = 12 ItemHeight = 13 TabOrder = 1 OnChange = ItemChange Items.Strings = ( 'Unselected Background' 'Selected Background' 'Unselected Left' 'Selected Left' 'Unselected Right' 'Selected Right' 'Marker' 'Play Position' 'Record Position' 'Grid' 'Grid Numbers' 'Direct Edit') end object ItemLabel: TStaticText Left = 4 Top = 136 Width = 27 Height = 17 Alignment = taRightJustify BiDiMode = bdLeftToRight Caption = 'Item:' ParentBiDiMode = False TabOrder = 0 end object Colour: TBitBtn Left = 206 Top = 132 Width = 75 Height = 25 Caption = 'Colour:' TabOrder = 2 OnClick = ColourClick Layout = blGlyphRight Spacing = 6 end object ColorDialog: TColorDialog Ctl3D = True CustomColors.Strings = ( 'ColorA=000000' 'ColorB=000080' 'ColorC=008000' 'ColorD=008080' 'ColorE=800000' 'ColorF=800080' 'ColorG=808000' 'ColorH=808080' 'ColorI=C0C0C0' 'ColorJ=0000FF' 'ColorK=00FF00' 'ColorL=00FFFF' 'ColorM=FF0000' 'ColorN=FF00FF' 'ColorO=FFFF00' 'ColorP=FFFFFF') Options = [cdPreventFullOpen, cdSolidColor] Left = 10 Top = 216 end end