Witam wszystkich.
Napisałem pewien program, który korzysta z obróconej czcionki (pisanej pod kątem 90 i -90 stopni). Wszystko działa ok pod Win 98. Niestety gdy sprawdzałem pod XP nic się nie dzieje - czcionka w ogóle się nie pojawia.
Wpierw myślałem że to wina czcionek (muszą być TrueType a te same w XP niestety nie są), jednak jak zacząłem zmieniać pokolei większość z dostępnych w XP nadal się nic nie dzieje. Gdzie może być przyczyna? Czy w XP takie coś nie działa?[delphi]
procedure ObrocFontCanvasu (Canvas:TCanvas; kat:integer);
var lf : TLogFont;
begin
// Odczytanie rekordu aktywnego fontu
GetObject(Canvas.Font.Handle, sizeof(lf), @lf);
// Zmiana kierunku wyświetlania i orientacji fontu
lf.lfEscapement := lf.lfEscapement + kat10;
lf.lfOrientation := lf.lfOrientation + kat10;
// Stworzenie nowego fontu
Canvas.Font.Handle := CreateFontIndirect(lf);
// Podstawienie stworzonego fontu jako aktywny
end;[/delphi]
Dzięki za wszelkie sugestie. Pozdrawiam