home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / apdtr.zip / ADSELNUM.INT < prev    next >
Text File  |  1995-05-26  |  2KB  |  54 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                  ADSELNUM.PAS 1.00                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit AdSelNum;
  13.   {-For selecting phone numbers from a list}
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, WinTypes, WinProcs, Messages,
  19.   Classes, Graphics, Controls,
  20.   Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Grids,
  21.   AdPBook;
  22.  
  23. type
  24.   TNumberSelectForm = class(TForm)
  25.     OkBtn: TBitBtn;
  26.     CancelBtn: TBitBtn;
  27.     HelpBtn: TBitBtn;
  28.     ListGrid: TDrawGrid;
  29.     ListHeader: THeader;
  30.     procedure ListGridDrawCell( Sender : TObject ; Col, Row : Longint;
  31.                                 Rect : TRect; State : TGridDrawState );
  32.     procedure ListHeaderSized(Sender: TObject; ASection, AWidth: Integer);
  33.     procedure FormCreate(Sender: TObject);
  34.     procedure OkBtnClick(Sender: TObject);
  35.     procedure ListGridDblClick(Sender: TObject);
  36.  
  37.   protected
  38.     LeftEdge  : Word;
  39.     Items     : TList;
  40.     Phonebook : TPhonebook;
  41.     FSelNum   : String;
  42.  
  43.     procedure ResizeGridColumns;
  44.       {-Change the widths of the grid columns to match the header sections}
  45.  
  46.   public
  47.     constructor Create(AOwner : TComponent; PB : TPhonebook);
  48.     destructor Destroy; virtual;
  49.  
  50.     property SelectedNumber : String
  51.       read FSelNum;
  52.   end;
  53.  
  54.