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

tvplanit: Inc version number to 1.0.9. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6130 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-01-12 12:42:12 +00:00
parent 12ae2ed3c8
commit 37bb56a6cd
16 changed files with 41 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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" Release="8"/> <Version Major="1" Release="9"/>
<Files Count="72"> <Files Count="72">
<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" Release="8"/> <Version Major="1" Release="9"/>
<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" Release="8"/> <Version Major="1" Release="9"/>
<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

@ -14,7 +14,7 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\zeos_design"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\zeos_design"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Version Major="1" Release="8"/> <Version Major="1" Release="9"/>
<Files Count="1"> <Files Count="1">
<Item1> <Item1>
<Filename Value="source\addons\zeos\vpregzeos.pas"/> <Filename Value="source\addons\zeos\vpregzeos.pas"/>

2
components/tvplanit/source/addons/zeos/vpzeosds.pas
View File

@ -40,7 +40,7 @@ type
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
procedure CreateTables; procedure CreateTables;
function GetNextID(TableName: string): integer; override; function GetNextID({%H-}TableName: string): integer; override;
property ResourceTable; property ResourceTable;
property EventsTable; property EventsTable;

1
components/tvplanit/source/vpalarmdlg.pas
View File

@ -307,7 +307,6 @@ end;
procedure TAlarmNotifyForm.PositionControls; procedure TAlarmNotifyForm.PositionControls;
var var
w, h: Integer; w, h: Integer;
b: TButton;
i: Integer; i: Integer;
cnv: TControlCanvas; cnv: TControlCanvas;
begin begin

2
components/tvplanit/source/vpbase.pas
View File

@ -370,7 +370,7 @@ type
TVpHintWindow = class(THintWindow) TVpHintWindow = class(THintWindow)
public public
function CalcHintRect(MaxWidth: Integer; const AHint: String; function CalcHintRect({%H-}MaxWidth: Integer; const AHint: String;
AData: pointer): TRect; override; AData: pointer): TRect; override;
end; end;

11
components/tvplanit/source/vpcontactgrid.pas
View File

@ -195,11 +195,6 @@ type
procedure EditContact; procedure EditContact;
procedure EndEdit(Sender: TObject); procedure EndEdit(Sender: TObject);
procedure InitializeDefaultPopup; procedure InitializeDefaultPopup;
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSEIF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
{ message handlers } { message handlers }
{$IFNDEF LCL} {$IFNDEF LCL}
@ -245,6 +240,12 @@ type
{ - Added to support the buttonbar component. } { - Added to support the buttonbar component. }
function SelectContactByName(const Name: String): Boolean; function SelectContactByName(const Name: String): Boolean;
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSEIF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
property ActiveContact: TVpContact read FActiveContact; property ActiveContact: TVpContact read FActiveContact;
property ContactIndex: Integer read FContactIndex write SetContactIndex; property ContactIndex: Integer read FContactIndex write SetContactIndex;

15
components/tvplanit/source/vpdayview.pas
View File

