Вверх ↑
Этот топик читают: Гость
Ответов: 689
Рейтинг: 20
#46: 2006-07-03 18:10:43 ЛС | профиль | цитата
К админу: большая просьба перенесите пожалуйста мои 3 темы из этого раздела в раздел "Между делом".

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


  • После чего должен обязательно выполняться Application, что-бы на дочерней форме было все видно?
  • Как, отказавшись от формы, вывести курсор Wait в начале работы по списку и убрать его в конце работы?
карма: 0

0
Ответов: 1305
Рейтинг: 29
#47: 2006-07-03 18:40:56 ЛС | профиль | цитата
oldTV, метод doProcessMessages компонента Application должен вызываться каждый раз, когда тебе надо перерисовать форму, т.е. в твоем конкретном случае после добавления каждого элемента в список. Если уж ты именно этим компонентом решил воспользоваться
карма: 0

0
Ответов: 3655
Рейтинг: 69
#48: 2006-07-03 19:24:07 ЛС | профиль | цитата
oldTV, Ты что собираешься перерисовывать форму 10000 раз
карма: 0

0
Ответов: 9906
Рейтинг: 351
#49: 2006-07-03 19:26:24 ЛС | профиль | цитата
v258 писал(а):
Application должен вызываться каждый раз, когда тебе надо перерисовать форму, т.е. в твоем конкретном случае после добавления каждого элемента в список

Да ну
карма: 9

0
Ответов: 1305
Рейтинг: 29
#50: 2006-07-03 19:51:04 ЛС | профиль | цитата
Galkov писал(а):
Да ну

Не повод для смеха, по моему. Galkov, ты бы лучше взял, да просветил заблудших
карма: 0

0
Ответов: 9906
Рейтинг: 351
#51: 2006-07-03 20:10:12 ЛС | профиль | цитата
v258, читай форум (этого топика достаточно, впрочем). А у меня уже язык отваливается.
Так что, для меня - повод
карма: 9

0
Ответов: 1305
Рейтинг: 29
#52: 2006-07-03 20:33:02 ЛС | профиль | цитата
Да ради бога, лишь бы на здоровье

Можно, конечно, по таймеру в параллельном потоке, кому как нравится
карма: 0

0
Ответов: 689
Рейтинг: 20
#53: 2006-07-03 21:20:34 ЛС | профиль | цитата
v258, Galkov, oldTV - я даже себе делаю отметку, не ссорьтесь. У Galkov есть огромный опыт, он отвечает постоянно на вопросы, он многое знает: вопросы одни и те же. Поэтому мы, не знающие как, получаем не ответ, а наставление. Иногда с легкой грубостью или мягко говоря тыканьем в собственное невежество. Это не всем нравится. Мне например. Но:

  • Дела это не решает.
  • Создает напряженность в теме и на форуме;
  • Опускает нас до более низкого уровня - которго мы не достойны.

Извини, Galkov, за вчерашную грубость. Более не допущу.

Как выход, предлагаю:

  • Сказанное Galkov'ым воспринимать как наставление и не более - т.е. не обижаться на его казалось бы грубость (см. выше)
  • Умолять его дать ссылку на ту тему, где он уже давал ответ на этот вопрос
  • Настойчиво разбирать детали его ответа, находить суть и задавать конкретные вопросы, если что не понятно
  • Как то, а это практически 100% примером, дать понять Galkov'у что не работает и как.

В принципе все. Лишь бы делу помогло.

Теперь по делу собственно. В "чистом" примере апликатион стоит вроде бы перед циклом. Ставлю в моем проекте: форма не отображается. Хоть убей. Ну не выкладывать же мне сюда проект, да и разбираться в нем год. Раньше хоть личка была - мог на личку послать, например тебе,v258, с просьбой помочь - а вдруг.
карма: 0

0
Ответов: 1305
Рейтинг: 29
#54: 2006-07-03 21:24:10 ЛС | профиль | цитата
oldTV, сделай пример из минимального количества компонентов и выложи. А там уже видно будет - кто-нибудь что-нибудь придумает
карма: 0

0
Ответов: 689
Рейтинг: 20
#55: 2006-07-03 21:38:21 ЛС | профиль | цитата
В том то и дело, v258, что вот это работает. Это я называю "чистым" кодом. Связь за связью переношу в мой проект - блин, хоть убей, форма не отображается. В моем проект куча элементов - пинги, циклы, условия. Ну такой вот сложный проект. В "чистом" коде пашет - у меня нет. "Кривые руки" - другого обьяснения нет. Но дела ведь и это не решает. Вот и решил разобраться где должен стоять Application.

