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
2019-01-15 18:33:02 +00:00
parent 5d81c2234f
commit 5a8f764b4e
17 changed files with 100 additions and 90 deletions
--- a/components/tvplanit/examples/gadgets/project1.lpi
+++ b/components/tvplanit/examples/gadgets/project1.lpi
@ -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>
--- a/components/tvplanit/examples/gadgets/unit1.lfm
+++ b/components/tvplanit/examples/gadgets/unit1.lfm
@ -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
--- a/components/tvplanit/examples/gadgets/unit1.pas
+++ b/components/tvplanit/examples/gadgets/unit1.pas
@ -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;