XProfan

Français

Detlef
Jagolski

allô Community!

je hab là déjà einiges probiert , Button avec OWNERDRAW.
Mir fehlt mais malheureusement une Einstellmöglichkeit, si je avec qui souris sur den Button fahre sollte je wieder quelque chose nouveau Zeichnen peut.

malheureusement sommes mais seulement folgende Opportunités vorhanden:

ODS_CHECKED
ODS_COMBOBOXEDIT
ODS_DEFAULT
ODS_DISABLED
ODS_FOCUS
ODS_GRAYED
ODS_SELECTED
Kompilieren Marque Séparation

Proc WinProc

    Parameters Wnd&, Message&, wParam&, lParam&

    If Message& = ~WM_MEASUREITEM

    EndIf

    If Message& = ~WM_DRAWITEM

        lpdis# = lParam&

        If Long(lpdis#,0) = ~ODT_BUTTON

            Long Rect#,0   = Long(lpdis#,28)
            Long Rect#,4   = Long(lpdis#,32)
            Long Rect#,8   = Long(lpdis#,36)
            Long Rect#,12  = Long(lpdis#,40)
            ButtonText$ = GetText$(lpdis#.hwndItem&)

            If Long(lParam&,12) & ~ODA_DRAWENTIRE

                HDCGradientFill (Long(Rect#,0),Long(Rect#,4),Long(Rect#,8),Long(Rect#,12),Color_FirstIconBack1&,Color_EndIconBack1&,128,1,lpdis#.HDC&)

            ElseIf Long(lParam&,12) & ~ODA_FOCUS

                HDCGradientFill (Long(Rect#,0),Long(Rect#,4),Long(Rect#,8),Long(Rect#,12),Color_FirstIconBack2&,Color_EndIconBack2&,128,1,lpdis#.HDC&)

            ElseIf Long(lParam&,12) & ~ODA_SELECT

                If Long(lParam&,16) & ~ODS_SELECTED

                    HDCGradientFill (Long(Rect#,0),Long(Rect#,4),Long(Rect#,8),Long(Rect#,12),Color_FirstIconBack3&,Color_EndIconBack3&,128,1,lpdis#.HDC&)

                Else

                    HDCGradientFill (Long(Rect#,0),Long(Rect#,4),Long(Rect#,8),Long(Rect#,12),Color_FirstIconBack1&,Color_EndIconBack1&,128,1,lpdis#.HDC&)

                EndIf

            EndIf

            ~SetBkMode(lpdis#.HDC&,~TRANSPARENT)
            ~DrawText(lpdis#.HDC&,Addr(ButtonText$),Len(ButtonText$),Rect#,~DT_CENTER | ~DT_VCENTER | ~DT_SINGLELINE)

        EndIf

    EndIf

    Return ~CallWindowProc(OldWindowsProc&, Wnd&, Message&, wParam&, lParam&)

ENDPROC