Помогите разработать профессиональный чат по LAN

Вверх ↑

Форумы Помощь по средеПомогите разработать профессиональный чат по LAN ← Ctrl1 234 5Ctrl →

Этот топик читают: Гость

Ответов: 9906

Рейтинг: 351

#31: 2008-01-07 21:48:33 ЛС | профиль | цитата

GS_Lab писал(а):

Эдик, ты ошибаешься, в примере Visible = True
И закрываю через "Х" (Close)

Эдик НЕ ошибается.
Ты ее и ДО открытия найдешь.
Потому что "открытие" означает не "создание", а как раз Visible = True
Так же как и "закрытие" не означает "уничтожение"

Хотя бы потому, что это разные слова

карма: 9

Ответов: 315

Рейтинг: 1

#32: 2008-01-07 21:55:05 ЛС | профиль | цитата

Galkov писал(а):

Ты ее и ДО открытия найдешь.

НЕ знаю почему, НО у меня до открытия onFind=0, что значит окно не найдено.

а как же быть? не могли бы дать пример с "уничтожением"?

карма: 0

Ответов: 9906

Рейтинг: 351

#33: 2008-01-07 22:34:29 ЛС | профиль | цитата

Да уж, тут я не внимательно посмотрел...

Найти и ДО и ПОСЛЕ можно здесь (самый типовой случай)


#sha
Add(MainForm,8461553,133,105)
{
 Left=20
 Top=105
 Width=286
 Height=160
}
Add(Button,10632523,182,105)
{
 Left=65
 Top=65
 Width=140
 Caption="искать форму"
 link(onClick,1137179:doFind,[])
}
Add(ChildFormEx,6870798,231,154)
{
}
BEGIN_SDK
  Add(EditMultiEx,7272930,21,21)
  {
   WorkCount=#9:doVisible|
   link(doVisible,10977014:doVisible,[(73,27)(73,104)])
  }
  Add(MainForm,10977014,126,70)
  {
   Left=35
   Top=105
   Width=183
   Height=188
   Caption="test"
   Visible=1
   Point(doVisible)
  }
END_SDK
Add(FindWindow,1137179,231,105)
{
 ClassName="test"
 Caption="test"
 SkipParam=2
 link(onFind,6691083:doMessage,[])
}
Add(Message,6691083,280,105)
{
}
Add(Button,13789468,182,154)
{
 Left=65
 Top=40
 Width=140
 Caption="создать форму"
 link(onClick,6870798:doVisible,[])
}

Динамический вариант самый простой для модальной формы


#sha
Add(MainForm,8461553,63,98)
{
 Left=20
 Top=105
 Width=286
 Height=160
}
Add(Button,10632523,112,98)
{
 Left=65
 Top=65
 Width=140
 Caption="искать форму"
 link(onClick,1137179:doFind,[])
}
Add(ChildFormEx,6870798,161,147)
{
 Mode=1
}
BEGIN_SDK
  Add(EditMultiEx,7272930,21,21)
  {
   WorkCount=#9:doVisible|
   link(doVisible,10977014:doShowModal,[(73,27)(73,111)])
  }
  Add(MainForm,10977014,126,70)
  {
   Left=35
   Top=105
   Width=183
   Height=188
   Caption="test"
   Visible=1
   Point(doVisible)
   Point(doShowModal)
  }
END_SDK
Add(FindWindow,1137179,161,98)
{
 ClassName="test"
 Caption="test"
 SkipParam=2
 link(onFind,6691083:doMessage,[])
}
Add(Message,6691083,210,98)
{
}
Add(Button,13789468,112,147)
{
 Left=65
 Top=40
 Width=140
 Caption="создать форму"
 link(onClick,6870798:doVisible,[])
}

Для не модальной, чуть сложнее


