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

tvplanit: Avoid using tvplanit sources in SearchPath of mormot simpledemo. Some cleanup.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5119 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-02 14:11:33 +00:00
parent d9c273542e
commit 7e962a585f
4 changed files with 8 additions and 45 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/tvplanit/examples/mormot/simpledemo/VpClient.lpi
View File

@ -27,10 +27,13 @@
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<RequiredPackages Count="2">
<Item1>
<PackageName Value="LCL"/>
<PackageName Value="laz_visualplanit"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
@ -54,8 +57,8 @@
<Filename Value="VpClient"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir);..\..\..\source;..\mORMotSourceHere"/>
<OtherUnitFiles Value="..\..\..\source;..;..\mORMotSourceHere;..\mORMotSourceHere\SQLite3"/>
<IncludeFiles Value="$(ProjOutDir);..\mORMotSourceHere;..\..\..\source"/>
<OtherUnitFiles Value="..;..\mORMotSourceHere;..\mORMotSourceHere\SQLite3"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>

2
components/tvplanit/examples/mormot/simpledemo/VpClient.lpr
View File

@ -7,7 +7,7 @@ uses
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, Unit1;
Forms, laz_visualplanit, Unit1;
{$R *.res}

36
components/tvplanit/examples/mormot/simpledemo/unit1.lfm
View File

@ -16,42 +16,6 @@ object Form1: TForm1
Align = alTop
TabOrder = 0
end
object Panel2: TPanel
Left = 784
Height = 399
Top = 42
Width = 150
Align = alRight
Caption = 'Panel2'
ClientHeight = 399
ClientWidth = 150
TabOrder = 1
object Memo1: TMemo
Left = 8
Height = 353
Top = 32
Width = 133
Anchors = [akTop, akLeft, akRight, akBottom]
TabOrder = 0
end
object Label1: TLabel
Left = 8
Height = 15
Top = 8
Width = 51
Caption = 'LOGGING'
ParentColor = False
end
object Button1: TButton
Left = 80
Height = 21
Top = 6
Width = 57
Caption = 'Button1'
OnClick = Button1Click
TabOrder = 1
end
end
object Timer1: TTimer
Enabled = False
Interval = 250

4
components/tvplanit/examples/mormot/simpledemo/unit1.pas
View File

@ -16,11 +16,7 @@ type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Memo1: TMemo;
Panel1: TPanel;
Panel2: TPanel;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);