Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26304
Рейтинг: 2146
#31: 2009-01-22 13:22:45 ЛС | профиль | цитата
Ну, вот так можно



Add(MainForm,6380058,315,154)
{
Width=801
Height=430
link(onCreate,2512629:doLoad,[])
}
Add(ComboBox,2512629,511,140)
{
Left=5
Top=25
Width=740
Height=21
FileName="Zakaz4ik.txt"
Text="Действия"
DataType=1
Point(EditText)
}
Add(StringTable,7109463,525,329)
{
Left=5
Top=110
Width=325
Columns=#9:Запись=50|
link(Str,3926536:Var2,[])
}
Add(Button,9309188,322,315)
{
Left=5
Top=65
link(onClick,5867691:doEvent1,[])
}
Add(Hub,5867691,385,315)
{
OutCount=3
link(onEvent1,3616620:doData,[])
link(onEvent2,2512629:doSave,[(487,328)(487,181)])
link(onEvent3,7109463:doAdd,[])
}
Add(DoData,3616620,420,315)
{
link(onEventData,2512629:doAdd,[(478,321)(478,146)])
link(Data,3926536:Var1,[(426,261)])
}
Add(GetDataEx,3926536,518,252)
{
link(Data,2512629:EditText,[])
}


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


Вот более сложная схема, но, мне кажется, более правильная. Текст сохраняется при нажатии Enter
Не знаю, разберешься ли ?


Add(MainForm,6380058,217,189)
{
Width=801
Height=430
link(onCreate,4936505:doEvent1,[])
}
Add(ComboBox,2512629,399,175)
{
Left=5
Top=25
Width=740
Height=21
FileName="Zakaz4ik.txt"
Text="Действия"
DataType=1
Point(EditText)
Point(onKeyDown)
Point(doEditText)
Point(doSelect)
link(Str,3926536:Var3,[(405,163)(436,163)(436,254)])
link(onKeyDown,13155802:doCase,[])
}
Add(StringTable,7109463,553,301)
{
Left=5
Top=110
Width=325
Columns=#9:Запись=50|
Point(doEnsureVisible)
}
Add(Hub,5867691,504,196)
{
OutCount=4
link(onEvent1,2512629:doAdd,[(545,202)(545,151)(387,151)(387,181)])
link(onEvent2,1423958:doData,[(545,209)(545,270)(401,270)(401,286)])
link(onEvent3,2512629:doSave,[(537,216)(537,259)(377,259)(377,216)])
link(onEvent4,2512629:doEditText,[(529,223)(529,246)(387,246)(387,223)])
}
Add(GetDataEx,3926536,406,245)
{
link(Data,2512629:EditText,[])
}
Add(Case,13155802,455,189)
{
Value=Integer(13)
DataOnTrue=String()
link(onTrue,5867691:doEvent1,[])
}
Add(DoData,15466807,329,224)
{
Data=Integer(-1)
link(onEventData,2512629:doSelect,[])
}
Add(Hub,4936505,280,203)
{
OutCount=3
link(onEvent1,2512629:doLoad,[])
link(onEvent2,15466807:doData,[(312,216)(312,230)])
link(onEvent3,1821144:doEnum,[(301,223)(301,335)])
}
Add(ArrayEnum,1821144,399,329)
{
link(onItem,13441470:doWork2,[(464,335)(464,307)])
link(onEndEnum,5218194:doWork2,[])
link(Array,2512629:Array,[])
}
Add(DoData,1423958,413,280)
{
link(onEventData,5206108:doEvent1,[])
link(Data,3926536:Var2,[])
}
Add(HubEx,13441470,497,294)
{
link(onEvent,7109463:doAdd,[])
}
Add(Hub,5206108,462,280)
{
link(onEvent1,13441470:doWork1,[(501,286)])
link(onEvent2,5218194:doWork1,[(487,293)])
}
Add(Math,4180857,497,336)
{
OpType=1
Op2=1
ResultType=0
link(onResult,7109463:doEnsureVisible,[])
link(Op1,7109463:Count,[(503,324)(531,324)(531,358)(559,358)])
}
Add(HubEx,5218194,483,329)
{
link(onEvent,4180857:doOperation,[])
}

карма: 22

0
Ответов: 8955
Рейтинг: 824
#32: 2009-01-22 16:59:43 ЛС | профиль | цитата
nesco, а подписи к точкам кто читать будет? code_11535.txt
карма: 19

0
файлы: 1code_11535.txt [603B] [328]
Разработчик
Ответов: 26304
Рейтинг: 2146
#33: 2009-01-22 18:16:25 ЛС | профиль | цитата
Леонид, ты мою вторую схему смотрел Так вот у тебя -- баян, спешу тебя заверить

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


Специально для Леонида. Вот моя схема с убранными прибамбасами. Объясни, чем твой принцип отличается от моего


