Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 25463
Рейтинг: 2071
#16: 2007-12-25 02:17:54 ЛС | профиль | цитата
Quest писал(а):
Многие используют в схемах вставки кода... так может их (вставки) тоже в эту тему выкладывать?

Вот читалка графических форматов, написанная в IC -- ImageLoader
Читает почти все форматы, но в примере диалог заточен под *.png и *.jpg
карма: 19

0
Ответов: 4400
Рейтинг: 472
#17: 2007-12-25 18:17:51 ЛС | профиль | цитата
понял всё по code_2052.txt но пока не делал не чего...
карма: 4

0
Ответов: 184
Рейтинг: 3
#18: 2007-12-25 19:00:00 ЛС | профиль | цитата
Если кому вдруг понадобится: получение списка ключей реестра по заданному пути, путь задаётся маской.
code_8022.txt
карма: 0
Статус строка какая-то, сейчас посмотрім: %time%
0
файлы: 1code_8022.txt [5.4KB] [225]
Ответов: 4400
Рейтинг: 472
#19: 2008-01-10 13:00:06 ЛС | профиль | цитата
Простая реализация поиска в интернете с помощью поисковых серверов из своей программы (или своей программой ;))

Add(MainForm,11781202,238,203)
{
Left=20
Top=105
Width=566
Height=115
Caption="WebSearh"
Position=1
}
Add(WebBrowser,7982408,238,147)
{
Width=558
Height=81
Align=5
Visible=1
Point(doVisible)
link(onStatus,7941593:doText,[])
link(URL,16345182:Var1,[])
}
Add(ChildPanel,16345182,238,84)
{
link(onEvent1,4582527:doEvent1,[(280,90)(280,132)(153,132)(153,181)])
}
BEGIN_SDK
Add(EditMulti,183067,3,3)
{
EventCount=1
VarCount=1
Width=398
Height=235
link(Var1,9247348:Value,[(9,209)(328,209)])
}
Add(Panel,12844379,35,98)
{
Width=558
Height=41
Align=2
BevelInner=0
Point(doColor)
}
Add(ComboBox,4751272,98,84)
{
Left=10
Top=10
Width=115
Height=21
Font=[MS Sans Serif,8,1,0,1]
Strings=#7: yandex|7: google|6: yahoo|11: filesearch|10: wikipedia|
ReadOnly=0
link(onClick,9569678:doRead,[])
}
Add(Edit,7711711,266,91)
{
Left=135
Top=10
Width=300
Font=[MS Sans Serif,8,1,0,1]
Text=""
}
Add(BitBtn,15908418,35,154)
{
Left=445
Top=10
Width=100
Color=32768
Font=[MS Sans Serif,8,1,16777215,1]
Caption="Поиск"
link(onClick,1892354:doEvent1,[])
}
Add(StrList,8254935,168,21)
{
Strings=#39:http://www.yandex.ru/yandsearch?text=%2|33:http://www.google.com/search?q=%2|38:http://ru.search.yahoo.com/search?p=%2|56:http://www.filesearch.ru/cgi-bin/s?q=%2&t=f&n=20|129:http://ru.wikipedia.org/wiki/%D0%A1%D0%BF%D0%B5%D1%86%D0%B8%D0%B0%D0%BB%D1%8C%D0%BD%D1%8B%D0%B5:Search?search=%2&t=f&n=20|
}
Add(DoData,343486,182,154)
{
link(onEventData,2244796:doMask,[])
link(Data,9569678:Item,[])
}
Add(ArrayRW,9569678,182,91)
{
link(Array,8254935:Array,[])
}
Add(FormatStr,2244796,259,147)
{
Mask="http://www.yandex.ru/yandsearch?text=%2"
Point(doMask)
link(onFString,9247348:doValue,[])
link(Str2,7711711:Text,[])
}
Add(Memory,9247348,322,147)
{
link(onData,183067:onEvent1,[(378,153)(378,9)])
}
Add(Hub,1892354,98,154)
{
link(onEvent1,343486:doData,[])
link(onEvent2,2244796:doString,[(238,167)(238,153)])
}
END_SDK
Add(StatusBar,7941593,301,161)
{
}
Add(Hub,4582527,168,175)
{
OutCount=3
link(onEvent1,7982408:doVisible,[])
link(onEvent2,7982408:doNavigate,[(222,188)(222,153)])
link(onEvent3,14428913:doMaximize,[(222,195)(222,300)])
}
Add(Label,12924796,84,84)
{
Left=15
Top=45
Width=527
Height=26
Font=[Arial,14,0,16711680,204]
Caption="Выберите поисковик и введите ключевое слово для поиска"
}
Add(WinTools,14428913,238,266)
{
Point(doMaximize)
link(Handle,11781202:Handle,[])
}
Add(StyleXP,10971854,84,98)
{
}
p.s собирал в 3.63 но должна пахать

