Скачать: CL | DM;

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

← →
Compiler ©   (2007-08-27 16:35) [0]

Скачал KOLMHXPStyle. Не работает.
Функция ThrowWndProc(...) Self_ := Pointer(GetProp(Wnd, ID_SELF)); Self_ всегда=nil. Отсюда ошибки и прога валится. В чем приKOL?

---

← →
Andrey_rus ©   (2007-08-27 17:34) [1]

Что не догоняю - какая связь между KOLMHXPStyle и ThrowWndProc?

---

← →
Compiler ©   (2007-08-27 22:27) [2]

Функция ThrowWndProc(..) из модуля KOLMHXPStyle.pas отвечает за отрисовку контролов в стиле XP.
http://www.kolnmck.ru/files/components/controls/mhxpstyle.7z

---

← →
Andrey_rus ©   (2007-08-27 22:38) [3]

За за отрисовку контролов в стиле XP отвечает OS, при наличии соответствующего манифеста в ресурсе программы.

---

← →
mdw ©   (2007-08-28 10:14) [4]

Не спорьте, горячие финские парни. :))
> Andrey_rus
KOLMHXPStyle представляют собой набор компонентов, реализующих собственную отрисовку в стиле Office XP.
> Compiler
Если вам нужно, то приведите в рабочее состояние и пришлите, обновим. Автор вряд ли, по крайней мере в ближайшее время, будет поддерживать. Поищите в Kol.pas ID_SELF и исправте по аналогии в KOLMHXPStyle. Примерно так:
    {$IFDEF USE_PROP}
    self_ := Pointer( GetProp( W, ID_SELF ) );
    {$ELSE}
    self_ := Pointer( GetWindowLong( W, GWL_USERDATA ) );
    {$ENDIF}

---

← →
Compiler ©   (2007-08-28 21:26) [5]


>    {$IFDEF USE_PROP}
>     self_ := Pointer( GetProp( W, ID_SELF ) );
>     {$ELSE}
>     self_ := Pointer( GetWindowLong( W, GWL_USERDATA ) );
>
>     {$ENDIF}


Именно так и работает.

> 2 mdw

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c