pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Add icon for Zeos datastore. Some cleanup.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4758 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-15 16:13:17 +00:00
parent de98ef21bf
commit c836531e38
4 changed files with 110 additions and 172 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
components/tvplanit/source/vpreg.res
View File

Binary file not shown.

65
components/tvplanit/source/vpregzeos.pas
View File

@@ -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.