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

jvcllaz: Check packages and demos for Laz 1.8.4 / 2.0.0 / 2.0.2 / trunk and FPC 3.0.4 / FPC 3.2 / trunk. 32-bit, Laz 2.0.2/FPC 3.2 64 bit. Make fixes needed.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6971 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-29 23:35:34 +00:00
parent 35b4753bbc
commit a67a3f9d55
89 changed files with 441 additions and 327 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/jvcllaz/run/JvCtrls/jvcombolistbox.pas
View File

@ -69,7 +69,7 @@ unit JvComboListBox;
interface
uses
LCLIntf, LCLType,
LCLIntf, LCLType, LCLVersion,
Classes, Graphics, Controls, Forms, StdCtrls,
Menus;
@ -204,9 +204,11 @@ type
property OnMouseUp;
property OnMouseWheel;
property OnMouseWheelDown;
{$IF LCL_FullVersion >= 2000000}
property OnMouseWheelHorz;
property OnMouseWheelLeft;
property OnMouseWheelRight;
{$IFEND}
property OnMouseWheelUp;
property OnResize;
property OnSelectionChange;
@ -464,7 +466,10 @@ begin
// draw the combo button
GetCursorPos(Pt);
Pt := ScreenToClient(Pt);
I := ItemAtPos(Pt, True);
if (Pt.X < 0) or (Pt.Y < 0) then
I := -1
else
I := ItemAtPos(Pt, True);
if (not HotTrackCombo and (State * [odSelected, odFocused] <> [])) or (HotTrackCombo and (I = Index)) then
begin
// draw frame

4
components/jvcllaz/run/JvCtrls/jvinstalllabel.pas
View File

@ -75,9 +75,11 @@ type
property Styles[Index: Integer]: TFontStyles read GetStyles write SetStyles;
published
property Align;
property Font;
property BorderSpacing;
property Color default clBtnFace;
property Constraints;
property DefaultImage: Integer read FDefaultImage write SetIndex default -1;
property Font;
property Images: TCustomImageList read FImageList write SetImageList;
property Lines: TStrings read GetLines write SetLines;
property LineSpacing: Integer read FLineSpacing write SetLineSpacing default 10;

4
components/jvcllaz/run/JvCtrls/jvrollout.pas
View File

@ -41,7 +41,7 @@ unit JvRollOut;
interface
uses
LCLType, LCLIntf, LMessages,
LCLType, LCLIntf, LMessages, LCLVersion,
SysUtils, Classes, Controls, Graphics, ImgList, ExtCtrls, ActnList, Forms,
//JvExtComponent,
JvThemes;
@ -258,7 +258,9 @@ type
property Font;
property GroupIndex;
property ImageOptions;
{$IF LCL_FullVersion >= 2000000}
property ParentBackground default True;
{$IFEND}
property ParentColor;
property ParentFont;
property ParentShowHint;