paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tvplanit: Unregister the NavBar component designer, not working at the moment.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4785 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2016-06-20 15:22:49 +00:00
parent 2e89999e86
commit 0da706ccea
1 changed files with 23 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
components/tvplanit/source/vpreg.pas
View File

@ -161,7 +161,9 @@ uses
VpContactButtons, { - New contact grid button bar component } VpContactButtons, { - New contact grid button bar component }
{ Designtime Interfaces (Property and Component Editors) } { Designtime Interfaces (Property and Component Editors) }
VpAbout, { About form for the About property editor } VpAbout, { About form for the About property editor }
{$IFDEF DELPHI}
VpNabEd, { component editor for the VpNavBar } VpNabEd, { component editor for the VpNavBar }
{$ENDIF}
VpFlxDSEd1; { Field mapper component editor for the FlexDS } VpFlxDSEd1; { Field mapper component editor for the FlexDS }
@ -170,7 +172,7 @@ uses
procedure TAliasNameProperty.GetValueList(List: TStrings); procedure TAliasNameProperty.GetValueList(List: TStrings);
begin begin
{$IFNDEF LCL} {$IFDEF DELPHI}
(GetComponent(0) as TVpBDEDataStore).Database.Session.GetAliasNames(List); (GetComponent(0) as TVpBDEDataStore).Database.Session.GetAliasNames(List);
{$ENDIF} {$ENDIF}
end; end;
@ -209,7 +211,7 @@ end;
procedure TDriverNameProperty.GetValueList(List: TStrings); procedure TDriverNameProperty.GetValueList(List: TStrings);
begin begin
{$IFNDEF LCL} {$IFDEF DELPHI}
(GetComponent(0) as TVpBDEDataStore).Database.Session.GetDriverNames(List); (GetComponent(0) as TVpBDEDataStore).Database.Session.GetDriverNames(List);
{$ENDIF} {$ENDIF}
end; end;
@ -222,7 +224,7 @@ var
J: Integer; J: Integer;
DataStore: TVpCustomDataStore; DataStore: TVpCustomDataStore;
begin begin
{$IFNDEF LCL} {$IFDEF DELPHI}
DataStore := TVpCustomDataStore(Designer.GetComponent(Value)); DataStore := TVpCustomDataStore(Designer.GetComponent(Value));
for J := 0 to PropCount - 1 do for J := 0 to PropCount - 1 do
if TVpDayView(GetComponent(J)).DataStore = DataStore then if TVpDayView(GetComponent(J)).DataStore = DataStore then
@ -412,7 +414,9 @@ end;
procedure Register; procedure Register;
begin begin
{ register component editors } { register component editors }
{$IFDEF DELPHI}
RegisterComponentEditor(TVpNavBar, TVpNavBarEditor); RegisterComponentEditor(TVpNavBar, TVpNavBarEditor);
{$ENDIF}
RegisterComponentEditor(TVpControlLink, TVpPrtFmtPropertyEditor); RegisterComponentEditor(TVpControlLink, TVpPrtFmtPropertyEditor);
RegisterComponentEditor(TVpFlexDataStore, TVpFlexDSEditor); RegisterComponentEditor(TVpFlexDataStore, TVpFlexDSEditor);
@ -435,7 +439,7 @@ begin
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpControlLink, RegisterPropertyEditor(TypeInfo(string), TVpControlLink,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
{$IFNDEF LCL} {$IFDEF DELPHI}
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore, RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
RegisterPropertyEditor(TypeInfo(string), TVpDateEdit, RegisterPropertyEditor(TypeInfo(string), TVpDateEdit,
@ -449,7 +453,7 @@ begin
'Version', TVpAboutProperty); 'Version', TVpAboutProperty);
{register the BDE Alias and Driver properties } {register the BDE Alias and Driver properties }
{$IFNDEF LCL} {$IFDEF DELPHI}
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore, RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
'AliasName', TAliasNameProperty); 'AliasName', TAliasNameProperty);
RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore, RegisterPropertyEditor(TypeInfo(string), TVpBDEDataStore,
@ -473,28 +477,23 @@ begin
RegisterPropertyEditor(TypeInfo(String), TVpCustomDatastore, RegisterPropertyEditor(TypeInfo(String), TVpCustomDatastore,
'DefaultEventSound', TVpWavFileProperty); 'DefaultEventSound', TVpWavFileProperty);
RegisterPropertyEditor(TypeInfo(String), TVpCustomDatastore, RegisterPropertyEditor(TypeInfo(String), TVpCustomDatastore,
'MediaFolder', TVpMediaFolderProperty); 'MediaFolder', TVpMediaFolderProperty);
RegisterPropertyEditor (TypeInfo (TDateTime), RegisterPropertyEditor(TypeInfo(TDateTime), TVpPrintPreview,
TVpPrintPreview, 'StartDate', TVpDateProperty);
'StartDate',
TVpDateProperty);
RegisterPropertyEditor (TypeInfo (TDateTime),
TVpPrintPreview,
'EndDate',
TVpDateProperty);
RegisterPropertyEditor (TypeInfo (TDateTime),
TVpPrintPreviewDialog,
'StartDate',
TVpDateProperty);
RegisterPropertyEditor (TypeInfo (TDateTime),
TVpPrintPreviewDialog,
'EndDate',
TVpDateProperty);
RegisterPropertyEditor (TypeInfo (string), TVpControlLink, RegisterPropertyEditor(TypeInfo(TDateTime), TVpPrintPreview,
'LocalizationFile', TVpLocalizeFileNameProperty); 'EndDate', TVpDateProperty);
RegisterPropertyEditor(TypeInfo(TDateTime), TVpPrintPreviewDialog,
'StartDate', TVpDateProperty);
RegisterPropertyEditor(TypeInfo(TDateTime), TVpPrintPreviewDialog,
'EndDate', TVpDateProperty);
RegisterPropertyEditor(TypeInfo(string), TVpControlLink,
'LocalizationFile', TVpLocalizeFileNameProperty);
{register Visual PlanIt components with the IDE} {register Visual PlanIt components with the IDE}
RegisterComponents('Visual PlanIt', [ RegisterComponents('Visual PlanIt', [