[Lazarus] childisizing and bevelouter

[Andrea Mauri]

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

Should I have to open a bug issue on the bugtracker?

Thanks in advance.
Andrea Mauri

--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus