| Class TfrmExtListColumns (unit ExtColEd) |
TForm
***************************************************************************** * Description : A Property Editor for the TExtListColumns class * Author : Mike Lindre * Edited for use with TExtListView v3.00 with Delphi 2 by Brad Stowers
| Constructors |
| Functions |
procedure btnDeleteClick(Sender: TObject);
procedure btnNewClick(Sender: TObject);
procedure cmbAlignmentChange(Sender: TObject);
procedure edtImageIndexChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure lbColumnsClick(Sender: TObject);
procedure BeginUpdate;
procedure EndUpdate;
function GetExtColumns: TExtListColumns;
procedure RefreshList;
procedure SetExtColumns(Value: TExtListColumns);
procedure UpdateComboBox;| Properties |
property ExtColumns : TExtListColumns| Events |
| Variables |
btnCancel : TButton;
btnDelete : TButton;
btnNew : TButton;
btnOk : TButton;
cmbAlignment : TComboBox;
edtImageIndex : TEdit;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
lbColumns : TListBox;
FColumns : TExtListColumns;
Updating : Boolean;| Constructors |
| Functions |
procedure btnDeleteClick(Sender: TObject);
procedure btnNewClick(Sender: TObject);
procedure cmbAlignmentChange(Sender: TObject);
procedure edtImageIndexChange(Sender: TObject);
procedure FormCreate(Sender: TObject);The property Can only be Edited using a Dialog
procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure lbColumnsClick(Sender: TObject);
procedure BeginUpdate;do nothing
procedure EndUpdate;
function GetExtColumns: TExtListColumns;Str: TStrings;
procedure RefreshList;
procedure SetExtColumns(Value: TExtListColumns);
procedure UpdateComboBox;| Properties |
property ExtColumns : TExtListColumnsPublic declarations
| Events |
| Variables |
btnCancel : TButton;
btnDelete : TButton;
btnNew : TButton;
btnOk : TButton;
cmbAlignment : TComboBox;
edtImageIndex : TEdit;
GroupBox2 : TGroupBox;
GroupBox3 : TGroupBox;
Label1 : TLabel;
Label2 : TLabel;
lbColumns : TListBox;
FColumns : TExtListColumns;
Updating : Boolean;Private declarations