Add(MainForm,6380058,301,231)
{
Width=801
Height=430
link(onCreate,4936505:doEvent1,[])
}
Add(ComboBox,2512629,483,217)
{
Left=5
Top=25
Width=740
Height=21
FileName="Zakaz4ik.txt"
Text="Действия"
DataType=1
Point(EditText)
Point(onKeyDown)
Point(doEditText)
Point(doSelect)
link(Str,3926536:Var3,[(489,205)(520,205)(520,296)])
link(onKeyDown,13155802:doCase,[])
}
Add(StringTable,7109463,637,343)
{
Left=5
Top=110
Width=325
Columns=#9:Запись=50|
Point(doEnsureVisible)
}
Add(Hub,5867691,588,238)
{
OutCount=4
link(onEvent1,2512629:doAdd,[(629,244)(629,193)(471,193)(471,223)])
link(onEvent3,2512629:doSave,[(621,258)(621,301)(461,301)(461,258)])
}
Add(GetDataEx,3926536,490,287)
{
link(Data,2512629:EditText,[])
}
Add(Case,13155802,539,231)
{
Value=Integer(13)
DataOnTrue=String()
link(onTrue,5867691:doEvent1,[])
}
Add(DoData,15466807,413,266)
{
Data=Integer(-1)
}
Add(Hub,4936505,364,245)
{
OutCount=3
link(onEvent1,2512629:doLoad,[])
}
Add(ArrayEnum,1821144,483,371)
{
link(onItem,13441470:doWork2,[(548,377)(548,349)])
link(onEndEnum,5218194:doWork2,[])
}
Add(DoData,1423958,497,322)
{
link(onEventData,5206108:doEvent1,[])
}
Add(HubEx,13441470,581,336)
{
link(onEvent,7109463:doAdd,[])
}
Add(Hub,5206108,546,322)
{
link(onEvent1,13441470:doWork1,[(585,328)])
link(onEvent2,5218194:doWork1,[(571,335)])
}
Add(Math,4180857,581,378)
{
OpType=1
Op2=1
ResultType=0
link(onResult,7109463:doEnsureVisible,[])
link(Op1,7109463:Count,[(587,366)(615,366)(615,400)(643,400)])
}
Add(HubEx,5218194,567,371)
{
link(onEvent,4180857:doOperation,[])
}

Кстати, последняя редакция моего поста со схемами -- 13:22. Если ты не видел второй схемы, то с выводами ты жутко опоздал

карма: 22

0
Ответов: 8955
Рейтинг: 824
#34: 2009-01-22 19:28:00 ЛС | профиль | цитата
nesco, кроме прибамбасов, ничем, но опоздал-то совсем немного
карма: 19

0
Разработчик
Ответов: 26304
Рейтинг: 2146
#35: 2009-01-22 19:31:30 ЛС | профиль | цитата
Леонид писал(а):
но опоздал-то совсем немного

Ну совсем немного, аж на три с полтиной часа
карма: 22

0
Гость
Ответов: 17029
Рейтинг: 0
#36: 2009-01-22 21:01:36 правка | ЛС | профиль | цитата


Редактировалось 3 раз(а), последний 2025-01-09 13:33:08
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#37: 2009-01-22 23:10:32 ЛС | профиль | цитата
nesco, Леонид, не спорьте. У обоих есть возможность записать пустышку при случайном нажатии Enter.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26304
Рейтинг: 2146
#38: 2009-01-22 23:13:45 ЛС | профиль | цитата
Tad писал(а):
У обоих есть возможность записать пустышку при случайном нажатии Enter

Но зашиту можно поставить от пустого символа, но через поток, или спросить о записи
карма: 22

0
Ответов: 952
Рейтинг: 4
#39: 2009-01-23 11:03:04 ЛС | профиль | цитата
Хм, компонент StyleXP отказывается работать под fpc
Говорит Дэльфи ему надо.
В разделе скачать не нашел искомого
карма: 0

0
Разработчик
Ответов: 26304
Рейтинг: 2146
#40: 2009-01-23 11:09:55 ЛС | профиль | цитата
user_asm, Не работает под FPC

карма: 22

0
Ответов: 952
Рейтинг: 4
#41: 2009-01-23 12:30:25 ЛС | профиль | цитата
Спасибо, как раз назрел еще вопросик.
Как реализовать вкладки на форме?
Если можно небольшой пример на 2 вкладочки если можно.
Да, а почему бы не выложить ссылку на компилятор на страничку "Скачать" Вопросы бы сами отпали.
карма: 0

0
Ответов: 3514
Рейтинг: 184
#42: 2009-01-23 12:44:43 ЛС | профиль | цитата
code_11550.txt
карма: 0
0
файлы: 1code_11550.txt [1KB] [271]
Ответов: 952
Рейтинг: 4
#43: 2009-01-23 13:25:42 ЛС | профиль | цитата
Не прошла у меня вставка Вашего кода. Думал может у меня проблемы - переустановил ХиАсм. Все тоже - копипаст и ничего не вставляется.
карма: 0

0
Ответов: 3514
Рейтинг: 184
#44: 2009-01-23 13:38:09 ЛС | профиль | цитата
ЧТО копи? КУДА паст?
карма: 0
0
Ответов: 952
Рейтинг: 4
#45: 2009-01-23 13:51:24 ЛС | профиль | цитата
Хм, копи ваш код и паст в открытый пустой проект не прокатил. Ничего не вставилось.
карма: 0

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