image.~pas

《Kylix程序设计》一书中附带的例程源代码

unit Image;

interface

uses
  SysUtils, Types, Classes, Variants, QGraphics, QControls, QForms, QDialogs,
  QMenus, QTypes, QExtCtrls, QStdCtrls, Base;

type
  TFrmImageViewer = class(TFrmPolymorphic)
    Image: TImage;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure OpenFile(); override;
  end;

var
  FrmImageViewer: TFrmImageViewer;

implementation

{$R *.xfm}

{ TFrmImageViewer }

procedure TFrmImageViewer.OpenFile;
begin
  if DlgOpen.Execute() then
  begin
    Image.Picture.LoadFromFile( DlgOpen.FileName );
  end;
end;

end.