Вверх ↑
Ответов: 263
Рейтинг: 18
#1: 2019-07-26 05:55:26 ЛС | профиль | цитата
Stalevar писал(а):
А не как не сделать чтобы, строка начиналась с новой строки если не влазит в окно.

Вот такой вариант рассмотри

Сервер


Add(MainForm,2953706,77,105)
{
Height=85
Caption="Чат сервер"
BorderStyle=3
Position=1
Point(doHeight)
link(onCreate,2158604:doEvent1,[])
}
Add(Button,14396616,140,126)
{
Left=3
Top=5
Width=45
TabOrder=-1
Caption="Пуск"
Point(doCaption)
link(onClick,2158604:doEvent2,[])
}
Add(ChildPanel,11995,413,133)
{
link(onEvent1,2953706:doHeight,[(453,139)(453,95)(65,95)(65,139)])
}
BEGIN_SDK
Add(EditMulti,16678023,21,21)
{
EventCount=1
WorkCount=4
Width=566
Height=389
link(doWork1,7233297:doString,[(147,27)(147,216)])
link(doWork2,6222559:doString,[(139,34)(139,258)])
link(doWork3,4708751:doTimer,[(39,41)(39,335)])
link(doWork4,2728475:doTimer,[(31,48)(31,342)])
}
Add(DoData,6157529,441,70)
{
Data=Integer(360)
link(onEventData,16227468:doEvent1,[])
}
Add(Panel,2069698,532,112)
{
Left=2
Top=30
Width=390
Height=26
BevelOuter=1
Point(doHeight)
}
Add(Label,14923232,532,161)
{
Left=22
Top=5
Width=72
Height=17
Caption="Показать чат"
}
Add(Button,12278755,189,49)
{
Left=3
Top=3
Width=18
Height=18
Font=[Webdings,8,0,0,2]
TabOrder=-1
Caption="6"
Point(doCaption)
link(onClick,3552820:doSwitch,[])
}
Add(Switch,3552820,252,49)
{
DataOn=String(5)
DataOff=String(6)
Point(onOn)
Point(onOff)
link(onOn,38848:doEvent1,[])
link(onOff,16133724:doEvent1,[])
}
Add(DoData,3129968,441,119)
{
Data=Integer(300)
link(onEventData,12490420:doEvent1,[])
}
Add(DoData,7130192,448,126)
{
Data=Integer(26)
link(onEventData,12490420:doEvent2,[])
}
Add(Hub,12490420,497,119)
{
InCount=2
OutCount=1
link(onEvent1,2069698:doHeight,[])
}
Add(Hub,38848,350,56)
{
OutCount=4
link(onEvent1,3376732:doWork2,[(377,62)(377,41)])
link(onEvent2,3129968:doData,[(406,69)(406,125)])
link(onEvent3,6157529:doData,[])
link(onEvent4,15904316:doData,[(406,83)(406,167)])
}
Add(Hub,16133724,301,63)
{
OutCount=4
link(onEvent1,3376732:doWork3,[(333,69)])
link(onEvent2,7130192:doData,[(381,76)(381,132)])
link(onEvent3,5443875:doData,[])
link(onEvent4,2410566:doData,[(381,90)(381,174)])
}
Add(HubEx,3376732,329,35)
{
Angle=2
link(onEvent,12278755:doCaption,[(177,41)(177,55)])
}
Add(DoData,5443875,448,77)
{
Data=Integer(85)
link(onEventData,16227468:doEvent2,[])
}
Add(Hub,16227468,497,70)
{
InCount=2
OutCount=1
link(onEvent1,16678023:onEvent1,[(556,76)(556,27)])
}
Add(RichEdit,7240894,532,217)
{
Left=2
Top=26
Width=384
Height=270
Color=0
Font=[MS Sans Serif,8,0,16777215,1]
ScrollBars=2
InsertCRLF=1
}
Add(DoData,15904316,441,161)
{
Data=String(Скрыть чат)
link(onEventData,10831709:doEvent1,[])
}
Add(DoData,2410566,448,168)
{
Data=String(Показать чат)
link(onEventData,10831709:doEvent2,[])
}
Add(Hub,10831709,497,161)
{
InCount=2
OutCount=1
link(onEvent1,14923232:doText,[])
}
Add(DoData,6054130,224,336)
{
Data=String(Сервер запущен\r\n;16777215;1)
link(onEventData,10219935:doEvent3,[(281,342)(281,251)])
}
Add(MT_String,3500393,448,217)
{
link(onResult,7240894:doAdd,[])
}
Add(DoData,15822577,224,364)
{
Data=String(Сервер остановлен\r\n;16777215;1)
link(onEventData,10219935:doEvent4,[(281,370)(281,258)])
}
Add(MultiStrData,2211876,224,294)
{
Count=3
link(onPart1,1546658:doString,[])
link(onPart2,15560964:doString,[])
link(onPart3,16769489:doString,[])
}
Add(Timer,2728475,42,336)
{
Interval=0
Enable=1
AutoStop=1
link(onTimer,10988581:doClose,[])
}
Add(TCP_Client,10988581,147,329)
{
Port=1234
IP="127.0.0.1"
link(onRead,2211876:doSplit,[(195,335)(195,300)])
link(onConnect,6054130:doData,[])
link(onDisconnect,15822577:doData,[(201,349)(201,370)])
}
Add(Timer,4708751,98,329)
{
Interval=0
Enable=1
AutoStop=1
link(onTimer,10988581:doOpen,[])
}
Add(Hub,10219935,413,231)
{
InCount=7
OutCount=1
link(onEvent1,3500393:doMTString,[(437,237)(437,237)])
}
Add(FormatStr,7233297,224,210)
{
DataCount=1
Mask="Подключился IP:%1 \r\n\r\n;8421504;0\r\n"
link(onFString,10219935:doEvent1,[(281,216)(281,237)])
}
Add(FormatStr,6222559,224,252)
{
DataCount=1
Mask="Отключился IP:%1 \r\n\r\n;8421504;0\r\n"
link(onFString,10219935:doEvent2,[(281,258)(281,244)])
}
Add(FormatStr,1546658,301,294)
{
DataCount=1
Mask="%1 ;65280;0\r\n"
link(onFString,10219935:doEvent5,[(370,300)(370,265)])
}
Add(FormatStr,15560964,308,301)
{
DataCount=1
Mask="%1\r\n;65535;0\r\n"
link(onFString,10219935:doEvent6,[(376,307)(376,272)])
}
Add(FormatStr,16769489,315,308)
{
DataCount=1
Mask="%1\r\n\r\n;16777215;0\r\n"
link(onFString,10219935:doEvent7,[(383,314)(383,279)])
}
END_SDK
Add(StyleXP,2663964,77,154)
{
}
Add(Edit,2314807,476,168)
{
Left=50
Top=5
Width=340
Color=-16777192
TabOrder=-1
Text="Сервер остановлен"
ReadOnly=0
}
Add(MultiElementEx,10443030,413,175)
{
link(onEvent1,2314807:doText2,[])
link(onEvent11,14396616:doCaption,[(456,188)(456,223)(128,223)(128,132)])
}
BEGIN_SDK
Add(EditMultiEx,9581862,21,21)
{
WorkCount=#8:doEvent1|9:doEvent11|
EventCount=#8:onEvent1|9:onEvent11|
link(doEvent1,7814633:doEvent1,[(45,27)(45,111)])
link(doEvent11,12811373:doEvent1,[(35,34)(35,118)])
}
Add(Host,7890437,119,49)
{
}
Add(DoData,10939507,112,112)
{
Data=String(Сервер остановлен)
link(onEventData,7826394:doEvent2,[])
}
Add(Hub,7826394,196,105)
{
InCount=2
OutCount=1
link(onEvent1,9581862:onEvent1,[(266,111)(266,27)])
}
Add(StrCat,280240,119,105)
{
Str1="Сервер работает IP: "
link(onStrCat,7826394:doEvent1,[])
link(Str2,7890437:LoacalIP,[])
}
Add(Hub,7814633,70,105)
{
link(onEvent1,280240:doStrCat,[])
link(onEvent2,8345842:doData,[(98,118)(98,160)])
}
Add(Hub,12811373,49,112)
{
link(onEvent1,10939507:doData,[])
link(onEvent2,9284430:doData,[(77,125)(77,167)])
}
Add(DoData,8345842,112,154)
{
Data=String(Стоп)
link(onEventData,13986286:doEvent1,[])
}
Add(DoData,9284430,119,161)
{
Data=String(Пуск)
link(onEventData,13986286:doEvent2,[])
}
Add(Hub,13986286,196,154)
{
InCount=2
OutCount=1
link(onEvent1,9581862:onEvent11,[(266,160)(266,34)])
}
END_SDK
Add(TCP_Server,5096279,287,126)
{
Port=1234
Point(onServerConnect)
Point(onServerDisconnect)
link(onRead,5096279:doSend,[(331,132)(331,120)(275,120)(275,146)])
link(onConnect,11995:doWork1,[])
link(onDisconnect,11995:doWork2,[])
link(onServerConnect,4932417:doEvent1,[])
link(onServerDisconnect,1474811:doEvent1,[])
}
Add(Switch,11780780,231,119)
{
Point(onOn)
Point(onOff)
link(onOn,5096279:doOpen,[])
link(onOff,5096279:doClose,[])
}
Add(Hub,2158604,196,119)
{
InCount=2
OutCount=1
link(onEvent1,11780780:doSwitch,[])
}
Add(Hub,4932417,364,147)
{
link(onEvent1,11995:doWork3,[])
link(onEvent2,10443030:doEvent1,[(390,160)(390,181)])
}
Add(Hub,1474811,329,154)
{
link(onEvent1,11995:doWork4,[])
link(onEvent2,10443030:doEvent11,[(363,167)(363,188)])
}
Клиенты


