Delphi FontNames - Delphi-PRAXiS

Thema durchsuchen

Ansicht

Themen-Optionen

FontNames

Ein Thema von Nils_13 · begonnen am 23. Dez 2004 · letzter Beitrag vom 23. Dez 2004

Antwort

Nils_13

Registriert seit: 15. Nov 2004
2.647 Beiträge

Re: FontNames

23. Dez 2004, 16:13

Hi,

habs jetzt gelöst.

zusammenfalten · markieren

Delphi-Quellcode:

			function TForm1.CurrText: TTextAttributes;

begin

  if edit.SelLength > 0 then Result := edit.SelAttributes

  else Result := edit.DefAttributes;

end;

procedure TForm1.FontNameChange(Sender: TObject);

begin

  if FUpdating then Exit;

  CurrText.Name := FontName.Items[FontName.ItemIndex];

end;