zoukankan      html  css  js  c++  java
  • 画图学习 [5] TextRect

    unit Unit1;

    interface

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

    type
    TForm1
    = class(TForm)
    btn1: TButton;
    btn2: TButton;
    btn3: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    var
    Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.btn1Click(Sender: TObject);
    const
    s:
    string = 'LJj的Delphi博客';
    r: TRect
    = (Left:0; Top:0; Right:60; Bottom:60);
    begin
    Canvas.Brush.Color :
    = clWhite;
    Canvas.FillRect(r);
    Canvas.TextRect(r,
    10, 10, s);
    end;

    procedure TForm1.btn2Click(Sender: TObject);
    var
    r: TRect;
    s:
    string;
    begin
    r :
    = ClientRect;
    InflateRect(r,
    -100, -10);

    s :
    = 'LJj的Delphi博客';
    Canvas.Brush.Color :
    = clYellow;
    Canvas.FillRect(r);
    Canvas.TextRect(r,s);

    end;

    procedure TForm1.btn3Click(Sender: TObject);
    var
    r: TRect;
    s:
    string;
    begin
    r.Left :
    = 350;
    r.Top :
    = 10;
    r.Right :
    = 720;
    r.Bottom :
    = 100;

    s :
    = 'LJj的Delphi博客';
    Canvas.Brush.Color :
    = clGreen;
    Canvas.FillRect(r);
    Canvas.TextRect(r, s, [tfCenter, tfVerticalCenter, tfSingleLine]);
    end;

    end.

    TextRect(
       var Rect: TRect;             {矩形范围}
      var Text: string;            {文本}
      TextFormat: TTextFormat = [] {选项; 集合类型, 默认值是个空的集合}
    );

    {参数三是 TTextFormat 类型的集合, 它定义如下:}
    TTextFormat = set of TTextFormats;

    {TTextFormats 是个枚举, 定义如下}
    TTextFormats = (tfBottom, tfCalcRect, tfCenter, tfEditControl, tfEndEllipsis,
      tfPathEllipsis, tfExpandTabs, tfExternalLeading, tfLeft, tfModifyString,
      tfNoClip, tfNoPrefix, tfRight, tfRtlReading, tfSingleLine, tfTop,
      tfVerticalCenter, tfWordBreak);

    {所以参数三可以是下列值之一或它们的组合}
    tfBottom         
    tfCalcRect
    tfCenter
    tfEditControl
    tfEndEllipsis
    tfPathEllipsis
    tfExpandTabs
    tfExternalLeading
    tfLeft
    tfModifyString
    tfNoClip
    tfNoPrefix
    tfRight
    tfRtlReading
    tfSingleLine
    tfTop
    tfVerticalCenter
    tfWordBreak

  • 相关阅读:
    解决table边框圆角无效
    xdebug var_dump()输出来源的问题
    PHP Sessions
    CSS :first-child 选择器
    git rebase与 git合并(error: failed to push some refs to)解决方法
    sgu 104 Little shop of flowers 解题报告及测试数据
    Spring-2-H Array Diversity(SPOJ AMR11H)解题报告及测试数据
    Spring-2-J Goblin Wars(SPOJ AMR11J)解题报告及测试数据
    Spring-2-B Save the Students(SPOJ AMR11B)解题报告及测试数据
    Spring-2-A Magic Grid(SPOJ AMR11A)解题报告及测试数据
  • 原文地址:https://www.cnblogs.com/ljjphysics/p/2059998.html
Copyright © 2011-2022 走看看