Выход 2: просто повесить курсор. так как заполнени списка уже как бы работает.
карма: 0

0
Ответов: 3655
Рейтинг: 69
#56: 2006-07-03 22:52:44 ЛС | профиль | цитата
oldTV, Ставь после каждого компонента(в котором сомневаешься) например
ListBox и проверяй что он (компоненент) выдаёт где нибудь найдёшь ошибку
карма: 0

0
Ответов: 689
Рейтинг: 20
#57: 2006-07-06 12:08:25 ЛС | профиль | цитата
Все варианты перепробовал. Остался один выход:

Как в HiAsm вывести курсор Wait (ну допустим перед началом цикла) и убрать его в конце работы цикла?
карма: 0

0
Ответов: 2125
Рейтинг: 159
#58: 2006-07-06 12:42:06 ЛС | профиль | цитата
code_74
карма: 1

0
файлы: 1code_74.txt [777B] [717]
Ответов: 689
Рейтинг: 20
#59: 2006-07-06 12:55:46 ЛС | профиль | цитата
Помогите разобраться с этим.
Есть 3 кода:
Первый Tad'a:
code_75 Этот код рабочий, но есть вопросы с модальностью. У меня на проекте не воспроизводится. Не знаю почему.

Есть код Galkov'a:
Add(MainForm,13302103,21,105)
{
Left=20
Top=105
}
Add(ChildForm,11094603,343,98)
{
link(onEvent1,14866329:doEvent1,[(385,104)(385,142)(228,142)(228,160)])
}
BEGIN_SDK
Add(EditMulti,1353078,3,3)
{
EventCount=1
WorkCount=3
Width=195
Height=204
link(doWork1,5888265:doVisible,[(14,9)(14,90)])
link(doWork2,12398991:doPosition,[(22,16)(22,48)])
link(doWork3,5888265:doClose,[(47,23)(47,83)])
}
Add(MainForm,5888265,91,56)
{
Left=35
Top=105
Height=75
Color=-16777212
Font=[Tahoma,8,0,0,204]
Caption="Поиск чего то очень нужного...."
BorderStyle=4
ShowType=1
TaskBar=1
Visible=1
Cursor=5
MouseCapture=0
Position=1
Point(doVisible)
link(onCreate,4579374:doHideSYSMENU,[(134,97)(134,110)(81,110)(81,146)])
}
Add(ProgressBar,12398991,42,42)
{
Width=394
Height=24
Max=1000
Smooth=1
ProgressColor=16711680
}
Add(SysMenu,4579374,91,119)
{
link(Handle,5888265:Handle,[(97,100)(97,121)])
}
Add(Button,503237,91,14)
{
Left=335
Top=30
link(onClick,1353078:onEvent1,[(160,20)(160,9)])
}
END_SDK
Add(Button,15498871,77,105)
{
Left=10
Top=10
Width=80
Height=25
Caption="&Push"
link(onClick,16218418:doEvent1,[])
}
Add(Hub,16218418,133,105)
{
OutCount=3
link(onEvent1,14709:doTimer,[])
link(onEvent2,11094603:doWork1,[(177,118)(177,104)])
}
Add(Timer,14709,238,105)
{
Interval=10
Enable=1
AutoStop=1000
Point(onStop)
link(onTimer,8270629:doNext,[])
link(onStop,11094603:doWork3,[])
}
Add(Counter,8270629,294,105)
{
Max=1000
link(onNext,11094603:doWork2,[])
}
Add(Message,1960843,189,119)
{
Message="Вторая модальная форма"
}
Add(Hub,14866329,238,154)
{
link(onEvent1,14709:doStop,[(280,160)(280,146)(228,146)(228,118)])
link(onEvent2,8270629:doReset,[(282,167)(282,125)])
}
В нем решены вопросы с модальностью и всякими системными меню. Компонент Application в нем не используется !!! Но все прекрасно пашет.

