home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / source16 / tablists.int < prev    next >
Encoding:
Text File  |  1995-12-22  |  3.8 KB  |  157 lines
  1. unit TabLists;
  2.  
  3. interface
  4.  
  5. uses
  6.     WinTypes, SysUtils, Graphics, Controls, StdCtrls, ExtCtrls,
  7.     Classes, Forms, Menus, Buttons, DsgnIntf;
  8.  
  9. const
  10.     TabChar = #9;
  11.  
  12. type
  13.     TColumnRange = 0..255;
  14.     TColumnJust = (cjLeft, cjRight, cjCenter, cjCurrency);
  15.  
  16.     TColumnInfo = class(TPersistent)
  17.     public
  18.         procedure Assign(NewValue: TColumnInfo);
  19.  
  20.         class function ColJustToStr(Just: TColumnJust): string;
  21.         class function StrToColJust(Str: string): TColumnJust;
  22.  
  23.         class function EncodeColStr(Width: integer;
  24.                                              Just: TColumnJust;
  25.                                              Gap: integer): string;
  26.         class procedure DecodeColStr(ColStr: string;
  27.                                               var Width: integer;
  28.                                               var Just: TColumnJust;
  29.                                               var Gap: integer);
  30.  
  31.         property Width[Index: TColumnRange]: integer read GetWidth write SetWidth;
  32.         property Just[Index: TColumnRange]: TColumnJust read GetJust write SetJust;
  33.         property Gap[Index: TColumnRange]: integer read GetGap write SetGap;
  34.     published
  35.         property NumColumns: TColumnRange read FNumColumns write FNumColumns;
  36.         property CurrencyTrailer: string read FCurrencyTrailer write SetCurrencyTrailer;
  37.         property OnChange: TNotifyEvent read FOnChange write FOnChange;
  38.     end;
  39.  
  40.     ETabbedListMgr = Exception;
  41.  
  42.     TTabbedListBox = class(TCustomListBox)
  43.     public
  44.         constructor Create(AOwner: TComponent); override;
  45.         destructor Destroy; override;
  46.         procedure SyncHeader(Header: THeader);
  47.     published
  48.         { Properties }
  49.         property Align;
  50.         property BorderStyle;
  51.         property Color;
  52.         property Columns: TColumnInfo read FColumns write SetColumns;
  53.         property Ctl3D;
  54.         property Cursor;
  55.         property DragCursor;
  56.         property DragMode;
  57.         property Enabled;
  58.         property ExtendedSelect;
  59.         property Font;
  60.         property Header: THeader read FHeader write SetHeader;
  61.         property Height;
  62.         property HelpContext;
  63.         property Hint;
  64.         property IntegralHeight;
  65.         property ItemHeight;
  66.         property Items;
  67.         property Left;
  68.         property MultiSelect;
  69.         property Name;
  70.         property ParentColor;
  71.         property ParentCtl3D;
  72.         property ParentFont;
  73.         property ParentShowHint;
  74.         property PopupMenu;
  75.         property ShowHint;
  76.         property Sorted;
  77.         property TabOrder;
  78.         property TabStop;
  79.         property Tag;
  80.         property Top;
  81.         property Visible;
  82.         property Width;
  83.  
  84.         { Events }
  85.         property OnClick;
  86.         property OnDblClick;
  87.         property OnDragDrop;
  88.         property OnDragOver;
  89.         property OnEndDrag;
  90.         property OnEnter;
  91.         property OnExit;
  92.         property OnKeyDown;
  93.         property OnKeyPress;
  94.         property OnKeyUp;
  95.         property OnMouseDown;
  96.         property OnMouseMove;
  97.         property OnMouseUp;
  98.     end;
  99.  
  100.     TTabbedDropDownListBox = class(TCustomComboBox)
  101.     public
  102.         constructor Create(AOwner: TComponent); override;
  103.         destructor Destroy; override;
  104.         procedure SyncHeader(Header: THeader);
  105.     published
  106.         { Properties }
  107.         property Color;
  108.         property Columns: TColumnInfo read FColumns write SetColumns;
  109.         property Ctl3D;
  110.         property Cursor;
  111.         property DragCursor;
  112.         property DragMode;
  113.         property DropDownCount;
  114.         property Enabled;
  115.         property Font;
  116.         property Header: THeader read FHeader write SetHeader;
  117.         property Height;
  118.         property HelpContext;
  119.         property Hint;
  120.         property ItemHeight;
  121.         property Items;
  122.         property Left;
  123.         property MaxLength;
  124.         property Name;
  125.         property ParentColor;
  126.         property ParentCtl3D;
  127.         property ParentFont;
  128.         property ParentShowHint;
  129.         property PopupMenu;
  130.         property ShowHint;
  131.         property Sorted;
  132.         property TabOrder;
  133.         property TabStop;
  134.         property Tag;
  135.         property Text;
  136.         property Top;
  137.         property Visible;
  138.         property Width;
  139.  
  140.         { Events }
  141.         property OnChange;
  142.         property OnClick;
  143.         property OnDblClick;
  144.         property OnDragDrop;
  145.         property OnDragOver;
  146.         property OnDropDown;
  147.         property OnEndDrag;
  148.         property OnEnter;
  149.         property OnExit;
  150.         property OnKeyDown;
  151.         property OnKeyPress;
  152.         property OnKeyUp;
  153.     end;
  154.  
  155.  
  156. implementation
  157.