TColumnDlg

type TColumnDlg = class(TForm)

  ColumnsListBox: TLISTBOX;

  CaptionLabel: TLABEL;

  CaptionEdit: TEDIT;

  WidthLabel: TLABEL;

  WidthEdit: TEDIT;

  AddButton: TBUTTON;

  DeleteButton: TBUTTON;

  AlignmentRadioGroup: TRADIOGROUP;

  MoveUpButton: TBUTTON;

  MoveDownButton: TBUTTON;

  btnOK: TBitBtn;

  btnCancel: TBitBtn;

  cbVisible: TCheckbox;

  cbAutoSize: TCheckBox;

protected

  procedure AddButtonOnClick();

  procedure DeleteButtonOnClick();

  procedure MoveUpButtonOnClick();

  procedure MoveDownButtonOnClick();

  procedure AlignmentRadioGroupOnClick();

  procedure ColumnsListBoxOnClick();

  procedure CaptionEditOnChange();

  procedure WidthEditOnChange();

  procedure cbVisibleOnClick();

  procedure cbAutoSizeOnClick();

  procedure FormOnShow();

  procedure EnableComponents;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure WriteDebugReport;

  property Columns: TListColumns; [rw]

end;

TColumnDlg

TObject