| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Владимиру по KOLadd [Delphi, Windows]

Don ©   (2007-04-10 21:04:00) 

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

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

---

Don   (2007-04-11 15:14:00) [1]

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

---

Don   (2007-04-11 14:29:00) [2]

и еще немного по юникоду...
функция 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.

---

Наверх