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, при наличии соответствующего манифеста в ресурсе программы.

Не спорьте, горячие финские парни. :))
> 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}

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

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

> 2 mdw

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