diff --git a/components/tvplanit/packages/laz_visualplanit.lpk b/components/tvplanit/packages/laz_visualplanit.lpk
index a9bd3a542..976020aed 100644
--- a/components/tvplanit/packages/laz_visualplanit.lpk
+++ b/components/tvplanit/packages/laz_visualplanit.lpk
@@ -32,7 +32,7 @@ Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower S
Contributor(s): "/>
-
+
@@ -82,222 +82,214 @@ Contributor(s): "/>
-
-
-
-
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
+
+
+
+
-
-
+
+
-
+
-
-
-
-
-
-
-
-
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
+
+
+
+
+
+
+
+
-
+
-
-
+
+
-
+
-
-
-
-
-
-
-
-
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
+
+
+
+
+
+
+
+
-
+
-
-
+
+
-
+
-
-
-
-
-
-
-
-
-
-
+
+
-
-
+
+
-
+
diff --git a/components/tvplanit/packages/laz_visualplanit_zeos.lpk b/components/tvplanit/packages/laz_visualplanit_zeos.lpk
index ef4bad70e..310e220fc 100644
--- a/components/tvplanit/packages/laz_visualplanit_zeos.lpk
+++ b/components/tvplanit/packages/laz_visualplanit_zeos.lpk
@@ -9,8 +9,9 @@
+
-
+
diff --git a/components/tvplanit/source/vpreg.res b/components/tvplanit/source/vpreg.res
index fc34bdea3..b969eaab8 100644
Binary files a/components/tvplanit/source/vpreg.res and b/components/tvplanit/source/vpreg.res differ
diff --git a/components/tvplanit/source/vpregzeos.pas b/components/tvplanit/source/vpregzeos.pas
index a7b950cfd..bf3f515f1 100644
--- a/components/tvplanit/source/vpregzeos.pas
+++ b/components/tvplanit/source/vpregzeos.pas
@@ -1,40 +1,17 @@
unit VpRegZEOS;
{-Registration unit for the ZEOS database components}
-{$I Vp.INC} { Compiler Version Defines }
-//{$R VpReg.RES} { Palette Glyphs }
+{$I Vp.INC} // Compiler version defines
+{$R vpregzeos.res} // Palette glyphs
interface
uses
- Windows, Dialogs,
- {$IFDEF FPC}
- PropEdits,
- {$ELSE}
+ {$IFDEF DELPHI}
+ // Windows,
{$IFDEF VERSION6} DesignIntf, DesignEditors, {$ELSE} DsgnIntf, {$ENDIF}
{$ENDIF}
- ZPropertyEditor,
- Classes, Controls, TypInfo;
- (*
-type
- { Implements a property editor for VpZEOSDatastore.Database property. }
- TVPZeosDatabasePropertyEditor = class(TZDatabasePropertyEditor)
- public
- function GetZComponent: TPersistent; override;
- end;
-
- { Implements a property editor for VpZEOSDatastore.LibLocation property. }
- TVPZeosLibLocationPropertyEditor = class(TZLibLocationPropertyEditor)
- public
- function GetZComponent: TPersistent; override;
- end;
-
- {** Implements a property editor for ZConnection.ClientCodePage property. }
- TVpZeosClientCodepagePropertyEditor = class (TZClientCodePagePropertyEditor)
- public
- function GetZComponent: TPersistent; override;
- end;
- *)
+ Classes;
procedure Register;
@@ -46,38 +23,6 @@ uses
procedure Register;
begin
RegisterComponents('Visual PlanIt', [TVpZeosDatastore]);
- (*
- RegisterPropertyEditor(TypeInfo(string), TVpZEOSDatastore, 'Protocol', TZProtocolPropertyEditor);
- RegisterPropertyEditor(TypeInfo(string), TVpZEOSDatastore, 'Database', TVpZeosDatabasePropertyEditor);
- RegisterPropertyEditor(TypeInfo(string), TVpZEOSDatastore, 'LibraryLocation', TVpZeosLibLocationPropertyEditor);
- RegisterPropertyEditor(TypeInfo(string), TVpZEOSDatastore, 'ClientCodepage', TVpZeosClientCodePagePropertyEditor);
- *)
end;
- (*
-{ TVpZeosDatabasePropertyEditor }
-
-function TVpZeosDatabasePropertyEditor.GetZComponent: TPersistent;
-begin
- if (GetComponent(0) is TVpZeosDatastore) then
- Result := (GetComponent(0) as TVpZeosDatastore).Connection;
-end;
-
-{ TVpZeosLibLocationPropertyEditor }
-
-function TVpZeosLibLocationPropertyEditor.GetZComponent: TPersistent;
-begin
- if (GetComponent(0) is TVpZeosDatastore) then
- Result := (GetComponent(0) as TVpZeosDatastore).Connection;
-end;
-
-{ TVpZeosClientCodePagePropertyEditor }
-
-function TVpZeosClientCodePagePropertyEditor.GetZComponent: TPersistent;
-begin
- if (GetComponent(0) is TVpZeosDatastore) then
- Result := (GetComponent(0) as TVpZeosDatastore).Connection;
-end;
- *)
-
end.