home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 May / VPR9705A.ISO / VPR_DATA / PROGRAM / CBTRIAL / SETUP / DATA.Z / DIALOGS.HPP < prev    next >
C/C++ Source or Header  |  1997-02-14  |  13KB  |  363 lines
  1. //----------------------------------------------------------------------------
  2. // Dialogs.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
  3. // From: Dialogs.pas
  4. //----------------------------------------------------------------------------
  5. #ifndef DialogsHPP
  6. #define DialogsHPP
  7. //----------------------------------------------------------------------------
  8. #include <Forms.hpp>
  9. #include <Controls.hpp>
  10. #include <Graphics.hpp>
  11. #include <Classes.hpp>
  12. #include <CommDlg.hpp>
  13. #include <SysUtils.hpp>
  14. #include <Messages.hpp>
  15. #include <Windows.hpp>
  16. #include <System.hpp>
  17. #pragma warn -par
  18. #pragma warn -hid 
  19. #pragma warn -inl
  20.  
  21. namespace Dialogs
  22. {
  23. //-- type declarations -------------------------------------------------------
  24. class __declspec(delphiclass) TCommonDialog;
  25. class __declspec(pascalimplementation) TCommonDialog : public Classes::TComponent
  26. {
  27.     typedef Classes::TComponent inherited;
  28.     
  29. private:
  30.     bool FCtl3D;
  31.     Classes::THelpContext FHelpContext;
  32.     
  33. protected:
  34.     virtual bool __fastcall Message(Messages::TMessage &Msg);
  35.     virtual DWord __fastcall TaskModalDialog(void * DialogFunc, void *DialogData);
  36.     
  37. public:
  38.     __fastcall virtual TCommonDialog(Classes::TComponent* AOwner);
  39.     
  40. __published:
  41.     __property bool Ctl3D = {read=FCtl3D, write=FCtl3D, default=1};
  42.     __property Classes::THelpContext HelpContext = {read=FHelpContext, write=FHelpContext, default=0};
  43. public:
  44.         
  45.     /* TComponent.Destroy */ __fastcall virtual ~TCommonDialog(void) { }
  46.     
  47. };
  48.  
  49. enum TOpenOption { ofReadOnly, ofOverwritePrompt, ofHideReadOnly, ofNoChangeDir, ofShowHelp, ofNoValidate, 
  50.     ofAllowMultiSelect, ofExtensionDifferent, ofPathMustExist, ofFileMustExist, ofCreatePrompt, ofShareAware, 
  51.     ofNoReadOnlyReturn, ofNoTestFileCreate, ofNoNetworkButton, ofNoLongNames, ofOldStyleDialog, ofNoDereferenceLinks 
  52.     };
  53.  
  54. typedef Set<TOpenOption, ofReadOnly, ofNoDereferenceLinks>  TOpenOptions;
  55.  
  56. enum TFileEditStyle { fsEdit, fsComboBox };
  57.  
  58. class __declspec(delphiclass) TOpenDialog;
  59. class __declspec(pascalimplementation) TOpenDialog : public TCommonDialog
  60. {
  61.     typedef TCommonDialog inherited;
  62.     
  63. private:
  64.     Classes::TStrings* FHistoryList;
  65.     TOpenOptions FOptions;
  66.     System::AnsiString FFilter;
  67.     int FFilterIndex;
  68.     System::AnsiString FInitialDir;
  69.     System::AnsiString FTitle;
  70.     System::AnsiString FDefaultExt;
  71.     System::AnsiString FFileName;
  72.     Classes::TStrings* FFiles;
  73.     TFileEditStyle FFileEditStyle;
  74.     void __fastcall SetHistoryList(Classes::TStrings* Value);
  75.     void __fastcall SetInitialDir(const System::AnsiString Value);
  76.     DWord __fastcall DoExecute(void * Func);
  77.     
  78. public:
  79.     __fastcall virtual TOpenDialog(Classes::TComponent* AOwner);
  80.     __fastcall virtual ~TOpenDialog(void);
  81.     virtual bool __fastcall Execute(void);
  82.     __property Classes::TStrings* Files = {read=FFiles, nodefault};
  83.     
  84. __published:
  85.     __property System::AnsiString DefaultExt = {read=FDefaultExt, write=FDefaultExt, nodefault};
  86.     __property TFileEditStyle FileEditStyle = {read=FFileEditStyle, write=FFileEditStyle, nodefault};
  87.     __property System::AnsiString FileName = {read=FFileName, write=FFileName, nodefault};
  88.     __property System::AnsiString Filter = {read=FFilter, write=FFilter, nodefault};
  89.     __property int FilterIndex = {read=FFilterIndex, write=FFilterIndex, default=1};
  90.     __property Classes::TStrings* HistoryList = {read=FHistoryList, write=SetHistoryList, nodefault};
  91.     __property System::AnsiString InitialDir = {read=FInitialDir, write=SetInitialDir, nodefault};
  92.     __property TOpenOptions Options = {read=FOptions, write=FOptions, default=0};
  93.     __property System::AnsiString Title = {read=FTitle, write=FTitle, nodefault};
  94. };
  95.  
  96. class __declspec(delphiclass) TSaveDialog;
  97. class __declspec(pascalimplementation) TSaveDialog : public TOpenDialog
  98. {
  99.     typedef TOpenDialog inherited;
  100.     
  101. __published:
  102.     virtual bool __fastcall Execute(void);
  103. public:
  104.     /* TOpenDialog.Create */ __fastcall virtual TSaveDialog(Classes::TComponent* AOwner) : Dialogs::TOpenDialog(
  105.         AOwner) { }
  106.     /* TOpenDialog.Destroy */ __fastcall virtual ~TSaveDialog(void) { }
  107.     
  108. };
  109.  
  110. enum TColorDialogOption { cdFullOpen, cdPreventFullOpen, cdShowHelp, cdSolidColor, cdAnyColor };
  111.  
  112. typedef Set<TColorDialogOption, cdFullOpen, cdAnyColor>  TColorDialogOptions;
  113.  
  114. typedef long TCustomColors[16];
  115.  
  116. class __declspec(delphiclass) TColorDialog;
  117. class __declspec(pascalimplementation) TColorDialog : public TCommonDialog
  118. {
  119.     typedef TCommonDialog inherited;
  120.     
  121. private:
  122.     Graphics::TColor FColor;
  123.     TColorDialogOptions FOptions;
  124.     Classes::TStrings* FCustomColors;
  125.     void __fastcall SetCustomColors(Classes::TStrings* Value);
  126.     
  127. public:
  128.     __fastcall virtual TColorDialog(Classes::TComponent* AOwner);
  129.     __fastcall virtual ~TColorDialog(void);
  130.     bool __fastcall Execute(void);
  131.     
  132. __published:
  133.     __property Graphics::TColor Color = {read=FColor, write=FColor, default=0};
  134.     __property Ctl3D ;
  135.     __property Classes::TStrings* CustomColors = {read=FCustomColors, write=SetCustomColors, nodefault}
  136.         ;
  137.     __property TColorDialogOptions Options = {read=FOptions, write=FOptions, default=0};
  138. };
  139.  
  140. enum TFontDialogOption { fdAnsiOnly, fdTrueTypeOnly, fdEffects, fdFixedPitchOnly, fdForceFontExist, 
  141.     fdNoFaceSel, fdNoOEMFonts, fdNoSimulations, fdNoSizeSel, fdNoStyleSel, fdNoVectorFonts, fdShowHelp, 
  142.     fdWysiwyg, fdLimitSize, fdScalableOnly, fdApplyButton };
  143.  
  144. typedef Set<TFontDialogOption, fdAnsiOnly, fdApplyButton>  TFontDialogOptions;
  145.  
  146. enum TFontDialogDevice { fdScreen, fdPrinter, fdBoth };
  147.  
  148. typedef void __fastcall (__closure *TFDApplyEvent)(System::TObject* Sender, HWND Wnd);
  149.  
  150. class __declspec(delphiclass) TFontDialog;
  151. class __declspec(pascalimplementation) TFontDialog : public TCommonDialog
  152. {
  153.     typedef TCommonDialog inherited;
  154.     
  155. private:
  156.     Graphics::TFont* FFont;
  157.     TFontDialogDevice FDevice;
  158.     TFontDialogOptions FOptions;
  159.     TFDApplyEvent FOnApply;
  160.     int FMinFontSize;
  161.     int FMaxFontSize;
  162.     void __fastcall DoApply(HWND Wnd);
  163.     void __fastcall SetFont(Graphics::TFont* Value);
  164.     void __fastcall UpdateFromLogFont(const LOGFONTA &LogFont);
  165.     
  166. protected:
  167.     virtual void __fastcall Apply(HWND Wnd);
  168.     
  169. public:
  170.     __fastcall virtual TFontDialog(Classes::TComponent* AOwner);
  171.     __fastcall virtual ~TFontDialog(void);
  172.     bool __fastcall Execute(void);
  173.     
  174. __published:
  175.     __property Graphics::TFont* Font = {read=FFont, write=SetFont, nodefault};
  176.     __property TFontDialogDevice Device = {read=FDevice, write=FDevice, default=0};
  177.     __property int MinFontSize = {read=FMinFontSize, write=FMinFontSize, nodefault};
  178.     __property int MaxFontSize = {read=FMaxFontSize, write=FMaxFontSize, nodefault};
  179.     __property TFontDialogOptions Options = {read=FOptions, write=FOptions, default=4};
  180.     __property TFDApplyEvent OnApply = {read=FOnApply, write=FOnApply};
  181. };
  182.  
  183. class __declspec(delphiclass) TPrinterSetupDialog;
  184. class __declspec(pascalimplementation) TPrinterSetupDialog : public TCommonDialog
  185. {
  186.     typedef TCommonDialog inherited;
  187.     
  188. public:
  189.     void __fastcall Execute(void);
  190. public:
  191.     /* TCommonDialog.Create */ __fastcall virtual TPrinterSetupDialog(Classes::TComponent* AOwner) : Dialogs::
  192.         TCommonDialog(AOwner) { }
  193.     
  194. public:
  195.     /* TComponent.Destroy */ __fastcall virtual ~TPrinterSetupDialog(void) { }
  196.     
  197. };
  198.  
  199. enum TPrintRange { prAllPages, prSelection, prPageNums };
  200.  
  201. enum TPrintDialogOption { poPrintToFile, poPageNums, poSelection, poWarning, poHelp, poDisablePrintToFile 
  202.     };
  203.  
  204. typedef Set<TPrintDialogOption, poPrintToFile, poDisablePrintToFile>  TPrintDialogOptions;
  205.  
  206. class __declspec(delphiclass) TPrintDialog;
  207. class __declspec(pascalimplementation) TPrintDialog : public TCommonDialog
  208. {
  209.     typedef TCommonDialog inherited;
  210.     
  211. private:
  212.     int FFromPage;
  213.     int FToPage;
  214.     bool FCollate;
  215.     TPrintDialogOptions FOptions;
  216.     bool FPrintToFile;
  217.     TPrintRange FPrintRange;
  218.     int FMinPage;
  219.     int FMaxPage;
  220.     int FCopies;
  221.     void __fastcall SetNumCopies(int Value);
  222.     
  223. public:
  224.     bool __fastcall Execute(void);
  225.     
  226. __published:
  227.     __property bool Collate = {read=FCollate, write=FCollate, default=0};
  228.     __property int Copies = {read=FCopies, write=SetNumCopies, default=0};
  229.     __property int FromPage = {read=FFromPage, write=FFromPage, default=0};
  230.     __property int MinPage = {read=FMinPage, write=FMinPage, default=0};
  231.     __property int MaxPage = {read=FMaxPage, write=FMaxPage, default=0};
  232.     __property TPrintDialogOptions Options = {read=FOptions, write=FOptions, default=0};
  233.     __property bool PrintToFile = {read=FPrintToFile, write=FPrintToFile, default=0};
  234.     __property TPrintRange PrintRange = {read=FPrintRange, write=FPrintRange, default=0};
  235.     __property int ToPage = {read=FToPage, write=FToPage, default=0};
  236. public:
  237.     /* TCommonDialog.Create */ __fastcall virtual TPrintDialog(Classes::TComponent* AOwner) : Dialogs::
  238.         TCommonDialog(AOwner) { }
  239.     
  240. public:
  241.     /* TComponent.Destroy */ __fastcall virtual ~TPrintDialog(void) { }
  242.     
  243. };
  244.  
  245. enum TFindOption { frDown, frFindNext, frHideMatchCase, frHideWholeWord, frHideUpDown, frMatchCase, 
  246.     frDisableMatchCase, frDisableUpDown, frDisableWholeWord, frReplace, frReplaceAll, frWholeWord, frShowHelp 
  247.     };
  248.  
  249. typedef Set<TFindOption, frDown, frShowHelp>  TFindOptions;
  250.  
  251. typedef HWND __stdcall (*TFindReplaceFunc)(tagFINDREPLACEA &FindReplace);
  252.  
  253. class __declspec(delphiclass) TFindDialog;
  254. class __declspec(pascalimplementation) TFindDialog : public TCommonDialog
  255. {
  256.     typedef TCommonDialog inherited;
  257.     
  258. private:
  259.     TFindOptions FOptions;
  260.     POINT FPosition;
  261.     HWND FHandle;
  262.     TFindReplaceFunc FFindReplaceFunc;
  263.     Controls::TWinControl* FRedirector;
  264.     Classes::TNotifyEvent FOnFind;
  265.     Classes::TNotifyEvent FOnReplace;
  266.     FINDREPLACEA FFindReplace;
  267.     char FFindText[256];
  268.     char FReplaceText[256];
  269.     System::AnsiString __fastcall GetFindText(void);
  270.     int __fastcall GetLeft(void);
  271.     POINT __fastcall GetPosition(void);
  272.     System::AnsiString __fastcall GetReplaceText(void);
  273.     int __fastcall GetTop(void);
  274.     void __fastcall SetFindText(const System::AnsiString Value);
  275.     void __fastcall SetLeft(int Value);
  276.     void __fastcall SetPosition(const POINT &Value);
  277.     void __fastcall SetReplaceText(const System::AnsiString Value);
  278.     void __fastcall SetTop(int Value);
  279.     __property System::AnsiString ReplaceText = {read=GetReplaceText, write=SetReplaceText, nodefault};
  280.         
  281.     __property Classes::TNotifyEvent OnReplace = {read=FOnReplace, write=FOnReplace};
  282.     
  283. protected:
  284.     virtual bool __fastcall Message(Messages::TMessage &Msg);
  285.     virtual void __fastcall Find(void);
  286.     virtual void __fastcall Replace(void);
  287.     
  288. public:
  289.     __fastcall virtual TFindDialog(Classes::TComponent* AOwner);
  290.     __fastcall virtual ~TFindDialog(void);
  291.     void __fastcall CloseDialog(void);
  292.     bool __fastcall Execute(void);
  293.     __property HWND Handle = {read=FHandle, nodefault};
  294.     __property int Left = {read=GetLeft, write=SetLeft, nodefault};
  295.     __property POINT Position = {read=GetPosition, write=SetPosition};
  296.     __property int Top = {read=GetTop, write=SetTop, nodefault};
  297.     
  298. __published:
  299.     __property System::AnsiString FindText = {read=GetFindText, write=SetFindText, nodefault};
  300.     __property TFindOptions Options = {read=FOptions, write=FOptions, default=1};
  301.     __property Classes::TNotifyEvent OnFind = {read=FOnFind, write=FOnFind};
  302. };
  303.  
  304. class __declspec(delphiclass) TReplaceDialog;
  305. class __declspec(pascalimplementation) TReplaceDialog : public TFindDialog
  306. {
  307.     typedef TFindDialog inherited;
  308.     
  309. public:
  310.     __fastcall virtual TReplaceDialog(Classes::TComponent* AOwner);
  311.     
  312. __published:
  313.     __property ReplaceText ;
  314.     __property OnReplace ;
  315. public:
  316.     /* TFindDialog.Destroy */ __fastcall virtual ~TReplaceDialog(void) { }
  317.     
  318. };
  319.  
  320. enum TMsgDlgType { mtWarning, mtError, mtInformation, mtConfirmation, mtCustom };
  321.  
  322. enum TMsgDlgBtn { mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbHelp };
  323.  
  324. typedef Set<TMsgDlgBtn, mbYes, mbHelp>  TMsgDlgButtons;
  325.  
  326. //-- var, const, procedure ---------------------------------------------------
  327. #define MaxCustomColors (Byte)(16)
  328. #define mbYesNoCancel 0xB
  329. #define mbOKCancel 0xC
  330. #define mbAbortRetryIgnore 0x70
  331. extern Forms::TForm* __fastcall CreateMessageDialog(const System::AnsiString Msg, TMsgDlgType DlgType
  332.     , TMsgDlgButtons Buttons);
  333. extern int __fastcall MessageDlg(const System::AnsiString Msg, TMsgDlgType DlgType, TMsgDlgButtons Buttons
  334.     , long HelpCtx);
  335. extern int __fastcall MessageDlgPos(const System::AnsiString Msg, TMsgDlgType DlgType, TMsgDlgButtons 
  336.     Buttons, long HelpCtx, int X, int Y);
  337. extern void __fastcall ShowMessage(const System::AnsiString Msg);
  338. extern void __fastcall ShowMessagePos(const System::AnsiString Msg, int X, int Y);
  339. extern bool __fastcall InputQuery(const System::AnsiString ACaption, const System::AnsiString APrompt
  340.     ,  System::AnsiString &Value);
  341. extern System::AnsiString __fastcall InputBox(const System::AnsiString ACaption, const System::AnsiString 
  342.     APrompt, const System::AnsiString ADefault);
  343. extern void __fastcall finalization(void);
  344. //-- template instantiations -------------------------------------------------
  345. template class TMsgDlgButtons ;
  346. template class TFindOptions ;
  347. template class TPrintDialogOptions ;
  348. template class TFontDialogOptions ;
  349. template class TColorDialogOptions ;
  350. template class TOpenOptions ;
  351.  
  352. }    /* namespace Dialogs */
  353.  
  354. #pragma warn .par
  355. #pragma warn .hid 
  356. #pragma warn .inl
  357.  
  358. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  359. using namespace Dialogs;
  360. #endif
  361. //-- end unit ----------------------------------------------------------------
  362. #endif    // Dialogs
  363.