| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как рисовать на канве рисунки из bmp? [D7, WinXP]

Knoxville ©   (2005-02-11 17:26:00) 

Подскажите, пожалуйста

---

Начинающий 2   (2005-02-11 21:41:00) [1]

Если имеется в виду, перенести на канву картинку, то вот пример:

procedure TForm1.Button1Click(Sender:TObject);
var BitMap:TBitMap;
begin
if OpenPictureDialog1.Execute then
begin
BitMap:=TBitMap.Create;
 try
  BitMap.LoadFromFile(OpenPictureDialog1.FileName);
  Canvas.Draw(0,0,BitMap);
 finally
  BitMap.Free;
 end;
end;
end;

Правдо здесь не предусмотрена перерисовка формы, для этого надо объявить BitMap как гловальную переменную, и перенести BitMap.Free; в OnDestroy. А в OnPaint прописать только: Canvas.Draw(0,0,BitMap);

В место BitMap для bmp файлов, можеш использовать TIcon, TMetafile.

---

REA   (2005-02-11 17:58:00) [2]

Draw туда же

---

У   (2005-02-11 17:32:00) [3]

Canvas.CopyRect(DestRect, Bmp.Canvas, BmpRect);
так же см. BitBlt, StretchBlt, PatBlt

---

Наверх