Как нарисовать число на изображение Delphi 7 - PullRequest
Новая
       5

Как нарисовать число на изображение Delphi 7

3 голосов
/ 22 сентября 2011

У меня есть требование , чтобы нарисовать число на изображении . Это число изменится автоматически. Как мы можем динамически создать изображение в Delphi 7? . Если кто-нибудь знает, пожалуйста, предложите мне.

Ваш Ракеш.

1 Ответ

8 голосов
/ 22 сентября 2011

Вы можете использовать Canvas для TBitmap, чтобы нарисовать текст на изображении

проверить эту процедуру 

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;
...