Как поместить прозрачный текст на Canvas TBitmap

Автор: Олег Кулабухов

procedure TForm1.Button1Click(Sender: TObject);
var
  OldBkMode: integer;
begin
  Image1.Picture.Bitmap.Canvas.Font.Color := clBlue;
  OldBkMode := SetBkMode(Image1.Picture.Bitmap.Canvas.Handle, TRANSPARENT);
  Image1.Picture.Bitmap.Canvas.TextOut(10, 10, 'Hello');
  SetBkMode(Image1.Picture.Bitmap.Canvas.Handle, OldBkMode);
end;

Похожие по теме исходники

Image2Text (изображение в текст)

Генератор текстур

TextureGen (генератор текстур)

Недавно добавленные исходники
• Animation Loaders 987 • DeLiKaTeS Tetris (Тетрис) 5 918 • TDictionary Custom Sort 7 871 • Fast Watermark Sources 7 537 • 3D Designer 10 771 • Sik Screen Capture 8 099 • Patch Maker 8 294 • Айболит (remote control) 8 346 • ListBox Drag & Drop 7 194 • Доска для игры Реверси 101 202 • Графические эффекты 8 412 • Рисование по маске 7 787 • Перетаскивание изображений 6 378 • Canvas Drawing 6 756 • Рисование Луны 6 684 • Поворот изображения 5 807 • Рисование стержней 4 754 • Paint on Shape 3 450 • Генератор кроссвордов 4 453 • Головоломка Paletto 3 590 • Теорема Монжа об окружностях 4 383 • Пазл Numbrix 2 840 • Заборы и коммивояжеры 3 792 • Игра HIP 2 557 • Игра Go (Го) 2 567 • Симулятор лифта 2 954 • Программа укладки плитки 2 382 • Генератор лабиринта 3 137 • Проверка числового ввода 2 616 • HEX View 3 022