Реферат Ліцензування програмного забезпечення. Різні види ліцензії та їх порівняння

ified: = 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. Також встановимо наступні властивості:

...