Скачать: CL | DM;

Работа с Bitmap   Найти похожие ветки 

← →
Ig ©   (2004-01-25 14:14) [0]

Как в рисунке выделить например 5-ю часть, и вставить ее в компонент Image?

---

← →
MBo ©   (2004-01-25 14:20) [1]

TCanvas.Copyrect
или
BitBlt

---

← →
Ig ©   (2004-01-25 16:35) [2]

Пробовал так :
...
Var
 DRect : TRect;
begin
 DRect := Rect (0,0,20,30);
 Img2.Picture.Bitmap.Canvas.CopyRect(DRect,Img1.Canvas,DRect);
end;

не получается :(
Подскажите пожалуйста, как надо делать!

---

← →
Mihey ©   (2004-01-25 18:43) [3]

Видать Img2.Picture не создан. Попробуй просто - загрузи туда файл, а потом выполни свой код. Если всё получится правильно, то значит это так.

---

← →
Ig ©   (2004-01-25 19:07) [4]

to Mihey ©   (25.01.04 18:43) [3]

Все пошло, большое спасибо, но появился другой вопрос. Я к примеру вставляю этот код в OnClick, при быстром нажатии появляется постороннее мерцание. Можно-ли как-то это убрать?

P.S. Еще раз спасибо! :)

---

← →
Mihey ©   (2004-01-25 19:40) [5]

Самое простое - поставить DoubleBuffered = True у формы. Но ещё лучше вместо CopyRect использовать BitBlt:

BitBlt(Img2.Picture.Bitmap.Canvas.Handle, DRect.Left, DRect.Top, DRect.Right-DRect.Left, DRect.Bottom-DRect.Top, Img1.Canvas.Handle, DRect.Left, DRect.Top, SrcCopy);

---

← →
Ig ©   (2004-01-25 20:07) [6]

>поставить DoubleBuffered = True у формы

!!! :)

>лучше вместо CopyRect использовать BitBlt

Так, правильно?

procedure TForm1.Btn1Click(Sender: TObject);
Var
 DRect : TRect;
begin
 DRect := Rect (300,300,400,600);
 BitBlt(Img2.Picture.Bitmap.Canvas.Handle, DRect.Left,
 DRect.Top, DRect.Right-DRect.Left, DRect.Bottom-DRect.Top,
 Img1.Canvas.Handle, DRect.Left, DRect.Top, SrcCopy);
end;

Не сработало :(

---

← →
Ig ©   (2004-01-25 20:25) [7]

Ошибочка вышла, все работает, Mihey © большое тебе спасибо! :)
З.Ы. Ксати опять-же при быстром нажатии на кнопку, загрузка процессора примерно 15-20%, это нормально? Уменьшить нельзя?

---

← →
Mihey ©   (2004-01-25 23:48) [8]

По-моему DoubleBuffered загружает, попробуй без него. С DobleBuffered работает чуток медленнее (иногда это не заметно), но без мерцания.

---

← →
Ig ©   (2004-01-26 00:28) [9]

Вроде также, но все равно спасибо

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c