CreateFontIndirect - Seltsames Phänomen

[Neutral General]

Hi,

Also es klappt generell schon. Nur nicht bei jeder Schriftart.. Wenn ich als Schriftart 'MS Sans Serif' angebe dann funktionierts nicht. Also die Schriftgröße wird ignoriert und alles. Ganz komisch...

Gruß
Neutral General

[Luckie]

Jetzt kann man nur raten. Eion bißchen Code könnte aber enorm weiterhelfen.

[Hawkeye219]

Hallo,

Zitat:

Zitat von Luckie

Jetzt kann man nur raten.

Dann tue ich das mal: Neutral General möchte einen Text gedreht ausgeben. Das funktioniert aber mittels Windows-API nur bei TrueType-Schriftarten - MS Sans Serif gehört nicht dazu.

Gruß Hawkeye

[Neutral General]

Zitat:

Zitat von Hawkeye219

Hallo,

Zitat:

Zitat von Luckie

Jetzt kann man nur raten.

Dann tue ich das mal: Neutral General möchte einen Text gedreht ausgeben. Das funktioniert aber mittels Windows-API nur bei TrueType-Schriftarten - MS Sans Serif gehört nicht dazu.

Gruß Hawkeye

Döödööööö... falsch :stupid:

Hab ne eigene TFont Klasse..

Delphi-Quellcode:

// Bei jeder Änderung an FFontData (: TLogFont)
procedure TFont.Changed;
begin
  if ffnt <> 0 then  // ffnt: HFONT
    DeleteObject(ffnt);
  ffnt := CreateFontIndirect(fFontData);
  if FParent <> 0 then
    SendMessage(FParent,WM_SETFONT,wparam(ffnt),lparam(true));
end;

// Fontname Set-Procedure
procedure TFont.SetName(const Value: String);
begin
  StrCopy(fFontData.lfFaceName,PChar(Value));
  Changed;
end;

Setzt man nun AFont.Name := 'MS Sans Serif' dann wird erstmal die Schriftart nicht geändert (glaub ich... ka..) aber jedenfalls kann man die Schriftgröße nichtmehr ändern...

Delphi-Quellcode:

procedure TFont.SetSize(const Value: Integer);
begin
  fFontData.lfHeight := -MulDiv(Value, GetDeviceCaps(GetDC(FParent), LOGPIXELSY), 72);
  Changed;
end;

Gruß
Neutral General

[Rastaman]

Folgendes funktioniert:

Delphi-Quellcode:

CreateFont(50, 0, 0, 0, 0, 0, 0, 0, ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH, 'MS Sans Serif');

Je nachdem wie der erste Wert, also hier die 50, aussieht, verändert sich die Größe der ausgegebenen Schrift.
Compiler: VC++ 6.0 :wink:

[Hawkeye219]

Zitat:

Zitat von Neutral General

Döödööööö... falsch

Möglicherweise ist das nicht mein Tag - die gezogenen Lottozahlen sahen jedenfalls anders aus als meine.

Es könnte aber dennoch daran liegen, daß du keine TrueType-Schriftart eingestellt hast. Die Bitmap-Schriftarten sind nämlich nicht in allen Größen verfügbar, wie du im Font-Dialog leicht überprüfen kannst.

Gruß Hawkeye