TJvTransparentButton Font Size ändern

[franktron]

Ich möchte die Font.Size an einem TJvTransparentButton ändern, das geht aber nicht die Schriftgrösse bleibt immer gleich.

Delphi-Quellcode:

 For i:=0 To FLayer.FObjects.Count-1 do
  Begin
    SetLength(Buttons,c);
    Buttons[c-1]:=TJvTransparentButton.Create(Panel);
    Buttons[c-1].Parent:=Panel;
    Buttons[c-1].Caption:=TKE_Layer(FLayer.FObjects.Items[i]).Name;
    If isEdit then
      Buttons[c-1].OnClick:=buttonclickedit
    Else
      Buttons[c-1].OnClick:=buttonclick;
    Buttons[c-1].Left:=x;
    Buttons[c-1].Top:=y;
    Buttons[c-1].Height:=bh;
    Buttons[c-1].Width:=bw;
    Buttons[c-1].Name:='kabutton_'+IntToStr(i);
    Buttons[c-1].WordWrap:=True;
    Buttons[c-1].ParentFont:=False;
    Buttons[c-1].Font.Size:=8;
    Buffer:=Buttons[c-1].Caption;
    Delete(Buffer,Pos(' ',Buffer),Length(Buffer));
    While Buttons[c-1].Canvas.TextWidth(Buffer)>bw do
    Begin
      If Buttons[c-1].Font.Size<5 then Break;
      Buttons[c-1].Font.Size:=Buttons[c-1].Font.Size-1;
      Buttons[c-1].Canvas.Font.Size:=Buttons[c-1].Font.Size;
    End;
    //Buttons[c-1].Flat:=True;
    x:=x+bw;
    If x>=Panel.Width then
    Begin
      x:=0;
      y:=y+bh;
    End;
    inc(c);
  End;

[Glados]

Mal ganz davon abgesehen, dass man das alles schöner machen kann... was soll denn das hier bringen?

Delphi-Quellcode:

Buffer:=Buttons[c-1].Caption;
Delete(Buffer,Pos(' ',Buffer),Length(Buffer));

Wofür der Buffer?
Mach am besten den ganzen Salat noch einmal in "schön" neu.

[franktron]

Ich habe den Fehler gefunden ich kann die Schriftgrösse nicht kleiner als 8 machen warum auch immer.