Вверх ↑
Этот топик читают: Гость
Ответов: 14
Рейтинг: 1
#1: 2008-11-20 17:01:41 ЛС | профиль | цитата
просто понял что нету варианта сделать более простного со списком тех кто в сети. Делал список ип, но при дисконекте того кто подсоединился первым, пропадал из списка тот что ещё в сети... При удалении значения (0-стока по стандарту), требует ввести строку для удаления, но я думаю что это нереальный подход. Думаю реалезивать более простым способом, пользователи постоянно будут высылать свои ип, а если отсоединяетс кто то - то список очищается - обновляется проще говоря. Но я столкнулся с проблемой, не знаю как сделать так что бы список не засирался повторными ип, что бы он фильтровал их... Как бы не позволял флудить....

карма: 0

0
Ответов: 199
Рейтинг: 7
#2: 2008-11-20 17:12:20 ЛС | профиль | цитата
Вот я делал програмку уже не помню для чего, но помню принцип работы, что в список одинаковые строки не добавляются
Add(MainForm,9277451,21,105){
Left=20
Top=105
Width=376
Height=506
}
Add(ListBox,15712835,441,217)
{
Left=5
Top=5
Width=300
Height=435
Ctl3D=1
Point(Index)
Point(doSelectString)
}
Add(Button,9092958,112,252)
{
Left=310
Top=35
Caption="Save list"
link(onClick,6914652:doExecute,[])
}
Add(ClipboardHook,6125290,168,91)
{
link(onChange,12359669:doEvent1,[(303,97)(303,181)])
}
Add(SDialog,6914652,168,252)
{
link(onExecute,15712835:doSave,[])
}
Add(LedNumber,211227,497,322)
{
Left=5
Top=445
Width=295
Text="0"
Point(doText)
}
Add(DoData,3528375,448,322)
{
Data=Real(0)
link(onEventData,211227:doText,[])
link(Data,15712835:Count,[])
}
Add(Hub,12359669,315,175)
{
OutCount=4
link(onEvent1,12758903:doEnum,[(373,181)(373,118)])
link(onEvent2,3528375:doData,[(433,188)(433,328)])
link(onEvent3,4493101:doValue,[(403,195)(403,83)])
link(onEvent4,15527629:doCompare,[(436,202)(436,160)])
}
Add(Button,16617521,112,308)
{
Left=310
Top=10
Caption="Удалить"
link(onClick,4748145:doData,[])
}
Add(DoData,4748145,364,308)
{
link(onEventData,15712835:doDelete,[(421,314)(426,314)(426,237)])
link(Data,15712835:Index,[(370,285)(468,285)])
}
Add(ArrayEnum,12758903,427,112)
{
link(Array,15712835:Array,[(433,100)(447,100)(447,281)(461,281)])
}
Add(DoData,3130029,574,161)
{
link(onEventData,15712835:doAdd,[(618,167)(618,195)(429,195)(429,223)])
link(Data,10811437:Value,[])
}
Add(Memory,4493101,511,77)
{
link(onData,10811437:doValue,[])
}
Add(Memory,10811437,574,77)
{
}
Add(If_else,15527629,518,154)
{
Op1=String()
Op2=String()
link(onFalse,3130029:doData,[])
link(Op1,12758903:Item,[(524,148)(433,148)])
link(Op2,4493101:Value,[(531,146)(517,146)])
}
карма: 0

0
Ответов: 3851
Рейтинг: 159
#3: 2008-11-20 20:21:32 ЛС | профиль | цитата
если поудалять, то это почти классическая задача, помнится Dilma когда-то предлагал нечто вроде code_10723.txt (если не ошибаюсь)..
карма: 0
начавший
0
файлы: 1code_10723.txt [780B] [157]
Ответов: 199
Рейтинг: 7
#4: 2008-11-20 20:49:48 ЛС | профиль | цитата
Зачем удалять каждый раз одинаковое, если проще совсем его де добавлять!
карма: 0

