Canvas.Font.Style := Label.Font.Style; не выходит

[ArtGrek]

не применяеца стиль текста от лабела к канве, я что то неправельно делаю или есть другои способ

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.Brush.Style := bsClear;
  Canvas.Font.Color := Label1.Font.Color;
  Canvas.Font.Style := Label1.Font.Style;
  Canvas.Font.Size :=  Label1.Font.Size;
  Canvas.TextOut(0,0,Label1.Caption);
end;]

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

эмм, у вас все св-ва кроме Font.Style
применяются к канве формы, а Font.Style применяется к канве Bitmap

[ArtGrek]

извеняюсь, ет я пока писал здесь намудрил, шас исправил, вот так выглядит код
вот зделал отдельныи проект и рисую на форме, перерисовываю лабел
код в первем посте
-------------------------------------------------------------------------------------
ниужеле никто не знает???

[ArtGrek]

и с етим разобрался

  Canvas.Font.Name := Label1.Font.Name;

меняет шрифт
а я использовал

Canvas.Font.Style := Label1.Font.Style;

снова моя невнимательность (