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

TvPlanIt: Fix search path warning for ZEOS designtime package. Make sure that all {$I vp.inc} are in lower-case. Remove lfm files from package.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8284 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-06-07 16:29:20 +00:00
parent 69b9503214
commit 6f2dd11e48
21 changed files with 130 additions and 191 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tvplanit/examples/datastores/sqlite3/project1.lpi
View File

@ -64,6 +64,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

13
components/tvplanit/examples/datastores/zeos/project1.lpi
View File

@ -24,22 +24,19 @@
<Mode0 Name="default"/>
</Modes>
</RunParams>
<RequiredPackages Count="5">
<RequiredPackages Count="4">
<Item1>
<PackageName Value="laz_visualplanit_zeos_design"/>
<PackageName Value="laz_visualplanit_zeos"/>
</Item1>
<Item2>
<PackageName Value="laz_visualplanit_zeos"/>
<PackageName Value="laz_visualplanit"/>
</Item2>
<Item3>
<PackageName Value="laz_visualplanit"/>
<PackageName Value="zcomponent"/>
</Item3>
<Item4>
<PackageName Value="zcomponent"/>
</Item4>
<Item5>
<PackageName Value="LCL"/>
</Item5>
</Item4>
</RequiredPackages>
<Units Count="2">
<Unit0>

5
components/tvplanit/examples/datastores/zeos/unit1.lfm
View File

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

8
components/tvplanit/examples/datastores/zeos/unit1.pas
View File

@ -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);