TKMemoContainerForm

type TKMemoContainerForm = class(TForm)

  BUOk: TButton;

  BUCancel: TButton;

  GBPreview: TGroupBox;

  GBPosition: TGroupBox;

  RBPositionRelative: TRadioButton;

  RBPositionAbsolute: TRadioButton;

  EDOffsetX: TKNumberEdit;

  EDOffsetY: TKNumberEdit;

  GBSize: TGroupBox;

  EDWidth: TKNumberEdit;

  EDHeight: TKNumberEdit;

  CBAutoWidth: TCheckBox;

  GBWrap: TGroupBox;

  RBWrapAround: TRadioButton;

  RBWrapAroundLeft: TRadioButton;

  RBWrapAroundRight: TRadioButton;

  RBWrapTopBottom: TRadioButton;

  GBShading: TGroupBox;

  LBBorderWidth: TLabel;

  LBBorderColor: TLabel;

  LBShading: TLabel;

  EDBorderWidth: TKNumberEdit;

  CLBBorder: TKColorButton;

  CLBShading: TKColorButton;

  MEPreview: TKMemo;

  CBAutoHeight: TCheckBox;

  procedure EDWidthExit();

  procedure FormCreate();

public

  procedure Clear;

  procedure Load();

  procedure Save();

end;

TKMemoContainerForm

TObject