LabelPanel (zum Zweiten)

[nemo2003]

Morgen zusammen...

ich bin mal wieder, öööhm sagen wir immer noch, an der LabelPanel-Komponente...

So weit klappt das Ganze (Danke!!!)..

Nur eine Sache die belastet mich doch sehr...
Die Positionierung der Labels...
Welche ich bisher so hatte:

Delphi-Quellcode:

    TLabel(FLabelListe.Items[Result]).Top := self.Height div ( FLabelListe.Count + 1 ) * ( Result + 1 );
    TLabel(FLabelListe.Items[Result]).Left := round ( self.Width div self.Columns - ( TLabel ( FLabelListe.Items[Result]).Width / self.columns));

FLabelListe ist eine TList mit den Labels die erstellt wurden
Result resultiert hieraus:

Delphi-Quellcode:

  Result:=FLabelListe.Add(TLabel.create(nil));

self ist das Panel selber
self.columns ist eine property, mit der sich einstellen lässt, in wievielen Spalten die Labels angezeigt werden sollen...

Jetzt das Problem:
ALLE LABELS WERDEN AUF DER RECHTEN KANTE DES PANELS ANGEZEIGT!
Wo hab ich da einen Fehler gemacht?

[Tpercon]

Dann scheinst du wohl nen Fehler in der Berechnung des Left Wertes zu machen. Wenn sonst ja alles geht.

[nemo2003]

problem gelöst...

einfach ne zus. funktion genommen...