dxjsgraphicsconstants.pas

Well known and usefull component for delphi 7

////////////////////////////////////////////////////////////////////////////
//    Component: TDXJSGraphicsConstants
//       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 Graphics.PAS constants to the instance of
//  javascript specified by the javascript property.
// ========================================================================
////////////////////////////////////////////////////////////////////////////
unit DXJSGraphicsConstants;
interface

uses
  DXJavaScript,
  Classes;

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

//procedure Register;

implementation

Uses
   Graphics;

{
procedure Register;
begin
  RegisterComponents('BPDX JavaScript', [TDXJSGraphicsConstants]);
end;
}

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

destructor TDXJSGraphicsConstants.Destroy;
Begin
   inherited Destroy;
End;

///////////////////////////////////////////////////////////////////////////////
// assign these hooks to DXJavaScript
///////////////////////////////////////////////////////////////////////////////
Procedure TDXJSGraphicsConstants.RegisterWithJavaScript;
Begin
   if Assigned(fJavaScript) then Begin
      With fJavaScript do Begin
         AddConstant('clScrollBar',clScrollBar);
         AddConstant('clBackground',clBackground);
         AddConstant('clActiveCaption',clActiveCaption);
         AddConstant('clInactiveCaption',clInactiveCaption);
         AddConstant('clMenu',clMenu);
         AddConstant('clWindow',clWindow);
         AddConstant('clWindowFrame',clWindowFrame);
         AddConstant('clMenuText',clMenuText);
         AddConstant('clWindowText',clWindowText);
         AddConstant('clCaptionText',clCaptionText);
         AddConstant('clActiveBorder',clActiveBorder);
         AddConstant('clInactiveBorder',clInactiveBorder);
         AddConstant('clAppWorkSpace',clAppWorkSpace);
         AddConstant('clHighlight',clHighlight);
         AddConstant('clHighlightText',clHighlightText);
         AddConstant('clBtnFace',clBtnFace);
         AddConstant('clBtnShadow',clBtnShadow);
         AddConstant('clGrayText',clGrayText);
         AddConstant('clBtnText',clBtnText);
         AddConstant('clInactiveCaptionText',clInactiveCaptionText);
         AddConstant('clBtnHighlight',clBtnHighlight);
         AddConstant('cl3DDkShadow',cl3DDkShadow);
         AddConstant('cl3DLight',cl3DLight);
         AddConstant('clInfoText',clInfoText);
         AddConstant('clInfoBk',clInfoBk);

         AddConstant('clBlack',clBlack);
         AddConstant('clMaroon',clMaroon);
         AddConstant('clGreen',clGreen);
         AddConstant('clOlive',clOlive);
         AddConstant('clNavy',clNavy);
         AddConstant('clPurple',clPurple);
         AddConstant('clTeal',clTeal);
         AddConstant('clGray',clGray);
         AddConstant('clSilver',clSilver);
         AddConstant('clRed',clRed);
         AddConstant('clLime',clLime);
         AddConstant('clYellow',clYellow);
         AddConstant('clBlue',clBlue);
         AddConstant('clFuchsia',clFuchsia);
         AddConstant('clAqua',clAqua);
         AddConstant('clLtGray',clLtGray);
         AddConstant('clDkGray',clDkGray);
         AddConstant('clWhite',clWhite);
         AddConstant('clNone',clNone);
         AddConstant('clDefault',clDefault);

         AddConstant('cmBlackness',cmBlackness);
         AddConstant('cmDstInvert',cmDstInvert);
         AddConstant('cmMergeCopy',cmMergeCopy);
         AddConstant('cmMergePaint',cmMergePaint);
         AddConstant('cmNotSrcCopy',cmNotSrcCopy);
         AddConstant('cmNotSrcErase',cmNotSrcErase);
         AddConstant('cmPatCopy',cmPatCopy);
         AddConstant('cmPatInvert',cmPatInvert);
         AddConstant('cmPatPaint',cmPatPaint);
         AddConstant('cmSrcAnd',cmSrcAnd);
         AddConstant('cmSrcCopy',cmSrcCopy);
         AddConstant('cmSrcErase',cmSrcErase);
         AddConstant('cmSrcInvert',cmSrcInvert);
         AddConstant('cmSrcPaint',cmSrcPaint);
         AddConstant('cmWhiteness',cmWhiteness);

//         AddConstant('a',b);
      End;
   End;
End;

end.