Зарисовка формы

[beemoto]

Почему неработает этот код?
он должен залить форму черным цветом. другие варианты не предлагать, мне нужен только код и только этот.

for I := 0 to Form1.Width do
  begin
    for I2 := 0 to Form1.Height do
      Form1.Canvas.Pixels[i,i2]:=ClBlack;
  end;

[zver777]

Попробовал только что с этим кодом. У меня работает.

[Пепел Феникса]

рабочий код.

в OnPaint вызывайте. должен работать.

[artemavd]

А че бы сделать не так:

begin
 Form1.Color:=clBlack;
end;

????

[beemoto]

Пепел Феникса, сэнкс.
artemavd, в этом то и проблема-мне этот код нужен для другого, дело в том что webbrowser на форме с включенным у формы свойством GlassFrame сайт открывается ****тым, если у вас винда 7 или виста и дельфи 2010 то рекомендую посмотреть =)
а если ктото знает как с этим справится-ЗАЦЕЛУЮ ДО СМЕРТИ ОТ СЧАСТЬЯ!!! xDDD

[Пепел Феникса]

если на то пошло, лучше создайте черный битмап, и его через BitBlt выводите на фон.