#sha
Add(MainForm,8461553,140,126)
{
 Left=20
 Top=105
 Width=286
 Height=160
}
Add(Button,10632523,189,126)
{
 Left=65
 Top=65
 Width=140
 Caption="искать форму"
 link(onClick,1137179:doFind,[])
}
Add(ChildFormEx,6870798,238,175)
{
 Mode=1
 link(onEvent,5191350:doTimer,[])
}
BEGIN_SDK
  Add(EditMultiEx,7272930,21,21)
  {
   WorkCount=#5:##add|8:##delete|
   EventCount=#7:onEvent|
   Point(##add)
   Point(##delete)
  }
  Add(MainForm,10977014,70,98)
  {
   Left=35
   Top=105
   Width=183
   Height=188
   Caption="test"
   Point(Close)
   link(Close,14548290:GetData,[])
  }
  Add(EventFromData,14548290,70,56)
  {
   link(onEvent,7272930:onEvent,[(240,62)(240,27)])
  }
END_SDK
Add(FindWindow,1137179,238,126)
{
 ClassName="test"
 Caption="test"
 SkipParam=2
 link(onFind,6691083:doMessage,[])
}
Add(Message,6691083,287,126)
{
}
Add(Button,13789468,189,175)
{
 Left=65
 Top=40
 Width=140
 Caption="создать форму"
 link(onClick,6870798:##add,[])
}
Add(Timer,5191350,287,175)
{
 Interval=0
 AutoStop=1
 link(onTimer,6870798:##delete,[(330,181)(330,218)(230,218)(230,188)])
}

карма: 9

Ответов: 315

Рейтинг: 1

#34: 2008-01-12 21:36:40 ЛС | профиль | цитата

Galkov, пасиба большое, все ясно

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

Еще один вопрос, помогите решить!
Как сделать чтоб в ListBox (Список) не добавлялись значения, которые уже там имеются

Набросок:


#sha
Add(ListBox,15470240,259,112)
{
 Left=5
 Top=10
 Height=150
 Strings=#1:1|1:2|1:3|1:4|1:5|
 link(Str,4291722:Data1,[])
}
Add(Button,9366934,140,105)
{
 Left=5
 Top=165
 link(onClick,16262980:doEvent1,[])
}
Add(Memory,770744,259,14)
{
}
Add(Random,16647353,210,49)
{
 Min=1
 Max=5
 link(onRandom,770744:doValue,[(250,55)(250,20)])
}
Add(Hub,16262980,182,105)
{
 link(onEvent1,16647353:doRandom,[(233,111)(233,83)(198,83)(198,55)])
 link(onEvent2,7483862:doEnum,[(244,118)(244,174)])
}
Add(If_else,3833077,322,168)
{
 link(onFalse,15470240:doAdd,[(366,181)(366,149)(247,149)(247,118)])
 link(Op1,4291722:Data2,[(328,128)(272,128)])
}
Add(GetData,4291722,259,56)
{
 link(Data,770744:Value,[])
}
Add(ArrayEnum,7483862,273,168)
{
 link(onItem,3833077:doCompare,[])
 link(Array,15470240:Array,[])
}

карма: 0

Ответов: 3851

Рейтинг: 159

#35: 2008-01-12 22:48:20 ЛС | профиль | цитата

GS_Lab писал(а):

Как сделать чтоб в ListBox (Список) не добавлялись значения, которые уже там имеются

бросил в Этюды - http://dev.hiasm.com/xf/topic.php?p=76298#P76298 (а то - застаивается, а задачка интересная)

карма: 0

начавший

Разработчик

Ответов: 26163

Рейтинг: 2127

#36: 2008-01-12 23:31:48 ЛС | профиль | цитата

Андрей., а можно еще так приколоться


#sha
Add(MainForm,7445353,210,84)
{
 Left=10
 Top=10
 Ctl3D=0
 Position=1
}
Add(ListBox,15470240,266,182)
{
 Left=5
 Top=10
 Height=150
 TabOrder=-1
 Strings=#1:1|1:2|1:3|1:4|1:5|
 Point(doSelectString)
 Point(Index)
 link(Str,16647353:Random,[])
}
Add(Button,9366934,210,126)
{
 Left=5
 Top=165
 TabOrder=-1
 link(onClick,16647353:doRandom,[])
}
Add(Hub,11003061,315,126)
{
 link(onEvent1,15470240:doSelectString,[(359,132)(359,175)(240,175)(240,230)])
 link(onEvent2,3833077:doCompare,[])
}
Add(Random,16647353,266,126)
{
 Min=1
 Max=7
 link(onRandom,11003061:doEvent1,[])
}
Add(If_else,3833077,371,133)
{
 Type=1
 Op2=Integer(0)
 link(onTrue,15470240:doAdd,[(416,139)(416,254)(252,254)(252,188)])
 link(Op1,15470240:Index,[(377,121)(332,121)(332,246)(293,246)])
}

карма: 22

Ответов: 315

Рейтинг: 1

#37: 2008-01-13 11:14:52 ЛС | профиль | цитата

Андрей., nesco, ПАСИБКИ!!!

карма: 0

Ответов: 3851

Рейтинг: 159

#38: 2008-01-13 13:52:51 ЛС | профиль | цитата

nesco, очень симпатично - приклеил в этюты (если ты не против).
Кстати, если рассматривать коды компонентов, что работает быстрее - doSelectString или связка ArrayEnum+If_else?
Я использовал Enum потому что, в своё время, был поражён высокой скоростью его работы. То есть просто привычка, которая не всегда способствует выбору правильного пути - закостенелость

карма: 0

начавший

Разработчик

Ответов: 26163

Рейтинг: 2127

#39: 2008-01-13 14:17:17 ЛС | профиль | цитата

Андрей. писал(а):

Кстати, если рассматривать коды компонентов, что работает быстрее - doSelectString или связка ArrayEnum+If_else?

SelectString для одной строки работает быстрее, тк контролу напрямую посылается сообщение LB_SELECTSTRING со строкой для поиска

карма: 22

Ответов: 315

Рейтинг: 1

#40: 2008-01-19 21:13:34 ЛС | профиль | цитата

Galkov, я проснулся

.
Вообщем ты мне привел пример:

Galkov писал(а):

Для не модальной, чуть сложнее

Все отлично, я его использовал (по секрету мне это нужно было для чата, чтоб сделать "личку"), НО заметил такой неприемлимый минус, если я создаю несколько таких окон ##add, разумеется с другими названиями, и призакрытии одного из них закрываются все

Помоги пожалуйста скажи, как лучше сделать окно лички?
Может кто делал уже такое, поделитесь

карма: 0

Ответов: 9906

Рейтинг: 351

#41: 2008-01-19 21:43:19 ЛС | профиль | цитата

GS_Lab, справку и самому читать не возбраняется


#sha
Add(MainForm,611170,42,35)
{
 Left=20
 Top=105
 Width=286
 Height=160
}
Add(ChildFormEx,13395827,105,112)
{
 Mode=1
 link(onEvent,306648:doValue,[])
}
BEGIN_SDK
  Add(EditMultiEx,7272930,21,21)
  {
   WorkCount=#5:##add|8:##delete|
   EventCount=#7:onEvent|
   VarCount=#12:##eventIndex|
   Point(##add)
   Point(##delete)
   Point(##eventIndex)
  }
  Add(MainForm,10977014,70,98)
  {
   Left=35
   Top=105
   Width=183
   Height=188
   Caption="test"
   Point(Close)
   link(Close,14548290:GetData,[])
  }
  Add(EventFromData,14548290,70,56)
  {
   link(onEvent,7272930:onEvent,[(240,62)(240,27)])
  }
END_SDK
Add(Button,2904361,42,112)
{
 Left=65
 Top=40
 Width=140
 Caption="создать форму"
 link(onClick,13395827:##add,[])
}
Add(Timer,6032471,217,112)
{
 Interval=0
 Enable=1
 AutoStop=1
 link(onTimer,11853407:doData,[])
}
Add(DoData,11853407,266,112)
{
 link(onEventData,13395827:##delete,[(305,118)(305,92)(93,92)(93,125)])
 link(Data,306648:Value,[(272,102)(259,102)(259,153)(174,153)])
}
Add(Memory,306648,168,112)
{
 Point(Data)
 link(onData,6032471:doTimer,[])
 link(Data,13395827:##eventIndex,[(174,100)(142,100)(142,156)(111,156)])
}

карма: 9

Ответов: 279

Рейтинг: 2

#42: 2008-01-20 03:46:08 ЛС | профиль | цитата

Вот я попробовал замутить... вроде нормально

code_8181.txt

карма: 1

Время верстки: %cr_time% Текущее время: %time%

файлы: 1

code_8181.txt [846B] [237]

Ответов: 315

Рейтинг: 1

#43: 2008-01-20 09:39:33 ЛС | профиль | цитата

Galkov, спасибо

карма: 0

Ответов: 9906

Рейтинг: 351

#44: 2008-01-20 10:19:53 ЛС | профиль | цитата

Это твои проблемы,
Мне еще с Васями и Федями разбираться что-ли...
Может справку по динамическим мультикам почитать, может еще чего -- откуда я знаю

А что-бы получить конкретный ответ, надо задавать конкретный вопрос.
Руководствуясь этими правилами: Почему-то не отвечают
------------ Дoбавленo:

Про справку, на всякий случай: ставишь этот элемент на схему


#sha
Add(MultiElementEx,1581568,147,112)
{
}
BEGIN_SDK
  Add(EditMultiEx,1727203,21,21)
  {
  }
END_SDK

и, не раздумывая ни секунды, нажимаешь F1

карма: 9

Голосовали: GS_Lab

Ответов: 315

Рейтинг: 1

#45: 2008-01-28 14:03:16 ЛС | профиль | цитата

Снова вопрос. Как пользоваться в компоненте Memo (Редактор текста) точками:
Font
   Name
   Color
   Size
Какие данные в потоке должны быть, чтоб изменять шрифт, цвет, размер

карма: 0

Форумы Помощь по средеПомогите разработать профессиональный чат по LAN ← Ctrl1 234 5Ctrl →


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