Вверх ↑
Ответов: 1925
Рейтинг: 172
#1: 2016-09-26 21:00:52 ЛС | профиль | цитата
Вот такая неожиданность вывалилась:


Add(MainForm,2953706,259,266)
{
Position=1
link(onCreate,8759606:doDraw,[])
}
Add(PaintBox,11955270,336,196)
{
Width=392
Height=175
Align=5
Color=-16777196
}
Add(Img_Ellipse,8759606,336,280)
{
Point2=6553700
Style=4
BgColor=65280
link(onDraw,11955270:doRefresh,[(380,286)(380,244)(324,244)(324,202)])
link(Bitmap,11955270:Bitmap,[])
}

Стоит изменить размер формы - всё стирается. А дело всё в коде:

procedure THIPaintBox._OnResize;
begin
Bmp.Width := control.Width;
Bmp.Height := Control.Height;
inherited;
end;

Стоит это считать за недочёт или так всё же должно и быть?
карма: 9
0