Hallo zusammen,
folgende Procedure, dreht den Text:
Delphi-Quellcode:
procedure TextOutAngle(const Canvas: TCanvas; X, Y: Integer; const AText: String; AAngle: Integer);
var
hCurFont: HFONT;
LogFont: TLogFont;
begin
with Canvas do
begin
hCurFont := Font.Handle;
try
GetObject(Font.Handle, SizeOf(LogFont), @LogFont);
LogFont.lfEscapement := AAngle;
LogFont.lfOrientation := AAngle;
Font.Handle := CreateFontIndirect(LogFont);
try
TextOut(X, Y, AText);
finally
DeleteObject(Font.Handle);
end;
finally
Font.Handle := hCurFont;
end;
end;
end;
Nun möchte ich aber den Text so zeichnen als ob er ausgeblendet aussieht. Heisst einmal Hellgrau und um einen Pixel verschoben in weiss. Bei nicht gedrehtem Text geht das auch, aber ich denke die Funktion oben entfernt immer den vorherigen Text wenn Sie zeichnet, oder ?
Weiss da jemand Rat ?
Gruss
Holger