Вверх ↑
Этот топик читают: Гость
Ответов: 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

0
Ответов: 3889
Рейтинг: 362
#2: 2012-02-06 00:59:41 ЛС | профиль | цитата
Вылетает в KOL, процедура TGraphicTool.SetBrushStyle, строка 14416:


#pas
if fData.Brush.Style = Value then Exit;
карма: 1

0
Разработчик
Ответов: 26149
Рейтинг: 2127
#3: 2012-02-06 01:02:13 ЛС | профиль | цитата
Исправлено
------------ Дoбавленo в 01.02:
1nd1g0 писал(а):
Вылетает в KOL, процедура TGraphicTool.SetBrushStyle

Все правильно -- какая к черту канва на пустом битмапе ?

[offtop]Опять что-то творится с сервером графики, ни одна иконка форума не отображается[/offtop]
карма: 22

1
Голосовали:sla8a
3
Сообщение
...
Прикрепленные файлы
(файлы не залиты)