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

tvplanit: Set version to 1.0.10 for next release.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6389 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-05 16:09:31 +00:00
parent b68354b929
commit 22a58397f4
18 changed files with 185 additions and 383 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/tvplanit/source/vpnavbar.pas
View File

@ -305,12 +305,12 @@ type
procedure WMSetCursor(var Msg: TLMSetCursor); message LM_SETCURSOR;
{$IF LCL_FullVersion >= 1080000}
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double);
const AXProportion, AYProportion: Double); override;
{$ENDIF}
{$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double);
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSEIF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double);
procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF}
{$ENDIF}
procedure CreateParams(var Params: TCreateParams); override;
@ -351,7 +351,7 @@ type
property ImagesWidth: Integer read FImagesWidth write SetImagesWidth;
property ItemFont: TFont read FItemFont write SetItemFont;
property ItemSpacing: Integer read FItemSpacing write SetItemSpacing stored IsStoredItemSpacing;
property PlaySounds: Boolean read FPlaySounds write FPlaySounds;
property PlaySounds: Boolean read FPlaySounds write FPlaySounds default false;
property ScrollDelta: Integer read FScrollDelta write SetScrollDelta default 2;
property SelectedItem: Integer read FSelectedItem write FSelectedItem;
property SelectedItemFont: TFont read FSelectedItemFont write SetSelectedItemFont;