[rubius2008]

Сообщение от roamer

А Вы не могли бы, если не трудно, показать код (где перерисовка).
Может там надо просто что-то вроде Invalidate сделать.

На ресайзинг формы написал следующий код

Код:

 
 if  ClientWidth<640 then Fill2DrawX1:=640 else Fill2DrawX1:=ClientWidth;
 if  ClientHeight<480 then Fill2DrawY1:=480 else Fill2DrawY1:=ClientHeight;

 Fill2DrawX2:=Fill2DrawX1;        Fill2DrawY2:=Fill2DrawY1;
 Fill2DrawX1:=Fill2DrawX1 div 2; Fill2DrawY1:=20;

 //Очищается форма
 Canvas.Pen.Color:=Color;
 Canvas.Brush.Color:=Color;
 Canvas.Rectangle(0,0,ClientWidth,ClientHeight);


 //Рисуется прямоугольник - область рисования
 Canvas.Pen.Color:=clBlack;
 Canvas.Brush.Color:=clWhite;
 Canvas.Rectangle(Fill2DrawX1,Fill2DrawY1,Fill2DrawX2,Fill2DrawY2);

Может это не правильный вариант - закрашивать прямоугольником форму?