Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 757 • TDictionary Custom Sort 6 763 • Fast Watermark Sources 6 549 • 3D Designer 9 490 • Sik Screen Capture 6 879 • Patch Maker 7 323 • Айболит (remote control) 7 272 • ListBox Drag & Drop 6 132 • Доска для игры Реверси 97 959 • Графические эффекты 7 446 • Рисование по маске 6 739 • Перетаскивание изображений 5 597 • Canvas Drawing 5 975 • Рисование Луны 5 762 • Поворот изображения 5 216 • Рисование стержней 3 820 • Paint on Shape 2 980 • Генератор кроссвордов 3 921 • Головоломка Paletto 3 114 • Теорема Монжа об окружностях 3 935 • Пазл Numbrix 2 602 • Заборы и коммивояжеры 3 403 • Игра HIP 2 329 • Игра Go (Го) 2 240 • Симулятор лифта 2 642 • Программа укладки плитки 2 212 • Генератор лабиринта 2 749 • Проверка числового ввода 2 368 • HEX View 2 710 • Физический маятник 2 394

Главная

Исходники (более 1 300 примеров)

Компоненты

Форум

Как сделать прозрачным фон текста

Используйте функцию SetBkMode():

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;