Сейчас компилятор fpc от 161 билда.
Уже в нескольких версиях пытаюсь запускать, работает, но появляются какие-то левые ошибки "Runtime Error 216" и узкое окно на весь экран. И так на каждую картинку...
Что я делаю не так? Как избавиться от этих ошибок?
Add(MainForm,709490,14,7)
{
Left=20
Top=105
Caption="ViewPictures"
link(onActivate,16243288:doWork1,[(75,13)(75,13)])
link(onDeactivate,16243288:doWork2,[(75,20)(75,20)])
link(onCreate,16243288:doWork3,[(75,48)(75,27)])
}
Add(ChildPanel,16243288,105,7)
{
}
BEGIN_SDK
Add(EditMulti,4460087,3,36)
{
WorkCount=5
VarCount=1
Width=286
Height=116
link(doWork1,7480935:Load,[(36,42)(36,46)])
link(doWork2,7480935:Save,[(36,49)(36,53)])
link(doWork3,7480935:Init,[(36,56)(36,60)])
link(doWork4,5190971:doText,[(7,63)(7,108)])
link(Var1,3558587:Text,[(9,140)(209,140)])
}
Add(Panel,12841095,7,180)
{
Width=392
Height=82
Align=2
Point(doColor)
}
Add(MultiElementEx,7480935,70,40)
{
link(outPath,16498921:doWork2,[(131,46)(131,104)])
}
BEGIN_SDK
Add(EditMultiEx,3878524,3,3)
{
WorkCount=#4:Load|4:Save|4:Init|6:inPath|
EventCount=#7:outPath|
Width=286
Height=158
link(Load,7990882:doRead,[(34,9)(34,125)])
link(Save,7990882:doWrite,[(24,16)(24,132)])
link(Init,8127300:doPart,[(15,23)(15,69)])
link(inPath,10847142:doData,[(85,30)(85,27)])
}
Add(Ini,7990882,147,119)
{
Section="Params"
Key="Path"
Type=1
link(onResult,3878524:outPath,[(234,125)(234,9)])
link(FileName,9115459:GetData,[])
link(Value,10847142:GetData,[])
}
Add(StrCat,8198204,91,70)
{
Str2=".INI"
link(onStrCat,9115459:doData,[(138,76)(138,76)])
}
Add(FilePart,8127300,42,63)
{
link(onName,8198204:doStrCat,[])
link(FileName,9120574:AppFileName,[(48,55)(48,55)])
}
Add(Application,9120574,42,7)
{
}
Add(EventFromData,9115459,147,70)
{
}
Add(EventFromData,10847142,168,21)
{
}
Add(InfoTip,8196888,7,168)
{
Info=#47:÷èòàåò è óñòàíàâëèâàåò êëþ÷ Path â .INI - ôàéëå|
Width=281
Height=67
}
END_SDK
Add(Edit,3558587,203,96)
{
Left=110
Top=15
Width=250
link(onChange,7480935:inPath,[(245,102)(245,84)(60,84)(60,67)])
}
Add(HubEx,16498921,161,91)
{
link(onEvent,3558587:doText,[(186,104)(186,102)])
}
Add(Browse,5126593,210,42)
{
link(onBrowse,16498921:doWork1,[(266,48)(266,88)(165,88)])
}
Add(Button,6785324,147,40)
{
Left=365
Top=17
Width=20
Height=18
Caption="V"
link(onClick,5126593:doBrowse,[(194,46)(194,48)])
}
Add(Label,5190971,33,102)
{
Left=125
Top=50
Width=45
}
END_SDK
Add(Image,12382914,427,168)
{
Left=300
Top=145
Align=5
}
Add(ListBox,12935544,217,161)
{
Left=35
Top=100
Width=150
Height=135
Align=1
DataType=1
link(onClick,2088619:doString,[(260,174)(260,178)])
}
Add(Splitter,2023995,168,252)
{
Left=110
Top=235
Width=5
Align=1
}
Add(ComboBox,5121589,14,63)
{
Left=10
Top=45
Width=85
Height=21
Strings=#5:*.JPG|6:*.JPEG|5:*.BMP|5:*.GIF|5:*.PNG|1:*|
}
Add(FileSearch,13088241,124,137)
{
FullName=1
link(onSearch,12935544:doAdd,[(186,143)(186,167)])
link(onEndSearch,696579:doConvert,[(166,150)(166,178)(114,178)(114,199)])
link(Ext,5121589:String,[(130,120)(34,120)])
link(Dir,1248515:Data1,[(137,117)(118,117)])
}
Add(Button,9641633,12,172)
{
Left=10
Top=15
Caption="Èñêàòü"
link(onClick,3995722:doEvent1,[])
}
Add(Hub,3533309,320,172)
{
link(onEvent1,10687170:doLoad,[])
link(onEvent2,10812659:doText,[(357,185)(357,223)])
}
Add(FormatStr,2088619,271,172)
{
Mask="%2\%1"
link(onFString,3533309:doEvent1,[])
link(Str2,1248515:Data2,[(284,110)(125,110)])
}
Add(Convertor,696579,124,193)
{
link(onResult,16243288:doWork4,[(166,199)(166,114)(86,114)(86,34)])
link(Data,13088241:Count,[])
}
Add(Hub,3995722,54,172)
{
link(onEvent1,12935544:doClear,[(151,178)(151,174)])
link(onEvent2,13088241:doSearch,[(105,185)(105,143)])
}
Add(PictureStream,10687170,376,172)
{
link(onLoad,12382914:doLoad,[(417,178)(417,174)])
}
Add(GetData,1248515,112,70)
{
link(Data,16243288:Var1,[(118,55)(111,55)])
}
Add(Label,10812659,376,217)
{
Left=175
Top=50
Width=205
}