911画布对象属性(9) 【例9-3】位图的创建和释放,主界面如图9-6所示 →程序代码如下 procedure TForm1. Button 1Click(Sender: TObject var 显示 bitmap1: tbitmap∥定义位图变量 begin 图9-6位图操作 bitmap1:= Tbitmap Create;/创建位图 bitmap1 bitmap1. LoadfromFile(d:} hand. bmp)∥/装入图像文件 form1 Canvas Draw(10,20, bitmap1);/在坐标(10,20)的地方显示图形。 bitmap1Free;/释放位图 end: 4.作图区域 作图区域Rect是 Trect属性中的对象,同时它也是一个函数。它的作用就 是定义一个矩形区域对象。Rect对象用两个 Tpoint类型指明区域范围或者用 四个整型变量定义区域范围。 Inprise Dephi
9.1.1 画布对象属性(９) 【例9-3】位图的创建和释放，主界面如图9-6所示。 程序代码如下： procedure TForm1.Button1Click(Sender: TObject); var bitmap1:tbitmap;//定义位图变量 begin bitmap1:=Tbitmap.Create;//创建位图bitmap1 bitmap1.LoadFromFile('d:\hand.bmp');//装入图像文件 form1.Canvas.Draw(10,20,bitmap1);//在坐标（10，20）的地方显示图形。 bitmap1.Free;//释放位图 end; 4. 作图区域 作图区域Rect是Trect属性中的对象，同时它也是一个函数。它的作用就 是定义一个矩形区域对象。Rect对象用两个Tpoint类型指明区域范围或者用 四个整型变量定义区域范围。 图9-6 位图操作
911画布对象属性(10) 它的调用如下: function Rect(ALeft, ATop, ARight, ABottom Integer): TRect; overload function Rect(constATopLeft, ABottomRight: TPoint): TRect; overload Rect常用的方法有 Rect(x1,y1,x2,y2)∥定义Rec区域范围 Fillrect∥用填充色填充Rect区域 FloodFill∥用填充色填充Rect之外的区域 TextRect∥在Rec对象中显示文本 StretchDraw∥把 Bitmap填充到Rect 【例9-4】Rec对象的方法和属性 图9-7Rect对象操作 →运行后界面如图9-7所示。 (主要代码见本教程P157页) Inprise Dephi
9.1.1 画布对象属性(1０) 它的调用如下： function Rect(ALeft, ATop, ARight, ABottom: Integer): TRect; overload; function Rect(const ATopLeft, ABottomRight: TPoint): TRect; overload; Rect常用的方法有： Rect(x1,y1,x2,y2) //定义Rect区域范围 Fillrect //用填充色填充Rect区域 FloodFill //用填充色填充Rect之外的区域 TextRect //在Rect对象中显示文本 StretchDraw //把Bitmap填充到Rect 【例9-4】 Rect对象的方法和属性 运行后界面如图9-7所示。 (主要代码见本教程P157 页） 图9-7 Rect 对象操作
912字体(1) 字体本身也有很多的属性,下面进行简单的介绍。 1. Height字高 先来看一个程序界面,如图9-8所示 x 主要的代码如下: 我的 HEIGHT为-18 我的 HEIGHT procedure TForm1. Button1Click (Sender: Tobject begin Canvas. Font Height: =-18 图98字体 Height Canvas. Textou(20,30我的 HEIGHT为-18); 属性 Canvas. Font Height: =18 Canvas Textou(40,60我的 HEIGHT为18); end 2.Size字号 字号对于你来说肯定不会陌生的,在任何字编辑软件中都会使用它 它的设置一般为 canvas font. size=<整型值>;如 canvas. Font size:=10; 3.Name名称属性 这个属性中包含了字体的名称:比如宋体、仿宋、楷体gb2312等 字体的名字。 Inprise Dephi
9.1.2 字体(1) 1. Height字高 先来看一个程序界面，如图9-8所示。 主要的代码如下： procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Font.Height:=-18; Canvas.TextOut(20,30,'我的HEIGHT为-18'); Canvas.Font.Height:=18; Canvas.TextOut(40,60,'我的HEIGHT为18'); end; 2. Size字号 字号对于你来说肯定不会陌生的，在任何字编辑软件中都会使用它。 它的设置一般为canvas.font.size=<整型值>; 如 canvas.Font.Size:=10; 3. Name名称属性 这个属性中包含了字体的名称：比如宋体、仿宋、楷体_gb2312等 字体的名字。 字体本身也有很多的属性，下面进行简单的介绍。 图9-8 字体Height 属性