Class TExHeaderControl (unit ExHeaderControl) |
Inherits from
TWinControl
constructor Create(AOwner: TComponent);
- TExHeaderControl
destructor Destroy;
procedure LoadSettings(RegKey: String);
SendMessage(Handle, HDM_SETIMAGELIST, 0, Longint(0));
procedure ReadArray(RegKey, ColType: String; ColCount: integer;
var IntArray: array of integer);
procedure SaveSettings(RegKey: String);
procedure StoreArray(regKey, colType: String; ColCount: integer;
const IntArray: array of integer);
procedure CreateParams(var Params: TCreateParams);
procedure CreateWnd;
procedure DividerDblClick(Section: TExHeaderSection);
procedure DrawSection(Section: TExHeaderSection; const Rect: TRect;
Pressed: Boolean);
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure Resize;
procedure SectionClick(Section: TExHeaderSection);
procedure SectionDblClick(Section: TExHeaderSection);
procedure SectionDragBegin(Section: TExHeaderSection; var AllowOperation: Boolean);
procedure SectionDragEnd(Section: TExHeaderSection);
procedure SectionDragEndQuery(Section: TExHeaderSection; NewOrderPos: Integer; var AllowOperation: Boolean);
procedure SectionResize(Section: TExHeaderSection);
procedure SectionTrack(Section: TExHeaderSection; Width: Integer;
State: TSectionTrackState);
procedure CNDrawItem(var Message: TWMDrawItem);
procedure CNNotify(var Message: TWMNotify);
procedure ImageListChange (Sender: TObject);
procedure SetExHeaderStyles(Value: TExHeaderStyles);
procedure SetImages (Value: TImageList);
SendMessage(Handle, HDM_SETIMAGELIST, 0, Longint(TImageList(Sender).
procedure SetSections(Value: TExHeaderSections);
procedure UpdateItem(Message, Index: Integer);
procedure UpdateSection(Index: Integer);
procedure UpdateSections;
procedure WMLButtonDown(var Message: TWMLButtonDown);
with PHDDispInfoEx(Message.
procedure WMSize(var Message: TWMSize);
procedure WMWindowPosChanged(var Message: TWMWindowPosChanged);
property Align :
property DragCursor :
property DragMode :
property Enabled :
property ExtendedStyles : TExHeaderStyles
property Font :
property Images : TImageList
property ParentFont :
property ParentShowHint :
property PopupMenu :
property Sections : TExHeaderSections
property ShowHint :
property Visible :
property Canvas : TCanvas
event OnDividerDblClick : TSectionNotifyEvent
event OnDragDrop :
event OnDragOver :
event OnDrawSection : TDrawSectionEvent
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize : TNotifyEvent
event OnSectionCallBack : TSectionCallBackEvent
event OnSectionClick : TSectionNotifyEvent
event OnSectionDblClick : TSectionNotifyEvent
event OnSectionDragBegin : TSectionDragBeginEvent
event OnSectionDragEnd : TSectionNotifyEvent
event OnSectionDragEndQuery : TSectionDragEndQueryEvent
event OnSectionResize : TSectionNotifyEvent
event OnSectionTrack : TSectionTrackEvent
event OnStartDrag :
FCanvas : TCanvas;
FExHeaderStyles : TExHeaderStyles;
FImageChangeLink : TChangeLink;
FImages : TImageList;
FOnDividerDblClick : TSectionNotifyEvent;
FOnDrawSection : TDrawSectionEvent;
FOnResize : TNotifyEvent;
FOnSectionCallBack : TSectionCallBackEvent;
FOnSectionClick : TSectionNotifyEvent;
FOnSectionDblClick : TSectionNotifyEvent;
FOnSectionDragBegin : TSectionDragBeginEvent;
FOnSectionDragEnd : TSectionNotifyEvent;
FOnSectionDragEndQuery : TSectionDragEndQueryEvent;
FOnSectionResize : TSectionNotifyEvent;
FOnSectionTrack : TSectionTrackEvent;
FSections : TExHeaderSections;
constructor Create(AOwner: TComponent);
TExHeaderControl
destructor Destroy;
procedure LoadSettings(RegKey: String);
SendMessage(Handle, HDM_SETIMAGELIST, 0, Longint(0));
procedure ReadArray(RegKey, ColType: String; ColCount: integer;
var IntArray: array of integer);
procedure SaveSettings(RegKey: String);
procedure StoreArray(regKey, colType: String; ColCount: integer;
const IntArray: array of integer);
procedure CreateParams(var Params: TCreateParams);
procedure CreateWnd;
procedure DividerDblClick(Section: TExHeaderSection);
procedure DrawSection(Section: TExHeaderSection; const Rect: TRect;
Pressed: Boolean);
procedure Notification(AComponent: TComponent;
Operation: TOperation);
procedure Resize;
procedure SectionClick(Section: TExHeaderSection);
procedure SectionDblClick(Section: TExHeaderSection);
procedure SectionDragBegin(Section: TExHeaderSection; var AllowOperation: Boolean);
procedure SectionDragEnd(Section: TExHeaderSection);
procedure SectionDragEndQuery(Section: TExHeaderSection; NewOrderPos: Integer; var AllowOperation: Boolean);
procedure SectionResize(Section: TExHeaderSection);
procedure SectionTrack(Section: TExHeaderSection; Width: Integer;
State: TSectionTrackState);
procedure CNDrawItem(var Message: TWMDrawItem);
procedure CNNotify(var Message: TWMNotify);
procedure ImageListChange (Sender: TObject);
procedure SetExHeaderStyles(Value: TExHeaderStyles);
procedure SetImages (Value: TImageList);
SendMessage(Handle, HDM_SETIMAGELIST, 0, Longint(TImageList(Sender).Handle));
procedure SetSections(Value: TExHeaderSections);
procedure UpdateItem(Message, Index: Integer);
procedure UpdateSection(Index: Integer);
procedure UpdateSections;
procedure WMLButtonDown(var Message: TWMLButtonDown);
with PHDDispInfoEx(Message.NMHdr)^ do
begin
case Hdr.code of
HDN_GETDISPINFO:
begin
if Assigned(FOnSectionCallBack) then
begin
// myImageIndex := iImage;
// myText := pszText;
// FOnSectionCallBack(Self,Sections[Item], myImageIndex, myText);
iImage := myImageIndex;
pszText := PChar('Penguin!');
cchTextMax := Length(myText);
end;
end;
end;
end;
procedure WMSize(var Message: TWMSize);
procedure WMWindowPosChanged(var Message: TWMWindowPosChanged);
property Align :
property DragCursor :
property DragMode :
property Enabled :
property ExtendedStyles : TExHeaderStyles
property Font :
property Images : TImageList
property ParentFont :
property ParentShowHint :
property PopupMenu :
property Sections : TExHeaderSections
property ShowHint :
property Visible :
property Canvas : TCanvas
event OnDividerDblClick : TSectionNotifyEvent
event OnDragDrop :
event OnDragOver :
event OnDrawSection : TDrawSectionEvent
event OnEndDrag :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnResize : TNotifyEvent
event OnSectionCallBack : TSectionCallBackEvent
event OnSectionClick : TSectionNotifyEvent
event OnSectionDblClick : TSectionNotifyEvent
event OnSectionDragBegin : TSectionDragBeginEvent
event OnSectionDragEnd : TSectionNotifyEvent
event OnSectionDragEndQuery : TSectionDragEndQueryEvent
event OnSectionResize : TSectionNotifyEvent
event OnSectionTrack : TSectionTrackEvent
event OnStartDrag :
FCanvas : TCanvas;
FExHeaderStyles : TExHeaderStyles;
FImageChangeLink : TChangeLink;
FImages : TImageList;
FOnDividerDblClick : TSectionNotifyEvent;
FOnDrawSection : TDrawSectionEvent;
FOnResize : TNotifyEvent;
FOnSectionCallBack : TSectionCallBackEvent;
FOnSectionClick : TSectionNotifyEvent;
FOnSectionDblClick : TSectionNotifyEvent;
FOnSectionDragBegin : TSectionDragBeginEvent;
FOnSectionDragEnd : TSectionNotifyEvent;
FOnSectionDragEndQuery : TSectionDragEndQueryEvent;
FOnSectionResize : TSectionNotifyEvent;
FOnSectionTrack : TSectionTrackEvent;
FSections : TExHeaderSections;