Канва

[Xo66um]

Всем привет.

Сегодня решил разобраться как работать с канвой, и сходу налетел на грабли...
Собственно, такой код:

Form1.Canvas.Rectangle(0, 0, 100, 100);
Form1.Canvas.Brush.Color := clRed;
Form1.Canvas.Brush.Style:= bsSolid;

Но если его повесить на обработчик OnCreate формы - канва вообще не перекрашивается, а в OnPaint только рамка создается.
Также, если повесить на обработчик OnClick кнопки, то надо дважды на нее нажать, чтобы сначала нарисовалась рамка, а потом залилась цветом.

Вопрос: в чем причина? И как с этим бороться?

[Streletz]

Сначала установка всех параметров и только потом вывод на канву.

Form1.Canvas.Brush.Color := clRed;
Form1.Canvas.Brush.Style:= bsSolid;
Form1.Canvas.Rectangle(0, 0, 100, 100);

Работает для OnClick кнопки и OnPaint формы.

[Xo66um]

Ага, минут 5 назад заметил что-то неладное в установке параметров... Не проснулся еще
В общем, разобрался, но все-равно спасибо, Streletz