XProfan

Italia

...eine Routine um aus einem IconHandle eine Bitmap zu machen:

Proc Ico2Bmp

    Parameters Icon&
    'Weiße Bitmap in Dimensione 32 * 32 erzeugen
    Var IBmp& = Create(hNewPic, 32, 32, RGB(255,255,255))
    'Auf diese Bitmap das Icon zeichnen
    StartPaint IBmp&
    DrawIcon Icon&, 0, 0
    EndPaint
    Return IBmp&

EndProc

Achtung: Die Bitmap hat naturalmente die Dimensione eines Icons (32 * 32), was per eine Menübitmap meist zu grande ist. Bei meinem XP ist selbst 16 * 16 noch zu grande. Daher eine universellere Routine, die aus einem 32 * 32 Icon eine beliebig grande (pardon: kleine) Bitmap erzeugt:

Kompilieren Markieren Separieren

Proc Ico2SizedBmp

    Parameters Icon&, dx&, dy&
    'Weiße temporäre Bitmap in Dimensione 32 * 32 erzeugen
    Var TempBmp& = Create(hNewPic, 32, 32, RGB(255,255,255))
    'Auf diese Bitmap das Icon zeichnen
    StartPaint TempBmp&
    DrawIcon Icon&, 0, 0
    EndPaint
    ' Weiße Bitmap in Dimensione dx& * dy& erzeugen
    Var IBmp& = Create(hNewPic, dx&, dy&, RGB(255,255,255))
    'Auf diese Bitmap die temporäre Bitmap verkleinert zeichnen
    StartPaint IBmp&
    DrawSizedPic TempBmp&, 0, 0 - dx&, dy&; 0
    EndPaint
    'Temporäre Bitmap löschen
    DeleteObject TempBmp&
    Return IBmp&

EndProc