0
Ответов: 1161
Рейтинг: 160
#5: 2008-11-20 21:01:19 ЛС | профиль | цитата
а если загрузка при помощи doText будет
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#6: 2008-11-20 22:15:21 ЛС | профиль | цитата
LainX писал(а):
а если загрузка при помощи doText будет
то при doText все что было до этого в ListBox - удаляется автоматом.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 876
Рейтинг: 101
#7: 2008-11-21 08:17:55 ЛС | профиль | цитата
Вопрос тоже связан с listbox-ом

Как сделать что бы при добавление новой строчки текст фокусировался на последнюю строчку, а то приходиться постоянно самому в низ прокручивать
карма: 1

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#8: 2008-11-21 08:48:41 ЛС | профиль | цитата
flud писал(а):
новой строчки текст фокусировался на последнюю строчку

Исаользуем метод -- doEnsureVisible, подав на него индекс последней строчки, например вот так:


Add(ListBox,7306872,301,140)
{
Left=15
Top=10
Width=210
Height=195
Point(doEnsureVisible)
}
Add(Hub,648205,168,168)
{
OutCount=3
link(onEvent3,12613451:doOperation,[])
}
Add(Math,12613451,224,182)
{
OpType=1
Op2=1
ResultType=0
link(onResult,7306872:doEnsureVisible,[])
link(Op1,7306872:Count,[(230,170)(272,170)(272,204)(314,204)])
}



карма: 22

0
Ответов: 876
Рейтинг: 101
#9: 2008-11-21 12:17:41 ЛС | профиль | цитата
с listbox-ом работает, но не работает с редактором текста


Add(Button,51916,196,266)
{
Left=15
Top=160
Width=165
Caption="клик"
link(onClick,648205:doEvent1,[])
}
Add(Hub,648205,266,266)
{
link(onEvent1,8154841:doAdd,[])
link(onEvent2,12613451:doOperation,[(317,279)(317,300)])
}
Add(Math,12613451,336,294)
{
OpType=1
Op2=1
ResultType=0
link(onResult,8154841:doEnsureVisible,[(384,300)(384,314)])
link(Op1,8154841:Count,[(342,282)(377,282)(377,323)(412,323)])
}
Add(Time,7413138,399,126)
{
}
Add(Memo,8154841,399,266)
{
Left=15
Top=30
Width=165
Height=125
ScrollBars=2
Point(doEnsureVisible)
link(Str,7413138:FormatTime,[])
}
карма: 1

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#10: 2008-11-21 14:20:39 ЛС | профиль | цитата
flud писал(а):
но не работает с редактором текста

Простите, вопрос был задан конкретно

flud писал(а):
Вопрос тоже связан с listbox-ом

Причем здесь редактор текста, такого метода нет в редакторах
карма: 22

0
Ответов: 876
Рейтинг: 101
#11: 2008-11-21 14:57:32 ЛС | профиль | цитата
я значки перепутал но и на этом спасибо,
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#12: 2008-11-21 18:04:32 ЛС | профиль | цитата
nesco писал(а):
Причем здесь редактор текста, такого метода нет в редакторах
А точка то doEnsureVisible есть .
Мертвые души .
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#13: 2008-11-21 20:47:11 ЛС | профиль | цитата
Tad писал(а):
А точка то doEnsureVisible есть

А ты ее пробовал
карма: 22

0
Ответов: 876
Рейтинг: 101
#14: 2008-11-21 20:52:02 ЛС | профиль | цитата
nesco писал(а):
А ты ее пробовал


я пробовал, не пашет там выше мой пример
карма: 1

0
Разработчик
Ответов: 26163
Рейтинг: 2127
#15: 2008-11-21 20:54:29 ЛС | профиль | цитата
flud писал(а):
я пробовал, не пашет

Ну а я про что толкую -- не работает это метод в режиме редактора.
карма: 22

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