Владимиру по KOLadd

← →
Don © (2007-04-10 21:04) [0]

в объекте TActionList в методе Add объвлены переменные типа KOLString, а в implementation - string.

P.S. и не в тему, можно объяснить как избавиться от клика по тулбару, после даблклика в диалоговом окне (если не трудно).

← →
Don © (2007-04-11 14:29) [1]

и еще немного по юникоду...
функция GetAcceleratorText.
Результат функции описан как string, а внутри функции:procedure AddKeyName( Code: Integer ); begin Code := MapVirtualKey(Code, 0); if Code = 0 then exit; if GetKeyNameText(Code shl 16, KeyName, 256) > 0 then begin if Result <> "" then Result := Result + "+"; Result := Result + KeyName; end; end;
тут я заменил SizeOf(KeyName) на 256.

и еще где-то проблема в TBSetTooltips (в асме, под юникодом).
парочку нашел, но все равно не получилось (слаб я в асме).
Вы создаете TWStrList {$IFDEF UNICODE_CTRLS} CALL NewWStrList {$ELSE} CALL NewStrList {$ENDIF}, а дальше в коде идет вызов методов Add и Put объекта типа TStrList.
В хинте получились у меня квадратики, перед этими изменениями показывало первую букву (обычный английский текст).

Владимиру по KOLadd Найти похожие ветки