You've already forked lazarus-ccr
fa6e9d2f0d
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7062 8e941d3f-bd1b-0410-a28a-d453659cc2b4
56 lines
1.6 KiB
ObjectPascal
56 lines
1.6 KiB
ObjectPascal
unit JvWizardReg;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
uses
|
|
JvWizard, JvWizardRouteMapNodes, JvWizardRouteMapSteps, JvWizardRouteMapList,
|
|
JvWizardEditorForm, JvDsgnConsts, PropEdits, ComponentEditors, FormEditingIntf;
|
|
|
|
{$R ../../resource/jvwizardsreg.res}
|
|
|
|
var
|
|
JvWizardIdeHelper: TJvWizardLazIDEHelper = nil;
|
|
|
|
procedure Register;
|
|
const
|
|
cActivePage = 'ActivePage';
|
|
cPages = 'Pages';
|
|
begin
|
|
RegisterComponents({RsPaletteWizard}RsPaletteJvclVisual, [TJvWizard, TJvWizardRouteMapSteps,
|
|
TJvWizardRouteMapNodes, TJvWizardRouteMapList]);
|
|
RegisterNoIcon([TJvWizardCustomPage, TJvWizardWelcomePage,
|
|
TJvWizardInteriorPage]);
|
|
RegisterComponentEditor(TJvWizard, TJvWizardEditor);
|
|
RegisterComponentEditor(TJvWizardCustomPage, TJvWizardEditor);
|
|
RegisterComponentEditor(TJvWizardWelcomePage, TJvWizardEditor);
|
|
RegisterComponentEditor(TJvWizardInteriorPage, TJvWizardEditor);
|
|
RegisterPropertyEditor(TypeInfo(TJvWizardCustomPage), TJvWizard, cActivePage,
|
|
TJvWizardActivePageProperty);
|
|
RegisterPropertyEditor(TypeInfo(TJvWizardWelcomePage), TJvWizard, cActivePage,
|
|
TJvWizardActivePageProperty);
|
|
RegisterPropertyEditor(TypeInfo(TJvWizardInteriorPage), TJvWizard, cActivePage,
|
|
TJvWizardActivePageProperty);
|
|
// JvWizard Page List Editor
|
|
RegisterPropertyEditor(TypeInfo(TJvWizardPageList), TJvWizard, cPages,
|
|
TJvWizardPageListProperty);
|
|
|
|
if Assigned(GlobalDesignHook) and (not Assigned(JvWizardIdeHelper)) then
|
|
JvWizardIdeHelper := TJvWizardLazIDEHelper.Create;
|
|
end;
|
|
|
|
finalization
|
|
if Assigned(JvWizardIdeHelper) then
|
|
JvWizardIdeHelper.Free;
|
|
|
|
end.
|
|
|