Введение в FormsABC: различия между версиями
Содержимое удалено Содержимое добавлено
Метка: редактор вики-текста 2017 |
Метка: редактор вики-текста 2017 |
||
Строка 432:
</syntaxhighlight>
== Текстовый редактор ==
<syntaxhighlight lang="pascal" line="1">
uses FormsABC;
begin
mainForm.Width := 640;
mainForm.Height := 400;
mainForm.Title := 'Text Editor';
var menu := new MainMenu();
parentControl := mainForm;
var editor := new TextBox();
editor.Dock := DockStyle.Fill;
menu.Add('File', 'Edit');
menu[0].Add('Exit', procedure (item) -> mainForm.Close());
menu[1].Add('Undo', procedure (item) -> editor.Undo());
menu[1].Add('Redo', procedure (item) -> editor.Redo());
menu[1].Add('Copy', procedure (item) -> editor.Copy());
menu[1].Add('Cut', procedure (item) -> editor.Cut());
menu[1].Add('Clear', procedure (item) -> editor.Text := string.Empty);
end.
</syntaxhighlight>
[[Категория:PascalABC.NET]]
| |||