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

TvPlanIt: Sanity check with FPC 3.2

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7912 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2020-11-30 20:55:49 +00:00
parent dd2db96268
commit e2f9f6dfee
16 changed files with 426 additions and 1241 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/tvplanit/examples/fulldemo/demo.lpi
View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="11"/>
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="demo"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
@ -24,6 +26,9 @@
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<LaunchingApplication PathPlusParams="localhost"/>
</local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
@ -89,7 +94,7 @@
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
<DebugInfoType Value="dsDwarf2"/>
</Debugging>
<Options>
<Win32>

1542
components/tvplanit/examples/fulldemo/demomain.lfm
View File

File diff suppressed because it is too large Load Diff

8
components/tvplanit/examples/fulldemo/demomain.pas
View File

@ -467,6 +467,9 @@ var
grp: TVpResourceGroup;
begin
datastore := VpControlLink1.Datastore;
if (datastore = nil) or (datastore.Resource = nil) then
exit;
grp := datastore.Resources.AddResourceGroup([1, 2], NAME_OF_GROUP);
// Optionally uncomment these lines to get not-default behavior:
@ -475,10 +478,7 @@ begin
//grp.ShowDetails := [odResource, odEventDescription, odEventCategory];
// Assign the resource group to the active resource of the datastore.
if datastore.Resource <> nil then
datastore.Resource.Group := grp
else
datastore.Resource.Group := nil;
datastore.Resource.Group := grp;
// Important: This is not called internally so far!
datastore.RefreshEvents; // or: datastore.UpdateGroupEvents;