TfrmOvcLabel

type TfrmOvcLabel = class(TForm)

  Panel1: TPanel;

  OvcLabel: TOvcLabel;

  Button1: TButton;

  Button2: TButton;

  Panel2: TPanel;

  Label1: TLabel;

  Label2: TLabel;

  Label3: TLabel;

  SchemeCb: TComboBox;

  SaveAsBtn: TButton;

  DeleteBtn: TButton;

  Panel3: TPanel;

  Label4: TLabel;

  Label5: TLabel;

  Label6: TLabel;

  Label7: TLabel;

  Label8: TLabel;

  GraduateRg: TRadioGroup;

  ShadowRg: TRadioGroup;

  HighlightRg: TRadioGroup;

  FromColorCcb: TOvcColorComboBox;

  HighlightColorCcb: TOvcColorComboBox;

  ShadowColorCcb: TOvcColorComboBox;

  HighlightDirectionLbl: TLabel;

  ShadowDirectionLbl: TLabel;

  FontColorCcb: TOvcColorComboBox;

  Panel4: TPanel;

  Label9: TLabel;

  Label10: TLabel;

  Label11: TLabel;

  FontSizeSb: TScrollBar;

  FontSizeLbl: TLabel;

  HighlightDepthLbl: TLabel;

  ShadowDepthLbl: TLabel;

  ShadowDepthSb: TScrollBar;

  HighlightDepthSb: TScrollBar;

  AppearanceCb: TComboBox;

  ColorSchemeCb: TComboBox;

  OvcController1: TOvcController;

  procedure FontSizeSbChange();

  procedure HighlightDepthSbChange();

  procedure ShadowDepthSbChange();

  procedure GraduateRgClick();

  procedure HighlightRgClick();

  procedure ShadowRgClick();

  procedure FromColorCcbChange();

  procedure HighlightColorCcbChange();

  procedure ShadowColorCcbChange();

  procedure FontColorCcbChange();

  procedure FormCreate();

  procedure SaveAsBtnClick();

  procedure DeleteBtnClick();

  procedure SchemeCbChange();

  procedure AppearanceCbChange();

  procedure ColorSchemeCbChange();

public

  HighlightDirectionDp: TOvcDirectionPicker;

  ShadowDirectionDp: TOvcDirectionPicker;

  SettingScheme: Boolean;

  SettingCb: Boolean;

  procedure DeleteScheme();

  procedure HighlightDirectionChange();

  procedure ShadowDirectionChange();

  procedure SchemeChange;

end;

TfrmOvcLabel

TObject