| engineerklub | Дата: Четверг, 13.07.2023, 07:34 | Сообщение # 1 |
 Генералиссимус
Группа: Администраторы
Сообщений: 29644
Статус: Offline
| Проектирование пользовательского интерфейса. Вариант №04
Тип работы: Работа Лабораторная
Форматы файлов: Microsoft Word
Сдано в учебном заведении: СибГУТИ
Описание:
Лабораторная работа №1
Тема: Работа с компонентами TPanel (закладка Standard); TDriveComboBox, TFilterComboBox, TDirectoryListBox, TFileListBox (закладка Win 3.1); Tsplitter, TImage (закладка Additional); TStatusBar (закладка Win32).
ЗАДАНИЕ 1: Создать форму как показано на рисунке 1.
1. Рекомендуемый порядок размещения на форме компонентов TPanel, TDirectoryListBox, TFileListBox и TSplitter:
- Panel1, Panel2 – в верхней и нижней частях клиентской области ;
- DirectoryListBox1– слева на клиентской области (свойство Align);
- Splitter1;
- FileListBox1 – на всю оставшуюся клиентскую область (свойство Align).
2. Для установки связей между списками DriveComboBox1, FilterComboBox1, DirectoryListBox1 и FileListBox1 определите следующие свойства (в Инспекторе объектов или в обработчике onCreate формы): DirList (для DriveComboBox1), FileList и DirLabel (для DirectoryListBox1), FileList (для FilterComboBox1),
3. Для вывода в строку состояния имени и размера выделенного файла создайте обработчик события onChange для FileListBox1
Для получения имени выделенного файла используйте свойства Items и ItemIndex (номер выделенного файла) компонента FileListBox1.
-----------------------------------------------------------------------------
ЗАДАНИЕ 2: Изменить Form1 на рис. 1 (задание 1) следующим образом: использовать для реализации строки состояния вместо компонента TPanel компонент TStatusBar. Структура компонента TStatusBar показана на рис. 2.
Размер первых двух панелей зависит от значения свойства Directory компонента DirectoryListBox1. Размер третьей панели, отображающей текущее время, не меняется.
------------------------------------------------------------------------------
ЗАДАНИЕ 3: 1. Поместить на форму компонент TImage как показано на рис.2. Отображать внутри компонента графическое изображение только в том случае, если в FileListBox1 выбран BMP-файл.
2. Поместить на Panel1 компонент TSpeedButton (быстрая кнопка) с изображением часов (или с любым другим). Выбор изображения – свойство Glyph.
При нажатии на эту кнопку:
• время в строке статуса должно выключаться;
• состояние кнопки - нажата.
Для использования быстрой кнопки в качестве переключателя необходимо установить следующие значения свойств компонента TSpeedButton:
- AllowAllUp:=True; - повторное нажатие на кнопку изменяет ее состояние
( False – для изменения состояния надо нажать другую кнопку) - GroupIndex:=1 {любое ненулевое целое значение}; – индекс группы (если 0 - нет группы);
- Down:=True; - нажата (False - отжата). Работает только при AllowAllUp=True и в группе (т.е. GroupIndex<>0)
СКАЧАТЬ
|
| |
| |
| engineerklub | Дата: Четверг, 13.07.2023, 07:35 | Сообщение # 2 |
|
Генералиссимус
Группа: Администраторы
Сообщений: 29644
Статус: Offline
| Лабораторная работа № 2
Тема: Компоненты MainMenu, PopupMenu, Memo, OpenDialog, SaveDialog.
Создание вложенного динамического меню.
Задание
ЗАДАНИЕ 1:
Создание простейшего редактора, который работает с файлом memos.txt, находящемся в текущей папке.
1. Создайте главное меню – компонент MainMenu - с пунктами:
File Help
New About… F1
Open… F3
Close
Save F2
Save As…
Exit Alt+X
1.1. Создайте обработчики событий, поступающих от объектов:
Exit1 – закрытие формы;
About1 – информация об авторах в стандартном окне (MessageDlg);
2. Создать всплывающее меню – компонент PopupMenu, содержащее пункты: Save, About, Exit;
3. Поместите на форму объект Label. Присвойте свойству Caption значение FileName;
4. Поместите на форму объект Edit под объектом Label. Измените значение свойства Text объекта Edit1 на memos.txt;
5. Поместите на форму объект Memo. Измените его размер и выровняйте компоненты, расположенные на форме, используя в главном меню Edit | Align. (Для выделения группы компонентов используйте ‘захват’ компонентов левой кнопкой мыши);
6. Уберите у свойства Lines объекта Memo1 его значение. Установите вертикальную и горизонтальную полосы прокрутки, используя свойство ScrollBar объекта Memo1;
7. Для создания обработчика события, заключающегося в выборе пункта Save в главном меню, в процедуру обработки события OnClick объекта Save1 главного меню запишите код: Memo1.Lines.SaveToFile(‘memos.txt’);
Для обработки события OnClick объекта Save2 всплывающего меню подключите ту же процедуру Save1Click;
8. В процедуру обработки события OnActive формы запишите следующий код:
If FileExists(‘memos.txt’) then Memo1.Lines.LoadFromFile(‘memos.txt’)
else Memo1.Lines.SaveToFile(‘memos.txt’);
Тогда, если при запуске Приложения файл memos.txt существует в текущей папке, то он загружается в окно Memo1. В случае отсутствия файла memos.txt в текущей папке создается новый пустой файл memos.txt (в файл записывается пустое значение свойства Lines объекта Memo1);
9. Для того, чтобы сразу после запуска Приложения курсор находился в окне объекта Memo1, установите значения свойства ActiveControl формы, равным Memo1.
СКАЧАТЬ
|
| |
| |
