Замена шрифта получилась,осталось чтобы не добавлялись повторяющиеся буквы.
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:
|