[The Shadow]

Как нарисовать текст на рабочем столе так, чтобы фон текста был прозрачным.
Делаю так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

procedure TForm1.Button1Click(Sender: TObject); var Picture: TPicture; Desktop: TCanvas; X, Y: Integer; OldBkMode: Integer; begin Picture := TPicture.Create; Desktop := TCanvas.Create; OldBkMode:=SetBkMode(Picture.Bitmap.Canvas.Handle, TRANSPARENT); Picture.Bitmap.Width:=Picture.Bitmap.Canvas.TextWidth('Текст'); Picture.Bitmap.Height:=Picture.Bitmap.Canvas.TextHeight('Текст'); Picture.Bitmap.Canvas.TextOut(0, 0, 'Текст'); SetBkMode(Picture.Bitmap.Canvas.Handle, OldBkMode); Desktop.Handle := GetWindowDC(0); X := 100; Y := 100; Desktop.Draw(X, Y, Picture.Graphic); ReleaseDC(0, Desktop.Handle); Picture.Free; Desktop.Free;

Но текст все равно на белом фоне.

[НичеНепониаю]

Папробуй Transparent поставить (типа прозрачно)

[Rosenkrantz]

Код:

1 2	Picture.Bitmap.Canvas.Brush.Style := bsClear; SetBkMode(Picture.Bitmap.Canvas.Handle, TRANSPARENT);