Смена цвета формы

[Rin]

почему при закрашивании формы любым цветом, а именно
with Form1.Canvas do
begin
Pen.Color:=clgreen;
Brush.Color:=clgreen;
Rectangle (0,0,ClientWidth div 2,ClientHeight div 2);
end;
форма не воспринимает этот цвет?
Проверяю
if Form1.Canvas.Pixels[1,1] =ClGreen then Label1.Caption:='1'
else Label1.Caption:='0';
А делфа на форме, большшШШШШИИИим таким шрифтом,в Label1.Caption выводит "0"! 0_о

[Marsel737]

Rin, а зачем так изощрятся, напиши просто:

Form1.Color:=clGreen;

Тогда и это прекрасно работает, проверял.

if Form1.Canvas.Pixels[1,1] =ClGreen then Label1.Caption:='1'
else Label1.Caption:

[mihali4]

А у меня почему-то все нормально работает (оба варианта, второй под комментом):

procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Canvas.Pen.Color:=clgreen;
Form2.Canvas.Brush.Color:=clgreen;
Form2.Canvas.Rectangle (0,0,ClientWidth div 2,ClientHeight div 2);
//Form2.Canvas.FillRect(Rect(0,0,ClientWidth div 2,ClientHeight div 2));
end;