childsizing and BevelOuter= bvNone
Original Reporter info from Mantis: apeoperaio @andrea.mauri
-
Reporter name: Andrea Mauri
Original Reporter info from Mantis: apeoperaio @andrea.mauri
- Reporter name: Andrea Mauri
Description:
Adding Panels on a Panel with childsizing Layout:= cclLeftToRightThenTopToBottom the Panels are correctly added if BevelOuter:= bvRaised; but if BevelOuter:= bvNone; the Panels are not correctly drawn.
Steps to reproduce:
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;
Additional information:
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
Mantis conversion info:
- Mantis ID: 24986
- OS: windows
- OS Build: 7
- Build: 41372M
- Platform: i386
- Version: 1.0.9 (SVN)
- Fixed in revision: 42702 (#084093d9)