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

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]

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

---

← →
Rouse_ ©   (2004-05-03 01:18) [7]

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

---

← →
TUser ©   (2004-05-03 09:43) [8]

> 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;

---

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

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



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