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

доступ к "изображению".   Найти похожие ветки 

← →
newver   (2004-07-05 08:16) [0]

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

---

← →
Andy BitOff ©   (2004-07-05 08:18) [1]

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

---

← →
newver   (2004-07-05 08:35) [2]

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

---

← →
Думкин ©   (2004-07-05 08:57) [3]

TMyCoolPanel(Panel1).Canvas?

---

← →
Ozone ©   (2004-07-05 09:03) [4]

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

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

---

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

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

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

---

← →
Семен Сорокин ©   (2004-07-05 10:03) [6]

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

---

← →
newver   (2004-07-05 11:23) [7]

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

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

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

---

← →
newver   (2004-07-05 11:24) [8]

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

---

← →
Семен Сорокин ©   (2004-07-05 11:39) [9]

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;

---

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

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



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