Ja, soweit bin ich nun auch gekommen, das Manifest ist als Res eingebunden. Das Problem bei mir ist das der Text nicht gezeichnet wird.
//Edit #1:
Delphi-Quellcode:
implementation
{$R *.dfm}
function DrawShadowText(hdc: HDC; pszText: LPCWSTR; cch: UINT;
const pRect: PRect; dwFlags: DWORD; crText: COLORREF;
crShadow: COLORREF; ixOffset: Integer;
iyOffset: Integer): Integer;
stdcall;
external '
ComCtl32.dll';
procedure TForm1.FormPaint(Sender: TObject);
const
szText = '
Hallo, ich bin ein Text mit Schatten.';
var
r: TRect;
begin
r := Rect(10,10,50,100);
DrawShadowText(Canvas.Handle, szText, length(szText), @r, 0,
RGB(255, 0, 0),
RGB(25, 25, 25), 2, 2);
end;
Naja, der Text wird nicht in voller länge ausgegeben "Hallo, ic", also wenn überhaubt.
//Edit #2: Selberschult, in Rect muss ja der Text passen. Der Tag ist dann doch schon zu lang.
Luckie, danke.