inherited PresetForm: TPresetForm Caption = 'Preset' ClientHeight = 87 ClientWidth = 326 PixelsPerInch = 96 TextHeight = 13 inherited ButtonOk: TButton Left = 5 Top = 57 TabOrder = 3 end inherited ButtonCancel: TButton Left = 85 Top = 57 end inherited ButtonHelp: THelpButton Left = 245 Top = 57 end object PresetGroup: TGroupBox Left = 5 Top = 0 Width = 279 Height = 47 Anchors = [akRight, akBottom] Caption = ' &Presets ' TabOrder = 0 object PresetBox: TComboBox Left = 9 Top = 16 Width = 204 Height = 21 DropDownCount = 12 ItemHeight = 13 MaxLength = 100 Sorted = True TabOrder = 0 OnChange = PresetBoxChange end object AddPreset: TBitton Left = 220 Top = 16 Width = 21 Height = 21 Hint = 'Add current settings as new preset' Image.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 88888888888FFFF888888888887AAAF888888888887AAAF888888888887AAAF8 8888888FFF8AAAFFFFF8887AAAAAAAAAAAF8887AAAAAAAAAAAF8887AAAAAAAAA AAF88877777AAA8777888888887AAAF888888888887AAAF888888888887AAAF8 8888888888777788888888888888888888888888888888888888} FocusAllowed = True Caption = 'Add Preset' ParentShowHint = False ShowHint = True OnClick = AddPresetClick TabStop = True TabOrder = 1 end object RemovePreset: TBitton Left = 248 Top = 16 Width = 21 Height = 21 Hint = 'Remove current preset' Image.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888888888888888888888888888888888888888888888888888888 8888888FFFFFFFFFFFF888799999999999F888799999999999F8887999999999 99F8887777777777778888888888888888888888888888888888888888888888 8888888888888888888888888888888888888888888888888888} FocusAllowed = True Caption = 'Remove Preset' ParentShowHint = False ShowHint = True OnClick = RemovePresetClick TabStop = True TabOrder = 2 end end end