Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2013-09

childisizing and bevelouter

3 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

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

Reply by email

Mattias Gaertner
to Andrea Mauri
Show quoted text 36 lines
Andrea Mauri 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

Reply by email