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;