home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / dialogs.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  17KB  |  455 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'Dialogs.pas' rev: 5.00
  6.  
  7. #ifndef DialogsHPP
  8. #define DialogsHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <ShlObj.hpp>    // Pascal unit
  14. #include <StdCtrls.hpp>    // Pascal unit
  15. #include <Forms.hpp>    // Pascal unit
  16. #include <Controls.hpp>    // Pascal unit
  17. #include <Graphics.hpp>    // Pascal unit
  18. #include <Classes.hpp>    // Pascal unit
  19. #include <CommDlg.hpp>    // Pascal unit
  20. #include <SysUtils.hpp>    // Pascal unit
  21. #include <Messages.hpp>    // Pascal unit
  22. #include <Windows.hpp>    // Pascal unit
  23. #include <SysInit.hpp>    // Pascal unit
  24. #include <System.hpp>    // Pascal unit
  25.  
  26. //-- user supplied -----------------------------------------------------------
  27.  
  28. namespace Dialogs
  29. {
  30. //-- type declarations -------------------------------------------------------
  31. class DELPHICLASS TCommonDialog;
  32. class PASCALIMPLEMENTATION TCommonDialog : public Classes::TComponent 
  33. {
  34.     typedef Classes::TComponent inherited;
  35.     
  36. private:
  37.     bool FCtl3D;
  38.     void *FDefWndProc;
  39.     Classes::THelpContext FHelpContext;
  40.     HWND FHandle;
  41.     void *FObjectInstance;
  42.     char *FTemplate;
  43.     Classes::TNotifyEvent FOnClose;
  44.     Classes::TNotifyEvent FOnShow;
  45.     MESSAGE void __fastcall WMDestroy(Messages::TWMNoParams &Message);
  46.     MESSAGE void __fastcall WMInitDialog(Messages::TWMInitDialog &Message);
  47.     MESSAGE void __fastcall WMNCDestroy(Messages::TWMNoParams &Message);
  48.     void __fastcall MainWndProc(Messages::TMessage &Message);
  49.     
  50. protected:
  51.     DYNAMIC void __fastcall DoClose(void);
  52.     DYNAMIC void __fastcall DoShow(void);
  53.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  54.     virtual bool __fastcall MessageHook(Messages::TMessage &Msg);
  55.     virtual BOOL __fastcall TaskModalDialog(void * DialogFunc, void *DialogData);
  56.     virtual bool __fastcall Execute(void) = 0 ;
  57.     __property char * Template = {read=FTemplate, write=FTemplate};
  58.     
  59. public:
  60.     __fastcall virtual TCommonDialog(Classes::TComponent* AOwner);
  61.     __fastcall virtual ~TCommonDialog(void);
  62.     virtual void __fastcall DefaultHandler(void *Message);
  63.     __property HWND Handle = {read=FHandle, nodefault};
  64.     
  65. __published:
  66.     __property bool Ctl3D = {read=FCtl3D, write=FCtl3D, default=1};
  67.     __property Classes::THelpContext HelpContext = {read=FHelpContext, write=FHelpContext, default=0};
  68.     __property Classes::TNotifyEvent OnClose = {read=FOnClose, write=FOnClose};
  69.     __property Classes::TNotifyEvent OnShow = {read=FOnShow, write=FOnShow};
  70. };
  71.  
  72.  
  73. #pragma option push -b-
  74. enum TOpenOption { ofReadOnly, ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofShowHelp, ofNoValidate, 
  75.     ofAllowMultiSelect, ofExtensionDifferent, ofPathMustExist, ofFileMustExist, ofCreatePrompt, ofShareAware, 
  76.     ofNoReadOnlyReturn, ofNoTestFileCreate, ofNoNetworkButton, ofNoLongNames, ofOldStyleDialog, ofNoDereferenceLinks, 
  77.     ofEnableIncludeNotify, ofEnableSizing };
  78. #pragma option pop
  79.  
  80. typedef Set<TOpenOption, ofReadOnly, ofEnableSizing>  TOpenOptions;
  81.  
  82. #pragma option push -b-
  83. enum TFileEditStyle { fsEdit, fsComboBox };
  84. #pragma option pop
  85.  
  86. typedef void __fastcall (__closure *TIncludeItemEvent)(const Commdlg::TOFNotifyEx &OFN, bool &Include
  87.     );
  88.  
  89. class DELPHICLASS TOpenDialog;
  90. class PASCALIMPLEMENTATION TOpenDialog : public TCommonDialog 
  91. {
  92.     typedef TCommonDialog inherited;
  93.     
  94. private:
  95.     Classes::TStrings* FHistoryList;
  96.     TOpenOptions FOptions;
  97.     AnsiString FFilter;
  98.     int FFilterIndex;
  99.     int FCurrentFilterIndex;
  100.     AnsiString FInitialDir;
  101.     AnsiString FTitle;
  102.     AnsiString FDefaultExt;
  103.     AnsiString FFileName;
  104.     Classes::TStrings* FFiles;
  105.     TFileEditStyle FFileEditStyle;
  106.     Classes::TNotifyEvent FOnSelectionChange;
  107.     Classes::TNotifyEvent FOnFolderChange;
  108.     Classes::TNotifyEvent FOnTypeChange;
  109.     Forms::TCloseQueryEvent FOnCanClose;
  110.     TIncludeItemEvent FOnIncludeItem;
  111.     AnsiString __fastcall GetFileName();
  112.     int __fastcall GetFilterIndex(void);
  113.     void __fastcall ReadFileEditStyle(Classes::TReader* Reader);
  114.     void __fastcall SetHistoryList(Classes::TStrings* Value);
  115.     void __fastcall SetInitialDir(const AnsiString Value);
  116.     
  117. protected:
  118.     bool __fastcall CanClose(tagOFNA &OpenFileName);
  119.     DYNAMIC bool __fastcall DoCanClose(void);
  120.     BOOL __fastcall DoExecute(void * Func);
  121.     DYNAMIC void __fastcall DoSelectionChange(void);
  122.     DYNAMIC void __fastcall DoFolderChange(void);
  123.     DYNAMIC void __fastcall DoTypeChange(void);
  124.     DYNAMIC void __fastcall DoIncludeItem(const Commdlg::TOFNotifyEx &OFN, bool &Include);
  125.     virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
  126.     void __fastcall GetFileNames(tagOFNA &OpenFileName);
  127.     virtual Windows::TRect __fastcall GetStaticRect();
  128.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  129.     
  130. public:
  131.     __fastcall virtual TOpenDialog(Classes::TComponent* AOwner);
  132.     __fastcall virtual ~TOpenDialog(void);
  133.     virtual bool __fastcall Execute(void);
  134.     __property TFileEditStyle FileEditStyle = {read=FFileEditStyle, write=FFileEditStyle, nodefault};
  135.     __property Classes::TStrings* Files = {read=FFiles};
  136.     __property Classes::TStrings* HistoryList = {read=FHistoryList, write=SetHistoryList};
  137.     
  138. __published:
  139.     __property AnsiString DefaultExt = {read=FDefaultExt, write=FDefaultExt};
  140.     __property AnsiString FileName = {read=GetFileName, write=FFileName};
  141.     __property AnsiString Filter = {read=FFilter, write=FFilter};
  142.     __property int FilterIndex = {read=GetFilterIndex, write=FFilterIndex, default=1};
  143.     __property AnsiString InitialDir = {read=FInitialDir, write=SetInitialDir};
  144.     __property TOpenOptions Options = {read=FOptions, write=FOptions, default=524292};
  145.     __property AnsiString Title = {read=FTitle, write=FTitle};
  146.     __property Forms::TCloseQueryEvent OnCanClose = {read=FOnCanClose, write=FOnCanClose};
  147.     __property Classes::TNotifyEvent OnFolderChange = {read=FOnFolderChange, write=FOnFolderChange};
  148.     __property Classes::TNotifyEvent OnSelectionChange = {read=FOnSelectionChange, write=FOnSelectionChange
  149.         };
  150.     __property Classes::TNotifyEvent OnTypeChange = {read=FOnTypeChange, write=FOnTypeChange};
  151.     __property TIncludeItemEvent OnIncludeItem = {read=FOnIncludeItem, write=FOnIncludeItem};
  152. };
  153.  
  154.  
  155. class DELPHICLASS TSaveDialog;
  156. class PASCALIMPLEMENTATION TSaveDialog : public TOpenDialog 
  157. {
  158.     typedef TOpenDialog inherited;
  159.     
  160. __published:
  161.     virtual bool __fastcall Execute(void);
  162. public:
  163.     #pragma option push -w-inl
  164.     /* TOpenDialog.Create */ inline __fastcall virtual TSaveDialog(Classes::TComponent* AOwner) : TOpenDialog(
  165.         AOwner) { }
  166.     #pragma option pop
  167.     #pragma option push -w-inl
  168.     /* TOpenDialog.Destroy */ inline __fastcall virtual ~TSaveDialog(void) { }
  169.     #pragma option pop
  170.     
  171. };
  172.  
  173.  
  174. #pragma option push -b-
  175. enum TColorDialogOption { cdFullOpen, cdPreventFullOpen, cdShowHelp, cdSolidColor, cdAnyColor };
  176. #pragma option pop
  177.  
  178. typedef Set<TColorDialogOption, cdFullOpen, cdAnyColor>  TColorDialogOptions;
  179.  
  180. typedef int TCustomColors[16];
  181.  
  182. class DELPHICLASS TColorDialog;
  183. class PASCALIMPLEMENTATION TColorDialog : public TCommonDialog 
  184. {
  185.     typedef TCommonDialog inherited;
  186.     
  187. private:
  188.     Graphics::TColor FColor;
  189.     TColorDialogOptions FOptions;
  190.     Classes::TStrings* FCustomColors;
  191.     void __fastcall SetCustomColors(Classes::TStrings* Value);
  192.     
  193. public:
  194.     __fastcall virtual TColorDialog(Classes::TComponent* AOwner);
  195.     __fastcall virtual ~TColorDialog(void);
  196.     virtual bool __fastcall Execute(void);
  197.     
  198. __published:
  199.     __property Graphics::TColor Color = {read=FColor, write=FColor, default=0};
  200.     __property Ctl3D ;
  201.     __property Classes::TStrings* CustomColors = {read=FCustomColors, write=SetCustomColors};
  202.     __property TColorDialogOptions Options = {read=FOptions, write=FOptions, default=0};
  203. };
  204.  
  205.  
  206. #pragma option push -b-
  207. enum TFontDialogOption { fdAnsiOnly, fdTrueTypeOnly, fdEffects, fdFixedPitchOnly, fdForceFontExist, 
  208.     fdNoFaceSel, fdNoOEMFonts, fdNoSimulations, fdNoSizeSel, fdNoStyleSel, fdNoVectorFonts, fdShowHelp, 
  209.     fdWysiwyg, fdLimitSize, fdScalableOnly, fdApplyButton };
  210. #pragma option pop
  211.  
  212. typedef Set<TFontDialogOption, fdAnsiOnly, fdApplyButton>  TFontDialogOptions;
  213.  
  214. #pragma option push -b-
  215. enum TFontDialogDevice { fdScreen, fdPrinter, fdBoth };
  216. #pragma option pop
  217.  
  218. typedef void __fastcall (__closure *TFDApplyEvent)(System::TObject* Sender, HWND Wnd);
  219.  
  220. class DELPHICLASS TFontDialog;
  221. class PASCALIMPLEMENTATION TFontDialog : public TCommonDialog 
  222. {
  223.     typedef TCommonDialog inherited;
  224.     
  225. private:
  226.     Graphics::TFont* FFont;
  227.     TFontDialogDevice FDevice;
  228.     TFontDialogOptions FOptions;
  229.     TFDApplyEvent FOnApply;
  230.     int FMinFontSize;
  231.     int FMaxFontSize;
  232.     bool FFontCharsetModified;
  233.     bool FFontColorModified;
  234.     void __fastcall DoApply(HWND Wnd);
  235.     void __fastcall SetFont(Graphics::TFont* Value);
  236.     void __fastcall UpdateFromLogFont(const tagLOGFONTA &LogFont);
  237.     
  238. protected:
  239.     DYNAMIC void __fastcall Apply(HWND Wnd);
  240.     virtual void __fastcall WndProc(Messages::TMessage &Message);
  241.     
  242. public:
  243.     __fastcall virtual TFontDialog(Classes::TComponent* AOwner);
  244.     __fastcall virtual ~TFontDialog(void);
  245.     virtual bool __fastcall Execute(void);
  246.     
  247. __published:
  248.     __property Graphics::TFont* Font = {read=FFont, write=SetFont};
  249.     __property TFontDialogDevice Device = {read=FDevice, write=FDevice, default=0};
  250.     __property int MinFontSize = {read=FMinFontSize, write=FMinFontSize, nodefault};
  251.     __property int MaxFontSize = {read=FMaxFontSize, write=FMaxFontSize, nodefault};
  252.     __property TFontDialogOptions Options = {read=FOptions, write=FOptions, default=4};
  253.     __property TFDApplyEvent OnApply = {read=FOnApply, write=FOnApply};
  254. };
  255.  
  256.  
  257. class DELPHICLASS TPrinterSetupDialog;
  258. class PASCALIMPLEMENTATION TPrinterSetupDialog : public TCommonDialog 
  259. {
  260.     typedef TCommonDialog inherited;
  261.     
  262. public:
  263.     virtual bool __fastcall Execute(void);
  264. public:
  265.     #pragma option push -w-inl
  266.     /* TCommonDialog.Create */ inline __fastcall virtual TPrinterSetupDialog(Classes::TComponent* AOwner
  267.         ) : TCommonDialog(AOwner) { }
  268.     #pragma option pop
  269.     #pragma option push -w-inl
  270.     /* TCommonDialog.Destroy */ inline __fastcall virtual ~TPrinterSetupDialog(void) { }
  271.     #pragma option pop
  272.     
  273. };
  274.  
  275.  
  276. #pragma option push -b-
  277. enum TPrintRange { prAllPages, prSelection, prPageNums };
  278. #pragma option pop
  279.  
  280. #pragma option push -b-
  281. enum TPrintDialogOption { poPrintToFile, poPageNums, poSelection, poWarning, poHelp, poDisablePrintToFile 
  282.     };
  283. #pragma option pop
  284.  
  285. typedef Set<TPrintDialogOption, poPrintToFile, poDisablePrintToFile>  TPrintDialogOptions;
  286.  
  287. class DELPHICLASS TPrintDialog;
  288. class PASCALIMPLEMENTATION TPrintDialog : public TCommonDialog 
  289. {
  290.     typedef TCommonDialog inherited;
  291.     
  292. private:
  293.     int FFromPage;
  294.     int FToPage;
  295.     bool FCollate;
  296.     TPrintDialogOptions FOptions;
  297.     bool FPrintToFile;
  298.     TPrintRange FPrintRange;
  299.     int FMinPage;
  300.     int FMaxPage;
  301.     int FCopies;
  302.     void __fastcall SetNumCopies(int Value);
  303.     
  304. public:
  305.     virtual bool __fastcall Execute(void);
  306.     
  307. __published:
  308.     __property bool Collate = {read=FCollate, write=FCollate, default=0};
  309.     __property int Copies = {read=FCopies, write=SetNumCopies, default=0};
  310.     __property int FromPage = {read=FFromPage, write=FFromPage, default=0};
  311.     __property int MinPage = {read=FMinPage, write=FMinPage, default=0};
  312.     __property int MaxPage = {read=FMaxPage, write=FMaxPage, default=0};
  313.     __property TPrintDialogOptions Options = {read=FOptions, write=FOptions, default=0};
  314.     __property bool PrintToFile = {read=FPrintToFile, write=FPrintToFile, default=0};
  315.     __property TPrintRange PrintRange = {read=FPrintRange, write=FPrintRange, default=0};
  316.     __property int ToPage = {read=FToPage, write=FToPage, default=0};
  317. public:
  318.     #pragma option push -w-inl
  319.     /* TCommonDialog.Create */ inline __fastcall virtual TPrintDialog(Classes::TComponent* AOwner) : TCommonDialog(
  320.         AOwner) { }
  321.     #pragma option pop
  322.     #pragma option push -w-inl
  323.     /* TCommonDialog.Destroy */ inline __fastcall virtual ~TPrintDialog(void) { }
  324.     #pragma option pop
  325.     
  326. };
  327.  
  328.  
  329. #pragma option push -b-
  330. enum TFindOption { frDown, frFindNext, frHideMatchCase, frHideWholeWord, frHideUpDown, frMatchCase, 
  331.     frDisableMatchCase, frDisableUpDown, frDisableWholeWord, frReplace, frReplaceAll, frWholeWord, frShowHelp 
  332.     };
  333. #pragma option pop
  334.  
  335. typedef Set<TFindOption, frDown, frShowHelp>  TFindOptions;
  336.  
  337. typedef HWND __stdcall (*TFindReplaceFunc)(tagFINDREPLACEA &FindReplace);
  338.  
  339. class DELPHICLASS TFindDialog;
  340. class PASCALIMPLEMENTATION TFindDialog : public TCommonDialog 
  341. {
  342.     typedef TCommonDialog inherited;
  343.     
  344. private:
  345.     TFindOptions FOptions;
  346.     Windows::TPoint FPosition;
  347.     TFindReplaceFunc FFindReplaceFunc;
  348.     Controls::TWinControl* FRedirector;
  349.     Classes::TNotifyEvent FOnFind;
  350.     Classes::TNotifyEvent FOnReplace;
  351.     HWND FFindHandle;
  352.     #pragma pack(push, 1)
  353.     tagFINDREPLACEA FFindReplace;
  354.     #pragma pack(pop)
  355.     
  356.     char FFindText[256];
  357.     char FReplaceText[256];
  358.     AnsiString __fastcall GetFindText();
  359.     int __fastcall GetLeft(void);
  360.     Windows::TPoint __fastcall GetPosition();
  361.     AnsiString __fastcall GetReplaceText();
  362.     int __fastcall GetTop(void);
  363.     void __fastcall SetFindText(const AnsiString Value);
  364.     void __fastcall SetLeft(int Value);
  365.     void __fastcall SetPosition(const Windows::TPoint &Value);
  366.     void __fastcall SetReplaceText(const AnsiString Value);
  367.     void __fastcall SetTop(int Value);
  368.     __property AnsiString ReplaceText = {read=GetReplaceText, write=SetReplaceText};
  369.     __property Classes::TNotifyEvent OnReplace = {read=FOnReplace, write=FOnReplace};
  370.     
  371. protected:
  372.     virtual bool __fastcall MessageHook(Messages::TMessage &Msg);
  373.     DYNAMIC void __fastcall Find(void);
  374.     DYNAMIC void __fastcall Replace(void);
  375.     
  376. public:
  377.     __fastcall virtual TFindDialog(Classes::TComponent* AOwner);
  378.     __fastcall virtual ~TFindDialog(void);
  379.     void __fastcall CloseDialog(void);
  380.     virtual bool __fastcall Execute(void);
  381.     __property int Left = {read=GetLeft, write=SetLeft, nodefault};
  382.     __property Windows::TPoint Position = {read=GetPosition, write=SetPosition};
  383.     __property int Top = {read=GetTop, write=SetTop, nodefault};
  384.     
  385. __published:
  386.     __property AnsiString FindText = {read=GetFindText, write=SetFindText};
  387.     __property TFindOptions Options = {read=FOptions, write=FOptions, default=1};
  388.     __property Classes::TNotifyEvent OnFind = {read=FOnFind, write=FOnFind};
  389. };
  390.  
  391.  
  392. class DELPHICLASS TReplaceDialog;
  393. class PASCALIMPLEMENTATION TReplaceDialog : public TFindDialog 
  394. {
  395.     typedef TFindDialog inherited;
  396.     
  397. public:
  398.     __fastcall virtual TReplaceDialog(Classes::TComponent* AOwner);
  399.     
  400. __published:
  401.     __property ReplaceText ;
  402.     __property OnReplace ;
  403. public:
  404.     #pragma option push -w-inl
  405.     /* TFindDialog.Destroy */ inline __fastcall virtual ~TReplaceDialog(void) { }
  406.     #pragma option pop
  407.     
  408. };
  409.  
  410.  
  411. #pragma option push -b-
  412. enum TMsgDlgType { mtWarning, mtError, mtInformation, mtConfirmation, mtCustom };
  413. #pragma option pop
  414.  
  415. #pragma option push -b-
  416. enum TMsgDlgBtn { mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, 
  417.     mbHelp };
  418. #pragma option pop
  419.  
  420. typedef Set<TMsgDlgBtn, mbYes, mbHelp>  TMsgDlgButtons;
  421.  
  422. //-- var, const, procedure ---------------------------------------------------
  423. static const Shortint MaxCustomColors = 0x10;
  424. #define mbYesNoCancel (System::Set<TMsgDlgBtn, mbYes, mbHelp> () )
  425. #define mbOKCancel (System::Set<TMsgDlgBtn, mbYes, mbHelp> () )
  426. #define mbAbortRetryIgnore (System::Set<TMsgDlgBtn, mbYes, mbHelp> () )
  427. extern PACKAGE bool ForceCurrentDirectory;
  428. extern PACKAGE Forms::TForm* __fastcall CreateMessageDialog(const AnsiString Msg, TMsgDlgType DlgType
  429.     , TMsgDlgButtons Buttons);
  430. extern PACKAGE int __fastcall MessageDlg(const AnsiString Msg, TMsgDlgType DlgType, TMsgDlgButtons Buttons
  431.     , int HelpCtx);
  432. extern PACKAGE int __fastcall MessageDlgPos(const AnsiString Msg, TMsgDlgType DlgType, TMsgDlgButtons 
  433.     Buttons, int HelpCtx, int X, int Y);
  434. extern PACKAGE int __fastcall MessageDlgPosHelp(const AnsiString Msg, TMsgDlgType DlgType, TMsgDlgButtons 
  435.     Buttons, int HelpCtx, int X, int Y, const AnsiString HelpFileName);
  436. extern PACKAGE void __fastcall ShowMessage(const AnsiString Msg);
  437. extern PACKAGE void __fastcall ShowMessageFmt(const AnsiString Msg, const System::TVarRec * Params, 
  438.     const int Params_Size);
  439. extern PACKAGE void __fastcall ShowMessagePos(const AnsiString Msg, int X, int Y);
  440. extern PACKAGE bool __fastcall InputQuery(const AnsiString ACaption, const AnsiString APrompt, AnsiString 
  441.     &Value);
  442. extern PACKAGE AnsiString __fastcall InputBox(const AnsiString ACaption, const AnsiString APrompt, const 
  443.     AnsiString ADefault);
  444.  
  445. }    /* namespace Dialogs */
  446. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  447. using namespace Dialogs;
  448. #endif
  449. #pragma option pop    // -w-
  450. #pragma option pop    // -Vx
  451.  
  452. #pragma delphiheader end.
  453. //-- end unit ----------------------------------------------------------------
  454. #endif    // Dialogs
  455.