HiAsm

Форумы Ошибки в компонентах PaintBox ошибка при очистки с размером 0х0 ← Ctrl1Ctrl →

Ответов: 2265

Рейтинг: 676

#1: 2012-02-06 00:53:06 ЛС | профиль | цитата

Если установить PaintBox-у размер 0х0 и очистить то можно получить ошибку. Причем FPC выдает в любом случае, а самизнаетекакойкомпилятор: в схеме 1 - ошибка (Runtime error 216), схема 2 - без ошибки. Разница между схемами 1 и 2 в положении элемента Button передний и задний план.

Схема 1 - ошибка

Add(PaintBox,8385977,406,98)
{
 Left=190
 Top=60
 Width=0
 Height=0
 Color=32768
 Point(doWidth)
 Point(doHeight)
}
Add(MainForm,2953706,252,56)
{
}
Add(Hub,2158578,364,112)
{
 OutCount=3
 link(onEvent1,8385977:doWidth,[])
 link(onEvent2,8385977:doHeight,[])
 link(onEvent3,8385977:doClear,[(392,132)(392,111)])
}
Add(Button,4951918,252,112)
{
 Left=190
 Top=140
 Data=Integer(0)
 link(onClick,2158578:doEvent1,[])
 AddHint(52,7,21,13,Data)
}

Схема 2 - без ошибки


Add(Button,4951918,252,112)
{
 Left=190
 Top=140
 Data=Integer(0)
 link(onClick,2158578:doEvent1,[])
 AddHint(52,7,21,13,Data)
}
Add(PaintBox,8385977,406,98)
{
 Left=190
 Top=60
 Width=0
 Height=0
 Color=32768
 Point(doWidth)
 Point(doHeight)
}
Add(MainForm,2953706,252,56)
{
}
Add(Hub,2158578,364,112)
{
 OutCount=3
 link(onEvent1,8385977:doWidth,[])
 link(onEvent2,8385977:doHeight,[])
 link(onEvent3,8385977:doClear,[(392,132)(392,111)])
}

карма: 11

Форумы Ошибки в компонентах PaintBox ошибка при очистки с размером 0х0 ← Ctrl1Ctrl →