unit1.pas

来自「delphi做的简单查看图片像素,显示出来.」· PAS 代码 · 共 50 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FileCtrl, StdCtrls, ExtCtrls, Buttons, XPMan;

type
  TForm1 = class(TForm)
    DriveComboBox1: TDriveComboBox;
    FileListBox1: TFileListBox;
    DirectoryListBox1: TDirectoryListBox;
    FilterComboBox1: TFilterComboBox;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    XPManifest1: TXPManifest;
    procedure FileListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FileListBox1Click(Sender: TObject);
var
  image1:TImage;
begin
  image1:=TImage.Create(nil);
  try
    image1.AutoSize:=true;
    if FileListbox1.Items.Count<>0 then
    begin
      Image1.Picture.LoadFromFile(FileListBox1.FileName);
      Label1.Caption:='图片象素：['+IntToStr(Image1.Width)+'*'+IntToStr(Image1.Height)+']';
    end;
  finally
    image1.Free;
  end;
end;

end.