Вверх ↑
Ответов: 1536
Рейтинг: 176
#1: 2016-11-16 21:06:24 ЛС | профиль | цитата
sashaoli писал(а):
а вот так

Предвидя вопрос об ошибке:


Add(MainForm,11466137,126,231)
{
Width=640
Height=653
Caption="Encode images in base64"
}
Add(Button,9424194,126,175)
{
Left=55
Top=10
Width=130
Height=55
Caption="Открыть файл и\r\nкодировать в\r\nBASE64"
link(onClick,2484627:doExecute,[])
}
Add(StreamConvertor,11798362,308,182)
{
Mode=6
link(onResult,6356649:doCharset,[])
}
Add(Charset,6356649,357,182)
{
Type=5
link(onCharset,13163268:doEnum,[])
}
Add(ODialog,2484627,175,175)
{
Filter="Рисунки|*.gif;*.png;*.bmp;*,jpg"
link(onExecute,8909175:doEvent1,[])
}
Add(FileStream,12129419,259,182)
{
link(onLoad,11798362:doConvert,[])
}
Add(Hub,8909175,224,175)
{
OutCount=5
link(onEvent1,7998532:doEvent1,[(249,181)(249,167)])
link(onEvent2,12129419:doOpen,[])
link(onEvent3,12129419:doClose,[])
link(onEvent5,9898295:doPart,[(249,209)(249,321)])
}
Add(Str_Enum,13163268,406,182)
{
Delimiter=""
Step=76
OnlyDivGroup=1
link(onEnum,3869885:doAdd,[])
}
Add(HilightMemo,3914806,630,301)
{
Left=15
Top=75
Width=595
Height=240
Font=[Courier New,8,0,0,1]
HilightFont=[Courier New,8,0,0,1]
ReadOnly=0
AutoFocus=1
}
Add(CheckBox,13140747,420,245)
{
Left=225
Top=25
Width=145
Caption="Заключить в тег <img> "
link(onCheck,7696315:doWork1,[(459,251)(459,237)(389,237)])
}
Add(FormatStr,7362887,490,322)
{
DataCount=4
Mask="<img src="data:image/%1;base64,\r\n%2">"
link(onFString,13084304:doEvent2,[])
link(Str1,9898295:Part,[(496,305)(464,305)(464,362)(314,362)])
}
Add(FilePartElm,9898295,308,315)
{
Mode=4
Point(Part)
link(onPart,7696315:doWork2,[])
}
Add(StrList,3869885,483,182)
{
}
Add(IndexToChanel,11882877,420,315)
{
Point(Index)
Point(Data)
link(onEvent1,13084304:doEvent1,[])
link(onEvent2,7362887:doString,[])
link(Index,13140747:Checked,[])
link(Data,3869885:Text,[(433,285)(489,285)])
}
Add(HubEx,7696315,385,315)
{
link(onEvent,11882877:doEvent,[])
}
Add(WebBrowser,14400621,581,287)
{
Left=15
Top=330
Width=595
Height=275
Point(doFromText)
}
Add(Hub,13084304,546,315)
{
InCount=2
link(onEvent1,14400621:doFromText,[])
link(onEvent2,3914806:doText,[])
}
Add(Img_Loader,13453601,616,161)
{
link(onLoad,7921384:doLoad,[])
}
Add(Hub,7998532,448,161)
{
OutCount=3
link(onEvent1,13453601:doLoad,[])
link(onEvent2,1847423:doString,[])
link(onEvent3,3869885:doClear,[(473,181)(473,195)])
}
Add(Bitmap,7921384,665,161)
{
Point(Width)
Point(Height)
}
Add(FormatStr,1847423,532,168)
{
Mask="оригинальний размен: ширина - %1 высота - %2"
link(Str1,3199984:getVar,[])
link(Str2,3344557:getVar,[])
}
Add(LineBreakEx,12121582,672,231)
{
Caption="W"
Type=3
link(_Data,7921384:Width,[])
}
Add(LineBreakEx,6400811,679,210)
{
Caption="H"
Type=3
link(_Data,7921384:Height,[])
}
Add(LineBreakEx,3199984,532,119)
{
Caption="W"
Type=2
}
Add(LineBreakEx,3344557,539,140)
{
Caption="H"
Type=2
}
Add(StyleXP,6850144,126,280)
{
}
Add(Button,366583,567,371)
{
Left=405
Top=15
Width=130
Height=50
Caption="Копировать в буфер"
link(onClick,2103980:doData,[])
}
Add(Clipboard,4801570,686,371)
{
}
Add(DoData,2103980,630,371)
{
link(onEventData,4801570:doPutText,[])
link(Data,3914806:Text,[])
}
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0