home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 26
/
CD_ASCQ_26_1295.iso
/
vrac
/
ctrlkit.zip
/
LISTHDR.INT
< prev
next >
Wrap
Text File
|
1995-09-16
|
1KB
|
42 lines
unit ListHdr;
interface
uses
TabBox, SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
Forms, Dialogs, ExtCtrls;
type
TTabListHeader = class(THeader)
private
FListBox : TTabListBox;
FColor : TColor;
UpdateOK : Boolean;
procedure SetColor(AColor : TColor);
procedure SetListBox(AListBox : TTabListBox);
protected
procedure CopySectionWidths;
procedure Notification(AComponent: TComponent;
Operation: TOperation); override;
procedure Paint; override;
function GetSections: TStrings;
procedure SetSections(Strings: TStrings);
procedure Sized(ASection, AWidth: Integer); override;
procedure UpdateListBox;
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
published
property Color: TColor read FColor write SetColor default clBtnFace;
property ListBox: TTabListBox read FListBox write SetListBox;
property Sections: TStrings read GetSections write SetSections;
end;
implementation
end.