Как сделать прозрачный фон текста? в Delphi

Пример:

procedure TForm1.Button1Click(
Sender: TObject); 
var
  OldBkMode : integer; 
begin
  with Form1.Canvas do
  begin
    Brush.Color := clRed; 
    FillRect(Rect(0, 0, 100, 100)); 
    Brush.Color := clBlue; 
    TextOut(10, 20, 'Not Transparent!'); 
    OldBkMode := SetBkMode(Handle, TRANSPARENT); 
    TextOut(10, 50, 'Transparent!'); 
    SetBkMode(Handle, OldBkMode); 
  end; 
end; 
Kwork.ru - услуги фрилансеров от 500 руб.
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (Пока оценок нет)
Загрузка...
Добавить комментарий