Margin label in panel

[Mike]

Hi,

 

The following code creates and places a label in a panel (see picture).

FLabelButtonList[0] := TUniLabel(InsertControl(TUniLabel.Create(self)));
  with FLabelButtonList[0] do
  begin
    Parent := pnlStandard;
    Caption := 'Button 1';
    Align := alTop;
    Alignment := taCenter;
    Margins.Left := 10;
    Margins.Top := 50;
    Margins.Right := 10;
    Margins.Bottom := 10;
    Height := 25;
    AlignWithMargins := True;
    Transparent := True;
    Visible := True;
    OnClick := DoClick;
  end;

However it seems the label doesn't use the margins (especially the top).

Does my code have a flaw?

 

[Sherzod]

Hi,

 

Which version are you using?! I couldn't reproduce.

 

Best regards.

[Mike]

Hi,

 

Currently I am using version 1.0.0.1362.

 

Regards.

[Sherzod]

Can you make a small test case for this issue?!

[Mike]

Sure.

 

I have attached a sample.

 

 

Sample1.zip

[Sherzod]

Ok, thanks for testcase, need to analyze.

 

But for now, can you try this?!:

 

pnlNavigation:

 

1. AlignmentControl -> uniAlignmentServer

2. Layout -> ''

3. ClientEvents -> UniEvents -> function beforeInit:

function beforeInit(sender, config)
{
    config.layout = "accordion";
}

[Mike]

Thanks. That is working but now alignment  (center) doesn't work anymore.