GVKun编程网logo

Delphi 的绘图功能[9] - TextRect（delphi画图）

12

针对Delphi的绘图功能[9]-TextRect和delphi画图这两个问题，本篇文章进行了详细的解答，同时本文还将给你拓展Delphi与DirectX之DelphiX(10):TPictureCo

针对Delphi 的绘图功能[9] - TextRect和delphi画图这两个问题，本篇文章进行了详细的解答，同时本文还将给你拓展Delphi 与 DirectX 之 DelphiX(10): TPictureCollectionItem.StretchDraw - 绘制到指定矩形、Delphi 与 DirectX 之 DelphiX(12): TPictureCollectionItem.DrawAlpha、Delphi 与 DirectX 之 DelphiX(13): TPictureCollectionItem.DrawRotate、Delphi 与 DirectX 之 DelphiX(14): TPictureCollectionItem.DrawRotate...等相关知识，希望可以帮助到你。

本文目录一览：

Delphi 的绘图功能[9] - TextRect（delphi画图）

Delphi 的绘图功能[9] - TextRect（delphi画图）

总结

以上是小编为你收集整理的Delphi 的绘图功能[9] - TextRect全部内容。

如果觉得小编网站内容还不错，欢迎将小编网站推荐给好友。

Delphi 与 DirectX 之 DelphiX(10): TPictureCollectionItem.StretchDraw - 绘制到指定矩形

Delphi 与 DirectX 之 DelphiX(10): TPictureCollectionItem.StretchDraw - 绘制到指定矩形


本例效果图:


代码文件: 
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    DXImageList1: TDXImageList;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  PicItem: TPictureCollectionItem;

procedure TForm1.FormCreate(Sender: TObject);
const
  ImgPath1 = ''C:\Temp\DelphiX.bmp'';
