BitBlt

← →
magician (2004-05-03 00:15) [0]

Что я делаю не так.

BitBlt(Image1.Canvas.Handle,0,0,30,20,Image2.Canvas.Handle,0,0,SRCCOPY)

← →
Yanis © (2004-05-03 00:22) [1]

Ты сам(а) видел что написал(а)?

← →
DVM © (2004-05-03 00:26) [2]

> Ты сам(а) видел что написал(а)?

Все правильно.

← →
Yanis © (2004-05-03 00:31) [3]

Точно.

← →
Rouse_ © (2004-05-03 00:38) [4]

> Image2.Canvas.Handle
А сам канвас уже создан?

← →
Rouse_ © (2004-05-03 00:40) [5]

Image1(2).Picture.Bitmap.Canvas.Handle

← →
DVM © (2004-05-03 01:15) [6]

> Rouse_ © (03.05.04 00:40) [5]

У него и до этого правильно было. И работало. Я проверил специально на всякий случай.

> [6] DVM © (03.05.04 01:15)
Однако что-то не так?
Иначе он не задал бы вопрос...
Вот я и показал возможные места ошибки... :)

> Image2.Canvas.Handle

GetDC, потом - ReleaseDC

← →
magician (2004-05-03 12:10) [9]

Проблема состоит в том что указанные ниже три процедуры работают только один раз после начала работы программы. Когда Image1 полностью пуст. Если выполнить процедуру 1 или 3. Все нормально.
Но если теперь выполнить какую нибудь процедуру(ну кроме очистки канваса), то ничего не произойдет. В чем тут дело. Буду благодарен за любую помощь.

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
bitm:TBitMap;
begin
bitm:=TBitmap.Create;
Bitm.LoadFromFile("c:\t\image\123.bmp");
BoolToStr(BitBlt(Image1.canvas.Handle,0,0,image1.Width,Image1.Height,bitm.Canvas.Handle,0
,0,SRCCOPY));
bitm.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(BoolToStr(PatBlt(Form1.Canvas.Handle,
0,0,image1.ClientWidth,image1.ClientHeight,WHITENESS)));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
BitBlt(Image1.canvas.Handle,0,0,image1.Width,Image1.Height,Image2.Canvas.Handle,0
,0,SRCCOPY);
end;

BitBlt Найти похожие ветки