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

214
components/tvplanit/packages/laz_visualplanit.lpk
View File

@ -32,7 +32,7 @@ Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower S
Contributor(s): "/> Contributor(s): "/>
<Version Major="1" Release="4"/> <Version Major="1" Release="4"/>
<Files Count="66"> <Files Count="64">
<Item1> <Item1>
<Filename Value="../source/vpalarmdlg.lfm"/> <Filename Value="../source/vpalarmdlg.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
@ -82,222 +82,214 @@ Contributor(s): "/>
<UnitName Value="VpData"/> <UnitName Value="VpData"/>
</Item12> </Item12>
<Item13> <Item13>
<Filename Value="../source/vpdateedit.pas"/>
<UnitName Value="VpDateEdit"/>
</Item13>
<Item14>
<Filename Value="../source/vpdatepropedit.lfm"/> <Filename Value="../source/vpdatepropedit.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item14> </Item13>
<Item15> <Item14>
<Filename Value="../source/vpdatepropedit.pas"/> <Filename Value="../source/vpdatepropedit.pas"/>
<UnitName Value="VpDatePropEdit"/> <UnitName Value="VpDatePropEdit"/>
</Item15> </Item14>
<Item16> <Item15>
<Filename Value="../source/vpdayview.pas"/> <Filename Value="../source/vpdayview.pas"/>
<UnitName Value="VpDayView"/> <UnitName Value="VpDayView"/>
</Item16> </Item15>
<Item17> <Item16>
<Filename Value="../source/vpdbds.pas"/> <Filename Value="../source/vpdbds.pas"/>
<UnitName Value="VpDBDS"/> <UnitName Value="VpDBDS"/>
</Item17> </Item16>
<Item18> <Item17>
<Filename Value="../source/vpdlg.pas"/> <Filename Value="../source/vpdlg.pas"/>
<UnitName Value="VpDlg"/> <UnitName Value="VpDlg"/>
</Item18> </Item17>
<Item19> <Item18>
<Filename Value="../source/vpedelem.lfm"/> <Filename Value="../source/vpedelem.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item19> </Item18>
<Item20> <Item19>
<Filename Value="../source/vpedelem.pas"/> <Filename Value="../source/vpedelem.pas"/>
<UnitName Value="VpEdElem"/> <UnitName Value="VpEdElem"/>
</Item20> </Item19>
<Item21> <Item20>
<Filename Value="../source/vpedfmt.lfm"/> <Filename Value="../source/vpedfmt.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item21> </Item20>
<Item22> <Item21>
<Filename Value="../source/vpedfmt.pas"/> <Filename Value="../source/vpedfmt.pas"/>
<UnitName Value="VpEdFmt"/> <UnitName Value="VpEdFmt"/>
</Item21>
<Item22>
<Filename Value="../source/vpedshape.lfm"/>
<Type Value="LFM"/>
</Item22> </Item22>
<Item23> <Item23>
<Filename Value="../source/vpedpop.pas"/> <Filename Value="../source/vpedshape.pas"/>
<UnitName Value="VpEdPop"/> <UnitName Value="VpEdShape"/>
</Item23> </Item23>
<Item24> <Item24>
<Filename Value="../source/vpedshape.lfm"/> <Filename Value="../source/vpevnteditdlg.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item24> </Item24>
<Item25> <Item25>
<Filename Value="../source/vpedshape.pas"/>
<UnitName Value="VpEdShape"/>
</Item25>
<Item26>
<Filename Value="../source/vpevnteditdlg.lfm"/>
<Type Value="LFM"/>
</Item26>
<Item27>
<Filename Value="../source/vpevnteditdlg.pas"/> <Filename Value="../source/vpevnteditdlg.pas"/>
<UnitName Value="VpEvntEditDlg"/> <UnitName Value="VpEvntEditDlg"/>
</Item27> </Item25>
<Item28> <Item26>
<Filename Value="../source/vpexception.pas"/> <Filename Value="../source/vpexception.pas"/>
<UnitName Value="VpException"/> <UnitName Value="VpException"/>
</Item28> </Item26>
<Item29> <Item27>
<Filename Value="../source/vpledlabel.pas"/> <Filename Value="../source/vpledlabel.pas"/>
<UnitName Value="VpLEDLabel"/> <UnitName Value="VpLEDLabel"/>
</Item29> </Item27>
<Item30> <Item28>
<Filename Value="../source/vplocalize.pas"/> <Filename Value="../source/vplocalize.pas"/>
<UnitName Value="VpLocalize"/> <UnitName Value="VpLocalize"/>
</Item30> </Item28>
<Item31> <Item29>
<Filename Value="../source/vpmisc.pas"/> <Filename Value="../source/vpmisc.pas"/>
<UnitName Value="VpMisc"/> <UnitName Value="VpMisc"/>
</Item31> </Item29>
<Item32> <Item30>
<Filename Value="../source/vpmonthview.pas"/> <Filename Value="../source/vpmonthview.pas"/>
<UnitName Value="VpMonthView"/> <UnitName Value="VpMonthView"/>
</Item32> </Item30>
<Item33> <Item31>
<Filename Value="../source/vpnavbar.pas"/> <Filename Value="../source/vpnavbar.pas"/>
<UnitName Value="VpNavBar"/> <UnitName Value="VpNavBar"/>
</Item33> </Item31>
<Item34> <Item32>
<Filename Value="../source/vpprtfmt.pas"/> <Filename Value="../source/vpprtfmt.pas"/>
<UnitName Value="VpPrtFmt"/> <UnitName Value="VpPrtFmt"/>
</Item34> </Item32>
<Item35> <Item33>
<Filename Value="../source/vpprtfmtcbox.pas"/> <Filename Value="../source/vpprtfmtcbox.pas"/>
<UnitName Value="VpPrtFmtCBox"/> <UnitName Value="VpPrtFmtCBox"/>
</Item35> </Item33>
<Item36> <Item34>
<Filename Value="../source/vpprtfmtdlg.pas"/> <Filename Value="../source/vpprtfmtdlg.pas"/>
<UnitName Value="VpPrtFmtDlg"/> <UnitName Value="VpPrtFmtDlg"/>
</Item36> </Item34>
<Item37> <Item35>
<Filename Value="../source/vpprtfmted.pas"/> <Filename Value="../source/vpprtfmted.pas"/>
<UnitName Value="VpPrtFmtEd"/> <UnitName Value="VpPrtFmtEd"/>
</Item37> </Item35>
<Item38> <Item36>
<Filename Value="../source/vpprtprv.pas"/> <Filename Value="../source/vpprtprv.pas"/>
<UnitName Value="VpPrtPrv"/> <UnitName Value="VpPrtPrv"/>
</Item36>
<Item37>
<Filename Value="../source/vpprtprvdlg.lfm"/>
<Type Value="LFM"/>
</Item37>
<Item38>
<Filename Value="../source/vpprtprvdlg.pas"/>
<UnitName Value="VpPrtPrvDlg"/>
</Item38> </Item38>
<Item39> <Item39>
<Filename Value="../source/vpprtprvdlg.lfm"/> <Filename Value="../source/vpreseditdlg.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item39> </Item39>
<Item40> <Item40>
<Filename Value="../source/vpprtprvdlg.pas"/> <Filename Value="../source/vpreseditdlg.pas"/>
<UnitName Value="VpPrtPrvDlg"/> <UnitName Value="VpResEditDlg"/>
</Item40> </Item40>
<Item41> <Item41>
<Filename Value="../source/vpreseditdlg.lfm"/> <Filename Value="../source/vpselresdlg.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item41> </Item41>
<Item42> <Item42>
<Filename Value="../source/vpreseditdlg.pas"/>
<UnitName Value="VpResEditDlg"/>
</Item42>
<Item43>
<Filename Value="../source/vpselresdlg.lfm"/>
<Type Value="LFM"/>
</Item43>
<Item44>
<Filename Value="../source/vpselresdlg.pas"/> <Filename Value="../source/vpselresdlg.pas"/>
<UnitName Value="VpSelResDlg"/> <UnitName Value="VpSelResDlg"/>
</Item44> </Item42>
<Item45> <Item43>
<Filename Value="../source/vpsr.pas"/> <Filename Value="../source/vpsr.pas"/>
<UnitName Value="VpSR"/> <UnitName Value="VpSR"/>
</Item45> </Item43>
<Item46> <Item44>
<Filename Value="../source/vptaskeditdlg.lfm"/> <Filename Value="../source/vptaskeditdlg.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item46> </Item44>
<Item47> <Item45>
<Filename Value="../source/vptaskeditdlg.pas"/> <Filename Value="../source/vptaskeditdlg.pas"/>
<UnitName Value="VpTaskEditDlg"/> <UnitName Value="VpTaskEditDlg"/>
</Item47> </Item45>
<Item48> <Item46>
<Filename Value="../source/vptasklist.pas"/> <Filename Value="../source/vptasklist.pas"/>
<UnitName Value="VpTaskList"/> <UnitName Value="VpTaskList"/>
</Item48> </Item46>
<Item49> <Item47>
<Filename Value="../source/vptimerpool.pas"/> <Filename Value="../source/vptimerpool.pas"/>
<UnitName Value="VpTimerPool"/> <UnitName Value="VpTimerPool"/>
</Item49> </Item47>
<Item50> <Item48>
<Filename Value="../source/vpwavdlg.lfm"/> <Filename Value="../source/vpwavdlg.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item50> </Item48>
<Item51> <Item49>
<Filename Value="../source/vpwavdlg.pas"/> <Filename Value="../source/vpwavdlg.pas"/>
<UnitName Value="VpWavDlg"/> <UnitName Value="VpWavDlg"/>
</Item51> </Item49>
<Item52> <Item50>
<Filename Value="../source/vpwavpe.pas"/> <Filename Value="../source/vpwavpe.pas"/>
<UnitName Value="VpWavPE"/> <UnitName Value="VpWavPE"/>
</Item52> </Item50>
<Item53> <Item51>
<Filename Value="../source/vpweekview.pas"/> <Filename Value="../source/vpweekview.pas"/>
<UnitName Value="VpWeekView"/> <UnitName Value="VpWeekView"/>
</Item53> </Item51>
<Item54> <Item52>
<Filename Value="../source/vpxbase.pas"/> <Filename Value="../source/vpxbase.pas"/>
<UnitName Value="VpXBase"/> <UnitName Value="VpXBase"/>
</Item54> </Item52>
<Item55> <Item53>
<Filename Value="../source/vpxchrflt.pas"/> <Filename Value="../source/vpxchrflt.pas"/>
<UnitName Value="VpXChrFlt"/> <UnitName Value="VpXChrFlt"/>
</Item55> </Item53>
<Item56> <Item54>
<Filename Value="../source/vpxparsr.pas"/> <Filename Value="../source/vpxparsr.pas"/>
<UnitName Value="VpXParsr"/> <UnitName Value="VpXParsr"/>
</Item56> </Item54>
<Item57> <Item55>
<Filename Value="../source/vpbase.res"/> <Filename Value="../source/vpbase.res"/>
<Type Value="Binary"/> <Type Value="Binary"/>
</Item57> </Item55>
<Item58> <Item56>
<Filename Value="../source/vpflxds.pas"/> <Filename Value="../source/vpflxds.pas"/>
<UnitName Value="VpFlxDS"/> <UnitName Value="VpFlxDS"/>
</Item56>
<Item57>
<Filename Value="../source/vpabout.lfm"/>
<Type Value="LFM"/>
</Item57>
<Item58>
<Filename Value="../source/vpabout.pas"/>
<UnitName Value="VpAbout"/>
</Item58> </Item58>
<Item59> <Item59>
<Filename Value="../source/vpabout.lfm"/> <Filename Value="../source/vpflxdsed1.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item59> </Item59>
<Item60> <Item60>
<Filename Value="../source/vpabout.pas"/> <Filename Value="../source/vpflxdsed1.pas"/>
<UnitName Value="VpAbout"/> <UnitName Value="VpFlxDsEd1"/>
</Item60> </Item60>
<Item61> <Item61>
<Filename Value="../source/vpflxdsed1.lfm"/> <Filename Value="../source/vpnabed.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item61> </Item61>
<Item62> <Item62>
<Filename Value="../source/vpflxdsed1.pas"/>
<UnitName Value="VpFlxDsEd1"/>
</Item62>
<Item63>
<Filename Value="../source/vpnabed.lfm"/>
<Type Value="LFM"/>
</Item63>
<Item64>
<Filename Value="../source/vpnabed.pas"/> <Filename Value="../source/vpnabed.pas"/>
<UnitName Value="VpNabEd"/> <UnitName Value="VpNabEd"/>
</Item64> </Item62>
<Item65> <Item63>
<Filename Value="../source/vpreg.pas"/> <Filename Value="../source/vpreg.pas"/>
<HasRegisterProc Value="True"/> <HasRegisterProc Value="True"/>
<UnitName Value="VpReg"/> <UnitName Value="VpReg"/>
</Item65> </Item63>
<Item66> <Item64>
<Filename Value="../source/vpbufds.pas"/> <Filename Value="../source/vpbufds.pas"/>
<UnitName Value="VpBufDS"/> <UnitName Value="VpBufDS"/>
</Item66> </Item64>
</Files> </Files>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>

