paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-24 15:12:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

IpPro: Fix painting for SelectAll

Browse Source 
git-svn-id: trunk@37136 -
This commit is contained in:
martin 2012-05-02 16:31:57 +00:00
parent ce6718c8ea
commit 2ac1ad92c9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/turbopower_ipro/iphtml.pas
View File

@ -9546,6 +9546,10 @@ var
item: PIpHtmlRectListEntry;
{$ENDIF}
begin
{$IFDEF IP_LAZARUS}
if AllSelected then
InvalidateRect(Body.PageRect);
{$ENDIF}
AllSelected := False;
if EndPoint.y > StartPoint.y then begin
FStartSel := StartPoint;
@ -10185,7 +10189,7 @@ begin
{$IFDEF IP_LAZARUS}
//if (LastOwner <> CurWord.Owner) then LastPoint := P;
saveCanvasProperties;
if CurWord.IsSelected then begin
if CurWord.IsSelected or Owner.AllSelected then begin
aCanvas.Font.color := clHighlightText;
aCanvas.brush.Style := bsSolid;
aCanvas.brush.color := clHighLight;