CreateMappedBitmap funzt nicht

[Muetze1]

Moin!

Ja, Vorschläge!

Delphi-Quellcode:

 hWndMainToolbar := CreateWindowEx(0, TOOLBARCLASSNAME, nil,TBSTYLE_FLAT OR
    WS_CHILD OR WS_VISIBLE  OR CCS_NODIVIDER OR CCS_NORESIZE OR
    CCS_NOPARENTALIGN, 0, 0, 0, 0, hWndRebarControl, IDC_MainToolbar, hInstance,
    nil);

  cm.cFrom := $00ff00ff;
  cm.cTo   := GetSysColor(COLOR_BTNFACE);

  hBitmap := CreateMappedBitmap( hInstance,   // module instance - ok
                                 100,         // resource id - ok
                                 0,           // flags - ok
                                 @cm,         // pointer to COLORMAP struct - ok
                                 0);          // count of color maps pointed - 0 ?? eigentlich doch 1 !?!?!  <-- also mal eine 1 einsetzen
  aBmp.hInst := 0;
  aBmp.nID := hBitmap;
  SendMessage(hWndMainToolbar,TB_ADDBITMAP,7,LPARAM(@aBmp)); //sind 7 Bilder
  SendMessage(hWndMainToolbar,TB_BUTTONSTRUCTSIZE,sizeof(TTBBUTTON),0);
  SendMessage(hWndMainToolbar,TB_ADDBUTTONS,length(MainToolbarButtons),
    LPARAM(@MainToolbarButtons));

MfG
Muetze1