Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Чего-то я не улавливаю :( 


Alx2   (2002-03-29 17:19) [0]

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

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



MBo   (2002-03-29 17:29) [1]

OnPaint occurs before any controls on the form are painted.



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

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



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

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



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

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



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

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



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

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



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

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



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

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



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

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



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

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

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;


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



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

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.021 c
6-32920           Victor-S              2002-01-22 22:33  2002.04.11  
Снифер под Win2к/XP


3-32713           TimPasha              2002-03-21 15:04  2002.04.11  
Знатоки SQL!


4-33024           Alexsyy               2002-02-08 16:58  2002.04.11  
Пожалуйста помогите


14-32982          Merlin                2002-02-20 14:15  2002.04.11  
Объявить МАТ


6-32930           OlegR                 2002-01-29 13:18  2002.04.11  
E-mail на ICQ