3
components/tvplanit/packages/laz_visualplanit_zeos.lpk
View File

@ -9,8 +9,9 @@
<Version Value="11"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="..\source"/>
<OtherUnitFiles Value="..\source"/> <OtherUnitFiles Value="..\source"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Description Value="Visual PlanIt datastore for ZEOS database components"/> <Description Value="Visual PlanIt datastore for ZEOS database components"/>

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; unit VpRegZEOS;
{-Registration unit for the ZEOS database components} {-Registration unit for the ZEOS database components}
{$I Vp.INC} { Compiler Version Defines } {$I Vp.INC} // Compiler version defines
//{$R VpReg.RES} { Palette Glyphs } {$R vpregzeos.res} // Palette glyphs
interface interface
uses uses
Windows, Dialogs, {$IFDEF DELPHI}
{$IFDEF FPC} // Windows,
PropEdits,
{$ELSE}
{$IFDEF VERSION6} DesignIntf, DesignEditors, {$ELSE} DsgnIntf, {$ENDIF} {$IFDEF VERSION6} DesignIntf, DesignEditors, {$ELSE} DsgnIntf, {$ENDIF}
{$ENDIF} {$ENDIF}
ZPropertyEditor, Classes;
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;
*)
procedure Register; procedure Register;
@ -46,38 +23,6 @@ uses
procedure Register; procedure Register;
begin begin
RegisterComponents('Visual PlanIt', [TVpZeosDatastore]); 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; 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. end.