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

* Fix compilation on non windows

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@831 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-06-09 02:24:48 +00:00
parent 2eb02a2179
commit 6eb3432e9a
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/virtualtreeview-new/VirtualTrees.pas
View File

@ -24091,7 +24091,8 @@ begin
end
else
begin
Brush.Style := bsClear;
//lcl: Is not necessary to set the style here
//Brush.Style := bsClear;
end;
end
else
@ -24171,7 +24172,7 @@ begin
InflateRect(FocusRect, -1, -1);
{$endif ThemeSupport}
Windows.DrawFocusRect(Handle, FocusRect);
LCLIntf.DrawFocusRect(Handle, FocusRect);
SetTextColor(Handle, TextColorBackup);
SetBkColor(Handle, BackColorBackup);
end;