почему канва не рисует на компонентах?

[BLACK_RAIN]

Здравствуйте.
Почему канва ничего не рисует на компонентах?

procedure TForm1.FormCreate(Sender: TObject);
begin
  canv := TCanvas.Create;
  canv.Brush.Color := clBlue;
  canv.Handle := GetDC(panel1.Handle);
  canv.Font.Color := clRed;
  canv.Font.Size := 30;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  canv.FloodFill(0,0,clRed,fsSurface);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  canv.Free;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  canv.FloodFill(0,0,clRed,fsSurface);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  canv.FillRect(panel1.ClientRect);
//  canv.TextOut(4,4,'ooooooo');

end;

TextOut() работает, а FloodFill и FillRect нет. Кроме того, собственная канва формы (form1.canvas) тоже никак не реагирует на FloodFill и FillRect.
Формы VCL давно не юзал. Может, всё правильно? Должны ли вообще работать FloodFill и FillRect приминительно к VCL-компонентам?

[Stilet]

Потому что ты нигде не вызываешь методы рисования на компонентах )
TCanvas это невидимый холст, на который наносится рисунок, но за отображение на экране он не отвечает.

[BLACK_RAIN]

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

TCanvas это невидимый холст, на который наносится рисунок, но за отображение на экране он не отвечает.

А разве присвоение канве HDC панели не достаточно? Как же тогда отобразить нарисованное?

[Stilet]

Как же тогда отобразить нарисованное?

Методом CopyRect например.

Form1.Canvas.CopyRect(Form1.ClientRect,canv,rect(0,0,canv.Width,canv.Height));

[BLACK_RAIN]

и вот еще проблема.
в OnPaint() формы рисую текст на панели через canv.TextOut(); Если проходить дебаггером при первом запуске, текст видно. Жмем F9 - текст пропадает до следующей перекраски. То есть, при первом запуске текст не видно.

[Stilet]

Что тут можно сказать?...
Код в студию.

[BLACK_RAIN]

procedure TForm1.FormCreate(Sender: TObject);
begin

  canv := TCanvas.Create;
  canv.Brush.Color := clBtnFace;
  canv.Handle := GetDC(Panel1.Handle);
  canv.Font.Color := clRed;
  canv.Font.Size := 20;
end;

procedure TForm1.FormPaint(Sender: TObject);
var
  i : Byte;
  x : SmallInt;
begin
  x := 4;
  for i := 0 to 9 do
  begin
    canv.TextOut(x,20, IntToStr(i));
    inc(x,canv.TextWidth('X')*2);
  end;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  canv.Free;
end;

при первом запуске текст не видно.

[Stilet]

А его и не должно быть видно )
Ты canv нигде не рисуешь на экране.
Еще раз повторю: TCanvas - холст невидимый, и сам себя рисовать не умеет.
Я выше показал, как на форму перенести содержимое канвы.

[BLACK_RAIN]

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

А его и не должно быть видно )
Ты canv нигде не рисуешь на экране.
Еще раз повторю: TCanvas - холст невидимый, и сам себя рисовать не умеет.
Я выше показал, как на форму перенести содержимое канвы.

но ведь при следующей перекраске текст САМ отображается. Например, если начать изменять размер окна мышкой.

[Stilet]

при следующей перекраске текст САМ отображается.

Привязка то у тебя к DC канвы панели есть, но позволь спросить: А зачем тебе тогда отдельная канва? Разве у панели нет своей канвы?