home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2000 October / tst.iso / programs / borland / RUNIMAGE / DELPHI40 / DOC / EXTDLGS.INT < prev    next >
Encoding:
Text File  |  1998-06-17  |  1.0 KB  |  42 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {                                                       }
  6. {       Copyright (c) 1995,98 Inprise Corporation       }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit ExtDlgs;
  11.  
  12. {$R-}
  13.  
  14. interface
  15.  
  16. uses Messages, Windows, SysUtils, Classes, Controls, StdCtrls, Graphics,
  17.   ExtCtrls, Buttons, Dialogs;
  18.  
  19. type
  20.  
  21. { TOpenPictureDialog }
  22.  
  23.   TOpenPictureDialog = class(TOpenDialog)
  24.   protected
  25.     procedure DoClose; override;
  26.     procedure DoSelectionChange; override;
  27.     procedure DoShow; override;
  28.   public
  29.     constructor Create(AOwner: TComponent); override;
  30.     destructor Destroy; override;
  31.     function Execute: Boolean; override;
  32.   end;
  33.  
  34. { TSavePictureDialog }
  35.  
  36.   TSavePictureDialog = class(TOpenPictureDialog)
  37.   public
  38.     function Execute: Boolean; override;
  39.   end;
  40.  
  41. implementation
  42.