diff --git a/components/tvplanit/examples/datastores/fb/project1.lpi b/components/tvplanit/examples/datastores/fb/project1.lpi index 8a182d2f2..f76e4a828 100644 --- a/components/tvplanit/examples/datastores/fb/project1.lpi +++ b/components/tvplanit/examples/datastores/fb/project1.lpi @@ -1,7 +1,7 @@ - + @@ -17,9 +17,10 @@ - - - + + + + diff --git a/components/tvplanit/examples/datastores/flex/sqlite3/project1.lpi b/components/tvplanit/examples/datastores/flex/sqlite3/project1.lpi index 1e6cfe103..d6abb8618 100644 --- a/components/tvplanit/examples/datastores/flex/sqlite3/project1.lpi +++ b/components/tvplanit/examples/datastores/flex/sqlite3/project1.lpi @@ -1,7 +1,7 @@ - + @@ -17,9 +17,10 @@ - - - + + + + diff --git a/components/tvplanit/examples/datastores/ini/project1.lpi b/components/tvplanit/examples/datastores/ini/project1.lpi index 4f661d701..31e45ec8a 100644 --- a/components/tvplanit/examples/datastores/ini/project1.lpi +++ b/components/tvplanit/examples/datastores/ini/project1.lpi @@ -1,7 +1,7 @@ - + @@ -17,9 +17,10 @@ - - - + + + + diff --git a/components/tvplanit/examples/datastores/sqlite3/project1.lpi b/components/tvplanit/examples/datastores/sqlite3/project1.lpi index 96c35799b..ff7daf8a3 100644 --- a/components/tvplanit/examples/datastores/sqlite3/project1.lpi +++ b/components/tvplanit/examples/datastores/sqlite3/project1.lpi @@ -65,6 +65,11 @@ + + + + + diff --git a/components/tvplanit/examples/datastores/xml/project1.lpi b/components/tvplanit/examples/datastores/xml/project1.lpi index 4f661d701..31e45ec8a 100644 --- a/components/tvplanit/examples/datastores/xml/project1.lpi +++ b/components/tvplanit/examples/datastores/xml/project1.lpi @@ -1,7 +1,7 @@ - + @@ -17,9 +17,10 @@ - - - + + + + diff --git a/components/tvplanit/examples/fulldemo/demo.lpi b/components/tvplanit/examples/fulldemo/demo.lpi index bf3ad6c27..20fb159f9 100644 --- a/components/tvplanit/examples/fulldemo/demo.lpi +++ b/components/tvplanit/examples/fulldemo/demo.lpi @@ -24,9 +24,6 @@ - - - diff --git a/components/tvplanit/examples/gadgets/project1.lpi b/components/tvplanit/examples/gadgets/project1.lpi index 4f661d701..31e45ec8a 100644 --- a/components/tvplanit/examples/gadgets/project1.lpi +++ b/components/tvplanit/examples/gadgets/project1.lpi @@ -1,7 +1,7 @@ - + @@ -17,9 +17,10 @@ - - - + + + + diff --git a/components/tvplanit/examples/gadgets/unit1.lfm b/components/tvplanit/examples/gadgets/unit1.lfm index 8998a8016..d7f137174 100644 --- 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 diff --git a/components/tvplanit/examples/gadgets/unit1.pas b/components/tvplanit/examples/gadgets/unit1.pas index be1b031f0..d0db1e8e1 100644 --- 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; diff --git a/components/tvplanit/examples/runtime/project1.lpi b/components/tvplanit/examples/runtime/project1.lpi index 6963ebfdc..4dd5acf1e 100644 --- a/components/tvplanit/examples/runtime/project1.lpi +++ b/components/tvplanit/examples/runtime/project1.lpi @@ -1,7 +1,7 @@ - + @@ -20,9 +20,10 @@ - - - + + + + diff --git a/components/tvplanit/examples/tutorial/project1.lpi b/components/tvplanit/examples/tutorial/project1.lpi index 4f661d701..31e45ec8a 100644 --- a/components/tvplanit/examples/tutorial/project1.lpi +++ b/components/tvplanit/examples/tutorial/project1.lpi @@ -1,7 +1,7 @@ - + @@ -17,9 +17,10 @@ - - - + + + + diff --git a/components/tvplanit/examples/tutorial/unit1.lfm b/components/tvplanit/examples/tutorial/unit1.lfm index 92d21907d..ab6258de2 100644 --- a/components/tvplanit/examples/tutorial/unit1.lfm +++ b/components/tvplanit/examples/tutorial/unit1.lfm @@ -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 diff --git a/components/tvplanit/examples/tutorial/unit1.pas b/components/tvplanit/examples/tutorial/unit1.pas index 58af055b4..ef9dfc787 100644 --- a/components/tvplanit/examples/tutorial/unit1.pas +++ b/components/tvplanit/examples/tutorial/unit1.pas @@ -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 diff --git a/components/tvplanit/laz_visualplanit.lpk b/components/tvplanit/laz_visualplanit.lpk index 2bbd9f551..ae72394a2 100644 --- a/components/tvplanit/laz_visualplanit.lpk +++ b/components/tvplanit/laz_visualplanit.lpk @@ -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): "/> - + diff --git a/components/tvplanit/laz_visualplanit_design.lpk b/components/tvplanit/laz_visualplanit_design.lpk index 2b12c74fb..8be646a62 100644 --- a/components/tvplanit/laz_visualplanit_design.lpk +++ b/components/tvplanit/laz_visualplanit_design.lpk @@ -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): "/> - + diff --git a/components/tvplanit/laz_visualplanit_zeos.lpk b/components/tvplanit/laz_visualplanit_zeos.lpk index 787edb370..6158600e4 100644 --- a/components/tvplanit/laz_visualplanit_zeos.lpk +++ b/components/tvplanit/laz_visualplanit_zeos.lpk @@ -18,7 +18,7 @@ Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the specific language governing rights and limitations under the License. "/> - + diff --git a/components/tvplanit/laz_visualplanit_zeos_design.lpk b/components/tvplanit/laz_visualplanit_zeos_design.lpk index 324c3636c..81020baa0 100644 --- a/components/tvplanit/laz_visualplanit_zeos_design.lpk +++ b/components/tvplanit/laz_visualplanit_zeos_design.lpk @@ -15,7 +15,7 @@ - +