* Информатика-XXI позволяет писать ключевые слова на русском, см. https://вече.программирование-по-русски ... p?f=6&t=23
* ЯОС, см. https://tvoygit.ru/budden/ja-o-s/src/br ... ификаторов
* Вариант от prospero78 (см. также другие темы про него на этом форуме). Пример вот отсюда:
https://github.com/prospero78/Oberon07r ... актор.ob07
Код: Выделить всё
МОДУЛЬ модРедактор;
ИМПОРТ mSys := SYSTEM,
API := модАПИ;
КОНСТ
hot_new = 0;
hot_open = 1;
ТИПЫ
STRING = МАССИВ 2048 ИЗ СИМВ;
ПЕРЕМ
CreateWindowEx: ПРОЦЕДУРА [winapi] (dwExStyle, lpClassName, lpWindowName, dwStyle, X, Y,
nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam: ЦЕЛОЕ): ЦЕЛОЕ;
blocksel: БУЛЕВО;
paramcolor: ЦЕЛОЕ;
Shift, hotkeys: SET;
тОкно = ЗАПИСЬ
КОНЕЦ;
ПРОЦЕДУРА ОкноСоздать(lpClassName, lpWindowName: МАССИВ ИЗ СИМВ;
dwStyle, X, Y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam: ЦЕЛОЕ): ЦЕЛОЕ;
ПЕРЕМ
n: ЦЕЛОЕ; class, window: ЦЕЛОЕ;
НАЧАЛО
ВЕРНУТЬ CreateWindowEx(0, mSys.ADR(class), mSys.ADR(window), dwStyle, X, Y, nWidth, nHeight, hWndParent, hMenu, hInstance, lpParam)
КОНЕЦ ОкноСоздать;
(* ... *)
НАЧАЛО
Настроить
КОНЕЦ модРедактор.