Board.KolibriOS.org

Начал делать компонент InputBox.
Прототип функции такой(UASM\Pascal\C):

InputBox Proto Buffer:Ptr, Caption:Ptr, Prompt:Ptr, Default:Ptr, Flags:Dword, BufferSize:Dword, RedrawProc:Ptr             

Function InputBox(Buffer: Pointer; Caption, Prompt, Default: PChar; Flags, BufferSize: Dword; RedrawProc: Proc) : LongBool;         

unsigned long __stdcall InputBox(void* Buffer, char* Caption, char* Prompt, char* Default,
                                     unsigned long Flags, unsigned long BufferSize, void* RedrawProc)

Buffer — по этому адресу будет записано возвращаемое значение
Caption — заголовок окна InputBox-а
Prompt — сообщение отображаемое в окне и предлагающее пользователю ввести данные
Default — значение по умолчанию, отображается в текстовом поле
Flags — опции, флаги
BufferSize — размер буфера под возвращаемое значение
RedrawProc — процедура перерисовки окна, вызывается при активации родительского окна

Функция возвращает код ошибки или 0(IBE_NO_ERROR) в случае успеха.

Flags = [MOUSE|SCREEN|PARENT][NUMBER|STRING]:

IBF_STRING = 0 — в буфер будет записана строка
IBF_NUMBER = 1 — в буфер будет записано число
IBF_MOUSE_REL = 0 — относительно положения указателя мыши
IBF_SCREEN_REL = 8 — относительно экрана
IBF_PARENT_REL = 16 — относительно родительского окна

Errors:

IBE_NO_ERROR = 0 — успешно, нет ошибки
IBE_NUMBER_OVERFLOW = 1 — переполнение при вводе числа

Предполагается работать примерно так:

Var
  Err: LongBool;
  X: LongInt;
  Txt: Array[0..10] Of Char;

// Ввод числа в переменную X
  Err := InputBox(@X, 'Input', 'Enter value', '-100', IBF_NUMBER, SizeOf(X), @On_Redraw);
  If Not Err Then       // Если нет ошибки
    DoSomething;        // продолжаем работу
  Else                  // иначе
    InputBoxError(Err); // обрабатываем ошибку

// Ввод строки в буфер Txt, Flags = 0, но можно вместо нуля написать IBF_STRING
   InputBox(@Txt, 'Input', 'Enter string', 'my text', 0, SizeOf(Txt), @On_Redraw);

Для использования нужно загрузить библиотеку InputBox.obj и использовать функцию InputBox из неё.

Размер шрифта зависит от системной настройки.
Вот так выглядят примеры Можно проверить, как это работает, есть сборка уже вместе с InputBox, в ней есть папка "$$$_TEST_$$$", там примеры, использующие InputBox.
Исходники примеров в TEST_SRC.7z:

один на ассемблере собирается с помощью UASM
другой на C — с помощью BCC32

Там же и исходники самого InputBox — InputBox_SRC.7z.

Выглядит симпатично и в использовании удобно. Хорошо бы иметь такую библиотеку для разных диалоговых окон: MsgBox, FindReplace... Знаю, что есть такая библиотека, но она устарела -- мелкий шрифт.

Закрытые библиотеки это саботаж 100%

Похоже исходник лежит в kolibri.img\$$$_TEST_$$$\InputBox_SRC.7z\lib\InputBox.asm

_________________
Через тернии к звездам

А к чему ты это написал здесь?
Сможешь объяснить? Или так, от нефиг делать?
Да, именно это я и написал в первом сообщении

Я изначально делал по аналогии с OpenDialog и ColorDialog: приложение + библиотека.
Но что-то существенных профитов от этого не обнаружил.
Интересно, какие цели преследовал Марат при разработке OpenDialog и ColorDialog?
Разве что раздельное адресное пространство — может в этом была задумка?

Плюсы варианта "всё вместе в библиотеке":

нет возни с разделяемой памятью
не нужно запускать новый процесс
упрощается код
один файл вместо двух

Для вызывающего приложения существенной разницы нет — интерфейс остаётся такой же.

Теперь поддерживается ввод 64-битных чисел.
Добавился ещё один код ошибки IBE_RESULT_TOO_LONG. Все константы:

  ; Flags = [mouse|screen|parent][number|string]
  IBF_STRING = 0      ; в буфер будет записана строка         ; string will be written to the buffer
  IBF_NUMBER = 1      ; в буфер будет записано число          ; number will be written to the buffer
  IBF_MOUSE_REL = 0   ; относительно положения указателя мыши ; relative to the mouse pointer
  IBF_SCREEN_REL = 8  ; относительно экрана                   ; relative to the screen
  IBF_PARENT_REL = 16 ; относительно родительского окна       ; relative to the parent window
  
  ; Errors
  IBE_NO_ERROR = 0        ; успешно, нет ошибки            ; success
  IBE_NUMBER_OVERFLOW = 1 ; переполнение при вводе числа   ; number greater than 0xFFFFFFFFFFFFFFFF
  IBE_RESULT_TOO_LONG = 2 ; результат не умещается в буфер ; result does not fit into buffer

Я переделал вариант "приложение + библиотека", теперь стало "всё вместе в библиотеке".
Исходники примеров остались без изменений.
Если возражений нет, я закоммичу такой вариант.
Если нужны ещё какие-нибудь примеры — могу сделать ещё.

В случае с OpenDialog, Марат возможно изначально писал KFM2, потом превратив его в OpenDialog. Что точно знаю, что он хотел на основе OpenDialog потом сделать KFM2.
Возможно отсюда и такая связка.

_________________
Через тернии к звездам

Ну это он говорил. А ColorDialog просто по аналогии?

Наверное потому что посчитал это частью дельфийской твоей либы, от которой не нашел исходников, когда хотел натравить на нее фрипаскаль.

А первый пост просто проглядел видимо

Первый вариант InputBox как раз был с ней собран, но теперь всё в одной библиотеке.
А так как линкера coff->coff нет, то пришлось скопипастить из неё некоторый код.
Если и как только перейдём на PE, то снова можно будет собирать, просто прилинковав эту библиотеку.Плохо искал, значит. Папка "Src" там есть. А ещё вон там viewtopic.php?f=33&t=735&p=68255#p68255 есть ссылки на pastebin.

"Там" это где?

Про СВН в профильной теме

Загрузил исходники InputBox на svn( http://websvn.kolibrios.org/listing.php ... 8aa795be26 ) и добавил в автосборку.
Также были добавлены примеры использования InputBox(в папке "Examples").