Текущий архив: 2005.10.23;
Скачать: CL | DM;

Вниз

ComboBox и OnChar   Найти похожие ветки 

← →
Денис   (2005-03-02 06:52) [0]

Почему обработчик OnChar для ComboBox не сохраняет замененные символы? Вот простой пример:

Var form,combo:PControl;

procedure ComboOnChar (Dummy:Pointer; Sender: PControl; var Key: Char; Shift: DWORD );
begin
Key:=#0;
end;

begin
form:=NewForm(Applet,"");
Combo:=NewComboBox(form,[]);
Combo.OnChar:=TOnChar(MakeMethod(nil,@ComboOnChar));
Run(form);
end.

Если вместо ComboBox использовать EditBox то все нормально, ввод с клавиатуры фильтруется.

---

← →
ECM ©   (2005-03-02 10:11) [1]

Да, уж... в код окнонной функции ComboBox-а вкралась опечатка:
(исправления выделены жирным шрифтом)
function WndFuncCombo( W: HWnd; Msg: Cardinal; wParam, lParam: Integer )
                                  : Integer; stdcall;
...
//********************************************************** Added By M.Gerasimov
//*
     PrevProc:=Pointer(GetProp( W, ID_PREVPROC ));
     if PrevProc <> Nil then
      Result := CallWindowProc( PrevProc , W, MsgStruct.message, MsgStruct.wParam, MsgStruct.lParam) //Msg, wParam, lParam )
     else
      Result:=0;
//*
//********************************************************** Added By M.Gerasimov

---

← →
ECM ©   (2005-03-02 10:40) [2]

Для желающих. Тут:
http://kolibdb.100free.com/kolmck205plus.zip
лежит upd-файл исправляющий эту ошибку и некоторые другие,
которые были замечены мной после выхода версии 2.05.
Список исправлений - Changes.txt в архиве.

---

Страницы: 1 вся ветка

Текущий архив: 2005.10.23;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.034 c