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