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

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

View File

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