карма: 4

0
Ответов: 3851
Рейтинг: 159
#20: 2008-01-12 22:46:31 ЛС | профиль | цитата
Как сделать чтоб в ListBox не добавлялись значения, которые уже там имеются
code_2072.txt

или другой вариант от nesco http://dev.hiasm.com/xf/topic.php?p=76307#P76307
карма: 0
начавший
0
файлы: 1code_2072.txt [768B] [214]
Ответов: 9820
Рейтинг: 340
#21: 2008-01-15 14:26:30 ЛС | профиль | цитата
Ну не знаю уж, насколько это будет этюд...

Пусть он будет озаглавлен: "Чего делать, когда ОЧЕНЬ хочется применить "кольцевание""

#sha
Add(MultiElementEx,3811725,126,70)
{
@Hint=#28:Кольцеватель=CircleConnector|
link(onEvent,4096643:doNext,[])
}
BEGIN_SDK
Add(EditMultiEx,11715741,21,21)
{
WorkCount=#57:doContinue=Повторить onEvent с входными данными из потока|53:doEvent=Вызывать onEvent с входными данными из потока|
EventCount=#118:onEvent=Сквозная реакция на doEvent, далее повторяется ТОЛЬКО если было событие doContinue, с соответствующими данными|
Width=244
Height=130
link(doContinue,7153069:doWork1,[(137,27)(137,48)])
link(doEvent,6331737:doEvent1,[(21,83)])
}
Add(Repeat,3040414,98,98)
{
Type=5
Op2=Integer(0)
Check=1
link(onRepeat,13472803:doData,[])
link(Op1,11319822:Value,[(104,90)(202,90)])
}
Add(ChanelToIndex,7153069,147,42)
{
Point(Data)
link(onIndex,11319822:doValue,[])
}
Add(DoData,13472803,147,98)
{
link(onEventData,13569050:doEvent1,[])
link(Data,7153069:Data,[])
}
Add(Memory,11319822,196,42)
{
}
Add(Hub,13569050,196,98)
{
link(onEvent1,4010265:doWork1,[(240,104)(240,83)])
link(onEvent2,11715741:onEvent,[(265,111)])
}
Add(Hub,6331737,49,77)
{
link(onEvent1,4010265:doWork2,[])
link(onEvent2,3040414:doRepeat,[(89,90)(89,104)])
}
Add(HubEx,4010265,133,70)
{
Angle=3
link(onEvent,7153069:doWork2,[(137,55)])
}
END_SDK
Add(Button,744351,63,77)
{
Left=70
Top=40
Width=130
Caption="Правильно"
link(onClick,3811725:doEvent,[])
}
Add(Message,3694914,287,70)
{
Caption="Test"
Type=1
Icon=2
Point(onOK)
link(onOK,12609217:doEvent1,[])
}
Add(Counter,4096643,175,70)
{
link(onNext,5542445:doString,[])
}
Add(FormatStr,5542445,231,70)
{
DataCount=1
Mask="Повторить %1-й раз ???"
link(onFString,3694914:doMessage,[])
}
Add(FormatStr,10784794,231,154)
{
DataCount=1
Mask="Повторить %1-й раз ???"
link(onFString,5572358:doMessage,[])
}
Add(Button,685093,63,154)
{
Left=70
Top=75
Width=130
Caption="Не правильно"
link(onClick,26522:doWork2,[])
}
Add(Message,5572358,287,154)
{
Caption="Test"
Type=1
Icon=2
Point(onOK)
link(onOK,11694590:doEvent1,[])
}
Add(Counter,16004894,175,154)
{
link(onNext,10784794:doString,[])
}
Add(HubEx,26522,140,147)
{
link(onEvent,16004894:doNext,[])
}
Add(Hub,11694590,343,161)
{
link(onEvent1,26522:doWork1,[(387,167)(387,143)(144,143)])
link(onEvent2,9723497:doMessage,[])
}
Add(Message,9723497,413,168)
{
Caption="Anything more"
link(Message,16004894:Count,[(419,156)(398,156)(398,203)(181,203)])
}
Add(Hub,12609217,343,77)
{
link(onEvent1,3811725:doContinue,[(387,83)(387,59)(114,59)(114,76)])
link(onEvent2,5485518:doMessage,[])
}
Add(Message,5485518,413,84)
{
Caption="Anything more"
link(Message,4096643:Count,[(419,72)(399,72)(399,120)(181,120)])
}
карма: 8

0
Ответов: 4400
Рейтинг: 472
#22: 2008-01-15 15:47:54 ЛС | профиль | цитата
Galkov что то мне огород с мультиком не очень приглянулся, обычно так делал, вот сейчас и не знаю, правельно или нет ?

code_2077.txt
карма: 4

