Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi TCustomControl.Canvas.Font aus TCustomControl.Font übernehme

**oki**

Mit folgender Zuweisung klappt es:

Delphi-Quellcode:

			procedure TBaseToolForm.SpinEdit1Change(Sender: TObject);

begin

  if Assigned(FFont) then

    FFont.Size := SpinEdit1.Value;

  if Assigned(FItem) then

    FItem.Font := FFont;

end;

Dank und Gruß oki

oki Registriert seit: 30. Dez 2002 Ort: Brandshagen 1.819 Beiträge Delphi 2007 Professional	#4 Re: TCustomControl.Canvas.Font aus TCustomControl.Font übern 13. Aug 2007, 18:07 Mit folgender Zuweisung klappt es: markieren Delphi-Quellcode: procedure TBaseToolForm.SpinEdit1Change(Sender: TObject); begin if Assigned(FFont) then FFont.Size := SpinEdit1.Value; if Assigned(FItem) then FItem.Font := FFont; end; Dank und Gruß oki 42
	Zitat

Einzelnen Beitrag anzeigen

Re: TCustomControl.Canvas.Font aus TCustomControl.Font übern