code_8345.txt
------------ Дoбавленo:
вот подправил, теперь можно вставлять 5 смайлов в строку
#sha
Make(delphi)
Add(MainForm,62826,7,7)
{
Left=20
Top=105
Height=276
BorderStyle=4
}
Add(RichEdit,4970890,259,147)
{
Width=395
Height=210
Ctl3D=1
ScrollBars=2
HideFrames=0
Point(doAddBitmap)
Point(doSetSelect)
Point(doSetSelStart)
Point(doSetSelLength)
}
Add(Edit,8347365,56,140)
{
Left=20
Top=230
Width=350
Text=""
}
Add(Button,5538076,14,182)
{
Left=370
Top=230
Width=25
Caption=">>"
link(onClick,2708497:doData,[])
}
Add(Hub,2280677,98,182)
{
link(onEvent1,4970890:doAdd,[(200,188)(200,153)])
link(onEvent2,12522182:doSearch,[(194,195)(194,251)])
}
Add(DoData,6678135,399,294)
{
Data=Integer(2)
link(onEventData,4970890:doSetSelLength,[(443,300)(443,235)(241,235)(241,209)])
}
Add(Image,5640870,147,98)
{
Top=230
Width=20
Picture=[ZIP7606000078DABD542D53C340103D6622221015880A04921FC0A03B6898A989E007202310FC84880A24223FA0A622D3A9A8402010151115880844454504A2A2A2A2E678EFF67AF968D31686E16637BD64F7EDC7BBBDDEDCE59E32EB1A7A093DB37AA2DAE6FBD0DACB4BFFF5F23B414D8E4479B7A1F7D857BD54C539259AE2D5EFDCEF8F00072F8C55FF4B8D166ABCE49332B3411EE22638802A4A0899AC20ADCF35E4345BFBE9CA7F3771007F7A85DB76A904BE2D153CD355EBAA53139A007F996F67478F02442278B667FA22A79CCF29AC41E06827CEE15C4FBA01C259804E0AF89870435D5060075913D0C1C581A9A369053BB1497702456C6AD3B5638CD894C44A77742B05717B38C08D65C77925EF682658DBDD7E6C2FAD60A304354BDE9D58E997D8D1A2CC15CFA81B7A1F6B1C8DC33AD2640F13B1181BF0DC0DB7670356818BBFEBBD483A5ED6921633694E4AB2B8FA6D4600311BCF69F348070C2B43B29967F4C25291318C0F5DA500ED70CC06995C0A6EA2041F8FBFC5BFB8FB3F5AE5FF2E4E1A4A243764893499DF8DF29D3610A7C19C06752C51AB3D8B7690A8C1A2C18244A3DC834A0D5634C8D460F360AC4A4C0C0AB834F59A1854EEF18DB66363D5E3EE52F58FEB1B71E8825C]
}
Add(DoData,9893390,147,182)
{
Data=Real(0)
link(onEventData,4970890:doAddBitmap,[])
link(Data,5640870:ImageBitmap,[])
}
Add(Position,12522182,259,245)
{
Target="=)"
StartPos=0
link(onSearch,2735828:doText,[])
link(Str,4970890:Text,[])
}
Add(DoData,2708497,56,182)
{
link(onEventData,2280677:doEvent1,[])
link(Data,8347365:Text,[])
}
Add(Edit,2735828,308,245)
{
Left=305
Top=210
Width=90
Text=""
link(onChange,3688215:doOperation,[(352,251)(352,272)(296,272)(296,293)])
link(Str,12522182:Position,[(314,232)(299,232)(299,289)(265,289)])
}
Add(Math,3688215,308,287)
{
OpType=1
Op2=1
link(onResult,1431003:doEvent1,[])
link(Op1,2735828:Text,[])
}
Add(Hub,1431003,350,287)
{
OutCount=3
link(onEvent1,4970890:doSetSelStart,[(394,293)(394,247)(247,247)(247,202)])
link(onEvent2,6678135:doData,[])
link(onEvent3,9893390:doData,[(394,307)(394,247)(135,247)(135,188)])
}