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

Вниз

Владимиру по 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.

---

← →
Don ©   (2007-04-11 15:14) [2]

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

---

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

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

Наверх

Память: 0.45 MB
Время: 0.036 c