| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

доступ к "изображению". [D6, WinXP]

newver ©   (2004-07-05 08:16:00) 

Есть компонент, который выводит графическую информацию на Panel1 (Указывается Handle конечного). Как мне узнать что он рисует на Panel и перебросить всё это, например, в Image1 ????

---

Семен Сорокин   (2004-07-05 11:39:00) [1]

procedure TForm1.Button1Click(Sender: TObject);
var
 _i, _j: integer;
 _mas  : array of array of TColor;
begin
SetLength(_mas, Panel1.Width);
with TCanvas.Create do
 try
  Handle := GetDC(Panel1.Handle);
  for _i := 1 to Panel1.Width do
   for _j := 1 to Panel1.Height do begin
    SetLength(_mas[_i-1], Panel1.Height);
    _mas[_i-1, _j-1] := Pixels[_i, _j];
   end;
 finally
  ReleaseDC(Panel1.Handle, Handle);
  Free
 end
end;

---

newver   (2004-07-05 11:24:00) [2]

Вообще, как можно получить массив точек (m,n) передаваемого на форму изображения ????

---

newver   (2004-07-05 11:23:00) [3]

>> Семен Сорокин ©  

Пробую, .... но вот только одна проблемма:
делаю
with TCanvas.Create do
try
Handle := GetDC(Panel1.Handle);
p[x,y] := Pixels[i,j] ;
finally
CloseHandle(Handle);
Free
end

Ругается! Говорит, что ошибка: "External Error ...."

---

Семен Сорокин   (2004-07-05 10:03:00) [4]

with TCanvas.Create do
try
 Handle := GetDC(Panel1.Handle);
 // рисуем...
finally
 CloseHandle(Handle);
 Free
end

---

Думкин   (2004-07-05 09:06:00) [5]

> [4] Ozone ©   (05.07.04 09:03)

Дык, я про TPanel и ни слова -
> TMyCoolPanel(Panel1).Canvas
TMyCoolPanel = class(TPanel)

---

Ozone   (2004-07-05 09:03:00) [6]

Думкин ©   (05.07.04 08:57) [3]

Дык, нету же у TPanel кавы...

---

Думкин   (2004-07-05 08:57:00) [7]

TMyCoolPanel(Panel1).Canvas?

---

newver   (2004-07-05 08:35:00) [8]

Короче говоря, есть компонент, который выводит информацию с касеры на компонент, у которого есть Handle, например Video.Handle := Panel1.Handle. Я же хочу передавать изображение на канву, так её легче менять.

---

Andy BitOff   (2004-07-05 08:18:00) [9]

Кем указывается? Если отбой, то укажи на Image.

---

Наверх