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;