Die Ergänzungen sind hauptsächlich neue Konstantenwerte, die wir aus einer aktuellen Version der Headerdatei "commctrl.h" übernehmen können:
const {$EXTERNALSYM TTS_NOANIMATE} TTS_NOANIMATE = $10; {$EXTERNALSYM TTS_NOFADE} TTS_NOFADE = $20; {$EXTERNALSYM TTS_BALLOON} TTS_BALLOON = $40; {$EXTERNALSYM TTS_CLOSE} TTS_CLOSE = $80;
// ToolTip Icons (Set with TTM_SETTITLE) {$EXTERNALSYM TTI_NONE} TTI_NONE = 0; {$EXTERNALSYM TTI_INFO} TTI_INFO = 1; {$EXTERNALSYM TTI_WARNING} TTI_WARNING = 2; {$EXTERNALSYM TTI_ERROR} TTI_ERROR = 3;
{$EXTERNALSYM TTF_PARSELINKS} TTF_PARSELINKS = $1000;
{$EXTERNALSYM TTM_GETBUBBLESIZE} TTM_GETBUBBLESIZE = WM_USER + 30; {$EXTERNALSYM TTM_ADJUSTRECT} TTM_ADJUSTRECT = WM_USER + 31; {$EXTERNALSYM TTM_SETTITLEA} TTM_SETTITLEA = WM_USER + 32; {$EXTERNALSYM TTM_SETTITLEW} TTM_SETTITLEW = WM_USER + 33;
{$EXTERNALSYM TTM_POPUP} TTM_POPUP = WM_USER + 34; {$EXTERNALSYM TTM_GETTITLE} TTM_GETTITLE = WM_USER + 35;
type _TGETTITLE = packed record dwSize : DWORD; uTitleBitmap : UINT; cch : UINT; pszTitle : PWideChar; end; TGetTitle = _TGETTITLE; PGetTitle = ^TGetTitle;
const {$EXTERNALSYM TTM_SETWINDOWTHEME} TTM_SETWINDOWTHEME = CCM_SETWINDOWTHEME;
Um Probleme mit der letzten Konstante zu vermeiden, ist weiter am Anfang der Unit noch CCM_SETWINDOWTHEME zu deklarieren (suchen Sie zum Einfügen bitte nach INFOTIPSIZE). Sie sollten aber bedenken, dass diese Konstanten nur unter Windows XP benutzt werden können:
const {$EXTERNALSYM CCM_SETVERSION} CCM_SETVERSION = CCM_FIRST + $07; {$EXTERNALSYM CCM_GETVERSION} CCM_GETVERSION = CCM_FIRST + $08; {$EXTERNALSYM CCM_SETNOTIFYWINDOW} CCM_SETNOTIFYWINDOW = CCM_FIRST + $09; // wParam == hwndParent. {$EXTERNALSYM CCM_SETWINDOWTHEME} CCM_SETWINDOWTHEME = CCM_FIRST + $0b; {$EXTERNALSYM CCM_DPISCALE} CCM_DPISCALE = CCM_FIRST + $0c; // wParam == Awareness