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

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

Чего-то я не улавливаю :( [D5, Win2k]

Alx2 ©   (2002-03-29 17:19:00) 

Такой вот вопрос:
В обработчике OnPaint у Form1 пишу
Begin
If Not NeedSlowShow Then exit;
NeedSlowShow := false;
BitMap := GetFormImage;
...............
End;
Потом смотрю в BitMap - там кнопки прорисованы только в виде блеклых прямоугольников (как будто сработал только ответ на WM_ERASEBKGND).
Если то же самое делаю в обработчике OnClick какой-нибудь кнопки, то BitMap содержит точную копию формы. Как добиться, чтобы и в первом случае была точная копия?

PS В обработчике OnPaint GetFormImage вызывается единожды, при самой первой прорисовке (ну это и так видно).

---

Alx2   (2002-03-29 18:35:00) [1]

Короче говоря - х/з.
Пошел учиться....

---

Alx2   (2002-03-29 17:55:00) [2]

Тогда алгоритм накроется... Вот непричесанный код того, чего я хотел бы:

Begin
If Not NeedSlowShow Then exit;
NeedSlowShow := false;

BitMap := GetFormImage;

sSize := trunc(sqrt(sizeof(pArray) / sizeof(pArray[1])));
cSize := sSize * sSize;
W := round(Width / sSize) + 5;
H := round(Height / sSize) + 5;
For K := 0 To sSize - 1 Do
For L := 0 To sSize - 1 Do
With pArray[K * sSize + L] Do
Begin
X := round(K * Width / sSize);
Y := round(L * Height / sSize);
End;
With Canvas Do
Begin
BRUSH.COLOR := COLOR;
Pen.Style := psClear;
Repeat
P := GetVal(pArray, cSize);
CopyRect(Rect(P.X, P.Y, P.X + W, P.Y + H),BitMap.Canvas,Rect(P.X, P.Y, P.X + W, P.Y + H));
Sleep(1);
dec(cSize);
Until cSize = 0;
End;
BitMap.Free;
End;


Это я пишу в продолжение вопроса "о плавном появлении формы".
Делаю снимок формы и по кускам ее вывожу.

---

MBo   (2002-03-29 17:50:00) [3]

попробуй - из Paint таймер запусти на 0.2 сек. и в OnTimer

---

Alx2   (2002-03-29 17:48:00) [4]

Не получилось...
Все то же самое

---

Alx2   (2002-03-29 17:42:00) [5]

>MBo © (29.03.02 17:39)
Попробую. Кажется, начинаю допирать :)

---

Alx2   (2002-03-29 17:40:00) [6]

>MBo © (29.03.02 17:37)
Не понимаю :(
Ведь OnPaint - почти обычный метод и из него я прошу форму нарисоваться на BitMap через GetFormImage. Что же мешает ей адекватно нарисоваться на BitMapе?

---

MBo   (2002-03-29 17:39:00) [7]

может, попробовать посылать User-Message из OnPaint и в его обработчике GetFormImage

---

MBo   (2002-03-29 17:37:00) [8]

по исходникам, ни о чем она не заботится- только Lock Сanvas и PaintTo

---

Alx2   (2002-03-29 17:33:00) [9]

>MBo © (29.03.02 17:29)
Но, поторопился я.
А разве GetFormImage не должна обо всем позаботится?

---

Alx2   (2002-03-29 17:32:00) [10]

Опять слонов не замечаю :))
Спасибо!

---

MBo   (2002-03-29 17:29:00) [11]

OnPaint occurs before any controls on the form are painted.

---

Наверх