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

jvcllaz: Set package version numbers to 1.0.5 for upcoming OPM release. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6969 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-29 16:06:12 +00:00
parent 4e22eb8649
commit 5296af1508
82 changed files with 366 additions and 366 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/jvcllaz/run/JvCtrls/jvautocomplete.pas
View File

@ -296,7 +296,7 @@ var
LT: Int64;
Msg: TMsg;
function HasSelectedText(var StartPos, EndPos: Integer): Boolean;
function HasSelectedText(out StartPos, EndPos: Integer): Boolean;
begin
GetEditSel(StartPos, EndPos);
Result := EndPos > StartPos;
@ -356,12 +356,12 @@ begin
if ListSearch then
begin
LT := GetTickCount;
LT := GetTickCount64;
if FLastTime > LT then
LT := $100000000 + LT; // double limit.
if LT - FLastTime >= MaxFilterTime then
FFilter := '';
FLastTime := GetTickCount;
FLastTime := GetTickCount64;
end
else
FFilter := GetText;
@ -412,7 +412,7 @@ begin
if CharInSet(Key, LeadBytes) then
begin
if PeekMessage(Msg, GetEditHandle, 0, 0, PM_NOREMOVE) and (Msg.Message = LM_CHAR) then
if PeekMessage(Msg{%H-}, GetEditHandle, 0, 0, PM_NOREMOVE) and (Msg.Message = LM_CHAR) then
begin
if SelectItem(SaveText + Char(Msg.WParam)) then
begin

2
components/jvcllaz/run/JvCtrls/jvgroupheader.pas
View File

@ -26,7 +26,7 @@ interface
uses
LCLIntf, LCLType,
Classes, Graphics, Controls, ExtCtrls,
JvJCLUtils, JvComponent, JvTypes;
JvComponent, JvTypes;
type
TJvGroupHeaderOptions = class(TPersistent)

8
components/jvcllaz/run/JvCtrls/jvhtcontrols.pas
View File

@ -693,7 +693,7 @@ end;
procedure TJvCustomHTListBox.MouseMove(Shift: TShiftState; X, Y: Integer);
var
R: TRect;
LinkName: string;
LinkName: string = '';
State: TOwnerDrawState;
I: Integer;
begin
@ -725,7 +725,7 @@ procedure TJvCustomHTListBox.MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
var
R: TRect;
LinkName: string;
LinkName: string = '';
State: TOwnerDrawState;
I: Integer;
begin
@ -968,7 +968,7 @@ end;
procedure TJvCustomHTLabel.MouseMove(Shift: TShiftState; X, Y: Integer);
var
R: TRect;
LinkName: string;
LinkName: string = '';
LastHovered: Boolean;
begin
FMouseX := X;
@ -1002,7 +1002,7 @@ end;
procedure TJvCustomHTLabel.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
R: TRect;
LinkName: string;
LinkName: string = '';
begin
FMouseX := X;
FMouseY := Y;

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

@ -511,8 +511,6 @@ end;
//=== { TJvCustomRollOut } ===================================================
constructor TJvCustomRollOut.Create(AOwner: TComponent);
var
R: TRect;
begin
inherited Create(AOwner);
IncludeThemeStyle(Self, [csNeedsBorderPaint, csParentBackground]);
@ -1405,7 +1403,7 @@ end; }
function TJvCustomRollOut.MouseIsOnButton: Boolean;
var
P: TPoint;
P: TPoint = (x:0; y:0);
R: TRect;
begin
GetCursorPos(P);

2
components/jvcllaz/run/JvCtrls/jvruler.pas
View File

@ -31,7 +31,7 @@ unit JvRuler;
interface
uses
LCLIntf, LCLType, Types,
LCLIntf, LCLType,
Classes, SysUtils, Graphics, Controls, JvComponent;
type