Class TForm1 (unit EnhMain)

Inherits from

TForm

Constructors



Functions

procedure AnEnhListViewDrawHeader(Control: TWinControl; var Canvas: TCanvas; Index: Integer; var Rect: TRect; Selected: Boolean; var DefaultDrawing: Boolean);

Draw the numbers in red if not selected

procedure AnEnhListViewDrawItem(Control: TWinControl; var Canvas: TCanvas; Index: Integer; Rect: TRect; State: TOwnerDrawState; var DefaultDrawing, FullRowSelect: Boolean);

I like it sorted on the first column at startup

procedure AnEnhListViewDrawSubItem(Control: TWinControl; var Canvas: TCanvas; Index, SubItem: Integer; Rect: TRect; State: TOwnerDrawState; var DefaultDrawing: Boolean);

I like full row selection Make the selected item bold italics just to show how easy it is

procedure FormCreate(Sender: TObject);


Properties

Events

Variables

AnEnhListView : TEnhListView;


ColumnImageList : TImageList;



Constructors


Functions


procedure AnEnhListViewDrawHeader(Control: TWinControl; var Canvas: TCanvas; Index: Integer; var Rect: TRect; Selected: Boolean; var DefaultDrawing: Boolean);

Draw the numbers in red if not selected


procedure AnEnhListViewDrawItem(Control: TWinControl; var Canvas: TCanvas; Index: Integer; Rect: TRect; State: TOwnerDrawState; var DefaultDrawing, FullRowSelect: Boolean);

I like it sorted on the first column at startup


procedure AnEnhListViewDrawSubItem(Control: TWinControl; var Canvas: TCanvas; Index, SubItem: Integer; Rect: TRect; State: TOwnerDrawState; var DefaultDrawing: Boolean);

I like full row selection Make the selected item bold italics just to show how easy it is


procedure FormCreate(Sender: TObject);


Properties


Events


Variables


AnEnhListView : TEnhListView;


ColumnImageList : TImageList;