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

* Remove ifdef for Get/SetBkColor since is already implemented in LCL

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1322 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2010-09-17 10:36:52 +00:00
parent c4882537eb
commit ee1b5a0ce4
1 changed files with 0 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
View File

@ -22589,16 +22589,11 @@ begin
// Classical selection rectangle using dotted borderlines.
TextColorBackup := GetTextColor(Target.Handle);
SetTextColor(Target.Handle, $FFFFFF);
//todo: implement in LCL
{$ifndef INCOMPLETE_WINAPI}
BackColorBackup := GetBkColor(Target.Handle);
SetBkColor(Target.Handle, 0);
{$endif}
Target.DrawFocusRect(SelectionRect);
SetTextColor(Target.Handle, TextColorBackup);
{$ifndef INCOMPLETE_WINAPI}
SetBkColor(Target.Handle, BackColorBackup);
{$endif}
end
else
begin
@ -22820,11 +22815,8 @@ begin
begin
TextColorBackup := GetTextColor(Handle);
SetTextColor(Handle, $FFFFFF);
//todo: implement in LCL
{$ifndef INCOMPLETE_WINAPI}
BackColorBackup := GetBkColor(Handle);
SetBkColor(Handle, 0);
{$endif}
{$ifdef ThemeSupport}
//todo
@ -22850,9 +22842,7 @@ begin
LCLIntf.DrawFocusRect(Handle, FocusRect);
SetTextColor(Handle, TextColorBackup);
{$ifndef INCOMPLETE_WINAPI}
SetBkColor(Handle, BackColorBackup);
{$endif}
end;
end;
end;