paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 09:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

TurboPower_iPro: Improved selection behavior if first selection click is left of line start.

Browse Source 
git-svn-id: trunk@50190 -
This commit is contained in:
wp 2015-10-28 16:18:39 +00:00
parent 9c9b31c0e5
commit 2b355340cc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/turbopower_ipro/iphtml.pas
View File

@ -7791,7 +7791,7 @@ begin
CurBlock := PIpHtmlRectListEntry(RectList[StartSelIndex]).Block;
{if FAllSelected and (CurBlock <> nil) then
break;}
if PtInRect(CurBlock.PageRect, FStartSel) then begin
// if PtInRect(CurBlock.PageRect, FStartSel) then begin
R := PIpHtmlRectListEntry(RectList[StartSelIndex]).Rect;
if R.Bottom = 0 then
else
@ -7809,7 +7809,7 @@ begin
else
if (R.Left >= FStartSel.x) and (R.Right <= FEndSel.x) then
break;
end;
// end;
Inc(StartSelIndex);
end;
if StartSelIndex >= RectList.Count then Exit;