paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-07 00:45:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

Object Inspector: Fix resizing selected edit after horizontal resize, remove useless Invalidate. Patch from Sandro Cumerlato.

Browse Source 
git-svn-id: trunk@46976 -
This commit is contained in:
juha 2014-11-23 18:42:33 +00:00
parent aa460b80b4
commit 45eab13451
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/ideintf/objectinspector.pp
View File

@ -2586,11 +2586,6 @@ var
and (r1.Right=r2.Right) and (r1.Bottom=r2.Bottom);
end;
function CompareTopLeft(r1,r2:TRect):boolean;
begin
Result := (r1.Left=r2.Left) and (r1.Top=r2.Top);
end;
// AlignEditComponents
begin
if ItemIndex>=0 then
@ -2630,11 +2625,8 @@ begin
Inc(EditCompRect.Bottom);
end;
//debugln('TOICustomPropertyGrid.AlignEditComponents A ',dbgsName(FCurrentEdit),' ',dbgs(EditCompRect));
if not CompareTopLeft(FCurrentEdit.BoundsRect,EditCompRect) then
begin
if not CompareRectangles(FCurrentEdit.BoundsRect,EditCompRect) then
FCurrentEdit.BoundsRect:=EditCompRect;
FCurrentEdit.Invalidate;
end;
end;
end;
end;