Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 167

•  TDictionary Custom Sort  6 230

•  Fast Watermark Sources  6 027

•  3D Designer  8 928

•  Sik Screen Capture  6 358

•  Patch Maker  6 777

•  Айболит (remote control)  6 758

•  ListBox Drag & Drop  5 636

•  Доска для игры Реверси  96 231

•  Графические эффекты  6 979

•  Рисование по маске  6 258

•  Перетаскивание изображений  5 153

•  Canvas Drawing  5 524

•  Рисование Луны  5 221

•  Поворот изображения  4 771

•  Рисование стержней  3 373

•  Paint on Shape  2 628

•  Генератор кроссвордов  3 516

•  Головоломка Paletto  2 805

•  Теорема Монжа об окружностях  3 617

•  Пазл Numbrix  2 366

•  Заборы и коммивояжеры  3 047

•  Игра HIP  2 004

•  Игра Go (Го)  1 929

•  Симулятор лифта  2 287

•  Программа укладки плитки  1 992

•  Генератор лабиринта  2 444

•  Проверка числового ввода  2 126

•  HEX View  2 460

•  Физический маятник  2 080

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Как поместить Bitmap в Metafile



В кои-то веки программер идет домой засветло. Все вокруг красиво, деревья, птички, облачка... Останавливается он и говорит:
- Вот ведь блин, и ведь БЕЗ ВСЯКОГО OpenGL!!!


procedure TForm1.Button1Click(Sender: TObject);
var
  m : TmetaFile;
  mc : TmetaFileCanvas;
  b : tbitmap;
begin
  m := TMetaFile.Create;
  b := TBitmap.create;
  b.LoadFromFile('C:.bmp');
  m.Height := b.Height;
  m.Width := b.Width;
  mc := TMetafileCanvas.Create(m, 0);
  mc.Draw(0, 0, b);
  mc.Free;
  b.Free;
  m.SaveToFile('C:.emf');
  m.Free;
  Image1.Picture.LoadFromFile('C:.emf');
end;





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

Bitmap Sharpen Filter

Simple Bitmap Rotation

Bitmap 32Bit Demo

Thread Bitmap (pencil drawings)

 



Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте