diff --git a/components/tvplanit/examples/datastores/sqlite3/project1.lpi b/components/tvplanit/examples/datastores/sqlite3/project1.lpi index 9baa22806..d341ed8ea 100644 --- a/components/tvplanit/examples/datastores/sqlite3/project1.lpi +++ b/components/tvplanit/examples/datastores/sqlite3/project1.lpi @@ -64,6 +64,9 @@ + + + diff --git a/components/tvplanit/examples/datastores/zeos/project1.lpi b/components/tvplanit/examples/datastores/zeos/project1.lpi index 2e439348c..aa2437e51 100644 --- a/components/tvplanit/examples/datastores/zeos/project1.lpi +++ b/components/tvplanit/examples/datastores/zeos/project1.lpi @@ -24,22 +24,19 @@ - + - + - + - + - - - - + diff --git a/components/tvplanit/examples/datastores/zeos/unit1.lfm b/components/tvplanit/examples/datastores/zeos/unit1.lfm index d997cdd39..d9d7a5cd6 100644 --- a/components/tvplanit/examples/datastores/zeos/unit1.lfm +++ b/components/tvplanit/examples/datastores/zeos/unit1.lfm @@ -267,6 +267,7 @@ object Form1: TForm1 end object ZConnection1: TZConnection ControlsCodePage = cCP_UTF8 + AutoEncodeStrings = True Properties.Strings = ( 'AutoEncodeStrings=ON' ) @@ -326,8 +327,4 @@ object Form1: TForm1 Left = 136 Top = 335 end - object ZTable1: TZTable - Left = 136 - Top = 536 - end end diff --git a/components/tvplanit/examples/datastores/zeos/unit1.pas b/components/tvplanit/examples/datastores/zeos/unit1.pas index 176a5fbe0..4e3bfefd1 100644 --- a/components/tvplanit/examples/datastores/zeos/unit1.pas +++ b/components/tvplanit/examples/datastores/zeos/unit1.pas @@ -11,9 +11,10 @@ interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, - StdCtrls, ComCtrls, VpBaseDS, VpZeosDs, VpDayView, VpWeekView, VpTaskList, - VpContactGrid, VpMonthView, VpResEditDlg, VpContactButtons, ZConnection, - ZDataset, ZDbcIntfs; + StdCtrls, ComCtrls, + VpBaseDS, VpZeosDs, VpDayView, VpWeekView, VpTaskList, VpContactGrid, + VpMonthView, VpResEditDlg, VpContactButtons, + ZConnection, ZDbcIntfs; type @@ -41,7 +42,6 @@ type VpWeekView1: TVpWeekView; VpZeosDatastore1: TVpZeosDatastore; ZConnection1: TZConnection; - ZTable1: TZTable; procedure BtnNewResClick(Sender: TObject); procedure BtnEditResClick(Sender: TObject); procedure FormCreate(Sender: TObject); diff --git a/components/tvplanit/images/make_res.bat b/components/tvplanit/images/make_res.bat index 500e3856e..7f24eb2e0 100644 --- a/components/tvplanit/images/make_res.bat +++ b/components/tvplanit/images/make_res.bat @@ -1,5 +1,5 @@ lazres ..\source\design\vpreg.res @reg_palette_list.txt -lazres ..\source\addons\zeos\vpregzeos.res @reg_palette_zeos_list.txt +lazres ..\source\addons\zeos\design\vpregzeos.res @reg_palette_zeos_list.txt lazres ..\source\vpbasepng.res @regbasepng_files.txt :end \ No newline at end of file diff --git a/components/tvplanit/laz_visualplanit.lpk b/components/tvplanit/laz_visualplanit.lpk index e7bbce579..18a09ac49 100644 --- a/components/tvplanit/laz_visualplanit.lpk +++ b/components/tvplanit/laz_visualplanit.lpk @@ -32,7 +32,7 @@ Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower S Contributor(s): "/> - + @@ -86,253 +86,201 @@ Contributor(s): "/> - - - - - - - - - - + + - - + + - - + + - - + + - - - - - - + + - - + + - - + + - - + + - - + + - - + + - - - - - - + + - - - - - - + + - - - - - - + + - - - - - - + + - - - - - - + + - - + + - - + + - - + + - - - - - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - - - - - + + - - - - - - + + - - - - - - + + - - + + - - + + - - + + - - + + - - - - - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - - + + - + diff --git a/components/tvplanit/laz_visualplanit_zeos.lpk b/components/tvplanit/laz_visualplanit_zeos.lpk index cb10a12aa..ab84a7240 100644 --- a/components/tvplanit/laz_visualplanit_zeos.lpk +++ b/components/tvplanit/laz_visualplanit_zeos.lpk @@ -8,7 +8,7 @@ - + @@ -22,7 +22,6 @@ Software distributed under the License is distributed on an "AS IS" ba - diff --git a/components/tvplanit/laz_visualplanit_zeos_design.lpk b/components/tvplanit/laz_visualplanit_zeos_design.lpk index c767e30ef..241216bee 100644 --- a/components/tvplanit/laz_visualplanit_zeos_design.lpk +++ b/components/tvplanit/laz_visualplanit_zeos_design.lpk @@ -3,14 +3,14 @@ - + - - + + @@ -18,20 +18,16 @@ - + - - + - - - diff --git a/components/tvplanit/source/addons/zeos/vpregzeos.pas b/components/tvplanit/source/addons/zeos/design/vpregzeos.pas similarity index 86% rename from components/tvplanit/source/addons/zeos/vpregzeos.pas rename to components/tvplanit/source/addons/zeos/design/vpregzeos.pas index bf3f515f1..c0532037b 100644 --- a/components/tvplanit/source/addons/zeos/vpregzeos.pas +++ b/components/tvplanit/source/addons/zeos/design/vpregzeos.pas @@ -1,14 +1,13 @@ unit VpRegZEOS; {-Registration unit for the ZEOS database components} -{$I Vp.INC} // Compiler version defines +{$I vp.inc} // Compiler version defines {$R vpregzeos.res} // Palette glyphs interface uses {$IFDEF DELPHI} - // Windows, {$IFDEF VERSION6} DesignIntf, DesignEditors, {$ELSE} DsgnIntf, {$ENDIF} {$ENDIF} Classes; diff --git a/components/tvplanit/source/addons/zeos/vpregzeos.res b/components/tvplanit/source/addons/zeos/design/vpregzeos.res similarity index 100% rename from components/tvplanit/source/addons/zeos/vpregzeos.res rename to components/tvplanit/source/addons/zeos/design/vpregzeos.res diff --git a/components/tvplanit/source/vpcanvasutils.pas b/components/tvplanit/source/vpcanvasutils.pas index 6c407192f..418486856 100644 --- a/components/tvplanit/source/vpcanvasutils.pas +++ b/components/tvplanit/source/vpcanvasutils.pas @@ -75,7 +75,7 @@ } -{$I Vp.INC} +{$I vp.inc} unit VpCanvasUtils; diff --git a/components/tvplanit/source/vpconst.pas b/components/tvplanit/source/vpconst.pas index e395e1c25..ac1d487e1 100644 --- a/components/tvplanit/source/vpconst.pas +++ b/components/tvplanit/source/vpconst.pas @@ -26,7 +26,7 @@ {* *} {* ***** END LICENSE BLOCK ***** *} -{.$I Vp.INC} +{.$I vp.inc} unit VpConst; diff --git a/components/tvplanit/source/vpcontacteditdlg.pas b/components/tvplanit/source/vpcontacteditdlg.pas index cf15793de..040a6e85a 100644 --- a/components/tvplanit/source/vpcontacteditdlg.pas +++ b/components/tvplanit/source/vpcontacteditdlg.pas @@ -26,7 +26,7 @@ {* *} {* ***** END LICENSE BLOCK ***** *} -{$I Vp.INC} +{$I vp.inc} unit VpContactEditDlg; diff --git a/components/tvplanit/source/vpdbds.pas b/components/tvplanit/source/vpdbds.pas index 077a22610..e70d1c975 100644 --- a/components/tvplanit/source/vpdbds.pas +++ b/components/tvplanit/source/vpdbds.pas @@ -30,7 +30,7 @@ {$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined} {$IFEND} -{$I Vp.INC} +{$I vp.inc} unit VpDBDS; diff --git a/components/tvplanit/source/vpedfmtlst.pas b/components/tvplanit/source/vpedfmtlst.pas index 01658532b..e3361a25a 100644 --- a/components/tvplanit/source/vpedfmtlst.pas +++ b/components/tvplanit/source/vpedfmtlst.pas @@ -32,7 +32,7 @@ unit VpEdFmtLst; {$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined} {$IFEND} -{$I Vp.INC} +{$I vp.inc} interface diff --git a/components/tvplanit/source/vpfileds.pas b/components/tvplanit/source/vpfileds.pas index 472a6d475..b0d5ebe08 100644 --- a/components/tvplanit/source/vpfileds.pas +++ b/components/tvplanit/source/vpfileds.pas @@ -4,7 +4,7 @@ {$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined} {$IFEND} -{$I Vp.INC} +{$I vp.inc} unit VpFileDS; diff --git a/components/tvplanit/source/vpprtfmtcbox.pas b/components/tvplanit/source/vpprtfmtcbox.pas index 1229e67b5..1c986ece9 100644 --- a/components/tvplanit/source/vpprtfmtcbox.pas +++ b/components/tvplanit/source/vpprtfmtcbox.pas @@ -26,7 +26,7 @@ {* *} {* ***** END LICENSE BLOCK ***** *} -{$I Vp.INC} +{$I vp.inc} unit VpPrtFmtCBox; diff --git a/components/tvplanit/source/vpprtfmtdlg.pas b/components/tvplanit/source/vpprtfmtdlg.pas index 8a2e8e6eb..35f7ee95f 100644 --- a/components/tvplanit/source/vpprtfmtdlg.pas +++ b/components/tvplanit/source/vpprtfmtdlg.pas @@ -26,7 +26,7 @@ {* *} {* ***** END LICENSE BLOCK ***** *} -{$I Vp.INC} +{$I vp.inc} unit VpPrtFmtDlg; diff --git a/components/tvplanit/source/vpsr.pas b/components/tvplanit/source/vpsr.pas index c87aad8c4..bdadfc7e8 100644 --- a/components/tvplanit/source/vpsr.pas +++ b/components/tvplanit/source/vpsr.pas @@ -35,7 +35,7 @@ unit VpSR; interface -{$I include/vpsr.inc} +{$I vpsr.inc} type // For acquiring the labels that go with each telephone field, i.e. Home, work, fax etc... } diff --git a/components/tvplanit/source/vpxbase.pas b/components/tvplanit/source/vpxbase.pas index 69380998e..64803621c 100644 --- a/components/tvplanit/source/vpxbase.pas +++ b/components/tvplanit/source/vpxbase.pas @@ -26,7 +26,7 @@ {* *} {* ***** END LICENSE BLOCK ***** *} -{$I Vp.INC} +{$I vp.inc} unit VpXBase; diff --git a/components/tvplanit/source/vpxchrflt.pas b/components/tvplanit/source/vpxchrflt.pas index 4971ec5f0..7ab4b7ebb 100644 --- a/components/tvplanit/source/vpxchrflt.pas +++ b/components/tvplanit/source/vpxchrflt.pas @@ -26,7 +26,7 @@ {* *} {* ***** END LICENSE BLOCK ***** *} -{$I Vp.INC} +{$I vp.inc} unit VpXChrFlt;