100分,如何生成一个bmp位图(100分)

  • 主题发起人 主题发起人 kmwap
  • 开始时间 开始时间
K

kmwap

Unregistered / Unconfirmed
GUEST, unregistred user!
我有三个字“ABC”如何生成一个bmp图片,72*14的白底黑字,有没代码看看???
 
我想知道
 
哈哈:
我有一个这样的控件!
条件:介绍一个API,是关于Windows图片操作的
 
Image1.Width :=72;
Image1.Height :=14 ;
Image1.Canvas.Brush.Color := clWhite ;
Image1.Canvas.Pen.Color := clBlack ;
Image1.Canvas.TextOut(0,0,'ABC');
Image1.Picture.SaveToFile ('d:/aa.bmp');
 
var
bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.Width:=72;
bmp.Height:=14;
bmp.Canvas.TextOut(0,0,'ABC');
bmp.SaveToFile('c:/123.bmp');
end;
 
楼上的方法虽然可以实现,但ABC在图片的一侧,不能充满整个图片,不知道楼主的意思是不
想把ABC充满整个图片?
 
你可以直接画图,呵呵,不过,要是上面他们说的可以的话,我的就太麻烦了
如果不可以,我再给你贴
 
用这个程序,可以充满整个图片
procedure TForm1.Button1Click(Sender: TObject);
var
bmp1,bmp2:TBitmap;
begin
bmp1:=TBitmap.Create;
with Bmp1 do
begin
Width:= Canvas.TextWidth('ABC');
Height:= Canvas.TextHeight('ABC');
Canvas.TextOut(0,0,'ABC');
end;
bmp2:=TBitmap.Create;
with bmp2 do
begin
Width := 72;
Height := 14;
Canvas.CopyRect(Rect(0,0,72,14),bmp1.Canvas,Rect(0,0,Bmp1.Width,bmp1.Height));
SaveToFile('c:/123.bmp');
end;
bmp1.Free;
bmp2.Free;
end;
 
loadbitmapname();
 
谢谢大伙啦!
 
哪有人知道如何转变过来么?我想那就是真正高手了。有么?
 
后退
顶部