读书人

Image控件里画了一个方框然后再把字

发布时间: 2012-03-18 13:55:39 作者: rapoo

Image控件里画了一个方框,然后再把字画在这个方框里,怎么搞?
RT
方框的左上角和右下角坐标都知道了,画字的时候最好不要让方框消失

[解决办法]
什么叫画字,你把具体流程描述清楚
[解决办法]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
self.Image1.Canvas.Rectangle(0,0,100,100);
self.Image1.Canvas.TextOut(45,45,'哈哈');
end;

end.

[解决办法]
用Image1.Canvas.TextWidth判断你要写的文字的总长度,然后根据长度折叠显示
[解决办法]
在IMAGE的另一个区域再次画字的时候前一个区域的字照样要再画一次。
[解决办法]
OnPaint

读书人网 >.NET

热点推荐