Работа с 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;

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

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

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

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

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