dxjsaddtapplication.pas

Well known and usefull component for delphi 7

   result :=TApplication(Instance).Active;
//  TDXJavaScript.DelphiObjectToVariant(TForm(Instance).Canvas);
end;

function __TApplication_GetBiDiKeyboard(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).BiDiKeyboard;
end;

function __TApplication_SetBiDiKeyboard(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).BiDiKeyboard:=TDXJavaScript.ToString(Parameters[0]);
end;

function __TApplication_GetCurrentHelpFile(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).CurrentHelpFile;
end;

function __TApplication_GetExeName(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).ExeName;
end;

function __TApplication_SetDialogHandle(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).DialogHandle:=TDXJavaScript.ToInteger(Parameters[0]);
end;

function __TApplication_GetDialogHandle(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).DialogHandle;
end;

function __TApplication_GetHandle(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).Handle;
end;

function __TApplication_SetHelpFile(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).HelpFile:=TDXJavaScript.ToString(Parameters[0]);
end;

function __TApplication_GetHelpFile(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).HelpFile;
end;

function __TApplication_SetHint(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).Hint:=TDXJavaScript.ToString(Parameters[0]);
end;

function __TApplication_GetHint(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).Hint;
end;

function __TApplication_SetHintColor(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).HintColor:=TDXJavaScript.ToInteger(Parameters[0]);
end;

function __TApplication_GetHintColor(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).HintColor;
end;

function __TApplication_SetHintHidePause(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).HintHidePause:=TDXJavaScript.ToInteger(Parameters[0]);
end;

function __TApplication_GetHintHidePause(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).HintHidePause;
end;

function __TApplication_SetHintPause(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).HintPause:=TDXJavaScript.ToInteger(Parameters[0]);
end;

function __TApplication_GetHintPause(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).HintPause;
end;

function __TApplication_SetHintShortCuts(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).HintShortCuts:=TDXJavaScript.ToBoolean(Parameters[0]);
end;

function __TApplication_GetHintShortCuts(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).HintShortCuts;
end;

function __TApplication_SetHintShortPause(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).HintShortPause:=TDXJavaScript.ToInteger(Parameters[0]);
end;

function __TApplication_GetHintShortPause(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).HintShortPause;
end;

function __TApplication_SetNonBiDiKeyboard(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).NonBiDiKeyboard:=TDXJavaScript.ToString(Parameters[0]);
end;

function __TApplication_GetNonBiDiKeyboard(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).NonBiDiKeyboard;
end;

function __TApplication_SetShowHint(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).ShowHint:=TDXJavaScript.ToBoolean(Parameters[0]);
end;

function __TApplication_GetShowHint(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).ShowHint;
end;

function __TApplication_SetShowMainForm(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).ShowMainForm:=TDXJavaScript.ToBoolean(Parameters[0]);
end;

function __TApplication_GetShowMainForm(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).ShowMainForm;
end;

function __TApplication_GetTerminated(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).Terminated;
end;

function __TApplication_SetTitle(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).Title:=TDXJavaScript.ToString(Parameters[0]);
end;

