Also
Code:
procedure TForm1.SpinEdit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
{hier sollte ich glaube noch die Aktuelle Text größe prüfen ?}
RichEdit1.SelAttributes.Size := {Aktuelle Textgröße + 1};
end;
ich hoffe das geht in die richtige Richtung ?
Wenn nicht dürft ihr mich alle mal hauen
