78 lines
3.0 KiB
ObjectPascal
78 lines
3.0 KiB
ObjectPascal
{******************************************************************************}
|
|
{ UNIFIED INTERBASE (UIB) }
|
|
{ }
|
|
{ Project JEDI Code Library (JCL) }
|
|
{ }
|
|
{ The contents of this file are subject to the Mozilla Public License Version }
|
|
{ 1.0 (the "License"); you may not use this file except in compliance with the }
|
|
{ License. You may obtain a copy of the License at http://www.mozilla.org/MPL/ }
|
|
{ }
|
|
{ Software distributed under the License is distributed on an "AS IS" basis, }
|
|
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
|
|
{ the specific language governing rights and limitations under the License. }
|
|
{ }
|
|
{ The Original Code is JvUIBReg.pas. }
|
|
{ }
|
|
{ The Initial Developer of the Original Code is documented in the accompanying }
|
|
{ help file JCL.chm. Portions created by these individuals are Copyright (C) }
|
|
{ 2000 of these individuals. }
|
|
{ }
|
|
{ Register Components }
|
|
{ }
|
|
{ Unit owner: Henri Gourvest }
|
|
{ Last modified: Jun 08, 2003 }
|
|
{ }
|
|
{******************************************************************************}
|
|
|
|
unit JvUIBReg;
|
|
|
|
{$IFNDEF BCB}
|
|
{$I jvcl.inc}
|
|
{$ENDIF !BCB}
|
|
{$I jvuib.inc}
|
|
|
|
interface
|
|
|
|
{$IFNDEF UIBNOCOMPONENT}
|
|
procedure Register;
|
|
{$ENDIF !UIBNOCOMPONENT}
|
|
|
|
implementation
|
|
|
|
{$IFNDEF UIBNOCOMPONENT}
|
|
|
|
uses
|
|
Classes, Controls,
|
|
{$IFDEF USEJVCL}
|
|
JvDsgnConsts,
|
|
{$ENDIF USEJVCL}
|
|
{$IFNDEF DelphiPersonalEdition}
|
|
JvUIBDataSet,
|
|
{$ENDIF !DelphiPersonalEdition}
|
|
JvUIB;
|
|
|
|
{$R JvUIBReg.dcr}
|
|
|
|
{$IFNDEF USEJVCL}
|
|
resourcestring
|
|
RsPaletteUIB = 'Jv UIB';
|
|
{$ENDIF !USEJVCL}
|
|
|
|
procedure Register;
|
|
begin
|
|
{$IFDEF COMPILER7_UP}
|
|
{$IFNDEF DelphiPersonalEdition}
|
|
GroupDescendentsWith(TJvUIBDataSet, TControl);
|
|
GroupDescendentsWith(TJvUIBCustomDataSet, TControl);
|
|
{$ENDIF !DelphiPersonalEdition}
|
|
{$ENDIF COMPILER7_UP}
|
|
|
|
RegisterComponents(RsPaletteUIB, [TJvUIBDatabase, TJvUIBTransaction, TJvUIBQuery,
|
|
{$IFNDEF DelphiPersonalEdition} TJvUIBDataSet, {$ENDIF}
|
|
TJvUIBScript, TJvUIBBackup, TJvUIBRestore]);
|
|
end;
|
|
|
|
{$ENDIF !UIBNOCOMPONENT}
|
|
|
|
end.
|