Hi shima,
danke für den Tipp. Mit dem Fontnamen klappt das schon mal, nur nicht mit Size und Style. Mach ich da noch was falsch?
Delphi-Quellcode:
procedure TBaseToolForm.JvFontComboBox1Change(Sender: TObject); // klappt
begin
if Assigned(FFont) then
FFont.Name := JvFontCombobox1.FontName;
if Assigned(FItem) then
FItem.Font.Name := FFont.Name;
end;
procedure TBaseToolForm.SpinEdit1Change(Sender: TObject); // klappt nicht
begin
if not Assigned(FFont) then
Exit;
FFont.Size := SpinEdit1.Value;
if not Assigned(FItem) then
Exit;
FItem.Font.Name := FFont.Name;
end;
hinter FItem verbirgt sich mein Control.
Gruß oki