TJvFullColorListFrm

type TJvFullColorListFrm = class(TForm)

  ImageList: TImageList;

  JvFullColorDialog: TJvFullColorDialog;

  ListBoxColors: TListBox;

  ActionList: TActionList;

  ActionNew: TAction;

  ActionModify: TAction;

  ActionDelete: TAction;

  ButtonNew: TButton;

  ButtonModify: TButton;

  ButtonDelete: TButton;

  ButtonCancel: TButton;

  ButtonOK: TButton;

  BitBtnMoveUp: TBitBtn;

  ActionMoveUp: TAction;

  ActionMoveDown: TAction;

  BitBtnMoveDown: TBitBtn;

  ButtonApply: TButton;

  ButtonClear: TButton;

  ActionClear: TAction;

  ButtonInsert: TButton;

  ActionInsert: TAction;

  procedure ActionNewUpdate();

  procedure ActionModifyUpdate();

  procedure ActionDeleteUpdate();

  procedure ActionMoveUpUpdate();

  procedure ActionMoveDownUpdate();

  procedure ActionNewExecute();

  procedure ActionClearUpdate();

  procedure ActionModifyExecute();

  procedure ActionInsertUpdate();

  procedure ActionClearExecute();

  procedure ActionDeleteExecute();

  procedure ActionInsertExecute();

  procedure ActionMoveUpExecute();

  procedure ActionMoveDownExecute();

  procedure ButtonApplyClick();

  procedure FormCreate();

  procedure FormShow();

  procedure JvFullColorDialogApply();

  procedure ListBoxColorsDrawItem();

public

  constructor Create(); override;

  destructor Destroy; override;

  function Execute;

  property ColorList: TJvFullColorList; [rw]

  property OnApply: TNotifyEvent; [rw]

end;

TJvFullColorListFrm

TObject