Текущий архив: 2005.02.27;
Скачать: CL | DM;

Вниз

Как рисовать на канве рисунки из bmp?   Найти похожие ветки 

← →
Knoxville   (2005-02-11 17:26) [0]

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

---

← →
У   (2005-02-11 17:32) [1]

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

---

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

Draw туда же

---

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

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

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.

---

Страницы: 1 вся ветка

Текущий архив: 2005.02.27;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.04 c