Вверх ↑
Ответов: 126
Рейтинг: 1
#1: 2012-02-01 10:31:48 ЛС | профиль | цитата
Konst, ваш код не открывается, выдает ошибку: List index out of bounds (2)
------------ Дoбавленo в 10.31:
Cosinus, вот, заменил, подскажи пожалуйста, почему не работает отправка по enter?
Make(delphi)
ver(4.04 build 184)
Add(MainForm,6678,98,133)
{
Left=312
Top=322
Width=883
Height=691
Name="DREAM IRC V 1.0"
Caption="DREAM IRC V 1.0"
KeyPreview=1
Position=1
Point(doEnabled)
link(onCreate,4962049:doVisible,[(206,153)(206,209)])
}
Add(TCP_Client,96010,413,308)
{
Port=6667
link(onRead,16017099:doAdd,[(457,314)(457,265)])
link(onConnect,5182915:doData,[(503,321)(503,335)])
link(IP,11171879:Text,[(419,236)(377,236)])
}
Add(Button,67336,133,280)
{
Left=20
Top=15
Width=145
Font=[Arial,8,0,0,1]
Caption="Подключиться к серверу"
link(onClick,2017107:doEvent1,[(201,286)(201,258)])
}
Add(Memo,1481653,581,238)
{
Left=240
Top=370
Width=575
Strings=#0:|0:|0:|0:|
ScrollBars=3
Point(SelText)
}
Add(HilightMemo,16017099,469,259)
{
Left=190
Top=20
Width=630
Height=340
Font=[Courier New,8,0,0,1]
HilightFont=[Courier New,8,0,0,1]
Point(doFind)
Point(WordAtPos)
Point(onVScroll)
Point(onAddAutoComp)
Point(SearchStr)
link(onAddAutoComp,14949848:doWork1,[(513,279)(513,384)])
}
Add(ChildFormEx,4962049,525,203)
{
link(onReplace,13578457:doWork1,[(573,209)])
}
BEGIN_SDK
Add(EditMultiEx,1257345,21,21)
{
WorkCount=#27:doVisible=форма регистрации|
EventCount=#34:onReplace=выдает замененные строки|24:onActivate=Открыта форма|26:onDeactivate=Закрыта форма|
VarCount=#8:Text=ник|11:Text1=канал|
DataCount=#11:Dest=сервер|
Width=734
Height=501
link(doVisible,16345553:doShowModal,[(28,27)(28,146)])
link(Text,10808687:Var2,[(27,420)(314,420)])
link(Text1,9950873:Var2,[(34,420)(370,420)])
}
Add(MainForm,16345553,35,105)
{
Left=35
Top=105
Width=321
Height=172
Visible=1
Position=1
Point(doVisible)
Point(onShow)
Point(doShowModal)
link(onShow,1257345:onActivate,[(411,132)(411,34)])
}
Add(Button,517459,119,322)
{
Left=130
Top=85
Width=105
Caption="Сохранить"
link(onClick,3521001:doEvent1,[(159,328)(159,265)])
}
Add(Replace,12758549,294,336)
{
SubStr="*-*"
link(onReplace,3498086:doAdd,[(331,342)(331,230)])
link(Dest,10808687:Var1,[(314,328)(305,328)(305,320)])
}
Add(Memo,1699612,245,231)
{
Left=165
Top=500
Width=620
Strings=#8:NICK *-*|34:USER DREAM IRC (TEST) irc./*/ :*-*|10:MODE *-* +|42:NOTICE DenoraServ :VERSION DREAM IRCTEST|42:NOTICE SecureServ :VERSION DREAM IRCTEST|35:NOTICE DEN :VERSION DREAM IRCTEST|12:PING *-* /*/|9:JOIN #*+*|9:MODE #*+*|8:WHO #*+*|11:MODE #*+* b|26:PRIVMSG #*+* :Всем привет!|12:PING *-* /*/|0:|0:|
ScrollBars=2
Point(SelText)
}
Add(Edit,1939601,308,287)
{
Left=105
Top=20
Width=155
Text=""
}
Add(Memo,3498086,350,224)
{
Left=15
Top=355
Visible=1
link(onChange,5285489:doReplace,[(394,230)(394,286)(338,286)(338,342)])
}
Add(Replace,5285489,350,336)
{
SubStr="*+*"
link(onReplace,1257345:onReplace,[(568,342)(568,27)])
link(Str,3498086:Text,[])
link(Dest,9950873:Var1,[(370,332)(361,332)(361,327)])
}
Add(Edit,13758185,364,280)
{
Left=105
Top=45
Width=155
Text=""
}
Add(Label,2096278,98,56)
{
Left=15
Top=25
Width=51
Height=17
Caption="Ваш НИК"
}
Add(Label,6537627,98,70)
{
Left=20
Top=50
Width=35
Height=17
Caption="Канал"
}
Add(Hub,3521001,168,259)
{
link(onEvent1,16345553:doClose,[(194,265)(194,199)(23,199)(23,132)])
link(onEvent2,14112353:doReplace,[(217,272)(217,342)])
}
Add(Replace,14112353,245,336)
{
SubStr="/*/"
link(onReplace,12758549:doReplace,[])
link(Str,1699612:Text,[])
link(Dest,1257345:Dest,[(265,178)(27,178)])
}
Add(GetDataEx,10808687,308,315)
{
link(Data,1939601:Text,[])
}
Add(GetDataEx,9950873,364,322)
{
link(Data,13758185:Text,[])
}
END_SDK
Add(Host,2772336,301,126)
{
link(onIPByHost,11171879:doText,[])
link(HostName,9243147:Text,[])
}
Add(Edit,11171879,371,133)
{
Left=20
Top=90
Width=150
Visible=1
Text=""
}
Add(Edit,9243147,308,70)
{
Left=20
Top=90
Width=150
Text="dreamterra.ru"
}
Add(Button,85596,322,315)
{
Left=20
Top=40
Width=145
Font=[Arial,8,0,0,1]
Caption="Отключиться от сервера"
link(onClick,96010:doClose,[])
}
Add(Edit,3865319,42,385)
{
@Hint=#42:Поле для отправки сообщения клавишей Enter|
Left=195
Top=460
Width=620
Text="Поле для отправки сообщения нажатием Enter"
link(onEnter,15848173:doString,[])
AddHint(-26,98,175,26,Text)
}
Add(Label,16258274,14,42)
{
Left=45
Top=460
Width=123
Height=17
Caption="Поле ввода сообщения"
}
Add(Label,13490364,14,28)
{
Top=405
Width=230
Height=17
Caption="Список команд для регистрации на сервере"
}
Add(DoData,5182915,560,329)
{
link(onEventData,14949848:doWork3,[(604,335)(604,398)(384,398)])
link(Data,1481653:Text,[(566,306)(587,306)])
}
Add(Hub,2017107,238,252)
{
OutCount=3
link(onEvent1,2772336:doIPByHost,[(276,258)(276,139)])
link(onEvent2,96010:doOpen,[(332,265)(332,314)])
}
Add(HubEx,14949848,380,378)
{
Angle=3
link(onEvent,14750565:doWork3,[])
}
Add(Label,8940586,49,77)
{
Left=10
Top=65
Width=175
Height=17
Caption="введите сервер для подключения"
}
Add(Timer,7158056,280,434)
{
Interval=10000
link(onTimer,9051745:doStrCat,[])
}
Add(StrCat,9051745,336,434)
{
Str1="PING "
link(onStrCat,14750565:doWork2,[(374,440)(374,370)])
link(Str2,4962049:Text,[(349,334)(531,334)])
}
Add(HubEx,14750565,380,364)
{
Angle=3
link(onEvent,15442660:doWork3,[])
}
Add(FormatStr,15848173,133,392)
{
DataCount=3
Mask="PRIVMSG #%2 :%3"
link(Str2,4962049:Text1,[(146,317)(538,317)])
link(Str3,3865319:Text,[(153,380)(101,380)(101,429)(48,429)])
}
Add(HubEx,13578457,569,224)
{
Angle=1
link(onEvent,1481653:doAdd,[(573,244)])
}
Add(HubEx,15442660,380,350)
{
Angle=3
link(onEvent,96010:doSend,[(384,328)])
}


карма: 0

0