Please review attached patch.
- selected edit control doesn't resize properly after a horizontal resize.
Apply if OK, thanx.
Sandro
Index: components/ideintf/objectinspector.pp
===================================================================
--- components/ideintf/objectinspector.pp (revisione 46974)
+++ components/ideintf/objectinspector.pp (copia locale)
@@ -2586,11 +2586,6 @@
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,7 +2625,7 @@
Inc(EditCompRect.Bottom);
end;
//debugln('TOICustomPropertyGrid.AlignEditComponents A
',dbgsName(FCurrentEdit),' ',dbgs(EditCompRect));
- if not CompareTopLeft(FCurrentEdit.BoundsRect,EditCompRect) then
+ if not CompareRectangles(FCurrentEdit.BoundsRect,EditCompRect) then
begin
FCurrentEdit.BoundsRect:=EditCompRect;
FCurrentEdit.Invalidate;
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
