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

tvplanit: Set version 1.4 for new OPM release. Test demos.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6790 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-01-15 18:33:02 +00:00
parent 5d81c2234f
commit 5a8f764b4e
17 changed files with 100 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/tvplanit/examples/datastores/fb/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="9"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -17,9 +17,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="3"> <RequiredPackages Count="3">
<Item1> <Item1>

9
components/tvplanit/examples/datastores/flex/sqlite3/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -17,9 +17,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="4"> <RequiredPackages Count="4">
<Item1> <Item1>

9
components/tvplanit/examples/datastores/ini/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -17,9 +17,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>

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

@ -65,6 +65,11 @@
<Debugging> <Debugging>
<UseExternalDbgSyms Value="True"/> <UseExternalDbgSyms Value="True"/>
</Debugging> </Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking> </Linking>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>

9
components/tvplanit/examples/datastores/xml/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -17,9 +17,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>

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

@ -24,9 +24,6 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local>
<LaunchingApplication PathPlusParams="localhost"/>
</local>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="1"> <Modes Count="1">
<Mode0 Name="default"> <Mode0 Name="default">

9
components/tvplanit/examples/gadgets/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -17,9 +17,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>

8
components/tvplanit/examples/gadgets/unit1.lfm
View File

@ -9,8 +9,8 @@ object Form1: TForm1
ClientWidth = 473 ClientWidth = 473
Font.Color = clWindowText Font.Color = clWindowText
OnShow = FormShow OnShow = FormShow
LCLVersion = '1.6.4.0' LCLVersion = '2.1.0.0'
object VpClock1: TVpClock object VpClock: TVpClock
AnchorSideLeft.Control = Owner AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -45,7 +45,7 @@ object Form1: TForm1
ParentColor = False ParentColor = False
SecondOffset = 0 SecondOffset = 0
HourOffset = 0 HourOffset = 0
OnCountdownDone = VpClock1CountdownDone OnCountdownDone = VpClockCountdownDone
OnSecondChange = VpClockTimeChange OnSecondChange = VpClockTimeChange
end end
object BtnStartStop: TButton object BtnStartStop: TButton
@ -139,7 +139,7 @@ object Form1: TForm1
ParentColor = False ParentColor = False
end end
object RgDisplayMode: TRadioGroup object RgDisplayMode: TRadioGroup
AnchorSideLeft.Control = VpClock1 AnchorSideLeft.Control = VpClock
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom

92
components/tvplanit/examples/gadgets/unit1.pas
View File

