MainForm, точка onCreate

Форумы Между деломMainForm, точка onCreate ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 899

Рейтинг: 43

#1: 2009-01-30 15:09:16 ЛС | профиль | цитата

Почему от кнопки схема работает, а от точки onCreate не работает?

code_2333.txt

Я уже задавал этот вопрос но мне на него так никто и не ответил

карма: 0

Время верстки: %cr_time% Текущее время: %time%

файлы: 1

code_2333.txt [696B] [172]

Ответов: 1088

Рейтинг: 112

#2: 2009-01-30 15:31:25 ЛС | профиль | цитата

Ну видимо форма не готова к рисованию сразу после создания. Используй задержку:
code_11640.txt

карма: 0

Время верстки: %cr_time% Текущее время: %time%

файлы: 1

code_11640.txt [756B] [135]

Разработчик

Ответов: 26163

Рейтинг: 2127

#3: 2009-01-30 16:54:19 ЛС | профиль | цитата

unalex, используй onActivate или onPaint, но рисование на контексте, как представлено, по onCreate, не совсем правильно при активации/дезактивации формы текст исчезнет. Ну, вам виднее, тогда используйте выход onResize, он больше подойдет


Add(MainForm,86150,210,196)
{
 Width=246
 Height=179
 Point(Handle)
 Point(onPaint)
 link(onActivate,15825659:doEvent1,[])
}
Add(For,6197742,399,273)
{
 End=200
 Step=50
 link(onEvent,2715667:doSleepMks,[])
}
Add(For,2820943,406,343)
{
 End=100
 Step=20
 link(onEvent,6197742:doFor,[(450,349)(450,314)(387,314)(387,279)])
}
Add(Img_Text,8256300,385,441)
{
 DrawSource=1
 Text="Hello"
 Point(X)
 Point(Y)
 link(Bitmap,86150:Handle,[(391,401)(216,401)])
 link(X,6197742:Position,[])
 link(Y,2820943:Position,[])
}
Add(Button,2706557,301,343)
{
 Left=85
 Top=120
}
Add(Sleep,2715667,490,273)
{
 Delay=100000
 link(onSleep,8256300:doDraw,[(549,279)(549,493)(373,493)(373,447)])
}
Add(Hub,15825659,343,196)
{
 link(onEvent1,1407287:doProcessMessages,[])
 link(onEvent2,2820943:doFor,[(374,209)(374,349)])
}
Add(Application,1407287,399,196)
{
 Wait=1
}

карма: 22

Ответов: 899

Рейтинг: 43

#4: 2009-01-30 18:40:10 ЛС | профиль | цитата

Всем спасибо, позвольте еще вопрос
Как сделать так чтобы содержимое формы не менялось при сворачивании/разворачивании

Другими словами слова должны появляться последовательно с задержкой только при запуске приложения, а после сворачивания/разворачивания они должны отрисоваться сразу

например как в пасьянсе паук - сдаются карты (в моей программе появляются слова), а после сворячивания/разворачивания содержимое окна такое как и прежде, и карты заново не сдаются

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Разработчик

Ответов: 26163

Рейтинг: 2127

#5: 2009-01-30 19:17:48 ЛС | профиль | цитата

unalex, можно отрисовать на PaintBoxe, что-то типа того


Add(MainForm,86150,196,182)
{
 Width=273
 Height=224
 Point(Handle)
 Point(onPaint)
 link(onPaint,10526989:doStart,[])
}
Add(For,6197742,371,203)
{
 End=200
 Step=50
 link(onEvent,2715667:doSleepMks,[])
}
Add(For,2820943,308,203)
{
 End=100
 Step=20
 link(onEvent,6197742:doFor,[])
 link(onStop,10526989:doStop,[(351,216)(351,256)(238,256)(238,216)])
}
Add(Img_Text,8256300,357,266)
{
 Text="Hello"
 Point(X)
 Point(Y)
 link(Bitmap,8376938:Bitmap,[(363,250)(524,250)])
 link(X,6197742:Position,[])
 link(Y,2820943:Position,[(384,243)(314,243)])
}
Add(Sleep,2715667,427,203)
{
 Delay=100000
 link(onSleep,16575798:doEvent1,[])
}
Add(PaintBox,8376938,518,210)
{
 Width=265
 Height=145
 Layout="goriz"
 Point(Handle)
 Point(doColor)
}
Add(Thread,10526989,252,203)
{
 Delay=100
 FastStop=0
 link(onExec,2820943:doFor,[])
}
Add(Hub,16575798,483,203)
{
 link(onEvent1,8256300:doDraw,[(560,209)(560,308)(345,308)(345,272)])
 link(onEvent2,8376938:doRefresh,[])
}

карма: 22

Ответов: 899

Рейтинг: 43

#6: 2009-01-30 20:22:00 ЛС | профиль | цитата

nesco, спасибо

карма: 0

Время верстки: %cr_time% Текущее время: %time%

Форумы Между деломMainForm, точка onCreate ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)