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

← →
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) передаваемого на форму изображения ????

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;

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