0
файлы: 1code_2077.txt [857B] [197]
Ответов: 9820
Рейтинг: 340
#23: 2008-01-15 16:04:27 ЛС | профиль | цитата
Не правильно - я знаю
Никто не делал элементы в рассчете на то (хотя в отдельных некоторых случаях может и повезти), что этот же метод будет вызван ДО того, как выполнено предыдущее задание.
Вопрос даже не в умении, или нет, а в том что это очень накладно -- делать реентерабельные методы

По простому: не успевает элемент выполнить одно задание, как тут же не успевает выполнить и второе

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

Вообще-то, я тоже такой мультик не применяю, но я и не занимаюсь "кольцеванием"
Этюд приведен для тех, кто без этого ну никак прожить не может
------------ Дoбавленo:

А диалоги такие на форуме были (не будем показывать пальцем):
В: почему не работает ЭТО
О: все просто -- нефиг было "кольцеванием" заниматься

карма: 8

0
Ответов: 8351
Рейтинг: 775
#24: 2008-01-15 16:29:47 ЛС | профиль | цитата
Galkov, это не кольцо: в Ваших схемах кольцо разорвано сообщением (программист спрашивает у пользователя "Хочешь ещё банан? - ДА НЕТ"), кольцо получится, если программист решит, что пользователь хочет 1000000 бананов и вместо сообщения поставит элемент Если<1000000 - на моём компьюторе 622 банана (почему именно 622?) и сообщение об ошибке, а если включить Поток, то 2019 (?) бананов без сообщения об ошибке

Add(Thread,14079463,413,77)
{
Delay=0
FastStop=0
BusyEvent=1
link(onExec,7961896:doEvent1,[(457,83)(457,71)(233,71)(233,83)])
}
Add(Edit,16586879,357,77)
{
Left=185
Top=65
Width=105
link(onChange,14079463:doStart,[])
}
Add(Button,15908207,189,84)
{
Left=105
Top=65
link(onClick,7961896:doEvent2,[])
}
Add(Hub,7961896,245,77)
{
InCount=2
OutCount=1
link(onEvent1,7263138:doNext,[])
}
Add(Counter,7263138,301,77)
{
Max=10000000
link(onNext,16586879:doText,[])
}
карма: 14

0
Ответов: 4400
Рейтинг: 472
#25: 2008-01-15 16:39:00 ЛС | профиль | цитата
Леонид, это какое то вредасное кольцо
карма: 4

0
Ответов: 9820
Рейтинг: 340
#26: 2008-01-15 17:18:40 ЛС | профиль | цитата
Леонид писал(а):
это не кольцо:

Вообще-то - кольцо...
По doStart уничтожается (якобы) поток, который уничтожать и пытается
Все это дело припорошено сверху синхронизацией (через SendMessage) этого потока с основным (т.е. уничтожение идет из основного потока)
Но он же потом в этот основной поток опять должен как бы вернуться в уничтоженный (у нутре всяких там winApi)...

Чего при этом происходит - моего образования ответить уже и не хватает
Одно совершенно точно сказать можно: "не ходи туда, снег башка попадет..."
карма: 8

1
Голосовали:andrestudio
Ответов: 4400
Рейтинг: 472
#27: 2008-01-21 20:32:45 ЛС | профиль | цитата
зеркальное изображение...

code_2083.txt
карма: 4

0
файлы: 1code_2083.txt [4.9KB] [252]
Ответов: 4400
Рейтинг: 472
#28: 2008-01-23 13:46:34 ЛС | профиль | цитата
Что ветку не потдерживаем, или все идеи сейчас на комерцию пустим?

Иногда интерфейс программы или утилиты может состоят почти полностью из TabControl тогда почему бы не сделать его красивым?

code_2085.txt
карма: 4

0
файлы: 1code_2085.txt [30.5KB] [332]
Ответов: 1397
Рейтинг: 50
#29: 2008-01-23 14:00:25 ЛС | профиль | цитата
Вид действительно хорош но... Опять ошибка вывода связанная с различным разрешением мониторов. Например у меня 1024х768 смещается активная кнопка, как исправить?
------------ Дoбавленo:

Разобрался, ошибка не в разрешении монитора, а в присутствии нестандартного компанента GLabel
карма: 0
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 4400
Рейтинг: 472
#30: 2008-01-23 14:09:04 ЛС | профиль | цитата
Так забыл нужен обезательно компонент GLaibel от nesco иначе схема работать не будет в связи с тем что там завязано на MT потоках, а к разрешению экрана не должно быть не какого отношения, сейчас у меня 1024х768 а дома 1280х1024 и всё работает

[size=-2]------ Добавлено в 14:09
Кстати более симпатичного вида можно добится если использовать компонент ButtonEx Author= -=Dima=- ;)
карма: 4

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