Введение в FormsABC: различия между версиями

Перейти к навигации Перейти к поиску
629 байт добавлено ,  1 год назад
Метка: редактор вики-текста 2017
Метка: редактор вики-текста 2017
== Текстовый редактор ==
<syntaxhighlight lang="pascal" line="1">
uses System;
uses System.IO;
uses FormsABC;
 
menu.Add('File', 'Edit');
menu[0].Add('Save', procedure (item) ->
begin
var dialog := new SaveFileDialog();
if dialog.ShowDialog() = DialogResult.OK then
&File.WriteAllLines(dialog.FileName, editor.Text.Split(|'\n'|, StringSplitOptions.RemoveEmptyEntries));
end);
menu[0].Add('Open', procedure (item) ->
begin
var dialog := new OpenFileDialog();
if dialog.ShowDialog() = DialogResult.OK then
begin
editor.Text := string.Empty;
foreach var line in &File.ReadAllLines(dialog.FileName) do
editor.Text += $'{line}{Environment.NewLine}';
end;
end);
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('Clear', procedure (item) -> editor.Text := string.Empty);
end.
 
</syntaxhighlight>
 
66

правок

Навигация