[Lazarus] childisizing and bevelouter

[Mattias Gaertner]

> Andrea Mauri <andrea.mauri.75 at gmail.com> 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