> Andrea Mauri <[email protected]> hat am 9. September 2013 um 11:46 > geschrieben: > > > Dear all, > I got a problem using ChildSizing. > I have a form, I put a Panel aligned to client then OnCreate I do: > > procedure TForm1.FormCreate(Sender: TObject); > var > i: Integer; > pan: TPanel; > begin > Panel1.ChildSizing.ControlsPerLine:= 10; > Panel1.ChildSizing.EnlargeHorizontal:= crsHomogenousChildResize; > Panel1.ChildSizing.EnlargeVertical:= crsHomogenousChildResize; > Panel1.ChildSizing.Layout:= cclLeftToRightThenTopToBottom; > > for i:= 0 to 100 do > begin > pan:= TPanel.Create(Self); > with pan do > begin > Parent:= Panel1; > BevelInner:= bvNone; > BevelOuter:= bvRaised; > //BevelOuter:= bvNone; > Caption:= IntToStr(i); > end; > end; > end; > > If I use BevelOuter:= bvRaised; the created Panels are drawn correctly, > if I set BevelOuter:= bvNone; the Panels are drawn very big. > I use: > Lazarus 1.0.9 r41372M FPC 2.6.0 i386-win32-win32/win64
It works under gtk2 and carbon. So it is probably a bug in the LCL win32 interface. > Should I have to open a bug issue on the bugtracker? Yes, please. Mattias Mattias -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
