如何繪製一個數字到圖像德爾福7

Question

我有一個要求繪製一個數字到圖像。這個數字會自動改變，我們可以在Delphi 7中動態地創建一個圖像嗎？ 。如果有人知道請給我建議。

您的Rakesh。

Answer 1

您可以使用TBitmap的Canvas屬性來繪製文本圖像中

檢查此過程

procedure GenerateImageFromNumber(ANumber:Integer;Const FileName:string); 
Var 
    Bmp : TBitmap; 
begin 
    Bmp:=TBitmap.Create; 
    try 
    Bmp.PixelFormat:=pf24bit; 
    Bmp.Canvas.Font.Name :='Arial';// set the font to use 
    Bmp.Canvas.Font.Size :=20;//set the size of the font 
    Bmp.Canvas.Font.Color:=clWhite;//set the color of the text 
    Bmp.Width :=Bmp.Canvas.TextWidth(IntToStr(ANumber));//calculate the width of the image 
    Bmp.Height :=Bmp.Canvas.TextHeight(IntToStr(ANumber));//calculate the height of the image 
    Bmp.Canvas.Brush.Color := clBlue;//set the background 
    Bmp.Canvas.FillRect(Rect(0,0, Bmp.Width, Bmp.Height));//paint the background 
    Bmp.Canvas.TextOut(0, 0, IntToStr(ANumber));//draw the number 
    Bmp.SaveToFile(FileName);//save to a file 
    finally 
    Bmp.Free; 
    end; 
end; 

而且使用這樣

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    GenerateImageFromNumber(10000,'Foo.bmp'); 
    Image1.Picture.LoadFromFile('Foo.Bmp');//Image1 is a TImage component 
end;