XProfan

« this Posting watts as Solution marked. »

Thomas
Freier

the had we still, I faith at schedule.
here one mins. example for Tooltip:

 $H windows.ph
 $H commctrl.ph
Struct LVHitTestInfo = X&,Y&,flags&,Item&,SubItem&
Declare LVHTI#,LView&,l%
Dim LVHTI#,LVHitTestInfo

Proc LV_HitTest

    Parameters  LV&,X%,Y%
    ~GetCursorPos(LVHTI#)
    ~ScreenToClient(LV&,LVHTI#)
    SendMessage(LV&,~LVM_SUBITEMHITTEST,0,LVHTI#)
    Return LVHTI#.SubItem&

ENDPROC

Cls
LView& = Create("GridBox",%hwnd,"Test 0;0;100;Test 1;0;100;Test 2;0;100;Bemerkung;0;100",0,20,10,410,200)

WhileLoop 0,4

    AddStrings(LView&,"0 Test " + Str $(&Loop) + "|1 Test " + Str $(&Loop) + "|2 Test " + Str $(&Loop) + "|")

Wend

var Text$="Was is because at all one List view? \nOb tappt im dunkeln's believe or not. "+  \
"Sobald tappt im dunkeln ihren windows-PC switch on, appear already the first List view."+ \
"Wo, ask tappt im dunkeln? On their screen.\nDer windows screen is namely nothing other as one List view.\n"+ \
"(FRABBING)"
SetText LView&, 1, 3, Text$
sendmessage(Lview&,~LVM_SETEXTENDEDLISTVIEWSTYLE,0,~LVM_SUBITEMHITTEST)'markiert The row under the mouse
'sendmessage(LView&,0,~LVM_SETHOVERTIME,10) 'resolve useful one Click from ????
var ToolTip&=create("Tooltip",%hwnd,LView&,"")
var medit%=Create("MultiEdit",%hwnd,"",0,0,300,-400)
ShowWindow(medit%,0)

While 1

    WaitInput 100
    l% =  LV_HitTest(LView&,%mousex,%mousey)
    '

    SELECT LVHTI#.Item&

        CASEOF 1'ZEILE

        If LVHTI#.SubItem&=3'ITEM

            SetText medit%,GetText$(LView&,LVHTI#.Item&,LVHTI#.SubItem&)
            Text$=""

            Whileloop GetLineCount(medit%)'Number of lines

                Text$=text $+GetLine$(medit%,&loop-1)+"\n"'single Lines read and Line break

            Wend

            settext ToolTip&,%hwnd,LView&,Text$

        EndIf

        CASEOF 3'ZEILE

        settext ToolTip&,%hwnd,LView&,"erste Wahl"
        OTHERWISE
        settext ToolTip&,%hwnd,LView&,""

    ENDSELECT

Wend

end

ought to sure on SubClassProc umgestellt go.

Gruß Thomas
Windows XP SP2, XProfan X2

know do I not, but the wide the Split can imho with
LVM_GETCOLUMNWIDTH detect, by less Mausposition-X might one so The
slot herausbekommen.

there's but too LVM_GETITEMINDEXRECT ( [...]

) what Perhaps yet hilfreicher is.

LVM_FIRST = $1000
LVM_GETCOLUMNWIDTH = ~LVM_FIRST + 29
LVM_SETCOLUMNWIDTH = ~LVM_FIRST + 30

Proc GetColWidth

    Parameters hGBox&, ColNr%
    Declare ColWidth%
    ColWidth% = SendMessage( hGBox&, ~LVM_GetColumnWidth, ColNr%, 0)
    Return ColWidth%

ENDPROC

Click vlt. simply so:

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Def mouse_event(5) !"USER32","mouse_event"
mouse_event(2,0,0,0,0)'left maustaste down
mouse_event(4,0,0,0,0)'left maustaste again high

Thomas
Freier

the had we still, I faith at schedule.
here one mins. example for Tooltip:

 $H windows.ph
 $H commctrl.ph
Struct LVHitTestInfo = X&,Y&,flags&,Item&,SubItem&
Declare LVHTI#,LView&,l%
Dim LVHTI#,LVHitTestInfo

Proc LV_HitTest

    Parameters  LV&,X%,Y%
    ~GetCursorPos(LVHTI#)
    ~ScreenToClient(LV&,LVHTI#)
    SendMessage(LV&,~LVM_SUBITEMHITTEST,0,LVHTI#)
    Return LVHTI#.SubItem&

ENDPROC

Cls
LView& = Create("GridBox",%hwnd,"Test 0;0;100;Test 1;0;100;Test 2;0;100;Bemerkung;0;100",0,20,10,410,200)

WhileLoop 0,4

    AddStrings(LView&,"0 Test " + Str $(&Loop) + "|1 Test " + Str $(&Loop) + "|2 Test " + Str $(&Loop) + "|")

Wend

var Text$="Was is because at all one List view? \nOb tappt im dunkeln's believe or not. "+  \
"Sobald tappt im dunkeln ihren windows-PC switch on, appear already the first List view."+ \
"Wo, ask tappt im dunkeln? On their screen.\nDer windows screen is namely nothing other as one List view.\n"+ \
"(FRABBING)"
SetText LView&, 1, 3, Text$
sendmessage(Lview&,~LVM_SETEXTENDEDLISTVIEWSTYLE,0,~LVM_SUBITEMHITTEST)'markiert The row under the mouse
'sendmessage(LView&,0,~LVM_SETHOVERTIME,10) 'resolve useful one Click from ????
var ToolTip&=create("Tooltip",%hwnd,LView&,"")
var medit%=Create("MultiEdit",%hwnd,"",0,0,300,-400)
ShowWindow(medit%,0)

While 1

    WaitInput 100
    l% =  LV_HitTest(LView&,%mousex,%mousey)
    '

    SELECT LVHTI#.Item&

        CASEOF 1'ZEILE

        If LVHTI#.SubItem&=3'ITEM

            SetText medit%,GetText$(LView&,LVHTI#.Item&,LVHTI#.SubItem&)
            Text$=""

            Whileloop GetLineCount(medit%)'Number of lines

                Text$=text $+GetLine$(medit%,&loop-1)+"\n"'single Lines read and Line break

            Wend

            settext ToolTip&,%hwnd,LView&,Text$

        EndIf

        CASEOF 3'ZEILE

        settext ToolTip&,%hwnd,LView&,"erste Wahl"
        OTHERWISE
        settext ToolTip&,%hwnd,LView&,""

    ENDSELECT

Wend

end

ought to sure on SubClassProc umgestellt go.

Gruß Thomas
Windows XP SP2, XProfan X2

XProfan X2
Win7 Enterprise, SP1, Xeon X5670 @ 2.93GHz

Andreas
Koch

Hello your both,

integrally cordial Thanks for eure Answer. I wurschtel already whom whole day rum, but now works.
Kurzes Feedback: circa Getcontrolparas benefit to, must to the pressing and the release simulate

, was unfortunately for my ursprünglichen object not integrally suitable, functions but still with mouse_event.
this Tooltip for List view was crept genial, very the I sought have. thanks.

PS: I had here time demand, whether one The Listviewposition (slot, row) the Editcontrols with the lever Getvar(0) detect can. the functions too with the method: one certainly with Getwindowrect position and measurement the Edits and uses subsequently whom Hittest with the Mittelwerten from getwindowrect. If the Whole in of/ one Loop with the Abbruchbedingung While Getvar(0) made becomes, get one constantly The actually position.