TKMemoImageForm

type TKMemoImageForm = class(TForm)

  BUOk: TButton;

  BUCancel: TButton;

  BUBrowse: TButton;

  ODMain: TOpenPictureDialog;

  PCMain: TPageControl;

  TSBasic: TTabSheet;

  TSAdvanced: TTabSheet;

  GBShading: TGroupBox;

  LBBorderWidth: TLabel;

  LBBorderColor: TLabel;

  LBShading: TLabel;

  EDBorderWidth: TKNumberEdit;

  CLBBorder: TKColorButton;

  CLBShading: TKColorButton;

  GBCrop: TGroupBox;

  LBCropLeft: TLabel;

  LBCropRight: TLabel;

  LBCropTop: TLabel;

  LBCropBottom: TLabel;

  EDCropLeft: TKNumberEdit;

  EDCropRight: TKNumberEdit;

  EDCropTop: TKNumberEdit;

  EDCropBottom: TKNumberEdit;

  GBPosition: TGroupBox;

  RBPositionText: TRadioButton;

  RBPositionRelative: TRadioButton;

  RBPositionAbsolute: TRadioButton;

  EDOffsetX: TKNumberEdit;

  EDOffsetY: TKNumberEdit;

  GBSize: TGroupBox;

  EDScaleX: TKNumberEdit;

  EDScaleY: TKNumberEdit;

  CBProportional: TCheckBox;

  GBWrap: TGroupBox;

  RBWrapAround: TRadioButton;

  RBWrapAroundLeft: TRadioButton;

  RBWrapAroundRight: TRadioButton;

  RBWrapTopBottom: TRadioButton;

  GBPreview: TGroupBox;

  MEPreview: TKMemo;

  EDExplicitWidth: TKNumberEdit;

  EDExplicitHeight: TKNumberEdit;

  BUResetOriginalSize: TButton;

  procedure BUBrowseClick();

  procedure FormCreate();

  procedure EDScaleXChange();

  procedure EDScaleYChange();

  procedure RBPositionTextClick();

  procedure EDScaleXExit();

  procedure CBProportionalClick();

  procedure BUResetOriginalSizeClick();

public

  procedure Clear;

  procedure Load();

  procedure Save();

end;

TKMemoImageForm

TObject