| Class TForm1 (unit EnhMain) |
TForm
| Constructors |
| Functions |
procedure AnEnhListViewDrawHeader(Control: TWinControl;
var Canvas: TCanvas; Index: Integer; var Rect: TRect; Selected: Boolean;
var DefaultDrawing: Boolean);
procedure AnEnhListViewDrawItem(Control: TWinControl;
var Canvas: TCanvas; Index: Integer; Rect: TRect;
State: TOwnerDrawState; var DefaultDrawing, FullRowSelect: Boolean);
procedure AnEnhListViewDrawSubItem(Control: TWinControl;
var Canvas: TCanvas; Index, SubItem: Integer; Rect: TRect;
State: TOwnerDrawState; var DefaultDrawing: Boolean);
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;