Add(MainForm,9293894,56,147)
{
Width=503
Height=333
Caption="Клиент"
Position=1
Point(onClose)
link(onCreate,14383918:doEvent1,[])
link(onClose,14902029:oClose,[(105,174)(105,139)])
}
Add(ChildPanelEx,14902029,252,126)
{
link(onFString,10988581:doSend,[(296,132)(296,167)(240,167)(240,209)])
}
BEGIN_SDK
Add(EditMultiEx,7874317,21,21)
{
WorkCount=#11:doSetFocusd|6:oClose|
EventCount=#9:onFString|
VarCount=#4:Text|
Width=545
Height=256
link(Text,11526011:Var2,[(27,259)(279,259)])
link(doSetFocusd,15998751:doEvent1,[(44,27)(44,41)])
link(oClose,1956829:doEvent1,[(37,34)(37,139)])
}
Add(Panel,3902127,504,196)
{
Width=485
Height=55
Align=2
}
Add(Label,9985438,455,196)
{
Left=8
Top=8
Width=92
Height=17
Caption="IPадрес сервера:"
}
Add(FormatStr,9329205,399,98)
{
DataCount=3
Mask="%1;%2;%3"
Point(FString)
link(onFString,7874317:onFString,[(453,104)(453,27)])
link(Str1,2309125:FormatTime,[])
link(Str2,11254333:Var2,[(412,87)(381,87)(381,176)(279,176)])
link(Str3,12425388:Text,[(419,79)(373,79)(373,136)(328,136)])
}
Add(Edit,12425388,322,91)
{
Left=7
Top=30
Width=470
Text=""
Point(doSetFocus)
link(onEnter,9329205:doString,[])
}
Add(Label,3516053,406,196)
{
Left=223
Top=8
Width=51
Height=17
Caption="Моё имя:"
}
Add(Edit,14681806,273,119)
{
Left=275
Top=5
Width=200
Text="Клиент"
}
Add(Time,2309125,399,35)
{
Format="h:m:s"
Point(DateTime)
Point(Minute)
}
Add(Edit,312182,273,189)
{
Left=100
Top=5
Width=115
Text="127.0.0.1"
}
Add(Ini,2569009,133,126)
{
FileName="settings.ini"
Section="SET"
Key="NAME"
Type=1
link(onResult,3919034:doCompare,[])
link(Value,11254333:Var1,[(160,114)(186,114)(186,166)])
}
Add(Ini,7139093,133,196)
{
FileName="settings.ini"
Section="SET"
Key="IP"
Type=1
link(onResult,6591441:doCompare,[])
link(Value,11526011:Var1,[(160,184)(186,184)(186,236)])
}
Add(GetDataEx,11526011,273,231)
{
link(Data,312182:Text,[])
}
Add(GetDataEx,11254333,273,161)
{
link(Data,14681806:Text,[])
}
Add(Hub,1956829,56,133)
{
link(onEvent1,2569009:doWrite,[])
link(onEvent2,7139093:doWrite,[(102,146)(102,209)])
}
Add(Hub,15998751,56,35)
{
OutCount=3
link(onEvent1,12425388:doSetFocus,[(192,41)(192,111)])
link(onEvent2,2569009:doRead,[(119,48)(119,132)])
link(onEvent3,7139093:doRead,[(110,55)(110,202)])
}
Add(If_else,3919034,196,126)
{
Type=5
Op2=String()
link(onTrue,14681806:doText2,[])
}
Add(If_else,6591441,196,196)
{
Type=5
Op2=String()
link(onTrue,312182:doText2,[])
}
END_SDK
Add(Hub,14383918,119,161)
{
link(onEvent1,14902029:doSetFocusd,[(193,167)(193,132)])
link(onEvent2,4791050:doEvent1,[(147,174)(147,195)])
}
Add(RichEdit,7240894,623,175)
{
Left=2
Top=56
Width=479
Height=235
Align=5
Color=0
Font=[MS Sans Serif,8,0,16777215,1]
ScrollBars=2
ReadOnly=0
HideFrames=0
InsertCRLF=1
}
Add(MT_String,3500393,567,175)
{
link(onResult,7240894:doAdd,[])
}
Add(Hub,10219935,532,189)
{
InCount=5
OutCount=1
link(onEvent1,3500393:doMTString,[])
}
Add(FormatStr,16769489,462,203)
{
DataCount=1
Mask="%1\r\n\r\n;16777215;0\r\n"
link(onFString,10219935:doEvent3,[])
}
Add(FormatStr,15560964,455,196)
{
DataCount=1
Mask="%1\r\n;65535;0\r\n"
link(onFString,10219935:doEvent2,[])
}
Add(FormatStr,1546658,448,189)
{
DataCount=1
Mask="%1 ;65280;0\r\n"
link(onFString,10219935:doEvent1,[])
}
Add(Timer,14726200,196,189)
{
Interval=3000
Enable=1
link(onTimer,10988581:doOpen,[])
}
Add(TCP_Client,10988581,252,189)
{
Port=1234
link(onRead,2211876:doSplit,[])
link(onConnect,4982559:doEvent1,[])
link(onDisconnect,2019004:doEvent1,[])
link(IP,14902029:Text,[])
}
Add(MultiStrData,2211876,392,189)
{
Count=3
link(onPart1,1546658:doString,[])
link(onPart2,15560964:doString,[])
link(onPart3,16769489:doString,[])
}
Add(StyleXP,11529189,56,105)
{
}
Add(Hub,4982559,336,196)
{
link(onEvent1,14726200:doStop,[(365,202)(365,237)(186,237)(186,202)])
link(onEvent2,6054130:doData,[(375,209)(375,244)])
}
Add(DoData,6054130,455,238)
{
Data=String(Соединение с сервером установлено\r\n;16777215;1)
link(onEventData,10219935:doEvent4,[(509,244)(509,216)])
}
Add(Hub,2019004,301,203)
{
link(onEvent1,4791050:doEvent2,[(324,209)(324,247)(146,247)(146,202)])
link(onEvent2,9121578:doData,[(335,216)(335,279)])
}
Add(DoData,9121578,455,273)
{
Data=String(Соединение с сервером потеряно\r\n;16777215;1)
link(onEventData,10219935:doEvent5,[(518,279)(518,223)])
}
Add(Hub,4791050,161,189)
{
InCount=2
OutCount=1
link(onEvent1,14726200:doTimer,[])
}
карма: 3

0