"Delphi. Учимся на примерах" - читать интересную книгу автора (Парижский Сергей Михайлович)

Полный исходный код модуля

Полный исходный код модуля программы просмотра рисунков представлен в листинге 6.1.

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtCtrls;

type TForm1 = class(TForm)

 Image1: TImage;

 MainMenu1: TMainMenu;

 N1: TMenuItem;

 N2: TMenuItem;

 N3: TMenuItem;

 N4: TMenuItem;

 N5: TMenuItem;

 N6: TMenuItem;

 N7: TMenuItem;

 Open1: TOpenDialog;

 Save1: TSaveDialog;

 procedure FormCreate(Sender: TObject);

 procedure N2Click(Sender: TObject);

 procedure N3Click(Sender: TObject);

 procedure N5Click(Sender: TObject);

 procedure N7Click(Sender: TObject);

private

 { Private declarations }

public

 { Public declarations }

end;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

 Str: String; //путь к файлу, который поступил как параметр

 i:Integer;

begin

 if (ParamCount gt; 0)

 then //если на вход программы поступил параметр

 begin

  //составляем путь к файлу по символам

  Str:= ParamStr(1) ;

  for i:=2 to ParamCount do Str:= Str + ' ' + ParamStr(i);

  Image1.Picture.LoadFromFile(str); //загружаем рисунок

  Image1.Show; //показываем рисунок

 end;

end;

procedure TForm1.N2Click (Sender: TObject);

begin

 //начинаем обзор с текущей папки

 Open1.InitialDir:= GetCurrentDir;

 //открываем диалоговое окно выбора файла

 if Open1.Execute then begin

  //загружаем выбранный рисунок

  Image1.Picture.LoadFromFile(Open1.FileName);

  Image1.Show; //показываем рисунок на форме

 end

 else //Если рисунок не был выбран

  ShowMessage('Вы не выбрали рисунок!');

 Image1.Show;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

 if Save1.Execute then //сохранение рисунка

  Image1.Picture.SaveToFile(Save1.FileName)

 else ShowMessage('Рисунок не был сохранен!');

end;

procedure TForm1.N5Click(Sender: TObject);

begin

 Halt; //выход из программы

end;

procedure TForm1.N7Click(Sender: TObject);

begin

 Image1.Hide; //прячем рисунок

end;

end.