@ -389,13 +389,6 @@ type
procedure EndEdit(Sender: TObject); procedure EndEdit(Sender: TObject);
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure SetTimeIntervals(UseGran: TVpGranularity); procedure SetTimeIntervals(UseGran: TVpGranularity);
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSE}
{$IF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
{$ENDIF}
{ message handlers } { message handlers }
procedure VpDayViewInit(var Msg: {$IFDEF DELPHI}TMessage{$ELSE}TLMessage{$ENDIF}); message Vp_DayViewInit; procedure VpDayViewInit(var Msg: {$IFDEF DELPHI}TMessage{$ELSE}TLMessage{$ENDIF}); message Vp_DayViewInit;
@ -441,6 +434,14 @@ type
Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime; Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime;
StartLine, StopLine: Integer; UseGran: TVpGranularity; DisplayOnly: Boolean); override; StartLine, StopLine: Integer; UseGran: TVpGranularity; DisplayOnly: Boolean); override;
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSE}
{$IF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
{$ENDIF}
property ActiveEvent: TVpEvent read FActiveEvent write FActiveEvent; property ActiveEvent: TVpEvent read FActiveEvent write FActiveEvent;
property TopHour: TVpHours read FTopHour write SetTopHour; property TopHour: TVpHours read FTopHour write SetTopHour;
property TopLine: Integer read FTopLine write SetTopLine; property TopLine: Integer read FTopLine write SetTopLine;

1
components/tvplanit/source/vpedfmtlst.pas
View File

@ -342,7 +342,6 @@ end;
function TfrmPrnFormat.DirtyPrompt: Integer; function TfrmPrnFormat.DirtyPrompt: Integer;
var var
msg: String; msg: String;
fn: String;
begin begin
if FormatFileName = '' then if FormatFileName = '' then
msg := RSSaveFormatChangesToFile msg := RSSaveFormatChangesToFile

5
components/tvplanit/source/vpjsonds.pas
View File

@ -7,7 +7,7 @@ unit VpJSONDs;
interface interface
uses uses
SysUtils, Classes, db, fpjson, SysUtils, Classes, fpjson,
VpData, VpBaseDS; VpData, VpBaseDS;
type type
@ -67,7 +67,7 @@ implementation
uses uses
LazFileUtils, LazFileUtils,
jsonparser, jsonparser,
VpConst, VpSR, VpMisc; VpSR, VpMisc;
constructor TVpJSONDatastore.Create(AOwner: TComponent); constructor TVpJSONDatastore.Create(AOwner: TComponent);
begin begin
@ -646,7 +646,6 @@ var
cont: TVpContact; cont: TVpContact;
task: TvpTask; task: TvpTask;
i, j: Integer; i, j: Integer;
s: String;
stream: TStream; stream: TStream;
begin begin
if FFilename = '' then if FFilename = '' then

3
components/tvplanit/source/vpmisc.pas
View File

@ -964,7 +964,6 @@ procedure LoadGlyphFromRCDATA(AGlyph: TBitmap; AResName: String);
var var
stream: TResourceStream; stream: TResourceStream;
pic: TPicture; pic: TPicture;
bmp: TBitmap;
begin begin
stream := TResourceStream.Create(HINSTANCE, AResName, RT_RCDATA); stream := TResourceStream.Create(HINSTANCE, AResName, RT_RCDATA);
try try
@ -983,8 +982,6 @@ end;
procedure LoadGlyphFromRCDATA(AGlyph: TBitmap; ABaseResName: String; procedure LoadGlyphFromRCDATA(AGlyph: TBitmap; ABaseResName: String;
ALowRes, AMedRes, AHighRes: Integer); ALowRes, AMedRes, AHighRes: Integer);
var var
stream: TResourceStream;
pic: TPicture;
ppiFactor: Integer; ppiFactor: Integer;
resName: String; resName: String;
begin begin

17
components/tvplanit/source/vpmonthview.pas
View File

@ -233,11 +233,6 @@ type
procedure MouseMove(Shift: TShiftState; X,Y: Integer); override; procedure MouseMove(Shift: TShiftState; X,Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override; procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure Paint; override; procedure Paint; override;
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSEIF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
{ drag and drop } { drag and drop }
procedure DoEndDrag(Target: TObject; X, Y: Integer); override; procedure DoEndDrag(Target: TObject; X, Y: Integer); override;
@ -294,6 +289,12 @@ type
StartLine, StopLine: Integer; UseGran: TVpGranularity; StartLine, StopLine: Integer; UseGran: TVpGranularity;
DisplayOnly: Boolean); override; DisplayOnly: Boolean); override;
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSEIF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
property Date: TDateTime read FDate write SetDate; property Date: TDateTime read FDate write SetDate;
published published
@ -1117,14 +1118,11 @@ end;
{=====} {=====}
procedure TVpMonthView.ShowHintWindow(APoint: TPoint; ADate: TDateTime); procedure TVpMonthView.ShowHintWindow(APoint: TPoint; ADate: TDateTime);
const
MaxWidth = 400;
var var
txt, s: String; txt, s: String;
i: Integer; i: Integer;
event: TVpEvent; event: TVpEvent;
list: TList; list: TList;
R: TRect;
holiday: String = ''; holiday: String = '';
todayDate: TDate; todayDate: TDate;
begin begin
@ -1413,9 +1411,6 @@ end;
procedure TVpMonthView.MouseDown(Button: TMouseButton; Shift: TShiftState; procedure TVpMonthView.MouseDown(Button: TMouseButton; Shift: TShiftState;
X,Y: Integer); X,Y: Integer);
var
oldDate: TDate;
i: Integer;
begin begin
inherited; inherited;

