paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 16:00:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

Object Inspector: Test code for redraw errors in some Windows machines. Cleanup.

Browse Source 
git-svn-id: trunk@46885 -
This commit is contained in:
juha 2014-11-19 10:26:20 +00:00
parent 5b6597fee6
commit a8e80b673c
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/ideintf/objectinspector.pp
View File

@ -2630,8 +2630,11 @@ begin
begin begin
if FCurrentEdit is TCheckBox then if FCurrentEdit is TCheckBox then
begin begin
TCheckBox(FCurrentEdit).Top := EditCompRect.Top; FCurrentEdit.Top := EditCompRect.Top;
TCheckBox(FCurrentEdit).Left := EditCompRect.Left; FCurrentEdit.Left := EditCompRect.Left;
// For testing: Try to prevent redraw errors in some Windows machines.
//Canvas.Brush.Color := FBackgroundColor;
//Canvas.FillRect(EditCompRect);
end end
else else
FCurrentEdit.BoundsRect:=EditCompRect; FCurrentEdit.BoundsRect:=EditCompRect;