Компонент TOpenPictureDialog и TSavePictuteDialog

TOpenPictureDialog

и TSavePictuteDialog

Компоненты TOpenPictureDialog и TSavePictuteDialog позволяют организовать специальные диалоги открытия и сохранения графических изображений.

Пример 1. Открыть диалог просмотра графических изображений:

procedure TForm1.Button2Click(Sender: TObject);

begin

if OpenPictureDialog1.Execute then

begin

Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

Image1.Stretch:= True;

end;

end;

Это не работает. Пока убрать

Пример 2. Пусть требуется сохранить графическое изображение в файле по нажатию на изображении.

Procedure TForm1.Button1Click();

begin

SavePictureDialog1.InitialDir:= ’D:\DEMO DELPHI

Examples\DEMO DIALOGS’;

SavePictureDialog1.FileName:= ’Fig1.bmp’;

if SavePictureDialog1.Execute then

Image1.Picture.SaveToFile (SavePictureDialog1.FileName);

end;

Дата добавления: 2014-01-07