Я объединил два кода и получил вот это:
Add(MainForm,2037592,322,196)
{
Left=20
Top=105
Point(Left)
Point(Top)
}
Add(Button,15498871,322,350)
{
Left=10
Top=10
Width=80
Height=25
link(onClick,16218418:doEvent1,[])
}
Add(DoData,9819621,490,420)
{
Data=Integer(0)
link(onEventData,6807365:doWork3,[(614,426)(614,272)])
}
Add(Hub,16218418,406,350)
{
OutCount=6
link(onEvent1,15623828:doClear,[])
link(onEvent2,3986514:doData,[(492,363)(492,209)])
link(onEvent3,6807365:doWork1,[(572,370)(572,258)])
link(onEvent5,5309761:doFor,[(492,384)(492,377)])
}
Add(ChildForm,6807365,707,252)
{
link(onEvent1,5309761:doStop,[(749,258)(749,327)(536,327)(536,384)])
link(Data1,2037592:Left,[(713,247)(335,247)])
link(Data2,2037592:Top,[(720,247)(342,247)])
}
BEGIN_SDK
Add(EditMulti,1353078,3,3)
{
EventCount=1
WorkCount=4
DataCount=2
Width=328
Height=323
link(doWork1,5888265:doVisible,[(47,9)(47,90)])
link(doWork2,12398991:doPosition,[(22,16)(22,48)])
link(doWork3,5888265:doClose,[(47,23)(47,83)])
link(doWork4,12398991:doMax,[(22,30)(22,55)])
}
Add(MainForm,5888265,91,56)
{
Left=35
Top=105
Height=75
Color=-16777212
Font=[Tahoma,8,0,0,204]
Caption="Поиск чего то очень нужного...."
BorderStyle=4
ShowType=1
TaskBar=1
Visible=1
Cursor=5
MouseCapture=0
Position=1
Point(doVisible)
link(onCreate,10465290:doEvent1,[(133,97)(133,176)(4,176)(4,258)])
}
Add(ProgressBar,12398991,42,42)
{
Width=394
Height=24
Max=1000
Smooth=1
ProgressColor=16711680
Point(doMax)
}
Add(SysMenu,4579374,91,196)
{
link(Handle,14140281:Data1,[])
}
Add(Button,503237,91,14)
{
Left=335
Top=30
Caption="Отмена"
link(onClick,1353078:onEvent1,[(227,20)(227,9)])
}
Add(Math,13674102,147,252)
{
Op2=150
link(Op1,1353078:Data2,[(153,128)(16,128)])
}
Add(PosWindow,3209915,91,252)
{
link(Handle,14140281:Data2,[(97,205)(104,205)])
link(Left,1353078:Data1,[(104,128)(9,128)])
link(Top,13674102:Result,[(111,242)(139,242)(139,302)(153,302)])
}
Add(GetData,14140281,91,119)
{
link(Data,5888265:Handle,[(97,114)(97,114)])
}
Add(Hub,10465290,14,252)
{
OutCount=4
link(onEvent1,4579374:doHideSYSMENU,[(68,258)(68,223)])
link(onEvent2,13674102:doOperation,[(96,265)(96,258)])
link(onEvent3,3209915:doLeft,[(68,272)(68,258)])
link(onEvent4,3209915:doTop,[(68,279)(68,265)])
}
END_SDK
Add(For,5309761,546,371)
{
Start=1
link(onEvent,3859791:doEvent1,[])
link(onStop,9819621:doData,[(588,384)(588,411)(480,411)(480,426)])
link(End,1774201:Data1,[(559,303)(552,303)])
}
Add(GlobalVar,11852600,546,119)
{
Name="n"
Data=Integer(10000)
}
Add(Hub,3859791,588,371)
{
OutCount=3
link(onEvent1,8763891:doProcessMessages,[])
link(onEvent2,15623828:doInsert,[])
link(onEvent3,6976788:doData,[(630,391)(630,411)(536,411)(536,426)])
}
Add(DoData,6976788,546,420)
{
link(onEventData,6807365:doWork2,[(642,426)(642,265)])
link(Data,5309761:Position,[])
}
Add(StringTable,15623828,707,343)
{
Left=110
Top=10
Width=265
Height=250
Columns=#5:Число|
Grid=0
Redaction=1
Point(doInsert)
}
Add(GetData,1774201,546,147)
{
link(Data,11852600:Var,[])
}
Add(DoData,3986514,546,203)
{
link(onEventData,6807365:doWork4,[(642,209)(642,279)])
link(Data,1774201:Data2,[(552,191)(559,191)])
}
Add(Application,8763891,651,371)
{
}

Это код хорош тем, что форма отобразилась, но работа по циклу не идет. Не смотря на Application.
Помогите, если не трудно. Осталось только это....

Заранее всем спасибо большое.

[size=-2]------ Добавлено в 12:55
tsdima - ты волшебник. То что нужно.
карма: 0

0
файлы: 1code_75.txt [3.3KB] [634]
Ответов: 9906
Рейтинг: 351
#60: 2006-07-06 13:24:36 ЛС | профиль | цитата
Очень сильно напоминает сборку эл.схемы методом "тыка"
Даже пайки при этом получаются "сопливые"
code_77
карма: 9

0
файлы: 1code_77.txt [3KB] [672]
Сообщение
...
Прикрепленные файлы
(файлы не залиты)