Class TfrmExtListColumns (unit ExtColEd)

Inherits from

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);

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 : TExtListColumns

Public 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


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 : TExtListColumns

Public 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