Delphi. Учимся на примерах - [9]
> Image1.Show; //отображаем рисунок на форме
> end
> else //Если рисунок не был выбран
> ShowMessage('Вы не выбрали рисунок!');
> Image1.Show;
>end;
Здесь мы просто открываем диалоговое окно выбора рисунка, и, если пользователь выбрал рисунок, то загружаем его в компонент Image1 и отображаем на форме.
Обработчик события OnClick для пункта меню Файл→Сохранить:
>procedure TForm1.N3Click(Sender: TObject);
>begin
> if Save1.Execute then //сохранение рисунка
> Image1.Picture.SaveToFile(Save1.FileName)
> else ShowMessage('Рисунок не был сохранен!');
>end;
Здесь мы открываем диалоговое окно сохранения рисунка, и, если пользователь выбрал место сохранения файла, извлекаем этот путь (свойство Save1.FileName) и сохраняем отображаемый в данный момент рисунок.
Обработчик события OnClick для пункта меню Файл→Выход:
>procedure TForm1.N5Click(Sender: TObject);
>begin
> Halt; //завершение работы программы
>end;
Обработчик события OnClick для пункта меню Правка→Очистить:
>procedure TForm1.N7Click(Sender: TObject);
>begin
> Image1.Hide; //прячем рисунок
>end;
Единственное, чего не достает этой программе, — это возможность открывать с ее помощью рисунки в файл-менеджерах. Реализуем эту возможность, добавив следующий код в обработчик события OnCreate главной фoрмы.
>procedure TForm1.FormCreate(Sender: TObject);
>var
> Str:String; //путь к файлу, который поступил как параметр
> i:Integer;
>begin
> if (ParamCount > 0)
> then //если на вход программы поступил параметр
> begin
> //составляем путь к файлу по символам
> Str:= ParamStr(1);
> for i:= 2 to ParamCount do Str:= Str + ' ' + ParamStr(i);
> Image1.Picture.LoadFromFile(str); //загружаем рисунок
> Image1.Show; //показываем рисунок
> end;
>end;
При создании формы выполняется проверка: запускается ли программа с параметрами. Если на вход поступили параметры, то определяем путь к рисунку и отображаем его на форме. Программа просмотра рисунков в действии представлена на рис. 6.4.
Рис. 6.4. Программа просмотра рисунков в действии
Полный исходный код модуля
Полный исходный код модуля программы просмотра рисунков представлен в листинге 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 > 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.
⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter_06.
Глава 7
Блокнот-шифровальщик
Постановка задачи
Разработать программу, повторяющую функции стандартного блокнота с дополнительной возможностью шифрования и дешифрования данных.
Разработка формы
Создадим новый проект Delphi. Интерфейс программы сделаем похожим на интерфейс стандартного блокнота. Разместите на форме компонент Memo (многострочное текстовое поле) категории Standard. Для того чтобы при любых размерах окна этот компонент заполнял всю форму, измените значение свойства Memo1.Align на alClient. Для текстового поля должна отображаться только вертикальная полоса прокрутки (то есть, будет выполняться автоматический перенос слов на новую строку). Для этого следует изменить значение свойства ScrollBars на ssVertical.
Разместите на форме компонент MainMenu категории Standard и создайте меню, представленное на рис. 7.1.
Рис. 7.1. Меню программы Блокнот-шифровальщик
⇖ Разработка меню рассматривается в предыдущей главе.
Для пункта меню Формат→Перенос по словам следует установить свойство Checked равным True, поскольку этот пункт меню будет выполнять роль переключателя.
![Pro Git](/storage/book-covers/ff/ff65f929c8afbcca6ea8a9f79f058bb6eb190f59.jpg)
Разработчику часто требуется много сторонних инструментов, чтобы создавать и поддерживать проект. Система Git — один из таких инструментов и используется для контроля промежуточных версий вашего приложения, позволяя вам исправлять ошибки, откатывать к старой версии, разрабатывать проект в команде и сливать его потом. В книге вы узнаете об основах работы с Git: установка, ключевые команды, gitHub и многое другое.В книге рассматриваются следующие темы:основы Git;ветвление в Git;Git на сервере;распределённый Git;GitHub;инструменты Git;настройка Git;Git и другие системы контроля версий.
![Java 7](/storage/book-covers/0c/0c854895249b5022dc4112a36f32ee3e02d18559.jpg)
Рассмотрено все необходимое для разработки, компиляции, отладки и запуска приложений Java. Изложены практические приемы использования как традиционных, так и новейших конструкций объектно-ориентированного языка Java, графической библиотеки классов Swing, расширенной библиотеки Java 2D, работа со звуком, печать, способы русификации программ. Приведено полное описание нововведений Java SE 7: двоичная запись чисел, строковые варианты разветвлений, "ромбовидный оператор", NIO2, новые средства многопоточности и др.
![Язык программирования C++. Пятое издание](/storage/book-covers/9a/9aecb71088635b6af676bd971579b88c9feb933e.jpg)
Лучшее руководство по программированию и справочник по языку, полностью пересмотренное и обновленное под стандарт С++11!Вы держите в руках новое издание популярного и исчерпывающего бестселлера по языку программирования С++, которое было полностью пересмотрено и обновлено под стандарт С++11. Оно поможет вам быстро изучить язык и использовать его весьма эффективными и передовыми способами. В соответствии с самыми передовыми и современными методиками изложения материала авторы демонстрируют использование базового языка и его стандартной библиотеки для разработки эффективного, читабельного и мощного кода.С самого начала этой книги читатель знакомится со стандартной библиотекой С++, ее самыми популярными функциями и средствами, что позволяет сразу же приступить к написанию полезных программ, еще не овладев всеми нюансами языка.
![19 смертных грехов, угрожающих безопасности программ](/storage/book-covers/d5/d5eb03e921fc4dbcb32b47f9061ba48660452baa.jpg)
Эта книга необходима всем разработчикам программного обеспечения, независимо от платформы, языка или вида приложений. В ней рассмотрены 19 грехов, угрожающих безопасности программ, и показано, как от них избавиться. Рассмотрены уязвимости на языках C/C++, C#, Java, Visual Basic, Visual Basic.NET, Perl, Python в операционных системах Windows, Unix, Linux, Mac OS, Novell Netware. Авторы издания, Майкл Ховард и Дэвид Лебланк, обучают программистов, как писать безопасный код в компании Microsoft. На различных примерах продемонстрированы как сами ошибки, так и способы их исправления и защиты от них.
![Фундаментальные алгоритмы и структуры данных в Delphi](/storage/book-covers/d1/d181e715821e8aad1ba4cc62d3404151b48f37de.jpg)
Книга "Фундаментальные алгоритмы и структуры данных в Delphi" представляет собой уникальное учебное и справочное пособие по наиболее распространенным алгоритмам манипулирования данными, которые зарекомендовали себя как надежные и проверенные многими поколениями программистов. По данным журнала "Delphi Informant" за 2002 год, эта книга была признана сообществом разработчиков прикладных приложений на Delphi как «самая лучшая книга по практическому применению всех версий Delphi».В книге подробно рассматриваются базовые понятия алгоритмов и основополагающие структуры данных, алгоритмы сортировки, поиска, хеширования, синтаксического разбора, сжатия данных, а также многие другие темы, тесно связанные с прикладным программированием.
![Вторая жизнь старых компьютеров](/storage/book-covers/67/67e193afe8a191461c11153dce78b99fbce3dd48.jpg)
Сейчас во многих школах, институтах и других учебных заведениях можно встретить компьютеры старого парка, уже отслужившие свое как морально, так и физически. На таких компьютерах можно изучать разве что Dos, что далеко от реалий сегодняшнего дня. К тому же у большинства, как правило, жесткий диск уже в нерабочем состоянии. Но и выбросить жалко, а новых никто не дает. Различные спонсоры, меценаты, бывает, подарят компьютер (один) и радуются, как дети. Спасибо, конечно, большое, но проблемы, как вы понимаете, этот компьютер в общем не решает, даже наоборот, усугубляет, работать на старых уже как-то не хочется, теперь просто есть с чем сравнивать.