Вверх ↑
Ответов: 32
Рейтинг: 2
#1: 2009-06-19 16:17:35 ЛС | профиль | цитата
Замена шрифта получилась,осталось чтобы не добавлялись повторяющиеся буквы.

Add(MainForm,16436722,126,210)
{
Width=424
Height=199
Position=1
link(onCreate,46517:doSetFocus,[])
}
Add(StrList,4342104,553,91)
{
Strings=#1: |3:ldi|3:led|3:lul|3:fds|3:fgh|
}
Add(ArrayEnum,4852268,567,168)
{
Point(onBreak)
link(onItem,3889559:doEvent1,[(656,174)(656,319)(339,319)(339,279)])
link(Array,4342104:Array,[])
}
Add(RichEdit,46517,182,189)
{
Left=50
Top=20
Width=230
Font=[Tahoma,10,1,0,204]
ScrollBars=2
InsertCRLF=1
ParseLinks=0
Point(onChar)
Point(doSetFocus)
Point(MoveCursor)
Point(Position)
Point(doHint)
Point(onKeyDown)
Point(doSetSelStart)
Point(doFont)
link(Str,9934816:Caption,[(188,177)(391,177)(391,310)(594,310)])
link(Color,12534534:State,[(195,128)(503,128)])
link(onChar,14004949:doCase,[(254,202)(254,195)])
link(onKeyDown,11861528:doEvent1,[])
}
Add(Memo,14095249,427,168)
{
Left=310
Top=45
Width=140
Height=65
Visible=1
link(onChange,4852268:doEnum,[])
}
Add(StrCat,15789350,357,189)
{
link(onStrCat,14095249:doText,[])
link(Str1,5782546:Var3,[(363,177)(412,177)])
}
Add(Case,14004949,287,189)
{
Value=String( )
link(onNextCase,15789350:doStrCat,[])
link(onTrue,14095249:doClear,[(373,202)(373,181)])
}
Add(GetDataEx,5782546,399,224)
{
Angle=1
link(Data,14095249:Text,[(433,233)])
}
Add(StrMask,16482316,455,266)
{
Point(doMask)
link(onTrue,2977078:doEvent1,[])
}
Add(StrCat,3027821,406,273)
{
Str2="*"
link(onStrCat,16482316:doMask,[])
link(Str1,5782546:Var2,[])
}
Add(Hub,3889559,357,273)
{
link(onEvent1,3027821:doStrCat,[])
link(onEvent2,16482316:doCompare,[(385,286)(385,272)])
}
Add(Hub,2977078,511,273)
{
link(onEvent1,4852268:doStop,[(549,279)(549,181)])
link(onEvent2,9934816:doText,[(557,286)(557,272)])
}
Add(Label,9934816,588,266)
{
Left=50
Top=120
Width=75
Height=25
Color=12632256
Font=[Tahoma,10,1,0,204]
Cursor=2
link(onClick,12534534:doReset,[(632,272)(632,160)(485,160)(485,48)])
}
Add(StrMask,7624202,476,343)
{
Mask="32"
link(onFalse,12534534:doOn,[(520,349)(520,202)(485,202)(485,55)])
}
Add(Hub,11861528,259,203)
{
OutCount=3
link(onEvent2,7624202:doCompare,[(375,216)(375,349)])
}
Add(InfoTip,1196208,448,329)
{
Info=#6:
[size=9][color=gray]------------ Дoбавленo в 16.21:[/color][/size]
Извиняюсь опять не так вставил.

Add(MainForm,16436722,126,210)
{
Width=424
Height=199
Position=1
link(onCreate,46517:doSetFocus,[])
}
Add(StrList,4342104,553,91)
{
Strings=#1: |3:ldi|3:led|3:lul|3:fds|3:fgh|
}
Add(ArrayEnum,4852268,567,168)
{
Point(onBreak)
link(onItem,3889559:doEvent1,[(656,174)(656,319)(339,319)(339,279)])
link(Array,4342104:Array,[])
}
Add(RichEdit,46517,182,189)
{
Left=50
Top=20
Width=230
Font=[Tahoma,10,1,0,204]
ScrollBars=2
InsertCRLF=1
ParseLinks=0
Point(onChar)
Point(doSetFocus)
Point(MoveCursor)
Point(Position)
Point(doHint)
Point(onKeyDown)
Point(doSetSelStart)
Point(doFont)
link(Str,9934816:Caption,[(188,177)(391,177)(391,310)(594,310)])
link(Color,12534534:State,[(195,128)(503,128)])
link(onChar,14004949:doCase,[(254,202)(254,195)])
link(onKeyDown,11861528:doEvent1,[])
}
Add(Memo,14095249,427,168)
{
Left=310
Top=45
Width=140
Height=65
Visible=1
link(onChange,4852268:doEnum,[])
}
Add(StrCat,15789350,357,189)
{
link(onStrCat,14095249:doText,[])
link(Str1,5782546:Var3,[(363,177)(412,177)])
}
Add(Case,14004949,287,189)
{
Value=String( )
link(onNextCase,15789350:doStrCat,[])
link(onTrue,14095249:doClear,[(373,202)(373,181)])
}
Add(GetDataEx,5782546,399,224)
{
Angle=1
link(Data,14095249:Text,[(433,233)])
}
Add(StrMask,16482316,455,266)
{
Point(doMask)
link(onTrue,2977078:doEvent1,[])
}
Add(StrCat,3027821,406,273)
{
Str2="*"
link(onStrCat,16482316:doMask,[])
link(Str1,5782546:Var2,[])
}
Add(Hub,3889559,357,273)
{
link(onEvent1,3027821:doStrCat,[])
link(onEvent2,16482316:doCompare,[(385,286)(385,272)])
}
Add(Hub,2977078,511,273)
{
link(onEvent1,4852268:doStop,[(549,279)(549,181)])
link(onEvent2,9934816:doText,[(557,286)(557,272)])
}
Add(Label,9934816,588,266)
{
Left=50
Top=120
Width=75
Height=25
Color=12632256
Font=[Tahoma,10,1,0,204]
Cursor=2
link(onClick,12534534:doReset,[(632,272)(632,160)(485,160)(485,48)])
}
Add(StrMask,7624202,476,343)
{
Mask="32"
link(onFalse,12534534:doOn,[(520,349)(520,202)(485,202)(485,55)])
}
Add(Hub,11861528,259,203)
{
OutCount=3
link(onEvent2,7624202:doCompare,[(375,216)(375,349)])
}
Add(InfoTip,1196208,448,329)
{
Info=#6:
карма: 0

0