Вверх ↑
Этот топик читают: Гость
Ответов: 463
Рейтинг: 9
#31: 2009-02-09 23:19:32 ЛС | профиль | цитата
аха... пасиба... понял ... опять логика меня подводит ...
то бишь не нужно ждать очищения, достаточно заново перерисовать ...
СПАСИБО ЕЩЕ РАЗ .. и правда так лучше ....


блин... долго же мою пошаговую фортранскую логику придется трансформировать в кумполе..

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

0
Разработчик
Ответов: 26170
Рейтинг: 2127
#32: 2009-02-09 23:24:23 ЛС | профиль | цитата
То же, но проще


Add(MainForm,5929309,224,315)
{
Point(doVisible)
link(onCreate,16243181:doEvent1,[])
}
Add(ChildPanelEx,691260,658,343)
{
Mode=1
}
BEGIN_SDK
Add(EditMultiEx,12923682,21,21)
{
WorkCount=#5:##add|7:doColor|5:doTop|7:##clear|
Point(##add)
Point(##clear)
link(##add,7445019:doCaption,[(50,27)(50,48)])
link(doColor,7445019:doColor,[(42,34)(42,55)])
link(doTop,14354486:doTop,[(36,41)(36,111)])
}
Add(Panel,14354486,63,91)
{
Left=1
Top=1
Width=50
Height=26
Point(doLeft)
Point(doTop)
Point(doWidth)
Point(doHeight)
}
Add(BitBtn,7445019,63,42)
{
Left=1
Top=1
Width=24
Height=24
Align=5
Point(doColor)
}
END_SDK
Add(StrList,11600796,385,273)
{
Strings=#5:Esc;1|5:F1;30|5:F4;60|6:Ё/~;90|13:BackSpace;120|9:Shift;150|7:Я/Z;180|9:Shift;210|5:1;240|
}
Add(StrPart,7883352,441,336)
{
Char=";"
link(onSplit,4672311:doEvent1,[(481,342)(481,321)])
link(onPart,691260:##add,[])
}
Add(ArrayEnum,1273889,399,336)
{
link(onItem,7883352:doSplit,[])
link(Array,11600796:Array,[])
}
Add(Hub,4672311,490,315)
{
link(onEvent1,691260:doTop,[(616,321)(616,363)])
link(onEvent2,4485448:doData,[(525,328)(525,356)])
}
Add(ColorBox,16053789,476,413)
{
Left=270
Top=165
DefColor=16777215
link(onClick,11855999:doEvent1,[(616,419)(616,370)])
}
Add(DoData,4485448,546,350)
{
link(onEventData,691260:doColor,[])
link(Data,16053789:CurrentColor,[(552,338)(517,338)(517,457)(482,457)])
}
Add(Hub,6255194,336,336)
{
InCount=2
OutCount=1
link(onEvent1,1273889:doEnum,[])
}
Add(Hub,11855999,630,364)
{
link(onEvent1,691260:##clear,[])
link(onEvent2,6255194:doEvent2,[(675,377)(675,471)(324,471)(324,349)])
}
Add(Hub,16243181,273,329)
{
link(onEvent1,3843121:doData,[(307,335)(307,433)])
link(onEvent2,6255194:doEvent1,[])
}
Add(DoData,3843121,399,427)
{
Data=String(BtnFace)
link(onEventData,16053789:doSelectName,[])
}

------------ Дoбавленo:

ajaxii писал(а):
то бишь не нужно ждать очищения

Из метода очищения не выйдет, пока не очистит. Представь себе обращение к удаленной подпрограмме, пока Return не получишь, то не выйдешь
карма: 22

0
Ответов: 463
Рейтинг: 9
#33: 2009-02-14 23:57:27 ЛС | профиль | цитата
code_11787.txt

посмотрите пожалуйста и потестируйте у всех нормально работает?
карма: 0

0
файлы: 1code_11787.txt [20KB] [347]
Администрация
Ответов: 15295
Рейтинг: 1519
#34: 2009-02-15 00:33:35 ЛС | профиль | цитата
при первом запуске увидел три списка выбора вверху справа и больше ничего
при втором программа виснет на создании огромного числа GDI объектов(убил ее когда их число перевалило за 5000)
карма: 27
0
Разработчик
Ответов: 26170
Рейтинг: 2127
#35: 2009-02-15 00:35:33 ЛС | профиль | цитата
ajaxii писал(а):
посмотрите пожалуйста и потестируйте у всех нормально работает?

Если имеется в виду неотрисовка правой части формы, то это связано с тем, что Align=caRight неприменим к ComboBoxам, так как пытается вытянуть его размер по вертикали, а это для них недопустимо, их высота зависит от высоты шрифта.

карма: 22

0
Ответов: 893
Рейтинг: 18
#36: 2009-02-18 01:30:54 ЛС | профиль | цитата
Galkov писал(а):
Тоже - сугубо личное
Прости , а нет ли компилятора делфей для хиасм ?
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 3655
Рейтинг: 69
#37: 2009-02-18 19:28:18 ЛС | профиль | цитата
Byuik писал(а):
Прости , а нет ли компилятора делфей для хиасм ?

Чего
карма: 0

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