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

tvplanit: Simplify linking of runtime created datastores to dependent controls.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5121 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-09-02 16:31:27 +00:00
parent e45bb283df
commit d582c8663f
3 changed files with 118 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/examples/runtime/project1.lpi
View File

@ -9,7 +9,6 @@
<Title Value="project1"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<VersionInfo>
<StringTable ProductVersion=""/>

16
components/tvplanit/examples/runtime/unit1.pas
View File

@ -38,8 +38,6 @@ implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
ControlLink := TVpControlLink.Create(self);
Datastore := TVpBufDSDatastore.Create(self);
Datastore.Directory := '.';
Datastore.AutoCreate := true;
@ -48,30 +46,28 @@ begin
DayView := TVpDayview.Create(self);
DayView.Parent := self;
DayView.Align := alLeft;
DayView.ControlLink := ControlLink;
DayView.Datastore := Datastore;
WeekView := TVpWeekView.Create(self);
WeekView.Parent := self;
Weekview.Align := alClient;
WeekView.ControlLink := ControlLink;
WeekView.Datastore := Datastore;
MonthView := TVpMonthView.Create(self);
MonthView.Parent := self;
MonthView.Align := alRight;
MonthView.ControlLink := ControlLink;
MonthView.Datastore := Datastore;
Combo := TVpResourceCombo.Create(Self);
Combo.Parent := Panel1;
Combo.Left := 8;
Combo.Top := 8;
Combo.Width := 200;
Combo.Datastore := Datastore;
ControlLink := TVpControlLink.Create(self);
ControlLink.Datastore := Datastore;
// This establishes the links to all controls that depend on Datastore.
// Must be called when all dependent controls are created.
if Datastore.Resources.Count > 0 then
Datastore.ResourceID := Datastore.Resources.Items[0].ResourceID;
Datastore.Resource := Datastore.Resources.Items[0];
end;
end.