Fontdialog......Schriftart

Scrat · Beiträge: 73

Hallo zusammen,

ich weis das dieses Thema schon viele Male behandelt wurde. Aber es ist keine ,für mich passende, Lösung dabei.

Mit folgendem Quelltext kann ich die Schriftfarbe,Schriftgröße,Durchgestrichen oder kussiv verändern:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Schriftart1Click(Sender: TObject);
begin
if fontdialog1.Execute then
 begin
  RichEdit1.SelAttributes.Color  := FontDialog1.Font.Color;
  RichEdit1.SelAttributes.Size  := FontDialog1.Font.Size;
  RichEdit1.SelAttributes.Style  := FontDialog1.Font.Style;
  RichEdit1.SelAttributes.Height  := FontDialog1.Font.Height;
 end;
end;

Aber für die Schriftart (Times New Roman,Wingdings...)
habe ich keinen passenden Quellcode gefunden.

MFG
Scrat

PS: Bin für alle Hinweise offen....

_________________
Wenn ein Programm nutzlos ist, muß es dokumentiert werden.

LCS · Verfasst: Fr 22.11.02 11:38

Hi
was spricht gegen

markieren

Quelltext

1:	RichEdit1.SelAttributes.Name := FontDialog1.Font.Name;

Hab ich jetzt nicht ausprobiert, sollte aber hinhauen.

Gruss Lothar

_________________
Der BH ist für die Brust, der Plan ist für'n Ar...

Scrat · Beiträge: 73

Ich fasse das nicht..... da probiert man stundenlang herum....und die Lösung ist so nah.

Aber das mit dem

markieren

Quelltext

1:	FontDialog1.Font.Name;

schreckt irgendwie ab.

Denn eine Schriftart ist ja kein NAME.

Danke
Scrat

_________________
Wenn ein Programm nutzlos ist, muß es dokumentiert werden.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme