keine Änderung von Font

[punker-lili]

Hiho .. ich möchte gerne die Symbole der Schriftart Music Fun darstellen. Dazu muss ich die Schriftart umstellen. Dazu habe ich folgendes genommen:

Delphi-Quellcode:

procedure pausen(Buchstabe:string;start,kreis_x:integer;canvas:Tcanvas);
begin
Unit1.Form1.Font.Name:='MusicFun';
canvas.Font.Height:=c_abstand;
canvas.TextOut(kreis_x,start+7*c_abstand,Buchstabe);
end;

Leider setzt er die Schriftart nicht um... Woran kann das liegen?

Mfg Anna

[DeddyH]

Setz doch Canvas.Font.Name

[punker-lili]

Das hab ich schon... funktioniert nicht... :cry:

[taaktaak]

Ist der Name denn richtig angegeben? Im Text schreibst du "Music Fun", im Code verwendest du "MusicFun"

[punker-lili]

es heißt MusicFun ... hatte in meiner Font Datenbank nachgeguckt.

[DeddyH]

Versuch es mal testhalber hiermit:

Delphi-Quellcode:

procedure pausen(Buchstabe:string;start,kreis_x:integer;canvas:Tcanvas);
begin
  Canvas.Font.Name:='Wingdings';
  canvas.Font.Size:=10;
  canvas.TextOut(kreis_x,start+7*c_abstand,Buchstabe);
end;