XProfan

English

...a routine circa a IconHandle a Bitmap To make:

Proc Ico2Bmp

    Parameters Icon&
    'Weiße Bitmap Size 32 * 32 produce
    Var IBmp& = Create(hNewPic, 32, 32, RGB(255,255,255))
    'On these Bitmap the Icon draw
    StartPaint IBmp&
    DrawIcon Icon&, 0, 0
    EndPaint
    Return IBmp&

ENDPROC

deference: The Bitmap has naturally The Size of a Icons (32 * 32), what kind of Menübitmap mostly To big is. with my XP is self 16 * 16 yet To big. therefore a universellere routine, from one 32 * 32 Icon a discretionary large (pardon: small) Bitmap created:

Compile Mark Separation

Proc Ico2SizedBmp

    Parameters Icon&, dx&, dy&
    'Weiße temporary Bitmap Size 32 * 32 produce
    Var TempBmp& = Create(hNewPic, 32, 32, RGB(255,255,255))
    'On these Bitmap the Icon draw
    StartPaint TempBmp&
    DrawIcon Icon&, 0, 0
    EndPaint
    ' Weiße Bitmap Size dx& * dy& produce
    Var IBmp& = Create(hNewPic, dx&, dy&, RGB(255,255,255))
    'On these Bitmap The temporary Bitmap minimizes draw
    StartPaint IBmp&
    DrawSizedPic TempBmp&, 0, 0 - dx&, dy&; 0
    EndPaint
    'Temporäre Bitmap delete
    DeleteObject TempBmp&
    Return IBmp&

ENDPROC