home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / ctrlkits / listhdr.int < prev    next >
Encoding:
Text File  |  1995-12-22  |  1.1 KB  |  42 lines
  1. unit ListHdr;
  2.  
  3. interface
  4.  
  5. uses
  6.   TabBox, SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls;
  8.  
  9. type
  10.   TTabListHeader = class(THeader)
  11.   private
  12.     FListBox : TTabListBox;
  13.     FColor   : TColor;
  14.     UpdateOK : Boolean;
  15.  
  16.     procedure SetColor(AColor : TColor);
  17.     procedure SetListBox(AListBox : TTabListBox);
  18.  
  19.   protected
  20.     procedure CopySectionWidths;
  21.     procedure Notification(AComponent: TComponent;
  22.                            Operation: TOperation); override;
  23.     procedure Paint; override;
  24.     function  GetSections: TStrings;
  25.     procedure SetSections(Strings: TStrings);
  26.     procedure Sized(ASection, AWidth: Integer); override;
  27.     procedure UpdateListBox;
  28.  
  29.   public
  30.     constructor Create(AOwner : TComponent); override;
  31.     destructor  Destroy; override;
  32.  
  33.     procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
  34.  
  35.   published
  36.     property Color: TColor read FColor write SetColor default clBtnFace;
  37.     property ListBox: TTabListBox read FListBox write SetListBox;
  38.     property Sections: TStrings read GetSections write SetSections;
  39.   end;
  40.  
  41. implementation
  42. end.