XProfan

Français

...une Routine um aus einem IconHandle une Bitmap trop faire:

Proc Ico2Bmp

    Paramètres Icon&
    'Weiße Bitmap dans Taille 32 * 32 erzeugen
    Var IBmp& = Créer(hNewPic, 32, 32, RGB(255,255,255))
    'sur cet Bitmap cela Icon zeichnen
    Début de peinture IBmp&
    DrawIcon Icon&, 0, 0
    EndPaint
    Retour IBmp&

ENDPROC

attention: qui Bitmap hat naturellement qui Taille eines Icônes (32 * 32), quoi pour une Menübitmap meist trop grand ist. chez meinem XP ist selbst 16 * 16 encore trop grand. Daher une universellere Routine, qui aus einem 32 * 32 Icon une beliebig grand (pardon: kleine) Bitmap erzeugt:

Kompilieren Marque Séparation

Proc Ico2SizedBmp

    Paramètres Icon&, dx&, dy&
    'Weiße temporäre Bitmap dans Taille 32 * 32 erzeugen
    Var TempBmp& = Créer(hNewPic, 32, 32, RGB(255,255,255))
    'sur cet Bitmap cela Icon zeichnen
    Début de peinture TempBmp&
    DrawIcon Icon&, 0, 0
    EndPaint
    ' Weiße Bitmap dans Taille dx& * dy& erzeugen
    Var IBmp& = Créer(hNewPic, dx&, dy&, RGB(255,255,255))
    'sur cet Bitmap qui temporäre Bitmap verkleinert zeichnen
    Début de peinture IBmp&
    DrawSizedPic TempBmp&, 0, 0 - dx&, dy&; 0
    EndPaint
    'Temporäre Bitmap effacer
    DeleteObject TempBmp&
    Retour IBmp&

ENDPROC