rm_jvinterpreter_dialogs.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 1,106 行 · 第 1/3 页

  {$ENDIF COMPLIB_VCL}
  {$IFDEF COMPLIB_CLX}
  Value := MessageDlg(VarToStr(Args.Values[0]), VarToStr(Args.Values[1]), TMsgDlgType(Byte(V2S(Args.Values[2]))),
    TMsgDlgButtons(Byte(V2S(Args.Values[3]))), Args.Values[4]);
  {$ENDIF COMPLIB_CLX}
end;

{ function MessageDlgPos(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Integer; }

procedure JvInterpreter_MessageDlgPos(var Value: Variant; Args: TJvInterpreterArgs);
begin
  {$IFDEF COMPLIB_VCL}
  Value := MessageDlgPos(Args.Values[0], Args.Values[1], TMsgDlgButtons(Word(V2S(Args.Values[2]))), Args.Values[3],
    Args.Values[4], Args.Values[5]);
  {$ENDIF COMPLIB_VCL}
  {$IFDEF COMPLIB_CLX}
  Value := MessageDlgPos(Args.Values[0], Args.Values[1], TMsgDlgButtons(Byte(V2S(Args.Values[2]))), Args.Values[3],
    Args.Values[4], Args.Values[5]);
  {$ENDIF COMPLIB_CLX}
end;

{ function MessageDlgPosHelp(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer; const HelpFileName: string): Integer; }

{$IFDEF COMPLIB_VCL}
{$IFDEF COMPILER3_UP}
procedure JvInterpreter_MessageDlgPosHelp(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := MessageDlgPosHelp(Args.Values[0], Args.Values[1], TMsgDlgButtons(Word(V2S(Args.Values[2]))), Args.Values[3],
    Args.Values[4], Args.Values[5], Args.Values[6]);
end;
{$ENDIF COMPILER3_UP}
{$ENDIF COMPLIB_VCL}

{ procedure ShowMessage(const Msg: string); }

procedure JvInterpreter_ShowMessage(var Value: Variant; Args: TJvInterpreterArgs);
begin
  {$IFDEF COMPLIB_VCL}
  ShowMessage(Args.Values[0]);
  {$ENDIF COMPLIB_VCL}
  {$IFDEF COMPLIB_CLX}
  ShowMessage(VarToStr(Args.Values[0]));
  {$ENDIF COMPLIB_CLX}
end;

{ procedure ShowMessageFmt(const Msg: string; Params: array of const); }

{$IFDEF COMPILER3_UP}
procedure JvInterpreter_ShowMessageFmt(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Args.OpenArray(1);
  ShowMessageFmt(Args.Values[0], Slice(Args.OA^, Args.OAS));
end;
{$ENDIF COMPILER3_UP}

{ procedure ShowMessagePos(const Msg: string; X, Y: Integer); }

procedure JvInterpreter_ShowMessagePos(var Value: Variant; Args: TJvInterpreterArgs);
begin
  ShowMessagePos(Args.Values[0], Args.Values[1], Args.Values[2]);
end;

{ function InputBox(const ACaption, APrompt, ADefault: string): string; }

procedure JvInterpreter_InputBox(var Value: Variant; Args: TJvInterpreterArgs);
begin
  {$IFDEF MSWINDOWS}
  Value := InputBox(Args.Values[0], Args.Values[1], Args.Values[2]);
  {$ENDIF MSWINDOWS}
  {$IFDEF LINUX}
  Value := InputBox(VarToStr(Args.Values[0]), VarToStr(Args.Values[1]), VarToStr(Args.Values[2]));
  {$ENDIF LINUX}
end;

{ function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean; }

procedure JvInterpreter_InputQuery(var Value: Variant; Args: TJvInterpreterArgs);
{$IFDEF LINUX}
var
  S: WideString;
{$ENDIF LINUX}
begin
  {$IFDEF MSWINDOWS}
  Value := InputQuery(Args.Values[0], Args.Values[1], string(TVarData(Args.Values[2]).vString));
  {$ENDIF MSWINDOWS}
  {$IFDEF LINUX}
  S := Args.Values[2];
  Value := InputQuery(VarToStr(Args.Values[0]), VarToStr(Args.Values[1]), S);
  Args.Values[2] := S;
  {$ENDIF LINUX}
end;

procedure RegisterJvInterpreterAdapter(JvInterpreterAdapter: TJvInterpreterAdapter);
const
  cDialogs = 'Dialogs';
begin
  with JvInterpreterAdapter do
  begin
    { TCommonDialog }
    AddClass(cDialogs, TCommonDialog, 'TCommonDialog');
    {$IFDEF COMPILER3_UP}
    AddGet(TCommonDialog, 'Handle', TCommonDialog_Read_Handle, 0, [0], varEmpty);
    {$ENDIF COMPILER3_UP}
    {$IFDEF COMPLIB_VCL}
    AddGet(TCommonDialog, 'Ctl3D', TCommonDialog_Read_Ctl3D, 0, [0], varEmpty);
    AddSet(TCommonDialog, 'Ctl3D', TCommonDialog_Write_Ctl3D, 0, [0]);
    {$ENDIF COMPLIB_VCL}
    AddGet(TCommonDialog, 'HelpContext', TCommonDialog_Read_HelpContext, 0, [0], varEmpty);
    AddSet(TCommonDialog, 'HelpContext', TCommonDialog_Write_HelpContext, 0, [0]);
    { TOpenOption }
    {$IFDEF COMPLIB_VCL}
    AddConst(cDialogs, 'ofReadOnly', Integer(ofReadOnly));
    {$ENDIF COMPLIB_VCL}
    AddConst(cDialogs, 'ofOverwritePrompt', Integer(ofOverwritePrompt));
    {$IFDEF COMPLIB_VCL}
    AddConst(cDialogs, 'ofHideReadOnly', Integer(ofHideReadOnly));
    AddConst(cDialogs, 'ofNoChangeDir', Integer(ofNoChangeDir));
    AddConst(cDialogs, 'ofShowHelp', Integer(ofShowHelp));
    AddConst(cDialogs, 'ofNoValidate', Integer(ofNoValidate));
    {$ENDIF COMPLIB_VCL}
    AddConst(cDialogs, 'ofAllowMultiSelect', Integer(ofAllowMultiSelect));
    AddConst(cDialogs, 'ofExtensionDifferent', Integer(ofExtensionDifferent));
    AddConst(cDialogs, 'ofPathMustExist', Integer(ofPathMustExist));
    AddConst(cDialogs, 'ofFileMustExist', Integer(ofFileMustExist));
    {$IFDEF COMPLIB_VCL}
    AddConst(cDialogs, 'ofCreatePrompt', Integer(ofCreatePrompt));
    AddConst(cDialogs, 'ofShareAware', Integer(ofShareAware));
    AddConst(cDialogs, 'ofNoReadOnlyReturn', Integer(ofNoReadOnlyReturn));
    AddConst(cDialogs, 'ofNoTestFileCreate', Integer(ofNoTestFileCreate));
    AddConst(cDialogs, 'ofNoNetworkButton', Integer(ofNoNetworkButton));
    AddConst(cDialogs, 'ofNoLongNames', Integer(ofNoLongNames));
    AddConst(cDialogs, 'ofOldStyleDialog', Integer(ofOldStyleDialog));
    AddConst(cDialogs, 'ofNoDereferenceLinks', Integer(ofNoDereferenceLinks));
    { TFileEditStyle }
    AddConst(cDialogs, 'fsEdit', Integer(fsEdit));
    AddConst(cDialogs, 'fsComboBox', Integer(fsComboBox));
    {$ENDIF COMPLIB_VCL}
    { TOpenDialog }
    AddClass(cDialogs, TOpenDialog, 'TOpenDialog');
    AddGet(TOpenDialog, 'Create', TOpenDialog_Create, 1, [varEmpty], varEmpty);
    AddGet(TOpenDialog, 'Execute', TOpenDialog_Execute, 0, [0], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddGet(TOpenDialog, 'FileEditStyle', TOpenDialog_Read_FileEditStyle, 0, [0], varEmpty);
    AddSet(TOpenDialog, 'FileEditStyle', TOpenDialog_Write_FileEditStyle, 0, [0]);
    {$ENDIF COMPLIB_VCL}
    AddGet(TOpenDialog, 'Files', TOpenDialog_Read_Files, 0, [0], varEmpty);
    AddGet(TOpenDialog, 'HistoryList', TOpenDialog_Read_HistoryList, 0, [0], varEmpty);
    AddSet(TOpenDialog, 'HistoryList', TOpenDialog_Write_HistoryList, 0, [0]);
    AddGet(TOpenDialog, 'DefaultExt', TOpenDialog_Read_DefaultExt, 0, [0], varEmpty);
    AddSet(TOpenDialog, 'DefaultExt', TOpenDialog_Write_DefaultExt, 0, [0]);
    AddGet(TOpenDialog, 'FileName', TOpenDialog_Read_FileName, 0, [0], varEmpty);
    AddSet(TOpenDialog, 'FileName', TOpenDialog_Write_FileName, 0, [0]);
    AddGet(TOpenDialog, 'Filter', TOpenDialog_Read_Filter, 0, [0], varEmpty);
    AddSet(TOpenDialog, 'Filter', TOpenDialog_Write_Filter, 0, [0]);
    AddGet(TOpenDialog, 'FilterIndex', TOpenDialog_Read_FilterIndex, 0, [0], varEmpty);
    AddSet(TOpenDialog, 'FilterIndex', TOpenDialog_Write_FilterIndex, 0, [0]);
    AddGet(TOpenDialog, 'InitialDir', TOpenDialog_Read_InitialDir, 0, [0], varEmpty);
    AddSet(TOpenDialog, 'InitialDir', TOpenDialog_Write_InitialDir, 0, [0]);
    AddGet(TOpenDialog, 'Options', TOpenDialog_Read_Options, 0, [0], varEmpty);
    AddSet(TOpenDialog, 'Options', TOpenDialog_Write_Options, 0, [0]);
    AddGet(TOpenDialog, 'Title', TOpenDialog_Read_Title, 0, [0], varEmpty);
    AddSet(TOpenDialog, 'Title', TOpenDialog_Write_Title, 0, [0]);
    { TSaveDialog }
    AddClass(cDialogs, TSaveDialog, 'TSaveDialog');
    AddGet(TSaveDialog, 'Create', TSaveDialog_Create, 1, [varEmpty], varEmpty);
    AddGet(TSaveDialog, 'Execute', TSaveDialog_Execute, 0, [0], varEmpty);
    {$IFDEF COMPLIB_VCL}
    { TColorDialogOption }
    AddConst(cDialogs, 'cdFullOpen', Integer(cdFullOpen));
    AddConst(cDialogs, 'cdPreventFullOpen', Integer(cdPreventFullOpen));
    AddConst(cDialogs, 'cdShowHelp', Integer(cdShowHelp));
    AddConst(cDialogs, 'cdSolidColor', Integer(cdSolidColor));
    AddConst(cDialogs, 'cdAnyColor', Integer(cdAnyColor));
    {$ENDIF COMPLIB_VCL}
    { TColorDialog }
    AddClass(cDialogs, TColorDialog, 'TColorDialog');
    AddGet(TColorDialog, 'Create', TColorDialog_Create, 1, [varEmpty], varEmpty);
    AddGet(TColorDialog, 'Execute', TColorDialog_Execute, 0, [0], varEmpty);
    AddGet(TColorDialog, 'Color', TColorDialog_Read_Color, 0, [0], varEmpty);
    AddSet(TColorDialog, 'Color', TColorDialog_Write_Color, 0, [0]);
    AddGet(TColorDialog, 'CustomColors', TColorDialog_Read_CustomColors, 0, [0], varEmpty);
    AddSet(TColorDialog, 'CustomColors', TColorDialog_Write_CustomColors, 0, [0]);
    {$IFDEF COMPLIB_VCL}
    AddGet(TColorDialog, 'Options', TColorDialog_Read_Options, 0, [0], varEmpty);
    AddSet(TColorDialog, 'Options', TColorDialog_Write_Options, 0, [0]);
    {$ENDIF COMPLIB_VCL}
    {$IFDEF COMPLIB_VCL}
    { TFontDialogOption }
    AddConst(cDialogs, 'fdAnsiOnly', Integer(fdAnsiOnly));
    AddConst(cDialogs, 'fdTrueTypeOnly', Integer(fdTrueTypeOnly));
    AddConst(cDialogs, 'fdEffects', Integer(fdEffects));
    AddConst(cDialogs, 'fdFixedPitchOnly', Integer(fdFixedPitchOnly));
    AddConst(cDialogs, 'fdForceFontExist', Integer(fdForceFontExist));
    AddConst(cDialogs, 'fdNoFaceSel', Integer(fdNoFaceSel));
    AddConst(cDialogs, 'fdNoOEMFonts', Integer(fdNoOEMFonts));
    AddConst(cDialogs, 'fdNoSimulations', Integer(fdNoSimulations));
    AddConst(cDialogs, 'fdNoSizeSel', Integer(fdNoSizeSel));
    AddConst(cDialogs, 'fdNoStyleSel', Integer(fdNoStyleSel));
    AddConst(cDialogs, 'fdNoVectorFonts', Integer(fdNoVectorFonts));
    AddConst(cDialogs, 'fdShowHelp', Integer(fdShowHelp));
    AddConst(cDialogs, 'fdWysiwyg', Integer(fdWysiwyg));
    AddConst(cDialogs, 'fdLimitSize', Integer(fdLimitSize));
    AddConst(cDialogs, 'fdScalableOnly', Integer(fdScalableOnly));
    AddConst(cDialogs, 'fdApplyButton', Integer(fdApplyButton));
    { TFontDialogDevice }
    AddConst(cDialogs, 'fdScreen', Integer(fdScreen));
    AddConst(cDialogs, 'fdPrinter', Integer(fdPrinter));
    AddConst(cDialogs, 'fdBoth', Integer(fdBoth));
    {$ENDIF COMPLIB_VCL}
    { TFontDialog }
    AddClass(cDialogs, TFontDialog, 'TFontDialog');
    AddGet(TFontDialog, 'Create', TFontDialog_Create, 1, [varEmpty], varEmpty);
    AddGet(TFontDialog, 'Execute', TFontDialog_Execute, 0, [0], varEmpty);
    AddGet(TFontDialog, 'Font', TFontDialog_Read_Font, 0, [0], varEmpty);
    AddSet(TFontDialog, 'Font', TFontDialog_Write_Font, 0, [0]);
    {$IFDEF COMPLIB_VCL}
    AddGet(TFontDialog, 'Device', TFontDialog_Read_Device, 0, [0], varEmpty);
    AddSet(TFontDialog, 'Device', TFontDialog_Write_Device, 0, [0]);
    AddGet(TFontDialog, 'MinFontSize', TFontDialog_Read_MinFontSize, 0, [0], varEmpty);
    AddSet(TFontDialog, 'MinFontSize', TFontDialog_Write_MinFontSize, 0, [0]);
    AddGet(TFontDialog, 'MaxFontSize', TFontDialog_Read_MaxFontSize, 0, [0], varEmpty);
    AddSet(TFontDialog, 'MaxFontSize', TFontDialog_Write_MaxFontSize, 0, [0]);
    AddGet(TFontDialog, 'Options', TFontDialog_Read_Options, 0, [0], varEmpty);
    AddSet(TFontDialog, 'Options', TFontDialog_Write_Options, 0, [0]);
    {$ENDIF COMPLIB_VCL}
    {$IFDEF COMPLIB_VCL}
    { TPrinterSetupDialog }
    AddClass(cDialogs, TPrinterSetupDialog, 'TPrinterSetupDialog');
    AddGet(TPrinterSetupDialog, 'Create', TPrinterSetupDialog_Create, 1, [varEmpty], varEmpty);
    AddGet(TPrinterSetupDialog, 'Execute', TPrinterSetupDialog_Execute, 0, [0], varEmpty);
    { TPrintRange }
    AddConst(cDialogs, 'prAllPages', Integer(prAllPages));
    AddConst(cDialogs, 'prSelection', Integer(prSelection));
    AddConst(cDialogs, 'prPageNums', Integer(prPageNums));
    { TPrintDialogOption }
    AddConst(cDialogs, 'poPrintToFile', Integer(poPrintToFile));
    AddConst(cDialogs, 'poPageNums', Integer(poPageNums));
    AddConst(cDialogs, 'poSelection', Integer(poSelection));
    AddConst(cDialogs, 'poWarning', Integer(poWarning));
    AddConst(cDialogs, 'poHelp', Integer(poHelp));
    AddConst(cDialogs, 'poDisablePrintToFile', Integer(poDisablePrintToFile));
    { TPrintDialog }
    AddClass(cDialogs, TPrintDialog, 'TPrintDialog');
    AddGet(TPrintDialog, 'Create', TPrintDialog_Create, 1, [varEmpty], varEmpty);
    AddGet(TPrintDialog, 'Execute', TPrintDialog_Execute, 0, [0], varEmpty);
    AddGet(TPrintDialog, 'Collate', TPrintDialog_Read_Collate, 0, [0], varEmpty);
    AddSet(TPrintDialog, 'Collate', TPrintDialog_Write_Collate, 0, [0]);
    AddGet(TPrintDialog, 'Copies', TPrintDialog_Read_Copies, 0, [0], varEmpty);
    AddSet(TPrintDialog, 'Copies', TPrintDialog_Write_Copies, 0, [0]);
    AddGet(TPrintDialog, 'FromPage', TPrintDialog_Read_FromPage, 0, [0], varEmpty);
    AddSet(TPrintDialog, 'FromPage', TPrintDialog_Write_FromPage, 0, [0]);
    AddGet(TPrintDialog, 'MinPage', TPrintDialog_Read_MinPage, 0, [0], varEmpty);
    AddSet(TPrintDialog, 'MinPage', TPrintDialog_Write_MinPage, 0, [0]);
    AddGet(TPrintDialog, 'MaxPage', TPrintDialog_Read_MaxPage, 0, [0], varEmpty);
    AddSet(TPrintDialog, 'MaxPage', TPrintDialog_Write_MaxPage, 0, [0]);
    AddGet(TPrintDialog, 'Options', TPrintDialog_Read_Options, 0, [0], varEmpty);
    AddSet(TPrintDialog, 'Options', TPrintDialog_Write_Options, 0, [0]);
    AddGet(TPrintDialog, 'PrintToFile', TPrintDialog_Read_PrintToFile, 0, [0], varEmpty);
    AddSet(TPrintDialog, 'PrintToFile', TPrintDialog_Write_PrintToFile, 0, [0]);
    AddGet(TPrintDialog, 'PrintRange', TPrintDialog_Read_PrintRange, 0, [0], varEmpty);
    AddSet(TPrintDialog, 'PrintRange', TPrintDialog_Write_PrintRange, 0, [0]);
    AddGet(TPrintDialog, 'ToPage', TPrintDialog_Read_ToPage, 0, [0], varEmpty);
    AddSet(TPrintDialog, 'ToPage', TPrintDialog_Write_ToPage, 0, [0]);
    {$ENDIF COMPLIB_VCL}
    { TFindOption }
    AddConst(cDialogs, 'frDown', Integer(frDown));
    AddConst(cDialogs, 'frFindNext', Integer(frFindNext));
    AddConst(cDialogs, 'frHideMatchCase', Integer(frHideMatchCase));
    AddConst(cDialogs, 'frHideWholeWord', Integer(frHideWholeWord));
    AddConst(cDialogs, 'frHideUpDown', Integer(frHideUpDown));
    AddConst(cDialogs, 'frMatchCase', Integer(frMatchCase));
    AddConst(cDialogs, 'frDisableMatchCase', Integer(frDisableMatchCase));
    AddConst(cDialogs, 'frDisableUpDown', Integer(frDisableUpDown));
    AddConst(cDialogs, 'frDisableWholeWord', Integer(frDisableWholeWord));
    AddConst(cDialogs, 'frReplace', Integer(frReplace));
    AddConst(cDialogs, 'frReplaceAll', Integer(frReplaceAll));
    AddConst(cDialogs, 'frWholeWord', Integer(frWholeWord));
    AddConst(cDialogs, 'frShowHelp', Integer(frShowHelp));
    { TFindDialog }
    AddClass(cDialogs, TFindDialog, 'TFindDialog');
    AddGet(TFindDialog, 'Create', TFindDialog_Create, 1, [varEmpty], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddGet(TFindDialog, 'CloseDialog', TFindDialog_CloseDialog, 0, [0], varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddGet(TFindDialog, 'Execute', TFindDialog_Execute, 0, [0], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddGet(TFindDialog, 'Left', TFindDialog_Read_Left, 0, [0], varEmpty);
    AddSet(TFindDialog, 'Left', TFindDialog_Write_Left, 0, [0]);
    {$ENDIF COMPLIB_VCL}
    AddGet(TFindDialog, 'Position', TFindDialog_Read_Position, 0, [0], varEmpty);
    AddSet(TFindDialog, 'Position', TFindDialog_Write_Position, 0, [0]);
    {$IFDEF COMPLIB_VCL}
    AddGet(TFindDialog, 'Top', TFindDialog_Read_Top, 0, [0], varEmpty);
    AddSet(TFindDialog, 'Top', TFindDialog_Write_Top, 0, [0]);
    {$ENDIF COMPLIB_VCL}
    AddGet(TFindDialog, 'FindText', TFindDialog_Read_FindText, 0, [0], varEmpty);
    AddSet(TFindDialog, 'FindText', TFindDialog_Write_FindText, 0, [0]);
    AddGet(TFindDialog, 'Options', TFindDialog_Read_Options, 0, [0], varEmpty);
    AddSet(TFindDialog, 'Options', TFindDialog_Write_Options, 0, [0]);
    { TReplaceDialog }
    AddClass(cDialogs, TReplaceDialog, 'TReplaceDialog');
    AddGet(TReplaceDialog, 'Create', TReplaceDialog_Create, 1, [varEmpty], varEmpty);
    AddGet(TReplaceDialog, 'ReplaceText', TReplaceDialog_Read_ReplaceText, 0, [0], varEmpty);
    AddSet(TReplaceDialog, 'ReplaceText', TReplaceDialog_Write_ReplaceText, 0, [0]);
    { TMsgDlgType }
    AddConst(cDialogs, 'mtWarning', Integer(mtWarning));
    AddConst(cDialogs, 'mtError', Integer(mtError));
    AddConst(cDialogs, 'mtInformation', Integer(mtInformation));
    AddConst(cDialogs, 'mtConfirmation', Integer(mtConfirmation));
    AddConst(cDialogs, 'mtCustom', Integer(mtCustom));
    { TMsgDlgBtn }
    AddConst(cDialogs, 'mbYes', Integer(mbYes));
    AddConst(cDialogs, 'mbNo', Integer(mbNo));
    AddConst(cDialogs, 'mbOK', Integer(mbOK));
    AddConst(cDialogs, 'mbCancel', Integer(mbCancel));
    AddConst(cDialogs, 'mbAbort', Integer(mbAbort));
    AddConst(cDialogs, 'mbRetry', Integer(mbRetry));
    AddConst(cDialogs, 'mbIgnore', Integer(mbIgnore));
    {$IFDEF COMPLIB_VCL}
    AddConst(cDialogs, 'mbAll', Integer(mbAll));
    {$IFDEF COMPILER3_UP}
    AddConst(cDialogs, 'mbNoToAll', Integer(mbNoToAll));
    AddConst(cDialogs, 'mbYesToAll', Integer(mbYesToAll));
    {$ENDIF COMPILER3_UP}
    AddConst(cDialogs, 'mbHelp', Integer(mbHelp));
    {$ENDIF COMPLIB_VCL}
    AddConst(cDialogs, 'mrNone', Integer(mrNone));
    AddConst(cDialogs, 'mrOk', Integer(mrOk));
    AddConst(cDialogs, 'mrCancel', Integer(mrCancel));
    AddConst(cDialogs, 'mrAbort', Integer(mrAbort));
    AddConst(cDialogs, 'mrRetry', Integer(mrRetry));
    AddConst(cDialogs, 'mrIgnore', Integer(mrIgnore));
    AddConst(cDialogs, 'mrYes', Integer(mrYes));
    AddConst(cDialogs, 'mrNo', Integer(mrNo));
    AddConst(cDialogs, 'mrAll', Integer(mrAll));
    {$IFDEF COMPILER3_UP}
    AddConst(cDialogs, 'mrNoToAll', Integer(mrNoToAll));
    AddConst(cDialogs, 'mrYesToAll', Integer(mrYesToAll));
    {$ENDIF COMPILER3_UP}
    {$IFDEF COMPLIB_VCL}
    AddFunction(cDialogs, 'CreateMessageDialog', JvInterpreter_CreateMessageDialog, 3, [varEmpty, varEmpty, varEmpty],
      varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddFunction(cDialogs, 'MessageDlg', JvInterpreter_MessageDlg, 4, [varEmpty, varEmpty, varEmpty, varEmpty], varEmpty);
    AddFunction(cDialogs, 'MessageDlgPos', JvInterpreter_MessageDlgPos, 6, [varEmpty, varEmpty, varEmpty, varEmpty,
      varEmpty, varEmpty], varEmpty);
    {$IFDEF COMPLIB_VCL}
    {$IFDEF COMPILER3_UP}
    AddFunction(cDialogs, 'MessageDlgPosHelp', JvInterpreter_MessageDlgPosHelp, 7, [varEmpty, varEmpty, varEmpty, varEmpty,
      varEmpty, varEmpty, varEmpty], varEmpty);
    {$ENDIF COMPILER3_UP}
    {$ENDIF COMPLIB_VCL}
    AddFunction(cDialogs, 'ShowMessage', JvInterpreter_ShowMessage, 1, [varEmpty], varEmpty);
    {$IFDEF COMPILER3_UP}
    AddFunction(cDialogs, 'ShowMessageFmt', JvInterpreter_ShowMessageFmt, 2, [varEmpty, varEmpty], varEmpty);
    {$ENDIF COMPILER3_UP}
    AddFunction(cDialogs, 'ShowMessagePos', JvInterpreter_ShowMessagePos, 3, [varEmpty, varEmpty, varEmpty], varEmpty);
    AddFunction(cDialogs, 'InputBox', JvInterpreter_InputBox, 3, [varEmpty, varEmpty, varEmpty], varEmpty);
    AddFunction(cDialogs, 'InputQuery', JvInterpreter_InputQuery, 3, [varEmpty, varEmpty, varByRef], varEmpty);
  end;
  RegisterClasses([TOpenDialog, TSaveDialog, TFontDialog, TColorDialog,
    {$IFDEF COMPLIB_VCL} TPrintDialog, TPrinterSetupDialog, {$ENDIF COMPLIB_VCL}
    TFindDialog, TReplaceDialog]);
end;

end.