begin
  DXImageList1.DXDraw := DXDraw1;
  PicItem := TPictureCollectionItem(DXImageList1.Items.Add);
  PicItem.Picture.LoadFromFile(ImgPath1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DXDraw1.Surface.Fill(0);
  PicItem.StretchDraw(DXDraw1.Surface, DXDraw1.Surface.ClientRect, 0);
  DXDraw1.Flip;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  r: TRect;
begin
  r.Left := (DXDraw1.Width - PicItem.Width) div 2;
  r.Top := (DXDraw1.Height - PicItem.Height) div 2;
  r.Right := r.Left + PicItem.Width;
  r.Bottom := r.Top + PicItem.Height;

  DXDraw1.Surface.Fill(0);
  PicItem.StretchDraw(DXDraw1.Surface, r, 0);
  DXDraw1.Flip;
end;

end.

Delphi 与 DirectX 之 DelphiX(12): TPictureCollectionItem.DrawAlpha

Delphi 与 DirectX 之 DelphiX(12): TPictureCollectionItem.DrawAlpha


本例效果图:


代码文件: 
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    DXImageList1: TDXImageList;
    TrackBar1: TTrackBar;
    procedure FormCreate(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  PicItem: TPictureCollectionItem;

procedure TForm1.FormCreate(Sender: TObject);
const
  ImgPath1 = ''C:\Temp\DelphiX.bmp'';
begin
  DXImageList1.DXDraw := DXDraw1;
  PicItem := TPictureCollectionItem(DXImageList1.Items.Add);
  PicItem.Picture.LoadFromFile(ImgPath1);

  TrackBar1.Max := 255;
  TrackBar1.Min := 0;
  TrackBar1.Height := 22;
  TrackBar1.ShowSelRange := False;
  TrackBar1.Align := alBottom;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  r: TRect;
begin
  r := Bounds((DXDraw1.Width - PicItem.Width) div 2,
              (DXDraw1.Height - PicItem.Height) div 2,
               PicItem.Width,
               PicItem.Height);

  DXDraw1.Surface.Fill(0);
  PicItem.DrawAlpha(DXDraw1.Surface, r, 0, TrackBar1.Position);
  DXDraw1.Flip;
end;

end.

Delphi 与 DirectX 之 DelphiX(13): TPictureCollectionItem.DrawRotate

Delphi 与 DirectX 之 DelphiX(13): TPictureCollectionItem.DrawRotate


本例效果图(实际效果是相当流畅的, gif 只能说明个动作趋势):


代码文件: 
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    DXImageList1: TDXImageList;
    DXTimer1: TDXTimer;
    procedure FormCreate(Sender: TObject);
    procedure DXTimer1Timer(Sender: TObject; LagCount: Integer);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var
  PicItem: TPictureCollectionItem;
  Angle: Cardinal;

procedure TForm1.FormCreate(Sender: TObject);
const
  ImgPath1 = ''C:\Temp\DelphiX.bmp'';
begin
  DXDraw1.Align := alClient;
  DXTimer1.Interval := 0;
  DXImageList1.DXDraw := DXDraw1;
  PicItem := TPictureCollectionItem(DXImageList1.Items.Add);
  PicItem.Picture.LoadFromFile(ImgPath1);
end;

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
  DXDraw1.Surface.Fill(0);
  PicItem.DrawRotate(DXDraw1.Surface,
                     DXDraw1.Width div 2, DXDraw1.Height div 2, {位置}
                     PicItem.Width, PicItem.Height,             {大小}
                     0,                                         {调色板}
                     0.5, 0.5,                                  {旋转中心: 0..1}
                     Byte(Angle));                              {旋转角度 0..255}
  Inc(Angle);
  DXDraw1.Flip;
end;

end.

Delphi 与 DirectX 之 DelphiX(14): TPictureCollectionItem.DrawRotate...

Delphi 与 DirectX 之 DelphiX(14): TPictureCollectionItem.DrawRotate...


TPictureCollectionItem.DrawRotate(); 的同类函数还有:
TPictureCollectionItem.DrawRotateAdd();
TPictureCollectionItem.DrawRotateSub();
TPictureCollectionItem.DrawRotateAlpha();
TPictureCollectionItem.DrawRotateAddCol();
TPictureCollectionItem.DrawRotateSubCol();
TPictureCollectionItem.DrawRotateAlphaCol();

本例分别进行了演示, 运行效果图:


代码文件: 
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    DXDraw1: TDXDraw;
    DXImageList1: TDXImageList;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
  Angle = 32; {在这里相当于 45° 角}
  clr = $777777;
var
  PicItem: TPictureCollectionItem;

procedure TForm1.FormCreate(Sender: TObject);
const
  ImgPath1 = ''C:\Temp\DelphiX.bmp'';
begin
  DXImageList1.DXDraw := DXDraw1;
  PicItem := TPictureCollectionItem(DXImageList1.Items.Add);
  PicItem.Picture.LoadFromFile(ImgPath1);

  Button1.Caption := ''DrawRotateAdd'';
  Button2.Caption := ''DrawRotateSub'';
  Button3.Caption := ''DrawRotateAlpha'';
  Button4.Caption := ''DrawRotateAddCol'';
  Button5.Caption := ''DrawRotateSubCol'';
  Button6.Caption := ''DrawRotateAlphaCol'';
  Button7.Caption := ''原始效果'';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DXDraw1.Surface.Fill(clr);
  PicItem.DrawRotateAdd(DXDraw1.Surface,
                     DXDraw1.Width div 2, DXDraw1.Height div 2,
                     PicItem.Width, PicItem.Height,
                     0,
                     0.5, 0.5,
                     Angle);
  DXDraw1.Flip;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DXDraw1.Surface.Fill(clr);
  PicItem.DrawRotateSub(DXDraw1.Surface,
                     DXDraw1.Width div 2, DXDraw1.Height div 2,
                     PicItem.Width, PicItem.Height,
                     0,
                     0.5, 0.5,
                     Angle);
  DXDraw1.Flip;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  DXDraw1.Surface.Fill(clr);
  PicItem.DrawRotateAlpha(DXDraw1.Surface,
                     DXDraw1.Width div 2, DXDraw1.Height div 2,
                     PicItem.Width, PicItem.Height,
                     0,
                     0.5, 0.5,
                     Angle,
                     128);
  DXDraw1.Flip;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  DXDraw1.Surface.Fill(clr);
  PicItem.DrawRotateAddCol(DXDraw1.Surface,
                     DXDraw1.Width div 2, DXDraw1.Height div 2,
                     PicItem.Width, PicItem.Height,
                     0,
                     0.5, 0.5,
                     Angle,
                     clYellow);
  DXDraw1.Flip;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  DXDraw1.Surface.Fill(clr);
  PicItem.DrawRotateSubCol(DXDraw1.Surface,
                     DXDraw1.Width div 2, DXDraw1.Height div 2,
                     PicItem.Width, PicItem.Height,
                     0,
                     0.5, 0.5,
                     Angle,
                     clYellow);
  DXDraw1.Flip;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  DXDraw1.Surface.Fill(clr);
  PicItem.DrawRotateAlphaCol(DXDraw1.Surface,
                     DXDraw1.Width div 2, DXDraw1.Height div 2,
                     PicItem.Width, PicItem.Height,
                     0,
                     0.5, 0.5,
                     Angle,
                     clYellow);
  DXDraw1.Flip;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  DXDraw1.Surface.Fill(clr);
  PicItem.DrawRotate(DXDraw1.Surface,
                     DXDraw1.Width div 2, DXDraw1.Height div 2,
                     PicItem.Width, PicItem.Height,
                     0,
                     0.5, 0.5,
                     Angle);
  DXDraw1.Flip;
end;

end.

窗体文件: 
object Form1: TForm1
  Left = 0
  Top = 0
  Caption = ''Form1''
  ClientHeight = 226
  ClientWidth = 356
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = ''Tahoma''
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DXDraw1: TDXDraw
    Left = 8
    Top = 8
    Width = 225
    Height = 211
    AutoInitialize = True
    AutoSize = True
    Color = clBlack
    Display.FixedBitCount = False
    Display.FixedRatio = True
    Display.FixedSize = True
    Options = [doAllowReboot, doWaitVBlank, doCenter, do3D, doDirectX7Mode, doHardware, doSelectDriver]
    SurfaceHeight = 211
    SurfaceWidth = 225
    TabOrder = 0
    Traces = <>
  end
  object Button1: TButton
    Left = 239
    Top = 8
    Width = 112
    Height = 25
    Caption = ''Button1''
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 239
    Top = 39
    Width = 112
    Height = 25
    Caption = ''Button2''
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 239
    Top = 70
    Width = 112
    Height = 25
    Caption = ''Button3''
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 239
    Top = 101
    Width = 112
    Height = 25
    Caption = ''Button4''
    TabOrder = 4
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 239
    Top = 132
    Width = 112
    Height = 25
    Caption = ''Button5''
    TabOrder = 5
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 239
    Top = 163
    Width = 112
    Height = 25
    Caption = ''Button6''
    TabOrder = 6
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 239
    Top = 194
    Width = 112
    Height = 25
    Caption = ''Button7''
    TabOrder = 7
    OnClick = Button7Click
  end
  object DXImageList1: TDXImageList
    Items.ColorTable = {
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000}
    Items = <>
    Left = 192
    Top = 16
  end
end

今天的关于Delphi 的绘图功能[9] - TextRect和delphi画图的分享已经结束，谢谢您的关注，如果想了解更多关于Delphi 与 DirectX 之 DelphiX(10): TPictureCollectionItem.StretchDraw - 绘制到指定矩形、Delphi 与 DirectX 之 DelphiX(12): TPictureCollectionItem.DrawAlpha、Delphi 与 DirectX 之 DelphiX(13): TPictureCollectionItem.DrawRotate、Delphi 与 DirectX 之 DelphiX(14): TPictureCollectionItem.DrawRotate...的相关知识，请在本站进行查询。

本文标签：

上一篇Delphi 与 DirectX 之 DelphiX(59): TDIB.DoSpotLight();（delphi directui）

下一篇Delphi XE2 之 FireMonkey 入门(8) - TImage（delphi firedac教程）

相关文章