zoukankan      html  css  js  c++  java
  • Delphi 与 DirectX 之 DelphiX(7): 给 TDXImageList 加载图片的最后方案


    本例效果图:



    代码文件:
    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;
        procedure FormCreate(Sender: TObject);
        procedure Button1Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormCreate(Sender: TObject);
    const
      ImgPath1 = 'C:\Temp\DelphiX.bmp';
      ImgPath2 = 'C:\Temp\DelphiX.jpg';
    var
      PicItem: TPictureCollectionItem;
    begin
      DXImageList1.DXDraw := DXDraw1;
    
      DXImageList1.Items.Add;
      PicItem := DXImageList1.Items[DXImageList1.Items.Count-1];
      PicItem.Picture.LoadFromFile(ImgPath1);
    
      DXImageList1.Items.Add;
      PicItem := DXImageList1.Items[DXImageList1.Items.Count-1];
      PicItem.Picture.LoadFromFile(ImgPath2);
    end;
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
      with DXImageList1 do begin
        Items[0].Draw(DXDraw.Surface, 0, 0, 0);
        Items[1].Draw(DXDraw.Surface, 0, Items[0].Height, 0);
        DXDraw.Flip;
      end;
    end;
    
    end.
    

  • 相关阅读:
    2017.8.07
    2017.8.05
    2017.8.04
    2017.8.03
    2017.8.02
    2017.8.01
    2017.7.31
    2017.7.29
    2017.7.28
    简易日历
  • 原文地址:https://www.cnblogs.com/del/p/1374618.html
Copyright © 2011-2022 走看看