XProfan

Español

...una Rutina en de una IconHandle una Mapa de bits a hacer:

Proc Ico2Bmp

    Parámetros Icon&
    'Weiße Mapa de bits en Größe 32 * 32 erzeugen
    Var IBmp& = Crear(hNewPic, 32, 32, RGB(255,255,255))
    'Auf esta Mapa de bits el Icon dibujar
    StartPaint IBmp&
    DrawIcon Icon&, 0, 0
    EndPaint
    Volver IBmp&

ENDPROC

Achtung: El Mapa de bits ha natürlich el Größe uno Icons (32 * 32), qué para una Menübitmap meist a groß es. En mi XP es incluso 16 * 16 todavía a groß. Daher una universellere Rutina, de una 32 * 32 Icon una cualquier große (pardon: kleine) Mapa de bits producido:

Kompilieren Marca Separación

Proc Ico2SizedBmp

    Parámetros Icon&, dx&, dy&
    'Weiße temporäre Mapa de bits en Größe 32 * 32 erzeugen
    Var TempBmp& = Crear(hNewPic, 32, 32, RGB(255,255,255))
    'Auf esta Mapa de bits el Icon dibujar
    StartPaint TempBmp&
    DrawIcon Icon&, 0, 0
    EndPaint
    ' Weiße Mapa de bits en Größe dx& * dy& erzeugen
    Var IBmp& = Crear(hNewPic, dx&, dy&, RGB(255,255,255))
    'Auf esta Mapa de bits el temporäre Mapa de bits verkleinert dibujar
    StartPaint IBmp&
    DrawSizedPic TempBmp&, 0, 0 - dx&, dy&; 0
    EndPaint
    'Temporäre Mapa de bits löschen
    DeleteObject TempBmp&
    Volver IBmp&

ENDPROC