home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Doc / EXTDLGS.INT < prev    next >
Text File  |  1999-08-11  |  1KB  |  44 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Visual Component Library         }
  5. {                                                       }
  6. {       Copyright (c) 1995,99 Inprise Corporation       }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit ExtDlgs;
  11.  
  12. {$R-,H+,X+}
  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.   published
  29.     property Filter stored IsFilterStored;
  30.   public
  31.     constructor Create(AOwner: TComponent); override;
  32.     destructor Destroy; override;
  33.     function Execute: Boolean; override;
  34.   end;
  35.  
  36. { TSavePictureDialog }
  37.  
  38.   TSavePictureDialog = class(TOpenPictureDialog)
  39.   public
  40.     function Execute: Boolean; override;
  41.   end;
  42.  
  43. implementation
  44.