TextOut Font zuweisung

[EWeiss]

Wie kann ich TextOut vorher einen Font plus die Farbe zuweisen?

Muss dabei sagen es geht um die API

TCanvas oder Canvas.TextOut steht nicht zur verfügung

Habe nur ein Dc zur verfügung

Delphi-Quellcode:

TextOut(VisInfo^.VisDC, 20, 20, 'TEST', 4);

funktioniert aber mit Schwarzer Schrift und weißen Hintergrund
Der Font ist auch nicht das wahre

gruss Emil

[DeddyH]

Schau doch mal im MSDN.

[Luckie]

Mit SelectObject die gewünschte Schrift, die vorher mit CreateFont erzeugt wurde in den DC selektieren, aber nicht vergessen vorher die alte Schift mrken und alles wieder freigeben.

[EWeiss]

Zitat:

Zitat von Luckie

Mit SelectObject die gewünschte Schrift, die vorher mit CreateFont erzeugt wurde in den DC selektieren, aber nicht vergessen vorher die alte Schift mrken und alles wieder freigeben.

Ahh danke das hilft schon mal weiter bei CreateFont war ich schon
war mir nur nicht klar wie ich den auswählen soll

gruss Emil

[EWeiss]

Hab es mal so gemacht und scheint zu gehen..
Ist das OK ?

Delphi-Quellcode:

Font, OldFont: HFONT;

Delphi-Quellcode:

      SetBkColor(VisInfo^.VisDC, TRANSPARENT);
      SetTextColor(VisInfo^.VisDC, RGB(255,255,255));
      Font := CreateFont(50, 0, 0, 0, 0, 0, 0, 0,
                 ANSI_CHARSET,
                 OUT_DEFAULT_PRECIS,
                 CLIP_DEFAULT_PRECIS,
                 DEFAULT_QUALITY,
                 DEFAULT_PITCH, 'MS Sans Serif');

      OldFont := SelectObject(VisInfo^.VisDC, Font);
      TextOut(VisInfo^.VisDC, 20, 20, 'TEST', 4);
      SelectObject(VisInfo^.VisDC, OldFont);
      DeleteObject(Font);

Nur der Hintergrund trotz dem Transparenten Flag ist nicht transparent
Kann ich das so in der renderproc belassen oder die initialisierung für den Font lieber auslagern?

gruss Emil

[Luckie]

Font noch freigeben, wenn du sie nicht mehr brauchst.

Und was den Hintergrund angeht, du hast die falsche API-Funktion mit den richtigen Paramteren aufgerufen. ;) Du musst SetBkMode mit TRANSPARENT aufrufen und nicht SetBkColor. Irgendwie lustig.

[EWeiss]

Zitat:

Zitat von Luckie

Font noch freigeben, wenn du sie nicht mehr brauchst.

Und was den Hintergrund angeht, du hast die falsche API-Funktion mit den richtigen Paramteren aufgerufen. ;) Du musst SetBkMode mit TRANSPARENT aufrufen und nicht SetBkColor. Irgendwie lustig.

Jo lustig damit setzt man die Farbe;) Was soll's

Wie freigeben ?
Font := 0 ? free geht ja bei HFont nicht

gruss Emil

[Luckie]

Hilfe lesen:

Zitat:

Zitat von MSDN

When you no longer need the font, call the DeleteObject function to delete it.

[EWeiss]

Zitat:

Zitat von Luckie

Hilfe lesen:

Zitat:

Zitat von MSDN

When you no longer need the font, call the DeleteObject function to delete it.

gebe es zurück ;)
Du nicht gelesen ...

Delphi-Quellcode:

DeleteObject(Font);

Oder steht das nicht im meinen Quelltext ;)
hab mich schon gewunder was ich sonst noch freigeben soll
oder meinst du den Alten Font ?

Delphi-Quellcode:

DeleteObject(OldFont);

das würde noch fehlen

gruss Emil

[Luckie]

Oh, sorry, habe ich überlesen.