TKMemoTextStyleForm

type TKMemoTextStyleForm = class(TForm)

  BUOk: TButton;

  BUCancel: TButton;

  GBFont: TGroupBox;

  LBFontName: TLabel;

  GBStyle: TGroupBox;

  EDFont: TEdit;

  LiBFont: TListBox;

  LiBFontSize: TListBox;

  EDFontSize: TKNumberEdit;

  LBFontSize: TLabel;

  CBBold: TCheckBox;

  CBItalic: TCheckBox;

  CBUnderline: TCheckBox;

  CBStrikeout: TCheckBox;

  CBCaps: TCheckBox;

  CBSmallCaps: TCheckBox;

  GBColors: TGroupBox;

  LBTextShading: TLabel;

  LBFontColor: TLabel;

  CLBTextShading: TKColorButton;

  CLBFontColor: TKColorButton;

  CBSubscript: TCheckBox;

  CBSuperscript: TCheckBox;

  procedure LiBFontDrawItem();

  procedure LiBFontClick();

  procedure EDFontChange();

  procedure FormCreate();

  procedure EDFontSizeChange();

  procedure LiBFontSizeClick();

  procedure CBCapsClick();

  procedure CBSmallCapsClick();

  procedure CBSubscriptClick();

  procedure CBSuperscriptClick();

public

  procedure Load();

  procedure Save();

end;

TKMemoTextStyleForm

TObject