zoukankan      html  css  js  c++  java
  • Delphi 与 DirectX 之 DelphiX(90): TDIB.DrawMorphed();


    本例效果图:



    代码文件:
    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, DIB, StdCtrls;
    
    type
      TForm1 = class(TForm)
        DXPaintBox1: TDXPaintBox;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    const
      c1 = clRed;
      c2 = clYellow;
    
    var
      w,h: Integer;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      w := DXPaintBox1.ClientWidth;
      h := DXPaintBox1.ClientHeight;
      DXPaintBox1.DIB.SetSize(w, h, 24);
      DXPaintBox1.DIB.Fill(c1);
      DXPaintBox1.DIB.Canvas.Brush.Style := bsClear;
      DXPaintBox1.DIB.Canvas.Font.Color := c2;
      DXPaintBox1.DIB.Canvas.Font.Name := 'Arial Black';
      DXPaintBox1.DIB.Canvas.Font.Size := 36;
      DXPaintBox1.DIB.Canvas.Font.Style := [fsBold];
      DXPaintBox1.DIB.Canvas.TextOut(20, 10, 'DelphiX');
      DXPaintBox1.Repaint;
    end;
    
    procedure TForm1.Button2Click(Sender: TObject);
    begin
      DXPaintBox1.DIB.DrawMorphed(DXPaintBox1.DIB, 0, 0, w, h, 0, 0, c2);
      DXPaintBox1.Repaint;
    end;
    
    procedure TForm1.Button3Click(Sender: TObject);
    begin
      DXPaintBox1.DIB.DrawMorphed(DXPaintBox1.DIB, 0, 0, w, h, 0, 0, c1);
      DXPaintBox1.Repaint;
    end;
    
    end.
    

    窗体文件:
    object Form1: TForm1
      Left = 0
      Top = 0
      Caption = 'Form1'
      ClientHeight = 134
      ClientWidth = 273
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      OldCreateOrder = False
      PixelsPerInch = 96
      TextHeight = 13
      object DXPaintBox1: TDXPaintBox
        Left = 8
        Top = 8
        Width = 257
        Height = 89
        AutoStretch = False
        Center = False
        KeepAspect = False
        Stretch = False
        ViewWidth = 0
        ViewHeight = 0
      end
      object Button1: TButton
        Left = 8
        Top = 103
        Width = 75
        Height = 25
        Caption = 'Button1'
        TabOrder = 0
        OnClick = Button1Click
      end
      object Button2: TButton
        Left = 109
        Top = 103
        Width = 75
        Height = 25
        Caption = 'Button2'
        TabOrder = 1
        OnClick = Button2Click
      end
      object Button3: TButton
        Left = 190
        Top = 103
        Width = 75
        Height = 25
        Caption = 'Button3'
        TabOrder = 2
        OnClick = Button3Click
      end
    end
    
  • 相关阅读:
    Windows性能调优: Perfomn.exe 和Perfmon /res
    WPF:逻辑树和视觉树
    AD FS 概述
    SQL Server : TRUSTWORTHY 数据库属性
    WCF:在开发期间应该注意的问题
    ASP.NET MVC 2中的数据验证
    SQL Server:如何在Service Broker发送消息验证失败后获取源消息
    GDI+:自定义控件时如何使用Region来输出特定区域
    LINQ to XML:如何替换XCData的内容
    javascript是否真的就不能实现跨站请求呢?
  • 原文地址:https://www.cnblogs.com/del/p/1380751.html
Copyright © 2011-2022 走看看