Delphi & Linux, Ausrichtung Controls

[skyware]

hier ein kleines Beispiel...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  xPanel : TPanel;

  procedure CreateLabel(const ACaption: string);
  var
    xLabel : TLabel;
  begin
    xLabel := TLabel.Create(xPanel);
    xLabel.Parent := xPanel;
    xLabel.Caption := ACaption;
    xLabel.Top     := 5;
    xLabel.Align   := alLeft;
  end;

begin
  xPanel := TPanel.Create(self);
  xPanel.Visible := false;
  try
    xPanel.Parent := self;
    xPanel.Left := 0;
    xPanel.Top  := 0;
    xPanel.Width := 500;
    xPanel.Height := 100;

    CreateLabel('test 1');
    CreateLabel('test 2');
    CreateLabel('test 3');
    CreateLabel('test 4');
    CreateLabel('test 5');
    CreateLabel('test 6');

  finally
    xPanel.Visible := true;
  end;

end;

Ist nicht genau der Code aber vom Prinzip her identisch...