如何放大画布及上的文本? ( 积分: 50 )

S

sysbygszg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-30

• #1

如何放大画布及上的文本?请编一段.

 

S

sysbygszg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-30

• #2

如何放大画布及上的文本?请编一段.

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-09-30

• #3

用TCanvas的StretchDraw，代码就不写了，因为好像都没有结过贴，呵呵
Draws the graphic specified by the Graphic parameter in the rectangle specified by the Rect parameter.

procedure StretchDraw(const Rect: TRect; Graphic: TGraphic);

 

S

sysbygszg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-09

• #4

编一段吧!加分!!

 

S

sysbygszg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-09

• #5

编一段代码吧!加分啊!!

 

F

foxphone2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-10-09

• #6

chenybin给了很多提示，再懒惰就不好了
procedure TForm1.Button1Click(Sender: TObject);
var
t : Trect;
begin
t.Left := 0;
t.Top := 0;
t.Right := 260;
t.Bottom := 260;
Image1.Canvas.Font.Size := 72;
Image1.Canvas.TextRect(t, 10, 10, Edit1.Text);
end;