bereg.pas

来自「KSDev.BlockEngine.v3.03.rar 界面控件」· PAS 代码 · 共 43 行

{==============================================================================

  Copyright (C) 2000-2004 by Evgeny Kryukov
  All rights reserved

  All contents of this file and all other files included in this archive
  are Copyright (C) 2004 Evgeny Kryukov. Use and/or distribution of
  them requires acceptance of the License Agreement.

  See License.txt for licence information
 
  $Id: bereg.pas,v 1.1.1.1 2006/11/02 17:02:51 eugene Exp $

===============================================================================}

unit bereg;

{$I be_define.inc}

interface

uses
  Classes, SysUtils;

procedure Register;

implementation {===============================================================}

uses dviewer, deditor, dlib, be_controls;

{ Register Routines ===========================================================}

procedure Register;
begin
  RegisterComponents('BlockEngine', [TBlockViewer, TBlockEditor, TBlockLibrary, TClassBlockLibrary]);
  RegisterComponents('BlockEngine', [TbeStrokeWidthBox, TbeStrokeCapBox, TbeStrokePatternBox,
    TbeStrokeColorBox, TbeStrokeAlphaBox, TbeFillColorBox, TbeFillAlphaBox,
    TbeFillStyleBox]);
end;

end.