dxjsaddtapplication.pas

Well known and usefull component for delphi 7

////////////////////////////////////////////////////////////////////////////
//    Component: TDXJSAddTApplication
//       Author: Alexander Baranovsky ([e-mail])
//               G.E. Ozz Nixon Jr. ([e-mail])
// ========================================================================
// Source Owner: DX, Inc. 2002, 2004
//    Copyright: All code is the property of DX, Inc. Licensed for
//               resell by Brain Patchwork DX (tm) and part of the
//               DX (r) product lines, which are (c) 1999-2002
//               DX, Inc. Source may not be distributed without
//               written permission from both Brain Patchwork DX,
//               and DX, Inc.
//      License: (Reminder), None of this code can be added to other
//               developer products without permission. This includes
//               but not limited to DCU's, DCP's, DLL's, OCX's, or
//               any other form of merging our technologies. All of
//               your products released to a public consumer be it
//               shareware, freeware, commercial, etc. must contain a
//               license notification somewhere visible in the
//               application.
// Code Version: (3rd Generation)
// ========================================================================
//  Description: Implement TApplication support to instance of javascript
//  specified by the javascript property. Introduces TApplication Instance,
//  and related message constants, along with many of the properties and
//  public methods (that are not automatically found in the published section)
// ========================================================================
////////////////////////////////////////////////////////////////////////////
unit DXJSAddTApplication;

interface

uses
  DXJavaScript,
  Forms,
  Classes;

type
  TDXJSAddTApplication = class(TComponent)
  private
    fParent:TApplication;
    fJavaScript:TDXJavaScript;
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner:TComponent); override;
    destructor Destroy; override;
    procedure Assign(Application:TApplication); reintroduce;
    Procedure RegisterWithJavaScript;
  published
    { Published declarations }
    Property JavaScript:TDXJavaScript read fJavaScript write fJavaScript;
  end;

implementation

Uses
   Windows,
   Controls,
   Graphics,
   SysUtils;

constructor TDXJSAddTApplication.Create(AOwner:TComponent);
Begin
   inherited Create(AOwner);
End;

destructor TDXJSAddTApplication.Destroy;
Begin
   inherited Destroy;
End;

procedure TDXJSAddTApplication.Assign(Application:TApplication);
Begin
   fParent:=Application;
   if fParent.Name='' then fParent.Name:='Application';
End;

///////////////////////////////////////////////////////////////////////////////
// DXJavaScript Call back hooks!
// ============================================================================
// methods
///////////////////////////////////////////////////////////////////////////////
function __ActivateHint(Instance: TObject; const Parameters: array of Variant): Variant;
Var
   CursorPos:TPoint;

begin
   TApplication(Instance).ActivateHint(CursorPos);
end;

function __BringToFront(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).BringToFront;
end;

function __CancelHint(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).CancelHint;
end;

function __CreateForm(Instance: TObject; const Parameters: array of Variant): Variant;
Var
   InstanceClass:TComponentClass;
   Reference:TComponent;

begin
   TApplication(Instance).CreateForm(InstanceClass,Reference);
//   Result:=Reference;
end;

function __HandleMessage(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).HandleMessage;
end;

function __HelpCommand(Instance: TObject; const Parameters: array of Variant): Variant;
Var
   Command,Data:Integer;

begin
   TApplication(Instance).HelpCommand(Command,Data);
end;

function __HelpContext(Instance: TObject; const Parameters: array of Variant): Variant;
Var
   Context:THelpContext;

begin
   TApplication(Instance).HelpContext(Context);
end;

function __HelpJump(Instance: TObject; const Parameters: array of Variant): Variant;
Var
   JumpID:String;

begin
   TApplication(Instance).HelpJump(JumpID);
end;

function __HideHint(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).HideHint;
end;

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

function __MessageBox(Instance: TObject; const Parameters: array of Variant): Variant;
Var
   Text,Caption:String;
   Flags:Integer;

begin
   Result:=TApplication(Instance).MessageBox(PChar(Text),PChar(Caption),Flags);
end;

function __Minimize(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).Minimize;
end;

function __NormalizeAllTopMosts(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).NormalizeAllTopMosts;
end;

function __NormalizeTopMosts(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).NormalizeTopMosts;
end;

function __ProcessMessages(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).ProcessMessages;
end;

function __Restore(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).Restore;
end;

function __RestoreTopMosts(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).RestoreTopMosts;
end;

function __Terminate(Instance: TObject; const Parameters: array of Variant): Variant;
begin
   TApplication(Instance).Terminate;
end;

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

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

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

///////////////////////////////////////////////////////////////////////////////
// non-published property
///////////////////////////////////////////////////////////////////////////////
function __TApplication_GetActive(Instance: TObject; const Parameters: array of Variant): Variant;
begin