XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Listbox mit Hover-Effekt
Beispiel für einen Hover Effekt ohne Positionsangaben der Controls
mit der Api Funktion TrackMouseEvent
Autor: Dieter Zornow
Code zur freien Verwendung
Xprofan, für 6.6 und kleiner bitte die bezeichneten Befehle umändern
getestet unter ME und XP prof.
Dieses Funktion arbeitet erst ab Windows 98

Proc showold

    SetWindowPos button1& = 20,420-70,30;0
    SetWindowPos button2& = 140,420,70,30;0
    SetWindowPos Edit1& = 300,15,110,22;0
    SetWindowPos listbox1& = 0010,0015,0130,0100;0

endproc

Def TrackMouseEvent(1) ! user32,TrackMouseEvent
Def ChildWindowFromPoint(3) ! user32,ChildWindowFromPoint 3 Parameter, entgegen der Anzahl in der Win32.help
Def GetCursorPos(1) ! USER32,GetCursorPos
Def ScreenToClient(2) ! USER32,ScreenToClient
DEF GETSYSCOLOR(1) !USER32,GetSysColor
DECLARE BUTTON1&
DECLARE BUTTON2&
DECLARE LISTBOX1&
DECLARE EDIT1&
DECLARE ENDE%,point#,hover#,child&
WINDOWSTYLE 31+512
WINDOWTITLE TrackMouseEvent
WINDOW SUB(DIV(%MAXX,2),DIV(640,2)),SUB(DIV(%MAXY,2),DIV(500,2))-640,500
SETTRUECOLOR 1
CLS GETSYSCOLOR(15)
USEFONT MS Sans Serif,13,0,0,0,0
SETDIALOGFONT 1
dim point#,8
dim hover#,16
long hover#,0 = 16
long hover#,4 = 3
long hover#,8 = getactivewindow()
long hover#,12 = 3
bei hover#,12 ist der Standardwert 400 ms, was auch im Interpreter funktioniert
als Exe läuft es bei mir erst ab 5 ms und weniger
BUTTON1& = CREATE(BUTTON,%HWND,Nichts,0020,0420,0070,0030)
BUTTON2& = CREATE(BUTTON,%HWND,Ende,0140,0420,0070,0030)
LISTBOX1& = CREATE(LISTBOX,%HWND,LISTBOX,0010,0015,0130,0100)
EDIT1& = CREATE(EDIT,%HWND,Während Eingabe muss Mauszeiger über dem Edit stehen oder dann auf focus wechseln,0300,0015,0110,0022)
usermessages 16 nur Profan > 6.6

whileloop 30 nur Profan > 6.6

    addstring(listbox1&,Eintrag+str$(&loop))

endwhile

Locate 30,1
Print Bitte mal mit der Maus über die Controls fahren

WHILENOT ENDE%

    getmessage

    If %Umessage = 16 nur Profan > 6.6

        LET ENDE%= 1

    endif

    IF GETFOCUS(BUTTON1&) BUTTON

    ELSEIF GETFOCUS(BUTTON2&) BUTTON

        if %lastmessage = 514

            LET ENDE%= 1

        endif

    ELSEIF GETFOCUS(LISTBOX1&) LISTBOX

    ELSEIF GETFOCUS(EDIT1&) EDIT

    ENDIF

    GetCursorPos(point#)
    ScreenToClient(%hwnd,point#)
    child& = ChildWindowFromPoint(%hwnd,@long(point#,0),@long(point#,4))
    TrackMouseEvent(hover#)

    if %message = 675

        case child& = BUTTON1&:SetWindowPos button1& = 18,418-72,32;0
        case child& = BUTTON2&:SetWindowPos button2& = 138,418,72,32;0
        case child& = edit1&:SetWindowPos Edit1& = 200,15,300,22;0
        case child& = listbox1&:SetWindowPos listbox1& = 10,15,130,400;0

    endif

    if %message = 673

        showold

    endif

WEND

dispose point#
disponer hover#
end