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

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

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.
Contributor(s): "/>
<Version Major="1" Minor="3"/>
<Version Major="1" Minor="4"/>
<Files Count="74">
<Item1>
<Filename Value="source\vpbase.pas"/>

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.
Contributor(s): "/>
<Version Major="1" Minor="3"/>
<Version Major="1" Minor="4"/>
<Files Count="6">
<Item1>
<Filename Value="source\design\vpreg.pas"/>

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.
"/>
<Version Major="1" Minor="3"/>
<Version Major="1" Minor="4"/>
<Files Count="1">
<Item1>
<Filename Value="source\addons\zeos\vpzeosds.pas"/>

View File

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