You've already forked lazarus-ccr
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:
@ -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>
|
||||
|
@ -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>
|
||||
|
@ -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>
|
||||
|
@ -65,6 +65,11 @@
|
||||
<Debugging>
|
||||
<UseExternalDbgSyms Value="True"/>
|
||||
</Debugging>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
</CompilerOptions>
|
||||
<Debugging>
|
||||
|
@ -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>
|
||||
|
@ -24,9 +24,6 @@
|
||||
<Version Value="2"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<LaunchingApplication PathPlusParams="localhost"/>
|
||||
</local>
|
||||
<FormatVersion Value="2"/>
|
||||
<Modes Count="1">
|
||||
<Mode0 Name="default">
|
||||
|
@ -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>
|
||||
|
@ -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
|
||||
|
@ -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;
|
||||
|
@ -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>
|
||||
|
@ -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>
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
@ -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"/>
|
||||
|
@ -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"/>
|
||||
|
@ -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.
|
||||
"/>
|
||||
<Version Major="1" Minor="3"/>
|
||||
<Version Major="1" Minor="4"/>
|
||||
<Files Count="1">
|
||||
<Item1>
|
||||
<Filename Value="source\addons\zeos\vpzeosds.pas"/>
|
||||
|
@ -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"/>
|
||||
|
Reference in New Issue
Block a user