帆布填充文本

Question

如何填寫第二個窗體的TImage的畫布上的文本從點擊主窗體上的按鈕？ 我試了幾次，但畫布保持空白。

我嘗試：

Form2.Image1.Canvas.BeginScene; 
Form2.Image1.Canvas.Font.Size:=18; 
Form2.Image1.Canvas.Font.Family:='Arial'; 
Form2.Image1.Canvas.Fill.Color:=claBlack; 
Form2.Image1.Canvas.Font.Style:=[TFontStyle.fsbold]; 
Form2.Image1.Canvas.FillText(TRectF.Create(4,70,70,200),'Hello',true,1,[TFillTex‌​tFlag.RightToLeft], TTextAlign.Leading, TTextAlign.Leading); 
Form2.Image1.Canvas.EndScene; 

Answer 1

使用的TImage與firemonkey，你將不得不創建或加載位圖前就能作畫。

Form2.Image1.Bitmap.Create(Round(Form2.Image1.width),Round(Form2.Image1.height)); 
With Form2.Image1.Bitmap.Canvas do 
    begin 
    BeginScene; 
    Font.Size:=18; 
    Font.Family:='Arial'; 
    Fill.Color:=TAlphaColors.Black; 
    Font.Style:=[TFontStyle.fsbold]; 
    FillText(TRectF.Create(4,70,70,200),'Hello',true,1,[TFillTextFlag.ftRightToLeft], TTextAlign.taLeading,TTextAlign.taCenter); 
    EndScene; 
    end;