11
components/tvplanit/source/vptasklist.pas
View File

@ -189,11 +189,6 @@ type
procedure EditTask; procedure EditTask;
procedure EndEdit(Sender: TObject); procedure EndEdit(Sender: TObject);
procedure KeyDown(var Key: Word; Shift: TShiftState); override; procedure KeyDown(var Key: Word; Shift: TShiftState); override;
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSEIF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
{ message handlers } { message handlers }
{$IFNDEF LCL} {$IFNDEF LCL}
@ -224,6 +219,12 @@ type
Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime; Angle: TVpRotationAngle; Scale: Extended; RenderDate: TDateTime;
StartLine, StopLine: Integer; UseGran: TVpGranularity; DisplayOnly: Boolean); override; StartLine, StopLine: Integer; UseGran: TVpGranularity; DisplayOnly: Boolean); override;
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSEIF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
property ActiveTask: TVpTask read FActiveTask; property ActiveTask: TVpTask read FActiveTask;
property TaskIndex: Integer read GetTaskIndex write SetTaskIndex; property TaskIndex: Integer read GetTaskIndex write SetTaskIndex;

2
components/tvplanit/source/vptasklistpainter.pas
View File

@ -90,7 +90,7 @@ var
dx, dy: Integer; dx, dy: Integer;
tm: Integer; // Scaled text margin; tm: Integer; // Scaled text margin;
d2: Integer; // 2*Scale d2: Integer; // 2*Scale
d1px, d2px, d3px: Integer; {%H-}d1px, {%H-}d2px, d3px: Integer;
begin begin
if Scale > 1 then if Scale > 1 then
tm := Round(TextMargin * Scale) else tm := Round(TextMargin * Scale) else

12
components/tvplanit/source/vpweekview.pas
View File

@ -223,11 +223,6 @@ type
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override; procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); override; procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X,Y: Integer); override;
procedure Paint; override; procedure Paint; override;
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSEIF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
{ drag and drop } { drag and drop }
procedure DoEndDrag(Target: TObject; X, Y: Integer); override; procedure DoEndDrag(Target: TObject; X, Y: Integer); override;
@ -273,6 +268,12 @@ type
StartLine: Integer; StopLine: Integer; UseGran: TVpGranularity; StartLine: Integer; StopLine: Integer; UseGran: TVpGranularity;
DisplayOnly: Boolean); override; DisplayOnly: Boolean); override;
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSEIF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
property ActiveEvent: TVpEvent read FActiveEvent write SetActiveEvent; property ActiveEvent: TVpEvent read FActiveEvent write SetActiveEvent;
property Date: TDateTime read FActiveDate write SetActiveDate; property Date: TDateTime read FActiveDate write SetActiveDate;
property VisibleLines: Integer read FVisibleLines; property VisibleLines: Integer read FVisibleLines;
@ -1048,7 +1049,6 @@ end;
procedure TVpWeekView.ShowHintWindow(APoint: TPoint; AEvent: TVpEvent); procedure TVpWeekView.ShowHintWindow(APoint: TPoint; AEvent: TVpEvent);
var var
txt: String; txt: String;
R, eventR: TRect;
begin begin
HideHintWindow; HideHintWindow;
case FHintMode of case FHintMode of