Hello,

I want to create this layout:
- form has a Panel;
- "Autosize" of Panel is True;
- Panel has Controls with various heights;
- every Control in Panel must be centered vertically.

I tried this (trough Anchor editor):
- Control2 centered to Control1;
- Control1 centered to Panel.
But then Panel shrinks to Height=2 (circular align happens?).

Is it possible to create mentioned layout (preferably not through code)?

Sorry for bad English.

Have you tried using BorderSpacing? I think you can get what you want using Left and Right BorderScaping. I'll give it a try.

OK.  I tried putting 2 Labels Align:= alLeft.  For both Labels I set
BorderSpacing Left and Right := 10 and Layout := tlCenter.  Then I set
Panel.AutoSize := True.  It looks like it does what you want.

2013.11.09 22:52, Avishai ra??:

OK. I tried putting 2 Labels Align:= alLeft. For both Labels I set BorderSpacing Left and Right := 10 and Layout := tlCenter. Then I set Panel.AutoSize := True. It looks like it does what you want.

It works! Even with autosized Buttons or Edits.

Thanks!

Glad I could help :)

I think you could also use anchors

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus/attachments/20131110/65673db0/attachment.html>

2013.11.10 18:24, William Oliveira Ferreira ra??:

I think you could also use anchors

Anchors not helps if Parent.Autosize is True.

I found better solution:
- Panel.AutoSize := True;
- Panel.ChildSizing.ControlsPerLine := MaxInt;
- Panel.ChildSizing.Layout := cclLeftToRightThenTopToBottom;
- Every Child.BorderSpacing.Left := 2;
- Every Child.BorderSpacing.CellAlignVertical := ccaCenter;
- Every Child.AutoSize := True;

If you want to adjust Child's Width (by default you cannot) then you must use overridden procedure "CalculatePreferredSize" in class of that Child, in which:

    inherited CalculatePreferredSize(PreferredWidth, PreferredHeight,
WithThemeSpace);
    PreferredWidth := Width;

You can also use Constraints to set height/width of children with ChildSizing.

What I don't like about ChildSizing is if you need to change the order of controls it can be difficult. And here's something you should try. Have a TPanel as one of the Children - get everything set the way you want with ChildSizing - now add a TLabel to the TPanel.

Using LeftAlign it's only a matter of dragging the control to the location you want. BorderSpacing and Constraints gives me all the control I need (so far - I'm still playing with it).

2013.11.10 23:03, Avishai ra??:

You can also use Constraints to set height/width of children with ChildSizing.

Forgot about that, thanks.

One problem left: when you add TBevel as child and if you want it BorderSpacing.CellAlignVertical=ccaFill (to make separator), you get fixed height (always 50). To fix this I must use custom TBevel with overridden "CalculatePreferredSize" with "PreferredHeight := 1;" in it.

Is there more elegant way?

Hmmm. I tried setting TBevel .borderSpacing.Around:= 4 and it suddenly "corrected" itself. I'm not too sure I trust that approach but you can play with it and see.

Well?  I forgot that I had set Constraints.MaxHeight:= 24 before I set b
orderSpacing.Around:= 4.  Then I changed MaxHeight:= 20 and it went back to
Height:= 50.
Then I reset MaxHeight:= 24 and borderSpacing.Around:= 0 and it jumped back
to a height of 24.  I don't think that's an answer.  I'll keep looking.

Could you use a TPanel in place of the TBevel? I tried that and it gives the same visual effect without the size problems. But I don't know what you are doing with the TBevel.

2013.11.11 06:06, Avishai ra??:

Could you use a TPanel in place of the TBevel? I tried that and it gives the same visual effect without the size problems. But I don't know what you are doing with the TBevel.

Hello,

I use TBevel as separator (Shape=bsLeftLine) between components. I tried TPanel: looks good, also its Width automatically adjusts to 2 when "CellAlighHorizontal" is set to other than "ccaFill".

  Also I found how to rearrange Childs easily when "ChildSizing" is used:
- Parent.ChildSizing set to "cclNone";
- change "Z order" of Child;
- revert back Parent.ChildSizing.
  I found why TBevel "doesn't want" shrink less than 50px: TBevel has
function "GetControlClassDefaultSize" where "Result.CY := 50;" is hardcoded.

Most of my applications are for RightToLeft (Hebrew) and TToolBar and TStatusBar don't support RightToLeft so I use this technique to make my own. I use the Align:= alLeft/alRight method though. And I use TPanel for dividers.

2013.11.11 06:06, Avishai ra??: [...] I found why TBevel "doesn't want" shrink less than 50px: TBevel has function "GetControlClassDefaultSize" where "Result.CY := 50;" is hardcoded.

That's the default size of the control. The constraints are applied after.

A TBevel can be shrinked to less than 50.

Mattias

2013.11.11 13:14, Mattias Gaertner ra??:

It not shrinks when ChildSizing is being used (see screenshot).

Your bevel has no content. Then the default size is used. Drop something into it.

Mattias

I don't *think* that will work. TBevel is TGraphicControl so it's not a "container".

On Mon, Nov 11, 2013 at 2:25 PM, Mattias Gaertner <

Most of my applications are for RightToLeft (Hebrew) and TToolBar and

As a first step I implemented right aligning for
TToolBar.BidiMode=bdRightToLeft.

Switching the BidiMode does not alter the order of controls.

Mattias

I don't *think* that will work. TBevel is TGraphicControl so it's not a "container".

You are right.

Then you must set Constraints.

Mattias

Thank you Mattias, every step is a help. :)