왕초보 wrote:

> 안녕하세요..

> 다름이 아니라 bmp화일에 문자(text)를 넣을려고 해요

> 방법좀 부탁드립니다.(코딩좀 부탁드립니다)

> 그럼....

///////////////////////////////////////////////////////

예전에 썼던건데요 참조하세요, 그림중앙에 써지는겁니다.

> ///////////////////////////////////////////////////////

> 아래처럼 계산해도되는데요, 더종은 방법도 있을듯합니다.

> procedure TForm1.Button1Click(Sender: TObject);

> var

> Bmp: TBitmap;

> xx, yy : integer;

> str : string;

> begin

> Bmp := TBitmap.Create;

> Bmp.LoadFromFile('D:참고자료아이콘아이콘모음모음88전차2.bmp');

> Bmp.Canvas.Brush.Style := bsClear;

> str := '원하는문자열';

> xx := Round(Bmp.Width/2 - Bmp.Canvas.TextWidth(str)/2);

> yy := Round(Bmp.Height/2 - Bmp.Canvas.TextHeight(str)/2);

> Bmp.Canvas.TextOut(xx,yy,str);

> Image1.Picture.Bitmap := Bmp;

> SpeedButton1.Glyph := Bmp;

> Bmp.FreeImage;

> end;