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