Вверх ↑
Ответов: 8886
Рейтинг: 823
#1: 2019-06-30 18:30:14 ЛС | профиль | цитата
GAv, так текст поверх текста что-ли? Тоже можно на картинке, сначала один, потом другой разными цветами.
Два текста


Add(MainForm,2953706,238,182)
{
Width=407
Caption="Оверлей"
link(onCreate,3345020:doCreate,[])
}
Add(ChildPanel,533421,238,133)
{
link(onEvent1,7819677:doAdd,[(277,139)(277,118)])
link(onEvent2,7819677:doClear,[(284,146)(284,125)])
link(onEvent3,7819677:doLoad,[(291,153)(291,146)])
link(onEvent4,3345020:doDraw,[(291,160)(291,209)])
link(onEvent5,6708372:doWork2,[(354,167)(354,209)])
}
BEGIN_SDK
Add(EditMulti,9383237,21,21)
{
EventCount=5
VarCount=1
Height=270
link(Var1,11039057:Value,[(27,173)(223,173)])
}
Add(Panel,11244107,126,35)
{
Width=391
Align=2
}
Add(Hub,8586217,175,91)
{
OutCount=3
link(onEvent1,9383237:onEvent2,[(242,97)(242,34)])
link(onEvent2,11854780:doWork1,[])
link(onEvent3,11854780:doWork2,[])
}
Add(MultiElement,11854780,203,98)
{
link(onEvent1,9383237:onEvent1,[(249,104)(249,27)])
link(Data1,15639115:Text,[])
}
BEGIN_SDK
Add(EditMulti,5133224,28,21)
{
EventCount=2
WorkCount=2
DataCount=1
Width=440
Height=158
VOffset=7
HOffset=28
link(doWork1,6617902:doEvent1,[])
link(doWork2,5996483:doFor,[(39,41)(39,55)])
}
Add(For,5996483,49,49)
{
@Hint=#18:Количество абзацев|
IncludeEnd=1
link(onEvent,13236521:doRandom,[])
link(onStop,5133224:onEvent2,[(88,62)(88,140)(455,140)(455,41)])
link(End,5133224:Data1,[])
}
Add(For,16173739,154,49)
{
@Hint=#29:Количество слов в предложении|
link(onEvent,5851490:doText,[])
link(onStop,1010503:doEvent1,[(193,62)(193,97)])
link(End,13236521:Random,[(167,40)(146,40)(146,89)(111,89)])
}
Add(Random,13236521,105,49)
{
Min=7
Max=15
link(onRandom,16173739:doFor,[])
}
Add(InlineCode,5851490,203,42)
{
WorkPoints=#7:doStart|6:doText|
EventPoints=#5:onRes|
VarPoints=#
DataPoints=#
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|23: onRes : THI_Event;|5: |52: procedure doStart(var _Data:TData; Index:Word); |50: procedure doText(var _Data:TData; Index:Word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.doStart;|6: begin|12: Randomize;|5: end;|0:|29:procedure THiAsmClass.doText;|15:var sss:string;|16: i,j:integer;|16: _Rnd:double;|5:BEGIN|11: sss:=' ';|24: j:=round(Random*12)+2;|19: for i:=0 to j do|9: begin|18: _Rnd:=Random;|42: if _Rnd<0.0003 then sss:=sss+'ё' else|42: if _Rnd<0.0007 then sss:=sss+'ъ' else|42: if _Rnd<0.0033 then sss:=sss+'ф' else|42: if _Rnd<0.0065 then sss:=sss+'э' else|42: if _Rnd<0.0101 then sss:=sss+'щ' else|42: if _Rnd<0.0149 then sss:=sss+'ц' else|42: if _Rnd<0.0213 then sss:=sss+'ю' else|42: if _Rnd<0.0286 then sss:=sss+'ш' else|41: if _Rnd<0.038 then sss:=sss+'ж' else|42: if _Rnd<0.0477 then sss:=sss+'х' else|42: if _Rnd<0.0598 then sss:=sss+'й' else|42: if _Rnd<0.0742 then sss:=sss+'ч' else|42: if _Rnd<0.0901 then sss:=sss+'б' else|42: if _Rnd<0.1066 then sss:=sss+'з' else|42: if _Rnd<0.1236 then sss:=sss+'г' else|41: if _Rnd<0.141 then sss:=sss+'ь' else|40: if _Rnd<0.16 then sss:=sss+'ы' else|42: if _Rnd<0.1801 then sss:=sss+'я' else|42: if _Rnd<0.2063 then sss:=sss+'у' else|42: if _Rnd<0.2344 then sss:=sss+'п' else|42: if _Rnd<0.2642 then sss:=sss+'д' else|42: if _Rnd<0.2963 then sss:=sss+'м' else|42: if _Rnd<0.3312 then sss:=sss+'к' else|42: if _Rnd<0.3752 then sss:=sss+'л' else|42: if _Rnd<0.4206 then sss:=sss+'в' else|42: if _Rnd<0.4679 then sss:=sss+'р' else|42: if _Rnd<0.5226 then sss:=sss+'с' else|42: if _Rnd<0.5852 then sss:=sss+'т' else|42: if _Rnd<0.6522 then sss:=sss+'н' else|42: if _Rnd<0.7257 then sss:=sss+'и' else|42: if _Rnd<0.8058 then sss:=sss+'а' else|42: if _Rnd<0.8903 then sss:=sss+'е' else|34: if _Rnd<1 then sss:=sss+'о'; |9: end;|25: _hi_onEvent(onRes,sss);|4:END;|0:|0:|4:end.|
link(onRes,5810396:doWork2,[])
}
Add(StrCat,15987027,308,42)
{
Point(doClear)
link(Str1,11786390:Var3,[(314,33)(328,33)(328,82)])
}
Add(Hub,6617902,70,28)
{
link(onEvent1,5851490:doStart,[(193,34)(193,48)])
link(onEvent2,13236521:doRandomize,[(95,41)(95,62)])
}
Add(DoData,15697706,308,98)
{
link(onEventData,12993418:doTrim,[])
link(Data,11786390:Var2,[])
}
Add(GetDataEx,11786390,308,77)
{
link(Data,15987027:Result,[])
}
Add(Hub,1010503,203,91)
{
OutCount=3
link(onEvent1,13599394:doData,[(242,97)(242,62)])
link(onEvent2,15697706:doData,[])
link(onEvent3,15987027:doClear,[(298,111)(298,55)])
}
Add(DoData,13599394,252,56)
{
Data=String(. )
link(onEventData,5810396:doWork3,[(291,62)])
}
Add(HubEx,5810396,287,42)
{
link(onEvent,15987027:doStrCat,[])
}
Add(StrCase,1158976,406,98)
{
Type=3
link(onModify,5133224:onEvent1,[(445,104)(445,34)])
}
Add(Trim,12993418,357,98)
{
Char=" "
Mode=4
link(onTrim,1158976:doModify,[])
}
END_SDK
Add(Button,6143650,126,91)
{
Left=5
Top=10
Width=105
Caption="New TEST строк:"
link(onClick,8586217:doEvent1,[])
}
Add(Edit,15639115,203,49)
{
Left=110
Top=10
Text="15"
DataType=2
}
Add(Button,14560658,126,133)
{
Left=20
Top=30
Width=60
Caption="Open *,txt"
link(onClick,11236804:doExecute,[])
}
Add(Button,15170141,126,231)
{
Left=250
Top=10
Width=85
Caption="Save for print"
link(onClick,9383237:onEvent5,[(270,237)(270,55)])
}
Add(Button,683221,126,182)
{
Left=185
Top=10
Caption="View"
link(onClick,9383237:onEvent4,[(263,188)(263,48)])
}
Add(ODialog,11236804,175,133)
{
Filter="Trxt|*.txt"
link(onExecute,11039057:doValue,[])
}
Add(Memory,11039057,217,133)
{
link(onData,9383237:onEvent3,[(256,139)(256,41)])
}
END_SDK
Add(Memo,7819677,301,112)
{
Top=50
Width=391
Height=212
Align=5
Point(onMouseDown)
link(FileName,533421:Var1,[(314,103)(230,103)(230,180)(244,180)])
}
Add(StrList,9723881,343,112)
{
Strings=#7: ООО|7: РОГА|6: И|8: КОПЫТА|
}
Add(ChildForm,6708372,378,196)
{
link(Data1,3345020:Bitmap,[(384,187)(370,187)(370,236)(321,236)])
}
BEGIN_SDK
Add(EditMulti,5755953,21,21)
{
WorkCount=2
DataCount=1
link(doWork1,2423198:doEvent1,[(44,27)(44,69)])
link(doWork2,14525094:doExecute,[(32,34)(32,160)])
}
Add(MainForm,10244017,147,70)
{
Left=35
Top=105
Width=600
Height=600
Visible=1
Position=1
Point(doVisible)
}
Add(Image,16408053,217,63)
{
Left=1
Top=1
Width=400
Height=300
Align=5
link(Bitmap,5755953:Data1,[(223,33)(27,33)])
}
Add(Hub,2423198,56,63)
{
link(onEvent1,16408053:doLoad,[])
link(onEvent2,3144641:doData,[])
}
Add(DoData,3144641,91,70)
{
Data=Integer(1)
link(onEventData,10244017:doVisible,[(137,76)(137,104)])
}
Add(PictureStream,12869330,140,154)
{
link(Bitmap,16408053:ImageBitmap,[(153,117)(223,117)])
}
Add(SDialog,14525094,84,154)
{
Filter="Picture|*.jpg"
link(onExecute,12869330:doSave,[(130,160)(130,167)])
}
END_SDK
Add(MultiElementEx,3345020,315,196)
{
link(ArrText,7819677:Array,[])
link(ArrHeadLine,9723881:Array,[(328,187)(363,187)])
link(onDraw,6708372:doWork1,[])
}
BEGIN_SDK
Add(EditMultiEx,3756140,21,21)
{
WorkCount=#8:doCreate|6:doDraw|
EventCount=#6:onDraw|
VarCount=#6:Bitmap|
DataCount=#7:ArrText|11:ArrHeadLine|
Width=545
Height=403
link(doCreate,9068902:doWork1,[(298,27)])
link(Bitmap,9354808:Var1,[(27,313)])
link(doDraw,14188112:doEvent1,[(39,34)(39,125)])
}
Add(Img_Text,13575827,315,182)
{
Font=[MS Sans Serif,12,0,0,1]
link(onDraw,302144:doData,[(354,188)(354,223)(256,223)(256,251)])
link(Bitmap,5089546:Var2,[])
link(Text,8495500:Item,[(328,173)(349,173)])
}
Add(Bitmap,12758975,315,42)
{
HWidth=400
HHeight=300
FillColor=16777215
Point(doCreate)
Point(HWidth)
Point(HHeight)
link(HWidth,5019582:Result,[(321,26)(461,26)(461,313)(475,313)])
link(HHeight,6539392:Result,[(328,33)(454,33)(454,313)(412,313)])
}
Add(ArrayEnum,8495500,343,126)
{
link(onItem,13575827:doDraw,[(386,132)(386,167)(298,167)(298,188)])
link(onEndEnum,6539392:doCalc,[(389,139)(389,279)])
link(Array,6953790:Var2,[])
}
Add(Hub,14188112,294,119)
{
link(onEvent1,2658552:doClear,[(333,125)(333,118)])
link(onEvent2,8495500:doEnum,[])
}
Add(Memory,2658552,413,105)
{
Default=Integer(0)
}
Add(If_else,14879846,343,245)
{
Type=2
link(onTrue,2658552:doValue,[(396,251)(396,111)])
link(Op2,11730184:Var1,[(356,236)])
}
Add(DoData,302144,266,245)
{
link(onEventData,14879846:doCompare,[])
link(Data,13575827:TextWidth,[(272,229)(321,229)])
}
Add(GetDataEx,11730184,413,231)
{
link(Data,2658552:Value,[])
}
Add(MathParse,6539392,406,273)
{
MathStr="%1*%2+20"
ResultType=0
Default=300
link(onResult,5019582:doCalc,[])
link(X1,13972970:Var3,[(412,229)])
link(X2,8495500:Index,[(419,264)(384,264)(384,180)(356,180)])
}
Add(MathParse,5019582,469,273)
{
MathStr="%1 + 20"
ResultType=0
Default=400
link(onResult,8901878:doEvent1,[])
link(X1,11730184:Var2,[(475,257)(419,257)])
}
Add(HubEx,9068902,294,56)
{
link(onEvent,12758975:doCreate,[])
}
Add(Hub,8901878,511,273)
{
link(onEvent1,9068902:doWork3,[(533,279)(533,151)(298,151)])
link(onEvent2,16444718:doEnum,[(536,286)(536,321)(46,321)(46,363)])
}
Add(ArrayEnum,3454743,231,350)
{
link(onItem,12766806:doCalc,[])
link(onEndEnum,3756140:onDraw,[(543,363)(543,27)])
link(Array,6953790:Var1,[(237,110)])
}
Add(Img_Text,8426338,329,350)
{
X=10
Font=[MS Sans Serif,12,0,0,1]
Point(Y)
link(Bitmap,2111843:Var2,[])
link(Text,3454743:Item,[(342,341)(320,341)(320,408)(237,408)])
link(Y,12766806:Result,[(349,341)(370,341)(370,390)(286,390)])
}
Add(GetDataEx,5089546,315,154)
{
link(Data,12758975:Bitmap,[])
}
Add(MathParse,12766806,280,350)
{
MathStr="%1*%2 + 10"
ResultType=0
link(onResult,8426338:doDraw,[])
link(X1,13972970:Var2,[(286,285)(328,285)])
link(X2,3454743:Index,[(293,341)(272,341)(272,390)(244,390)])
}
Add(GetDataEx,13972970,322,224)
{
link(Data,13575827:TextHeight,[])
}
Add(ArrayEnum,16444718,56,357)
{
link(onItem,7635877:doCalc,[])
link(onEndEnum,3454743:doEnum,[(95,370)(95,342)(220,342)(220,356)])
link(Array,3756140:ArrHeadLine,[(62,348)(34,348)])
}
Add(Img_Text,4163702,168,357)
{
X=50
Font=[MS Sans Serif,72,1,12632256,1]
Point(Y)
link(Bitmap,9354808:Var2,[])
link(Text,16444718:Item,[(181,348)(159,348)(159,415)(62,415)])
link(Y,7635877:Result,[(188,348)(209,348)(209,397)(125,397)])
}
Add(MathParse,7635877,119,357)
{
MathStr="100*%2 + 30"
ResultType=0
link(onResult,4163702:doDraw,[])
link(X2,16444718:Index,[(132,348)(111,348)(111,397)(69,397)])
}
Add(GetDataEx,2111843,329,308)
{
link(Data,5089546:Var1,[(335,159)])
}
Add(GetDataEx,6953790,343,105)
{
link(Data,3756140:ArrText,[(349,96)(27,96)])
}
Add(GetDataEx,9354808,168,308)
{
Angle=1
link(Data,2111843:Var1,[])
}
END_SDK

карма: 19

0