XProfan

Deutsch

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

Proc Ico2Bmp

    Parameters Icon&
    'Weiße Bitmap in Größe 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 natürlich die Größe eines Icons (32 * 32), was für eine Menübitmap meist zu groß ist. Bei meinem XP ist selbst 16 * 16 noch zu groß. Daher eine universellere Routine, die aus einem 32 * 32 Icon eine beliebig große (pardon: kleine) Bitmap erzeugt:

Kompilieren Markieren Separieren

Proc Ico2SizedBmp

    Parameters Icon&, dx&, dy&
    'Weiße temporäre Bitmap in Größe 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 Größe 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