Реферат Комп'ютерне проектування інтерфейсу користувача

файли і всі файли, а в колонці Фільтр ввести відповідні маски: *. Txt та *. * p align="justify">. Помістити на форму компонент SaveDialog і присвоїти йому значення:

DefaultExtTXTTitleСохраніть файлOptions.ofOverwritePromptTrueOptions.ofNoReadOnlyReturnTrue

. Відкрити вікно редактора фільтрів, для чого двічі клацнути на властивості Filter. Заповнити два перші рядки в колонці Ім'я фільтра назвами фільтрів: текстові файли і всі файли, а в колонці Фільтр ввести відповідні маски: *. Txt та *. * p align="justify">. Створимо обробник події OnClick для кнопки Open:

with OpenDialog1 doexecute then.Lines.LoadFromFile (FileName);. Modified: = false;: = 'My Editor -' + ExtractFileName (FileName);. FileName: = FileName;: =''; ;

10. Створимо обробник OnClick для кнопки Save As ..:

with SaveDialog1 doExecute then.Lines.SaveToFile (FileName);. Modified: = false;: = 'My Editor -' + ExtractFileName (FileName);;

. Створимо обробник OnClick для кнопки Save:

if SaveDialog1.FileName ='' thenClick (Sender)

else.Lines.SaveToFile (SaveDialog1.Filename);. Modified: = false;;

12. Створимо обробник події OnClick для кнопки Exit:

Case MessageDlg ('Закрити редактор?', mtConfirmation, mbYesNoCancel, 0) of: form1.Close;:;:;;

. Розташувати на формі компонент MainMenu і створити пункти меню таким чином:

В 
В 

Редактор меню викликається подвійним клацанням по компоненту. Для створення розділової риси у властивості Caption, необхідно ввести символ В«-В» (Мінус)

. Кожен пункт меню окрім New зв'яжемо з уже існуючим методом OnClick для відповідних кнопок. Наприклад, кнопка Open має ім'я Button1, тому на сторінці Events вікна Object Inspector для пункту меню Open ви клацніть на клавіші відкриття списку, розташованої поруч з OnClick і виберіть Button1.Click. p align="justify">. У обробник події OnClick пункту меню New помістимо код:

if Memo1.Modified then

case MessageDlg ('Ôàéë' + ExtractFileName (SaveDialog1.FileName) +

'áûë èçìåíåí. Ñîõðàíèòü? ', MtConfirmation, mbYesNoCancel, 0) of : button2Click (Sender);:;: Exit;. Clear;. FileName: ='';: =' My Editor ';

. Подвійним клацанням відредагуємо компонент-меню і додамо ще один пункт меню Color, і в ньому два підпункти ColorBackGround і ColorText. p align="justify"> Помістимо на форму компонент ColorDialog, що знаходиться в палітрі Dialogs.

У обробник пункту меню ColorBackGraund вставити наступний код:

with ColorDialog1 doExecute then1.Color: = color;

У обробник пункту меню ColorText вставити наступний код:

with ColorDialog1 doExecute then.Font.Color: = color;

17.Создать для форми обробник події OnCloseQuery:

if Memo1.Modified thenMessageDlg ('Файл' + ExtractFileName (SaveDialog1.FileName) +

'був змінений. Зберегти? ', MtConfirmation, mbYesNoCancel, 0) of: button2Click (Sender);:;: CanClose: = false;;

. Встановимо на панелі три кнопки SpeedButton. У властивості Caption цих кнопок введемо букви Ж (жирний), К (курсив), П (підкреслений) відповідним чином змінивши тип накреслення у властивості Font.

Виділивши всі три кнопки встановимо їх властивість AllowAllUp встановимо True. Також встановимо наступні властивості:

КомпонентGroupIndexTagSpeedButton110SpeedButton221SpeedButton332

У обробник події OnClick для кнопки Ж введемо:

with sender as TSpeedButton dodown

end;

Події OnClick для решти двох кнопок зв'яжемо з подією SpeedButton1Click за допомогою Інспектора об'єктів, як у випадку з пунктами меню.

. Помістити на панель ще одну кнопку SpeedButton. У властивість Caption нічого не вводити. Виконати два клацання на властивості Glyph. У діалоговому вікні вибрати команду Load і з каталогу Program Files/Common Files/Borland Shared/Images/Buttons завантажимо файл Font.bmp або будь-який інший. p align="justify"> У обробнику OnClick написати наступний код:

with fontdialog1 doexecute then memo1.Font: = font;

18. Компонент Memo дозволяє зберігати інформацію лише у форматі txt, тому при закритті файлу всі елементи форматування пр...