function __TApplication_GetTitle(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   Result:=TApplication(Instance).Title;
end;

///////////////////////////////////////////////////////////////////////////////
// assign these hooks to DXJavaScript
///////////////////////////////////////////////////////////////////////////////
Procedure TDXJSAddTApplication.RegisterWithJavaScript;
Begin
   if Assigned(fJavaScript) then Begin
      With fJavaScript do Begin
         AddConstant('IDOK',1);
         AddConstant('IDCANCEL',2);
         AddConstant('IDABORT',3);
         AddConstant('IDRETRY',4);
         AddConstant('IDIGNORE',5);
         AddConstant('IDYES',6);
         AddConstant('IDNO',7);
         AddMethod(TApplication, 'ActivateHint', @__ActivateHint);
         AddMethod(TApplication, 'BringToFront', @__BringToFront);
         AddMethod(TApplication, 'CancelHint', @__CancelHint);
         AddMethod(TApplication, 'CreateForm', @__CreateForm);
         AddMethod(TApplication, 'HandleMessage', @__HandleMessage);
         AddMethod(TApplication, 'HelpCommand', @__HelpCommand);
         AddMethod(TApplication, 'HelpContext', @__HelpContext);
         AddMethod(TApplication, 'HelpJump', @__HelpJump);
         AddMethod(TApplication, 'HideHint', @__HideHint);
         AddMethod(TApplication, 'IsRightToLeft', @__IsRightToLeft);
         AddMethod(TApplication, 'MessageBox', @__MessageBox);
         AddMethod(TApplication, 'Minimize', @__Minimize);
         AddMethod(TApplication, 'NormalizeAllTopMosts', @__NormalizeAllTopMosts);
         AddMethod(TApplication, 'NormalizeTopMosts', @__NormalizeTopMosts);
         AddMethod(TApplication, 'ProcessMessages', @__ProcessMessages);
         AddMethod(TApplication, 'Restore', @__Restore);
         AddMethod(TApplication, 'RestoreTopMosts', @__RestoreTopMosts);
         AddMethod(TApplication, 'Terminate', @__Terminate);
         AddMethod(TApplication, 'UseRightToLeftAlignment', @__UseRightToLeftAlignment);
         AddMethod(TApplication, 'UseRightToLeftReading', @__UseRightToLeftReading);
         AddMethod(TApplication, 'UseRightToLeftScrollBar', @__UseRightToLeftScrollBar);
//         AddMethod(TApplication, 'e', @__);
         AddProperty(TApplication, 'Active', @__TApplication_GetActive, nil);
         AddProperty(TApplication, 'BiDiKeyboard', @__TApplication_GetBiDiKeyboard, @__TApplication_SetBiDiKeyboard);
         AddProperty(TApplication, 'CurrentHelpFile', @__TApplication_GetCurrentHelpFile, nil);
         AddProperty(TApplication, 'ExeName', @__TApplication_GetExeName, nil);
         AddProperty(TApplication, 'DialogHandle', @__TApplication_GetDialogHandle, @__TApplication_SetDialogHandle);
         AddProperty(TApplication, 'Handle', @__TApplication_GetHandle, nil);
         AddProperty(TApplication, 'HelpFile', @__TApplication_GetHelpFile, @__TApplication_SetHelpFile);
         AddProperty(TApplication, 'Hint', @__TApplication_GetHint, @__TApplication_SetHint);
         AddProperty(TApplication, 'HintColor', @__TApplication_GetHintColor, @__TApplication_SetHintColor);
         AddProperty(TApplication, 'HintHidePause', @__TApplication_GetHintHidePause, @__TApplication_SetHintHidePause);
         AddProperty(TApplication, 'HintPause', @__TApplication_GetHintPause, @__TApplication_SetHintPause);
         AddProperty(TApplication, 'HintShortCuts', @__TApplication_GetHintShortCuts, @__TApplication_SetHintShortCuts);
         AddProperty(TApplication, 'HintShortPause', @__TApplication_GetHintShortPause, @__TApplication_SetHintShortPause);
         AddProperty(TApplication, 'NonBiDiKeyboard', @__TApplication_GetNonBiDiKeyboard, @__TApplication_SetNonBiDiKeyboard);
         AddProperty(TApplication, 'ShowHint', @__TApplication_GetShowHint, @__TApplication_SetShowHint);
         AddProperty(TApplication, 'ShowMainForm', @__TApplication_GetShowMainForm, @__TApplication_SetShowMainForm);
         AddProperty(TApplication, 'Terminated', @__TApplication_GetTerminated, nil);
         AddProperty(TApplication, 'Title', @__TApplication_GetTitle, @__TApplication_SetTitle);
         AddObject(fParent.Name,fParent);
      End;
   End;
End;

end.