Die "CommCtrl.pas" ergänzen


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