@ -22,18 +22,18 @@ type
Panel1: TPanel; Panel1: TPanel;
RgDisplayMode: TRadioGroup; RgDisplayMode: TRadioGroup;
RgClockMode: TRadioGroup; RgClockMode: TRadioGroup;
VpClock1: TVpClock; VpClock: TVpClock;
VpLEDLabel1: TVpLEDLabel; VpLEDLabel1: TVpLEDLabel;
procedure AnalogClockCountdownDone(Sender: TObject); procedure AnalogClockCountdownDone(Sender: TObject);
procedure CbMilitaryTimeChange(Sender: TObject);
procedure VpClockTimeChange(Sender: TObject);
procedure BtnStartStopClick(Sender: TObject); procedure BtnStartStopClick(Sender: TObject);
procedure CbMilitaryTimeChange(Sender: TObject);
procedure CbNewClockFaceChange(Sender: TObject); procedure CbNewClockFaceChange(Sender: TObject);
procedure EdCountDownTimeChange(Sender: TObject); procedure EdCountDownTimeChange(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure RgClockModeClick(Sender: TObject); procedure RgClockModeClick(Sender: TObject);
procedure RgDisplayModeClick(Sender: TObject); procedure RgDisplayModeClick(Sender: TObject);
procedure VpClock1CountdownDone(Sender: TObject); procedure VpClockCountdownDone(Sender: TObject);
procedure VpClockTimeChange(Sender: TObject);
private private
{ private declarations } { private declarations }
public public
@ -60,7 +60,7 @@ end;
procedure TForm1.VpClockTimeChange(Sender: TObject); procedure TForm1.VpClockTimeChange(Sender: TObject);
begin begin
LblElapsedTime.Caption := Format('Elapsed: %d hrs, %d min, %d sec', [ LblElapsedTime.Caption := Format('Elapsed: %d hrs, %d min, %d sec', [
VpClock1.ElapsedHours, VpClock1.ElapsedMinutes, VpClock1.ElapsedSeconds VpClock.ElapsedHours, VpClock.ElapsedMinutes, VpClock.ElapsedSeconds
]); ]);
end; end;
@ -69,14 +69,14 @@ var
isStarted: Boolean; isStarted: Boolean;
willStart: Boolean; willStart: Boolean;
begin begin
isStarted := VpClock1.Active; isStarted := VpClock.Active;
willStart := not isStarted; willStart := not isStarted;
if willStart and (RgClockMode.ItemIndex = ord(cmCountdownTimer)) then if willStart and (RgClockMode.ItemIndex = ord(cmCountdownTimer)) then
RgClockModeClick(nil); RgClockModeClick(nil);
VpClock1.Active := willStart; VpClock.Active := willStart;
if VpClock1.Active then if VpClock.Active then
BtnStartStop.Caption := 'Stop' else BtnStartStop.Caption := 'Stop' else
BtnStartStop.Caption := 'Start'; BtnStartStop.Caption := 'Start';
end; end;
@ -85,40 +85,40 @@ procedure TForm1.CbMilitaryTimeChange(Sender: TObject);
var var
t: TDateTime; t: TDateTime;
begin begin
t := VpClock1.Time; t := VpClock.Time;
VpClock1.DigitalOptions.MilitaryTime := CbMilitaryTime.Checked; VpClock.DigitalOptions.MilitaryTime := CbMilitaryTime.Checked;
VpClock1.Time := t; VpClock.Time := t;
end; end;
procedure TForm1.CbNewClockFaceChange(Sender: TObject); procedure TForm1.CbNewClockFaceChange(Sender: TObject);
begin begin
if CbNewClockFace.Checked then begin if CbNewClockFace.Checked then begin
VpClock1.AnalogOptions.ClockFace.LoadFromFile('clockface.bmp'); VpClock.AnalogOptions.ClockFace.LoadFromFile('clockface.bmp');
VpClock1.AnalogOptions.HourHandWidth := 2; VpClock.AnalogOptions.HourHandWidth := 2;
VpClock1.AnalogOptions.MinuteHandWidth := 2; VpClock.AnalogOptions.MinuteHandWidth := 2;
VpClock1.AnalogOptions.SecondHandWidth := 1; VpClock.AnalogOptions.SecondHandWidth := 1;
VpClock1.Width := 100; VpClock.Width := 100;
VpClock1.Height := 100; VpClock.Height := 100;
end else begin end else begin
VpClock1.AnalogOptions.ClockFace := nil; VpClock.AnalogOptions.ClockFace := nil;
VpClock1.AnalogOptions.HourHandWidth := 4; VpClock.AnalogOptions.HourHandWidth := 4;
VpClock1.AnalogOptions.MinuteHandWidth := 3; VpClock.AnalogOptions.MinuteHandWidth := 3;
VpClock1.AnalogOptions.SecondHandWidth := 1; VpClock.AnalogOptions.SecondHandWidth := 1;
VpClock1.Width := 200; VpClock.Width := 200;
VpClock1.Height := 200; VpClock.Height := 200;
end; end;
VpClock1.AnalogOptions.DrawMarks := not CbNewClockFace.Checked; VpClock.AnalogOptions.DrawMarks := not CbNewClockFace.Checked;
if RgDisplayMode.ItemIndex = ord(dmAnalog) then if RgDisplayMode.ItemIndex = ord(dmAnalog) then
VpClock1.Invalidate; VpClock.Invalidate;
end; end;
procedure TForm1.EdCountDownTimeChange(Sender: TObject); procedure TForm1.EdCountDownTimeChange(Sender: TObject);
var var
t: TTime; t: TTime;
begin begin
if VpClock1.ClockMode = cmCountDownTimer then if VpClock.ClockMode = cmCountDownTimer then
if TryStrToTime(EdCountdownTime.Text, t) then if TryStrToTime(EdCountdownTime.Text, t) then
VpClock1.Time := t; VpClock.Time := t;
end; end;
procedure TForm1.FormShow(Sender: TObject); procedure TForm1.FormShow(Sender: TObject);
@ -138,27 +138,27 @@ procedure TForm1.RgClockModeClick(Sender: TObject);
var var
h,m,s,ms: Word; h,m,s,ms: Word;
begin begin
VpClock1.Active := false; VpClock.Active := false;
BtnStartStop.Caption := 'Start'; BtnStartStop.Caption := 'Start';
VpClock1.ClockMode := TVpClockMode(RgClockMode.ItemIndex); VpClock.ClockMode := TVpClockMode(RgClockMode.ItemIndex);
case VpClock1.ClockMode of case VpClock.ClockMode of
cmClock: cmClock:
begin begin
VpClock1.Time := now; VpClock.Time := now;
VpClock1.Active := true; VpClock.Active := true;
BtnStartStop.Caption := 'Stop'; BtnStartStop.Caption := 'Stop';
end; end;
cmTimer: cmTimer:
VpClock1.Time := 0; VpClock.Time := 0;
cmCountdownTimer: cmCountdownTimer:
begin begin
DecodeTime(StrToTime(EdCountDownTime.Text), h,m,s,ms); DecodeTime(StrToTime(EdCountDownTime.Text), h,m,s,ms);
VpClock1.HourOffset := h; VpClock.HourOffset := h;
VpClock1.MinuteOffset := m; VpClock.MinuteOffset := m;
VpClock1.SecondOffset := s; VpClock.SecondOffset := s;
end; end;
end; end;
EdCountDownTime.Visible := VpClock1.ClockMode = cmCountDownTimer; EdCountDownTime.Visible := VpClock.ClockMode = cmCountDownTimer;
LblCountDownTime.Visible := EdCountDownTime.Visible; LblCountDownTime.Visible := EdCountDownTime.Visible;
end; end;
@ -166,24 +166,24 @@ procedure TForm1.RgDisplayModeClick(Sender: TObject);
var var
t: TDateTime; t: TDateTime;
begin begin
t := VpClock1.Time; t := VpClock.Time;
VpClock1.DisplayMode := TVpClockDisplayMode(RgDisplayMode.ItemIndex); VpClock.DisplayMode := TVpClockDisplayMode(RgDisplayMode.ItemIndex);
case VpClock1.DisplayMode of case VpClock.DisplayMode of
dmAnalog: dmAnalog:
CbNewClockFaceChange(nil); CbNewClockFaceChange(nil);
dmDigital: dmDigital:
begin begin
VpClock1.Width := 136; VpClock.Width := 136;
VpClock1.Height := 30; VpClock.Height := 30;
end; end;
end; end;
CbMilitaryTime.Visible := VpClock1.DisplayMode = dmDigital; CbMilitaryTime.Visible := VpClock.DisplayMode = dmDigital;
CbNewClockface.Visible := VpClock1.DisplayMode = dmAnalog; CbNewClockface.Visible := VpClock.DisplayMode = dmAnalog;
VpClock1.Time := t; VpClock.Time := t;
end; end;
procedure TForm1.VpClock1CountdownDone(Sender: TObject); procedure TForm1.VpClockCountdownDone(Sender: TObject);
begin begin
ShowMessage('Countdown completed.'); ShowMessage('Countdown completed.');
end; end;

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

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -20,9 +20,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>

9
components/tvplanit/examples/tutorial/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -17,9 +17,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>

9
components/tvplanit/examples/tutorial/unit1.lfm
View File

@ -7,15 +7,15 @@ object Form1: TForm1
ClientHeight = 559 ClientHeight = 559
ClientWidth = 804 ClientWidth = 804
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.6.4.0' LCLVersion = '2.1.0.0'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 559 Height = 559
Top = 0 Top = 0
Width = 804 Width = 804
ActivePage = TabSheet3 ActivePage = TabSheet1
Align = alClient Align = alClient
TabIndex = 2 TabIndex = 0
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Events' Caption = 'Events'
@ -95,13 +95,13 @@ object Form1: TForm1
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
TabStop = True TabStop = True
TabOrder = 2 TabOrder = 2
KBNavigation = True
DateLabelFormat = 'mmmm yyyy' DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Color = clBtnFace DayHeadAttributes.Color = clBtnFace
DayNameStyle = dsShort DayNameStyle = dsShort
DrawingStyle = dsFlat DrawingStyle = dsFlat
EventDayStyle = [] EventDayStyle = []
HeadAttributes.Color = clBtnFace HeadAttributes.Color = clBtnFace
KBNavigation = True
OffDayColor = clSilver OffDayColor = clSilver
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
@ -174,6 +174,7 @@ object Form1: TForm1
Height = 531 Height = 531
Top = 0 Top = 0
Width = 40 Width = 40
ContactGrid = VpContactGrid1
DrawingStyle = dsFlat DrawingStyle = dsFlat
RadioStyle = False RadioStyle = False
Align = alLeft Align = alLeft

2
components/tvplanit/examples/tutorial/unit1.pas
View File

@ -7,7 +7,7 @@ interface
uses uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
VpDayView, VpMonthView, VpTaskList, VpContactGrid, VpContactButtons, VpDayView, VpMonthView, VpTaskList, VpContactGrid, VpContactButtons,
VpWeekView, VpIniDs, VpBaseDS, VpXmlDs; VpWeekView, VpBaseDS, VpXmlDs;
type type

2
components/tvplanit/laz_visualplanit.lpk
View File

@ -31,7 +31,7 @@ The Initial Developer of the Original Code is TurboPower Software.
Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower Software Inc. All Rights Reserved. Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower Software Inc. All Rights Reserved.
Contributor(s): "/> Contributor(s): "/>
<Version Major="1" Minor="3"/> <Version Major="1" Minor="4"/>
<Files Count="74"> <Files Count="74">
<Item1> <Item1>
<Filename Value="source\vpbase.pas"/> <Filename Value="source\vpbase.pas"/>

2
components/tvplanit/laz_visualplanit_design.lpk
View File

@ -27,7 +27,7 @@ The Initial Developer of the Original Code is TurboPower Software.
Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower Software Inc. All Rights Reserved. Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower Software Inc. All Rights Reserved.
Contributor(s): "/> Contributor(s): "/>
<Version Major="1" Minor="3"/> <Version Major="1" Minor="4"/>
<Files Count="6"> <Files Count="6">
<Item1> <Item1>
<Filename Value="source\design\vpreg.pas"/> <Filename Value="source\design\vpreg.pas"/>

2
components/tvplanit/laz_visualplanit_zeos.lpk
View File

@ -18,7 +18,7 @@
Software distributed under the License is distributed on an &quot;AS IS&quot; basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the specific language governing rights and limitations under the License. Software distributed under the License is distributed on an &quot;AS IS&quot; basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the specific language governing rights and limitations under the License.
"/> "/>
<Version Major="1" Minor="3"/> <Version Major="1" Minor="4"/>
<Files Count="1"> <Files Count="1">
<Item1> <Item1>
<Filename Value="source\addons\zeos\vpzeosds.pas"/> <Filename Value="source\addons\zeos\vpzeosds.pas"/>

2
components/tvplanit/laz_visualplanit_zeos_design.lpk
View File

@ -15,7 +15,7 @@
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Description Value="Visual PlanIt datastore for ZEOS database components (Designtime package)"/> <Description Value="Visual PlanIt datastore for ZEOS database components (Designtime package)"/>
<Version Major="1" Minor="3"/> <Version Major="1" Minor="4"/>
<Files Count="1"> <Files Count="1">
<Item1> <Item1>
<Filename Value="source\addons\zeos\vpregzeos.pas"/> <Filename Value="source\addons\zeos\vpregzeos.pas"/>