XProfan

'Lo no es el standardmäßige Inplace-Editor el Listview genutzt.
'Dieser sería sólo para el erste Spalte disponible posición...
'Original-Source Thomas Freier - modifiziert Matthias Arlt
Ventana 0,0 - 600,410
declarar LV&,Spalte&,Zeile&,Item&,Edit&,Font&,Txt$
declarar rect#,cellpos_x%,cellpos_y%,cellwidth%,cellheight%
Font&=CreateFont("Verdana",16,0,0,0,0)
SetDialogFont Font&
LV&=Crear("GridBox",%hwnd,"Spalte 1;1;60;Spalte 2;1;120;Spalte 3;1;80;Spalte 4;1;80;Spalte 5;1;80",0,10,10,460,250)
SetFont LV&,Font&

whileloop 0,20

    Addstring(LV&,str$(&bucle) + "|0|0|0|0")

wend

Edit& = create("Edit",LV&,"",0,0,0,0)
setfont Edit&,Font&

proc SetSubItemEdit

    dim rect#,16
    SendMessage(LV&,$100E,Zeile&,rect#)'LVM_GETITEMRECT
    cellpos_x% = long(rect#,0)
    cellpos_y% = long(rect#,4) - 1
    cellwidth% = sendmessage(LV&,$101D,Spalte&,0)
    cellheight% = (long(rect#,12) - long(rect#,4)) + 1

    if Spalte& > 0

        whileloop 0,(Spalte& - 1),1

            cellpos_x% = cellpos_x% + sendmessage(LV&,$101D,&bucle,0)

        wend

    endif

    disponer rect#
    settext Edit&, Txt$
    setwindowpos Edit& = cellpos_x%,cellpos_y% - cellwidth%,cellheight%
    setfocus(Edit&)
    'SendMessage(Edit&,"+({FIN})") 'Cursor en Ende conjunto...
    SendMessage(Edit&,$B1,0,-1)'oder Alles marca... (Explorer-konform)

ENDPROC

AddHotKey 13, 13, 0
AddHotKey 37, 37, 0
AddHotKey 38, 38, 0
AddHotKey 39, 39, 0
AddHotKey 40, 40, 0
SubClass %hwnd, 1
usermessages 2000

SubClassProc

    if SubClassMessage(%hwnd, 78)'WM_NOTIFY

        if (Largo(&sLParam,8) = -3)

            Item&=Largo(&sLParam,12)

            if (Item& <> -1)

                SendMessage(%hwnd,2000,Item&,Largo(&sLParam,16))

            endif

        elseif (Largo(&sLParam,8) = -180)'LVN_BEGINSCROLL

            settext LV&,Zeile&,Spalte&,gettext$(Edit&)
            setwindowpos Edit& = 0,0-0,0

        endif

    endif

ENDPROC

mientras que 1

    waitinput

    if (%umessage = 2000)

        Txt$ = GetText $(LV&,&uwparam,&ulparam)
        Spalte&= &ulparam
        Zeile&= &uwparam
        SetSubItemEdit

        mientras que getfocus(Edit&)

            waitinput

            if (%menuitem = 13)

                romper

            elseif (%menuitem = 37) | (%menuitem = 38) | (%menuitem = 39) | (%menuitem = 40)

                settext LV&,Zeile&,Spalte&,gettext$(Edit&)
                caso (%menuitem = 37) : Spalte& = (Spalte& - 1)
                caso (%menuitem = 38) : Zeile& = (Zeile& - 1)
                caso (%menuitem = 39) : Spalte& = (Spalte& + 1)
                caso (%menuitem = 40) : Zeile& = (Zeile& + 1)
                Txt$ = GetText $(LV&,Zeile&,Spalte&)
                SetSubItemEdit

            endif

        wend

        settext LV&,Zeile&,Spalte&,gettext$(Edit&)
        setwindowpos Edit& = 0,0-0,0
        setfocus(%hwnd)

    endif

wend

usermessages 0
SubClass %hwnd, 0
end