Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как вставить изображение в чужую форму.

ROOT © (2006-09-25 08:59:00)
Господа есть проблема мне необходимо вставить изображение в чужую форму например в компанент Timage

@!!ex (2006-09-27 13:55:00) [1]
Вернее работать то будет... если все правильно напишеш....

@!!ex (2006-09-27 13:54:00) [2]
Может потому что ему DC нужен?? :))
А не хэгдл битмапа? :))
bit.Canvas.handle ??
Хотя не факт что будет работать...

root (2006-09-26 15:49:00) [3]
непонятно вот код
DC:=GetDC(0);
Ellipse(DC, 0, 0, 200, 200);
выводит элипс на рабочем столе
а вот этот код
DC:=GetDC(0);
BitBlt(DC,0,1,bit.Width,bit.Height,bit.Handle,0,0,SRCCOPY);
невыводит изображение bit.handle
почему???

@!!ex (2006-09-26 15:41:00) [4]
Hook?

root (2006-09-26 15:02:00) [5]
ВАП???
дай наброски как это делается?

Сергей М. (2006-09-26 13:24:00) [6]

> т.е. невозможно прорисовать через функцию h1 окна?

Кака раз "через нее" и следует рисовать.

> как это реализовать?

Внедрить во вражеское ВАП код своей оконной ф-ции для данного окна.

root (2006-09-26 12:54:00) [7]
т.е. невозможно прорисовать через функцию h1 окна?
если возможно как это реализовать?

Сергей М. (2006-09-26 12:32:00) [8]
Потому что оконная ф-ция окна h1 чихала на твои "прорисовки" - она сама этим занимается, по своему собственному алгоритму, и сама решает что и в какой момент рисовать или не рисовать на DC своего окна.

root (2006-09-26 12:14:00) [9]
h := FindWindow(nil,'Форма');
if h <> 0 then
h1:=FindWindowEx(h,0,'TPanel',nil);
if h1<>0 then
begin
bit:=TBitmap.Create;
bit:=Image1.Picture.Bitmap;
DC:=GetDC(h1);
BitBlt(DC,0,1,bit.Width,bit.Height,bit.Handle,0,0,SRCCOPY);
end;

Форму и панель на форме находит а прорисовывать нехочет почему???

Сергей М. (2006-09-25 09:38:00) [10]

> root © (25.09.06 09:29) [5]

> TImage чужого окна
> TBitmap cо своего окна

У окна нет ни TImage ни TBitmap

root (2006-09-25 09:35:00) [11]
что? и как??

@!!ex (2006-09-25 09:33:00) [12]
Не буду говорить что это не возможно.
Но если и возможно, скорее всего делается через .....

root (2006-09-25 09:31:00) [13]
точнее зная hwnd компанента чужого окна, как передать ему TBitmap

root (2006-09-25 09:29:00) [14]
а как передать компаненнту TImage чужого окна TBitmap cо своего окна

@!!ex (2006-09-25 09:28:00) [15]
Сергей М. © (25.09.06 09:26) [3]
Так я ни слова не говорил о TImage. :))
ПРивел пример как рисовать на окнах и все. :))
Вдруг поможет.
Тем более что из вопроса все равно не ясно, какого результата надо добится.

Сергей М. (2006-09-25 09:26:00) [16]

> @!!ex © (25.09.06 09:16) [2]

> handle - Хэндл окна на котором нужно рисовать.

У TImage нетокна.

@!!ex (2006-09-25 09:16:00) [17]
var
Dc:HDC;
begin
DC:=GetDC(Handle);
BitBlt(DC,x,y,width,height,SRCImageDC,0,0,SRCCOPY);
end;

Где handle - Хэндл окна на котором нужно рисовать.
x,y,width,height - позиция изображения.
SRCImageDC - Девайс Контекст рисунка который нужно нарисовать.
Все.

Сергей М. (2006-09-25 09:11:00) [18]
Не получится.
TImage не имеет собственного окна.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »