» Графика в Delphi

как заставить перерисовываться изображение находящееся в PaintBox.Canvas при "наезжании" на него другого окна?

зы использование той же самой процедуры рисования в событии onPaint не помогает

Wiz
Можно сделать Canvas.refresh, и тогда изображение обновится. Только я не совсем понял про "наезжание" другого окна. Если оно наехало, то под ним и так ничего не видно. А если оно отодвинулось, а картинка не обновилась - то и refresh поможет. Или ты постоянно рисуешь в картинке что-то?

Canvas.Refresh не помогает...

Цитата:

Или ты постоянно рисуешь в картинке что-то?

да.. рисуется змейка, она движется и её то и надо восстанавливать если ей на хвост наедет окно..

Добавлено
можно как-то использовать свойство ClipRect... только вот как?

Wiz
ClipRect нужен, если ты сам окно рисуешь внутри картинки. А если это обычное стандартное окно, то после него само должно все восстанавливаться.

А что за окно такое наезжающее? Как последнее дело, можно в нем поставит обработчик на все его события (или там перемещения, мышения, кликанья, и т.д.) и в этом обработчике делать для твоей картинки в другой форме рефреш.

Что именно за задача у тебя, напиши поподробнее, про змейку и движения?

А может просто не надо забывать про App-n.ProcessMessages ?

Wiz
Скорее всего ты не то запихнул в onPaint.
Как змейку рисуешь? Добавляя голову и вытирая хвост?

Добавлено
СОбытие onPaint возникает когда надо перерисовать окно. ClipRect здесь ни при чем. При высвобождении части окна, которая закрывалась другим окном возникает onPaint. Это факт.. А что в твоем обработчике - это уже ты сам пишешь. И ответственность лежит на твоем коде, а не на невызове обработчика.

UncoNNecteD

Цитата:

А может просто не надо забывать про App-n.ProcessMessages ?

Это слишком медленно...

Wiz
Процедуру рисования картинки нужно положить в PaintBox.OnPaint - обязательно должно работать

Я в таких случаях переопределяю метод Paint.
Должно помочь.

elvisti или All
Не в курсе, сколько по времени (мс) занимает ProcessMessages

Цитата:

Не в курсе, сколько по времени (мс) занимает ProcessMessages

если так критично, делай через потоки...

Извините за глупый и может неуместный вопрос...
Скажите. А как скопировать изображение окна Windows и засунуть его например в TImage?
Плз....

pbromiks

Взять Handle окна, затем BitBlt.


Добавлено
точнее HDC

Цитата:

как заставить перерисовываться изображение находящееся в PaintBox.Canvas при "наезжании" на него другого окна?

вызвать InvalidateRgn или InvalidateRect

elvisti
Wiz
DirectX вам поможет...

xn0bys
А подробнее никак?
Мне надо скопировать то, что находится на экране в данный момент и засунуть в TImage. как граббер.
Плз. подскажите...

xn0bys
Что не получаеться ???
Сначала получашь handle окна - например через FindWindowEx.
Потем по имеющемуся handle получаешь hdc - дай бог памяти - как функция называется ... гляну в SDK - подправлю мессаг ...

merlkerry
Ну хоть пример какой..... Приблизительно...

merlkerry
pbromiks


Я делаю так:

var
DC :HDC;
WND :HWND;
temp :tbitmap;
begin
DC:=GetDC(WND); // для десктопа WND=0

Temp:=TBitmap.Create;
Temp.Width:=Width; // сдесь ставиш чё те надо
Temp.Height:=Height;

DC:=GetDC(WND);

BitBlt(Temp.Canvas.Handle, //можно и без Temp, подставляй свой Image;
0,
0,
Width,
Height,
DC,
Left, // сдесь координаты откуда (вообще <F1>)
Top,
SRCCOPY);
...
Изврат над Temp
...
Temp.free;
ReleaseDC(WND,DC);
end;

Надеюсь сообразишь #

xn0bys Что сказать - неплохой код.
pbromiks - извини у меня реки не дошли нарисовать что-то подобное ...

merlkerry

Стараемся

Огромное спасибо всем. Завтра попробую.

Кину для начала сюда вопрос - не поможет придется новый топик создавать...

Как преобразовать картинку к 256 цветам greyScale причем так, что бы можно было задавать цвет в этой палитре... к примеру Image1.Camvas.Pixels[i,j] := 1 (от 0 до 255).

Есть библиотека компонет FastDIB. По-моему она это все позволяет.

avr555

Цитата:

Есть библиотека компонет FastDIB

Спасиб. Можноо ссылку на него или на страницу разработчика?


Добавлено
http://gfody.com - вроде как страница разработчиков, но она недоступна. файлик в котором 1 dll и 7 pas'ов скачал... только что с ними делать? компаненты подключать я научился, а тут.. научите что ли.

Хочется немного обобщить:
1) OnPaint это не показ картинки, а создание.
2) Грабить окна надо грабилками, а канвас грабить неприлично - выехал за экран и облажался.
3) Преобразования картинок делают многочисленные PLUGINS эффекты PhotoShop и PhotoImpact (последний приемлемее).
4) Создание битмапов собственными алгоритмами требует неприличных действий - например физического исправления ссылки на канвас и требования прорисовки (работает на все 100%).

---

5) Динамика прорисовок очень просто стимулируется таймером и WNDPROC.

---

Pinocchio
з-й пункт это ко мне? мне делфевыми средствами надо..

moonrise По моему Pinocchio посто не просек, что тут люди стараються шкодить, а не юзать чужие проги ...

merlkerry
Угу... А вопрос то до сих пор без ответа

moonrise
попробуй:
var i:Tcolor;
i:=image1.canvas.pixels[x,y];
i:=(((i and $ff0000) div 65536)+((i and $00ff00) div 256)+(i and $0000ff)) div 3;
image1.canvas.pixels[x,y]:=i*65536+i*256+i;
Это получится Grayscale 256 color ну и т.д.
(Сам не проверял, но теоретически?)