Scrat - Fr 22.11.02 11:24
Titel: Fontdialog......Schriftart
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:
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....
Scrat - Fr 22.11.02 11:45
Ich fasse das nicht..... da probiert man stundenlang herum....und die Lösung ist so nah.
Aber das mit dem
Quelltext
1:
| FontDialog1.Font.Name; |
schreckt irgendwie ab.
Denn eine Schriftart ist ja kein NAME.
Danke
Scrat