rm_jvinterpreter_forms.pas

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

{$ENDIF COMPLIB_VCL}

{ function IsAccel(VK: Word; const Str: string): Boolean; }

procedure JvInterpreter_IsAccel(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := IsAccel(Args.Values[0], Args.Values[1]);
end;

{$IFDEF COMPLIB_VCL}

{ function KeysToShiftState(Keys: Word): TShiftState; }

procedure JvInterpreter_KeysToShiftState(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := S2V(Byte(KeysToShiftState(Args.Values[0])));
end;

{ function KeyDataToShiftState(KeyData: Longint): TShiftState; }

procedure JvInterpreter_KeyDataToShiftState(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := S2V(Byte(KeyDataToShiftState(Args.Values[0])));
end;

{ function ForegroundTask: Boolean; }

{$IFDEF COMPILER3_UP}
procedure JvInterpreter_ForegroundTask(var Value: Variant; Args: TJvInterpreterArgs);
begin
  Value := ForegroundTask;
end;
{$ENDIF COMPILER3_UP}

{$ENDIF COMPLIB_VCL}

type
  TJvInterpreterFormsEvent = class(TJvInterpreterEvent)
  private
    procedure CloseEvent(Sender: TObject; var Action: TCloseAction);
    procedure CloseQueryEvent(Sender: TObject; var CanClose: Boolean);
    procedure ExceptionEvent(Sender: TObject; E: Exception);
    procedure IdleEvent(Sender: TObject; var Done: Boolean);
    procedure ShowHintEvent(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
  end;

procedure TJvInterpreterFormsEvent.CloseEvent(Sender: TObject; var Action: TCloseAction);
begin
  CallFunction(nil, [O2V(Sender), Action]);
  Action := Args.Values[1];
end;

procedure TJvInterpreterFormsEvent.CloseQueryEvent(Sender: TObject; var CanClose: Boolean);
begin
  CallFunction(nil, [O2V(Sender), CanClose]);
  CanClose := Args.Values[1];
end;

procedure TJvInterpreterFormsEvent.ExceptionEvent(Sender: TObject; E: Exception);
begin
  CallFunction(nil, [O2V(Sender), O2V(E)]);
end;

procedure TJvInterpreterFormsEvent.IdleEvent(Sender: TObject; var Done: Boolean);
begin
  CallFunction(nil, [O2V(Sender), Done]);
  Done := Args.Values[1];
end;

procedure TJvInterpreterFormsEvent.ShowHintEvent(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);
begin
{ CallFunction(nil, [HintStr, CanShow, HintInfo]);
  HintStr := Args.Values[0];
  CanShow := Args.Values[1];
  HintInfo := Args.Values[2]; }
  NotImplemented('TShowHintEvent');
 { need define record THintInfo }
end;

procedure RegisterJvInterpreterAdapter(JvInterpreterAdapter: TJvInterpreterAdapter);
const
  cForms = 'Forms';
begin
  with JvInterpreterAdapter do
  begin
    { TScrollBarKind }
    AddConst(cForms, 'sbHorizontal', Integer(sbHorizontal));
    AddConst(cForms, 'sbVertical', Integer(sbVertical));
    { TControlScrollBar }
    AddClass(cForms, TControlScrollBar, 'TControlScrollBar');
    AddGet(TControlScrollBar, 'Assign', TControlScrollBar_Assign, 1, [varEmpty], varEmpty);
    AddGet(TControlScrollBar, 'Kind', TControlScrollBar_Read_Kind, 0, [0], varEmpty);
    AddGet(TControlScrollBar, 'ScrollPos', TControlScrollBar_Read_ScrollPos, 0, [0], varEmpty);
    AddGet(TControlScrollBar, 'Margin', TControlScrollBar_Read_Margin, 0, [0], varEmpty);
    AddSet(TControlScrollBar, 'Margin', TControlScrollBar_Write_Margin, 0, [0]);
    AddGet(TControlScrollBar, 'Increment', TControlScrollBar_Read_Increment, 0, [0], varEmpty);
    AddSet(TControlScrollBar, 'Increment', TControlScrollBar_Write_Increment, 0, [0]);
    AddGet(TControlScrollBar, 'Range', TControlScrollBar_Read_Range, 0, [0], varEmpty);
    AddSet(TControlScrollBar, 'Range', TControlScrollBar_Write_Range, 0, [0]);
    AddGet(TControlScrollBar, 'Position', TControlScrollBar_Read_Position, 0, [0], varEmpty);
    AddSet(TControlScrollBar, 'Position', TControlScrollBar_Write_Position, 0, [0]);
    AddGet(TControlScrollBar, 'Tracking', TControlScrollBar_Read_Tracking, 0, [0], varEmpty);
    AddSet(TControlScrollBar, 'Tracking', TControlScrollBar_Write_Tracking, 0, [0]);
    AddGet(TControlScrollBar, 'Visible', TControlScrollBar_Read_Visible, 0, [0], varEmpty);
    AddSet(TControlScrollBar, 'Visible', TControlScrollBar_Write_Visible, 0, [0]);
    { TScrollingWinControl }
    AddClass(cForms, TScrollingWinControl, 'TScrollingWinControl');
    AddGet(TScrollingWinControl, 'Create', TScrollingWinControl_Create, 1, [varEmpty], varEmpty);
    {$IFDEF COMPILER3_UP}
    AddGet(TScrollingWinControl, 'DisableAutoRange', TScrollingWinControl_DisableAutoRange, 0, [0], varEmpty);
    AddGet(TScrollingWinControl, 'EnableAutoRange', TScrollingWinControl_EnableAutoRange, 0, [0], varEmpty);
    {$ENDIF COMPILER3_UP}
    AddGet(TScrollingWinControl, 'ScrollInView', TScrollingWinControl_ScrollInView, 1, [varEmpty], varEmpty);
    AddGet(TScrollingWinControl, 'HorzScrollBar', TScrollingWinControl_Read_HorzScrollBar, 0, [0], varEmpty);
    AddSet(TScrollingWinControl, 'HorzScrollBar', TScrollingWinControl_Write_HorzScrollBar, 0, [0]);
    AddGet(TScrollingWinControl, 'VertScrollBar', TScrollingWinControl_Read_VertScrollBar, 0, [0], varEmpty);
    AddSet(TScrollingWinControl, 'VertScrollBar', TScrollingWinControl_Write_VertScrollBar, 0, [0]);
    {$IFDEF COMPLIB_VCL}
    { TFormBorderStyle }
    AddConst(cForms, 'bsNone', Integer(bsNone));
    AddConst(cForms, 'bsSingle', Integer(bsSingle));
    AddConst(cForms, 'bsSizeable', Integer(bsSizeable));
    AddConst(cForms, 'bsDialog', Integer(bsDialog));
    AddConst(cForms, 'bsToolWindow', Integer(bsToolWindow));
    AddConst(cForms, 'bsSizeToolWin', Integer(bsSizeToolWin));
    {$ENDIF COMPLIB_VCL}
    {$IFDEF COMPLIB_CLX}
    { TFormBorderStyle }
    AddConst(cForms, 'fbsNone', Integer(fbsNone));
    AddConst(cForms, 'fbsSingle', Integer(fbsSingle));
    AddConst(cForms, 'fbsSizeable', Integer(fbsSizeable));
    AddConst(cForms, 'fbsDialog', Integer(fbsDialog));
    AddConst(cForms, 'fbsToolWindow', Integer(fbsToolWindow));
    AddConst(cForms, 'fbsSizeToolWin', Integer(fbsSizeToolWin));
    {$ENDIF COMPLIB_CLX}
    { TScrollBox }
    AddClass(cForms, TScrollBox, 'TScrollBox');
    AddGet(TScrollBox, 'Create', TScrollBox_Create, 1, [varEmpty], varEmpty);
    AddGet(TScrollBox, 'BorderStyle', TScrollBox_Read_BorderStyle, 0, [0], varEmpty);
    AddSet(TScrollBox, 'BorderStyle', TScrollBox_Write_BorderStyle, 0, [0]);
    { TWindowState }
    AddConst(cForms, 'wsNormal', Integer(wsNormal));
    AddConst(cForms, 'wsMinimized', Integer(wsMinimized));
    AddConst(cForms, 'wsMaximized', Integer(wsMaximized));
    { TFormStyle }
    AddConst(cForms, 'fsNormal', Integer(fsNormal));
    AddConst(cForms, 'fsMDIChild', Integer(fsMDIChild));
    AddConst(cForms, 'fsMDIForm', Integer(fsMDIForm));
    AddConst(cForms, 'fsStayOnTop', Integer(fsStayOnTop));
    { TBorderIcon }
    AddConst(cForms, 'biSystemMenu', Integer(biSystemMenu));
    AddConst(cForms, 'biMinimize', Integer(biMinimize));
    AddConst(cForms, 'biMaximize', Integer(biMaximize));
    AddConst(cForms, 'biHelp', Integer(biHelp));
    { TPosition }
    AddConst(cForms, 'poDesigned', Integer(poDesigned));
    AddConst(cForms, 'poDefault', Integer(poDefault));
    AddConst(cForms, 'poDefaultPosOnly', Integer(poDefaultPosOnly));
    AddConst(cForms, 'poDefaultSizeOnly', Integer(poDefaultSizeOnly));
    AddConst(cForms, 'poScreenCenter', Integer(poScreenCenter));
    {$IFDEF COMPLIB_VCL}
    { TPrintScale }
    AddConst(cForms, 'poNone', Integer(poNone));
    AddConst(cForms, 'poProportional', Integer(poProportional));
    AddConst(cForms, 'poPrintToFit', Integer(poPrintToFit));
    {$ENDIF COMPLIB_VCL}
    { TShowAction }
    AddConst(cForms, 'saIgnore', Integer(saIgnore));
    AddConst(cForms, 'saRestore', Integer(saRestore));
    AddConst(cForms, 'saMinimize', Integer(saMinimize));
    AddConst(cForms, 'saMaximize', Integer(saMaximize));
    {$IFDEF COMPLIB_VCL}
    { TTileMode }
    AddConst(cForms, 'tbHorizontal', Integer(tbHorizontal));
    AddConst(cForms, 'tbVertical', Integer(tbVertical));
    {$ENDIF COMPLIB_VCL}
    { TCloseAction }
    AddConst(cForms, 'caNone', Integer(caNone));
    AddConst(cForms, 'caHide', Integer(caHide));
    AddConst(cForms, 'caFree', Integer(caFree));
    AddConst(cForms, 'caMinimize', Integer(caMinimize));
    { TFormState }
    AddConst(cForms, 'fsCreating', Integer(fsCreating));
    AddConst(cForms, 'fsVisible', Integer(fsVisible));
    AddConst(cForms, 'fsShowing', Integer(fsShowing));
    AddConst(cForms, 'fsModal', Integer(fsModal));
    {$IFDEF COMPLIB_VCL}
    AddConst(cForms, 'fsCreatedMDIChild', Integer(fsCreatedMDIChild));
    {$ENDIF COMPLIB_VCL}
    {$IFDEF COMPILER5_UP}
    AddConst(cForms, 'fsActivated', Integer(fsActivated));
    {$ENDIF COMPILER5_UP}
    { TCustomForm }
    {$IFDEF COMPILER3_UP}
    AddClass(cForms, TCustomForm, 'TCustomForm');
    {$ENDIF COMPILER3_UP}
    AddGet(TCustomForm, 'Close', TCustomForm_Close, 0, [0], varEmpty);
    AddGet(TCustomForm, 'CloseQuery', TCustomForm_CloseQuery, 0, [0], varEmpty);
    AddGet(TCustomForm, 'DefocusControl', TCustomForm_DefocusControl, 2, [varEmpty, varEmpty], varEmpty);
    AddGet(TCustomForm, 'FocusControl', TCustomForm_FocusControl, 1, [varEmpty], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddGet(TCustomForm, 'GetFormImage', TCustomForm_GetFormImage, 0, [0], varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddGet(TCustomForm, 'Hide', TCustomForm_Hide, 0, [0], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddGet(TCustomForm, 'Print', TCustomForm_Print, 0, [0], varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddGet(TCustomForm, 'Release', TCustomForm_Release, 0, [0], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddGet(TCustomForm, 'SendCancelMode', TCustomForm_SendCancelMode, 1, [varEmpty], varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddGet(TCustomForm, 'SetFocus', TCustomForm_SetFocus, 0, [0], varEmpty);
    AddGet(TCustomForm, 'SetFocusedControl', TCustomForm_SetFocusedControl, 1, [varEmpty], varEmpty);
    AddGet(TCustomForm, 'Show', TCustomForm_Show, 0, [0], varEmpty);
    AddGet(TCustomForm, 'ShowModal', TCustomForm_ShowModal, 0, [0], varEmpty);
    AddGet(TCustomForm, 'Active', TCustomForm_Read_Active, 0, [0], varEmpty);
    AddGet(TCustomForm, 'ActiveControl', TCustomForm_Read_ActiveControl, 0, [0], varEmpty);
    AddSet(TCustomForm, 'ActiveControl', TCustomForm_Write_ActiveControl, 0, [0]);
    {$IFDEF COMPLIB_VCL}
    AddGet(TCustomForm, 'ActiveOleControl', TCustomForm_Read_ActiveOleControl, 0, [0], varEmpty);
    AddSet(TCustomForm, 'ActiveOleControl', TCustomForm_Write_ActiveOleControl, 0, [0]);
    {$ENDIF COMPLIB_VCL}
    AddGet(TCustomForm, 'Canvas', TCustomForm_Read_Canvas, 0, [0], varEmpty);
    AddGet(TCustomForm, 'DropTarget', TCustomForm_Read_DropTarget, 0, [0], varEmpty);
    AddSet(TCustomForm, 'DropTarget', TCustomForm_Write_DropTarget, 0, [0]);
    {$IFDEF COMPILER3_UP}
    AddGet(TCustomForm, 'HelpFile', TCustomForm_Read_HelpFile, 0, [0], varEmpty);
    AddSet(TCustomForm, 'HelpFile', TCustomForm_Write_HelpFile, 0, [0]);
    {$ENDIF COMPILER3_UP}
    AddGet(TCustomForm, 'KeyPreview', TCustomForm_Read_KeyPreview, 0, [0], varEmpty);
    AddSet(TCustomForm, 'KeyPreview', TCustomForm_Write_KeyPreview, 0, [0]);
    AddGet(TCustomForm, 'Menu', TCustomForm_Read_Menu, 0, [0], varEmpty);
    AddSet(TCustomForm, 'Menu', TCustomForm_Write_Menu, 0, [0]);
    AddGet(TCustomForm, 'ModalResult', TCustomForm_Read_ModalResult, 0, [0], varEmpty);
    AddSet(TCustomForm, 'ModalResult', TCustomForm_Write_ModalResult, 0, [0]);
    AddGet(TCustomForm, 'WindowState', TCustomForm_Read_WindowState, 0, [0], varEmpty);
    AddSet(TCustomForm, 'WindowState', TCustomForm_Write_WindowState, 0, [0]);
    { TForm }
    AddClass(cForms, TForm, 'TForm');
    AddGet(TForm, 'Create', TForm_Create, 1, [varEmpty], varEmpty);
    {$IFDEF Delphi}
    AddGet(TForm, 'CreateNew', TForm_CreateNew, 1, [varEmpty], varEmpty);
    {$ELSE}
    AddGet(TForm, 'CreateNew', TForm_CreateNew, 2, [varEmpty, varEmpty], varEmpty);
    {$ENDIF}
    {$IFDEF COMPLIB_VCL}
    AddGet(TForm, 'ArrangeIcons', TForm_ArrangeIcons, 0, [0], varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddGet(TForm, 'Cascade', TForm_Cascade, 0, [0], varEmpty);
    AddGet(TForm, 'Next', TForm_Next, 0, [0], varEmpty);
    AddGet(TForm, 'Previous', TForm_Previous, 0, [0], varEmpty);
    AddGet(TForm, 'Tile', TForm_Tile, 0, [0], varEmpty);
    { TDataModule }
    AddClass(cForms, TDataModule, 'TDataModule');
    AddGet(TDataModule, 'Create', TDataModule_Create, 1, [varEmpty], varEmpty);
    {$IFDEF Delphi}
    AddGet(TDataModule, 'CreateNew', TDataModule_CreateNew, 1, [varEmpty], varEmpty);
    {$ELSE}
    AddGet(TDataModule, 'CreateNew', TDataModule_CreateNew, 2, [varEmpty, varEmpty], varEmpty);
    {$ENDIF}
    { TScreen }
    AddClass(cForms, TScreen, 'TScreen');
    AddGet(TScreen, 'Create', TScreen_Create, 1, [varEmpty], varEmpty);
    AddGet(TScreen, 'ActiveControl', TScreen_Read_ActiveControl, 0, [0], varEmpty);
    {$IFDEF COMPILER3_UP}
    AddGet(TScreen, 'ActiveCustomForm', TScreen_Read_ActiveCustomForm, 0, [0], varEmpty);
    {$ENDIF COMPILER3_UP}
    AddGet(TScreen, 'ActiveForm', TScreen_Read_ActiveForm, 0, [0], varEmpty);
    {$IFDEF COMPILER3_UP}
    AddGet(TScreen, 'CustomFormCount', TScreen_Read_CustomFormCount, 0, [0], varEmpty);
    AddGet(TScreen, 'CustomForms', TScreen_Read_CustomForms, 1, [0], varEmpty);
    {$ENDIF COMPILER3_UP}
    AddGet(TScreen, 'Cursor', TScreen_Read_Cursor, 0, [0], varEmpty);
    AddSet(TScreen, 'Cursor', TScreen_Write_Cursor, 0, [0]);
    AddGet(TScreen, 'Cursors', TScreen_Read_Cursors, 1, [0], varEmpty);
    AddSet(TScreen, 'Cursors', TScreen_Write_Cursors, 1, [1]);
    AddGet(TScreen, 'DataModules', TScreen_Read_DataModules, 1, [0], varEmpty);
    AddGet(TScreen, 'DataModuleCount', TScreen_Read_DataModuleCount, 0, [0], varEmpty);
    {$IFDEF COMPLIB_VCL}
    {$IFDEF COMPILER3_UP}
    AddGet(TScreen, 'IconFont', TScreen_Read_IconFont, 0, [0], varEmpty);
    AddSet(TScreen, 'IconFont', TScreen_Write_IconFont, 0, [0]);
    {$ENDIF COMPILER3_UP}
    {$ENDIF COMPLIB_VCL}
    AddGet(TScreen, 'Fonts', TScreen_Read_Fonts, 0, [0], varEmpty);
    AddGet(TScreen, 'FormCount', TScreen_Read_FormCount, 0, [0], varEmpty);
    AddIGet(TScreen, cForms, TScreen_Read_Forms, 1, [0], varEmpty); // ivan_ra
    {$IFDEF COMPILER3_UP}
    {$IFDEF COMPLIB_VCL}
    AddGet(TScreen, 'Imes', TScreen_Read_Imes, 0, [0], varEmpty);
    AddGet(TScreen, 'DefaultIme', TScreen_Read_DefaultIme, 0, [0], varEmpty);
    AddGet(TScreen, 'DefaultKbLayout', TScreen_Read_DefaultKbLayout, 0, [0], varEmpty);
    {$ENDIF COMPLIB_VCL}
    {$ENDIF COMPILER3_UP}
    AddGet(TScreen, 'Height', TScreen_Read_Height, 0, [0], varEmpty);
    AddGet(TScreen, 'PixelsPerInch', TScreen_Read_PixelsPerInch, 0, [0], varEmpty);
    AddGet(TScreen, 'Width', TScreen_Read_Width, 0, [0], varEmpty);
    { TTimerMode }
    AddConst(cForms, 'tmShow', Integer(tmShow));
    AddConst(cForms, 'tmHide', Integer(tmHide));
    { TApplication }
    AddClass(cForms, TApplication, 'TApplication');
    AddGet(TApplication, 'Create', TApplication_Create, 1, [varEmpty], varEmpty);
    AddGet(TApplication, 'BringToFront', TApplication_BringToFront, 0, [0], varEmpty);
    AddGet(TApplication, 'ControlDestroyed', TApplication_ControlDestroyed, 1, [varEmpty], varEmpty);
    AddGet(TApplication, 'CancelHint', TApplication_CancelHint, 0, [0], varEmpty);
    AddGet(TApplication, 'CreateForm', TApplication_CreateForm, 2, [varEmpty, varByRef], varEmpty);
    AddGet(TApplication, 'HandleException', TApplication_HandleException, 1, [varEmpty], varEmpty);
    AddGet(TApplication, 'HandleMessage', TApplication_HandleMessage, 0, [0], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddGet(TApplication, 'HelpCommand', TApplication_HelpCommand, 2, [varEmpty, varEmpty], varEmpty);
    AddGet(TApplication, 'HelpContext', TApplication_HelpContext, 1, [varEmpty], varEmpty);
    AddGet(TApplication, 'HelpJump', TApplication_HelpJump, 1, [varEmpty], varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddGet(TApplication, 'HideHint', TApplication_HideHint, 0, [0], varEmpty);
    AddGet(TApplication, 'Initialize', TApplication_Initialize, 0, [0], varEmpty);
    AddGet(TApplication, 'MessageBox', TApplication_MessageBox, 3, [varEmpty, varEmpty, varEmpty], varEmpty);
    AddGet(TApplication, 'Minimize', TApplication_Minimize, 0, [0], varEmpty);
    {$IFDEF COMPLIB_VCL}
    {$IFDEF COMPILER3_UP}
    AddGet(TApplication, 'NormalizeAllTopMosts', TApplication_NormalizeAllTopMosts, 0, [0], varEmpty);
    {$ENDIF COMPILER3_UP}
    {$ENDIF COMPLIB_VCL}
    AddGet(TApplication, 'NormalizeTopMosts', TApplication_NormalizeTopMosts, 0, [0], varEmpty);
    AddGet(TApplication, 'ProcessMessages', TApplication_ProcessMessages, 0, [0], varEmpty);
    AddGet(TApplication, 'Restore', TApplication_Restore, 0, [0], varEmpty);
    AddGet(TApplication, 'RestoreTopMosts', TApplication_RestoreTopMosts, 0, [0], varEmpty);
    AddGet(TApplication, 'Run', TApplication_Run, 0, [0], varEmpty);
    AddGet(TApplication, 'ShowException', TApplication_ShowException, 1, [varEmpty], varEmpty);
    AddGet(TApplication, 'Terminate', TApplication_Terminate, 0, [0], varEmpty);
    AddGet(TApplication, 'Active', TApplication_Read_Active, 0, [0], varEmpty);
    {$IFDEF COMPILER3_UP}
    AddGet(TApplication, 'CurrentHelpFile', TApplication_Read_CurrentHelpFile, 0, [0], varEmpty);
    {$ENDIF COMPILER3_UP}
    {$IFDEF COMPLIB_VCL}
    AddGet(TApplication, 'DialogHandle', TApplication_Read_DialogHandle, 0, [0], varEmpty);
    AddSet(TApplication, 'DialogHandle', TApplication_Write_DialogHandle, 0, [0]);
    {$ENDIF COMPLIB_VCL}
    AddGet(TApplication, 'ExeName', TApplication_Read_ExeName, 0, [0], varEmpty);
    AddGet(TApplication, 'Handle', TApplication_Read_Handle, 0, [0], varEmpty);
    AddSet(TApplication, 'Handle', TApplication_Write_Handle, 0, [0]);
    AddGet(TApplication, 'HelpFile', TApplication_Read_HelpFile, 0, [0], varEmpty);
    AddSet(TApplication, 'HelpFile', TApplication_Write_HelpFile, 0, [0]);
    AddGet(TApplication, 'Hint', TApplication_Read_Hint, 0, [0], varEmpty);
    AddSet(TApplication, 'Hint', TApplication_Write_Hint, 0, [0]);
    AddGet(TApplication, 'HintColor', TApplication_Read_HintColor, 0, [0], varEmpty);
    AddSet(TApplication, 'HintColor', TApplication_Write_HintColor, 0, [0]);
    AddGet(TApplication, 'HintPause', TApplication_Read_HintPause, 0, [0], varEmpty);
    AddSet(TApplication, 'HintPause', TApplication_Write_HintPause, 0, [0]);
    AddGet(TApplication, 'HintShortPause', TApplication_Read_HintShortPause, 0, [0], varEmpty);
    AddSet(TApplication, 'HintShortPause', TApplication_Write_HintShortPause, 0, [0]);
    AddGet(TApplication, 'HintHidePause', TApplication_Read_HintHidePause, 0, [0], varEmpty);
    AddSet(TApplication, 'HintHidePause', TApplication_Write_HintHidePause, 0, [0]);
    AddGet(TApplication, 'Icon', TApplication_Read_Icon, 0, [0], varEmpty);
    AddSet(TApplication, 'Icon', TApplication_Write_Icon, 0, [0]);
    AddGet(TApplication, 'MainForm', TApplication_Read_MainForm, 0, [0], varEmpty);
    AddGet(TApplication, 'ShowHint', TApplication_Read_ShowHint, 0, [0], varEmpty);
    AddSet(TApplication, 'ShowHint', TApplication_Write_ShowHint, 0, [0]);
    AddGet(TApplication, 'ShowMainForm', TApplication_Read_ShowMainForm, 0, [0], varEmpty);
    AddSet(TApplication, 'ShowMainForm', TApplication_Write_ShowMainForm, 0, [0]);
    AddGet(TApplication, 'Terminated', TApplication_Read_Terminated, 0, [0], varEmpty);
    AddGet(TApplication, 'Title', TApplication_Read_Title, 0, [0], varEmpty);
    AddSet(TApplication, 'Title', TApplication_Write_Title, 0, [0]);
    {$IFDEF COMPLIB_VCL}
    AddGet(TApplication, 'UpdateFormatSettings', TApplication_Read_UpdateFormatSettings, 0, [0], varEmpty);
    AddSet(TApplication, 'UpdateFormatSettings', TApplication_Write_UpdateFormatSettings, 0, [0]);
    {$IFDEF COMPILER3_UP}
    AddGet(TApplication, 'UpdateMetricSettings', TApplication_Read_UpdateMetricSettings, 0, [0], varEmpty);
    AddSet(TApplication, 'UpdateMetricSettings', TApplication_Write_UpdateMetricSettings, 0, [0]);
    {$ENDIF COMPILER3_UP}
    {$ENDIF COMPLIB_VCL}

    AddFunction(cForms, 'Application', JvInterpreter_Application, 0, [0], varEmpty);
    AddFunction(cForms, 'Screen', JvInterpreter_Screen, 0, [0], varEmpty);

    AddFunction(cForms, 'GetParentForm', JvInterpreter_GetParentForm, 1, [varEmpty], varEmpty);
    AddFunction(cForms, 'ValidParentForm', JvInterpreter_ValidParentForm, 1, [varEmpty], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddFunction(cForms, 'DisableTaskWindows', JvInterpreter_DisableTaskWindows, 1, [varEmpty], varEmpty);
    AddFunction(cForms, 'EnableTaskWindows', JvInterpreter_EnableTaskWindows, 1, [varEmpty], varEmpty);
    {$ENDIF COMPLIB_VCL}
    AddFunction(cForms, 'IsAccel', JvInterpreter_IsAccel, 2, [varEmpty, varEmpty], varEmpty);
    {$IFDEF COMPLIB_VCL}
    AddFunction(cForms, 'KeysToShiftState', JvInterpreter_KeysToShiftState, 1, [varEmpty], varEmpty);
    AddFunction(cForms, 'KeyDataToShiftState', JvInterpreter_KeyDataToShiftState, 1, [varEmpty], varEmpty);
    {$IFDEF COMPILER3_UP}
    AddFunction(cForms, 'ForegroundTask', JvInterpreter_ForegroundTask, 0, [0], varEmpty);
    {$ENDIF COMPILER3_UP}
    {$ENDIF COMPLIB_VCL}

    AddHandler(cForms, 'TCloseEvent', TJvInterpreterFormsEvent, @TJvInterpreterFormsEvent.CloseEvent);
    AddHandler(cForms, 'TCloseQueryEvent', TJvInterpreterFormsEvent, @TJvInterpreterFormsEvent.CloseQueryEvent);
    AddHandler(cForms, 'TExceptionEvent', TJvInterpreterFormsEvent, @TJvInterpreterFormsEvent.ExceptionEvent);
    AddHandler(cForms, 'TIdleEvent', TJvInterpreterFormsEvent, @TJvInterpreterFormsEvent.IdleEvent);
    AddHandler(cForms, 'TShowHintEvent', TJvInterpreterFormsEvent, @TJvInterpreterFormsEvent.ShowHintEvent);
  end;
  RegisterClasses([TScrollBox]);
end;

end.