home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 24 / CD_ASCQ_24_0995.iso / vrac / apdtr.zip / ADPENTRY.INT < prev    next >
Text File  |  1995-05-26  |  1KB  |  44 lines
  1. {$G+,X+,F+}
  2.  
  3. {Conditional defines that may affect this unit}
  4. {$I AWDEFINE.INC}
  5.  
  6. {*********************************************************}
  7. {*                  ADPENTRY.PAS 1.00                    *}
  8. {*        Copyright (c) TurboPower Software 1995         *}
  9. {*                 All rights reserved.                  *}
  10. {*********************************************************}
  11.  
  12. unit AdPEntry;
  13.   {-Data entry for phonebook entries}
  14.  
  15. interface
  16.  
  17. uses
  18.   SysUtils, WinTypes, WinProcs, Messages,
  19.   Classes, Graphics, Controls,
  20.   Forms, Dialogs, StdCtrls, Buttons,
  21.   AdPBook;
  22.  
  23. type
  24.   TPhoneEntryForm = class(TForm)
  25.     GroupBox1: TGroupBox;
  26.     Label1: TLabel;
  27.     Label2: TLabel;
  28.     NameEdit: TEdit;
  29.     NumberEdit: TEdit;
  30.     OkBtn: TBitBtn;
  31.     CancelBtn: TBitBtn;
  32.     HelpBtn: TBitBtn;
  33.     procedure OkBtnClick(Sender: TObject);
  34.  
  35.   protected
  36.     EditData  : PPhonebookEntry;
  37.     Phonebook : TPhonebook;
  38.     OrigName  : String[NameLen];
  39.  
  40.   public
  41.     constructor Create(AOwner : TComponent; PB : TPhonebook; var Data : TPhonebookEntry);
  42.   end;
  43.  
  44.