XProfan

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

Andreas
Koch

Tal vez debería Yo mi Cuestión una vez más explizit formulieren...
Kennt alguien una Möglichkeit herauszufinden, en welcher Spalte y Línea se el Editar campo con el Handle Getvar(0) befindet?

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

Grüße!

Schau veces si Usted Getvar(4) el Spalte zurückliefert,

Usted puede auch userMessage $1405 definieren y luego es en &uwParam
el Spaltennummer y &ulParam el Zeilennummer.

Dann hay auch todavía el Función GetSelected( ...

Thomas
Freier

Hmmm. Der Ansatz es ok, aber
$H LISTVIEW.ph
$H Messages.ph
$H Windows.ph
$I LISTVIEW_Funktionen.Inc
sieht una Mix de uralt Listview, Listview.dll y Gridbox de.
Im Principio reicht el Listview.dll y el Item, en el una simplemente- doppel- links- rechts Clic en lugar de fand, hast (kannst) du con
Kompilieren Marca Separación

mkey&=Getcontrolparas(CP#)
Spalte&=Long(CP#,4)
Zeile&=Long(CP#,8)re>

ya ermittelt.

Nun Texto(Valor) oder Formel después de ENTER en el gewählte Item en LV1&, o., LV2&, tomar, y ggf. Neuberechnung.

Gruß Thomas
Windows XP SP2, XProfan X2

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

Andreas
Koch

Es alles correcto y funktioniert auch tadellos. Das Problema es, dass esta Werte no aktualisiert voluntad, si uno con el Pfeiltasten oder el Tabulator el Item wechselt. Yo habe incluso ya una Keyhook ausprobiert y "mitgezählt", el funktionierte aber auch no zuverlässig. Außerdem Yo intenta mithilfe el Position des Edits relativ para Listview y el sichtbaren Spalten y Zeilen a trabajo, el funktioniert aber sólo para el Spalte zuverlässig no para el Línea.

Thomas
Freier

Yo sería en el Pfeiltasten oder TAB verzichten. ItemEdit en el gewähltem Item erzeugen y en ENTER el Inhalt en el Item tomar. En Esc oder ItemEdit verliert el Focus EDIT löschen y nichts tomar, außer FormelEdit bekommt el Focus y se con Enter oder una Button el Formel übenehmen. En Esc oder IFormelEdit verliert el Focus otra vez alles descartar.
Fürs ItemEdit verwende Yo z.B.:
Kompilieren Marca Separación

Clear bereich1#
a$=trim$(GetText$(FAHRTEN_FLLV&,Zeile&,Spalte&))'alter Inhalt
GetOwnControlParas(bereich1#,FAHRTEN_FLLV&,Spalte&,Zeile&)
op.x&=Long(bereich1#,12)'X Offset
op.y&=Long(bereich1#,16)'Y Offset
op.b&=Long(bereich1#,20)'Breite
op.h&=Long(bereich1#,24)'Höhe
Var Ede_del2&= @Create("Edit", FAHRTEN_FLLV& ,"",0,0,op.b&,op.h&)
SetWindowPos Ede_del2&=op.x&,op.y&
settext  Ede_del2&,a$
Var _del1& = @Create("Tooltip", %hWnd , FAHRTEN_FLLV& ,"Esc=Abbruch, Wert mit Enter übernehmen.")
SetFont _del1&,d_Font&
Setfocus(Ede_del2&)

While 1

    WaitInput
    case iskey(27):BREAK'Abbruch ESC

    Ifnot getfocus(Ede_del2&)

        ' hier würde ich ins FormelEdit springen
        BREAK

    EndIf

    If iskey(13)'Speichern Enter gedrückt

        SetText FAHRTEN_FLLV&,Zeile&,Spalte&,trim$(GetText$(Ede_del2&))       ................

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

Yo habe me el Beispiele en el Listview-Paket angesehen. Das Ejemplo "Eigene_Eingaben.prf" müßte doch deinen Wünschen entsprechen.
Ein Itemwechsel va aber sólo en TAB-Taste. El Pfeiltasten, como allgemein gültig en un Editar, steuern sólo el Curserpos. en el Editar.

Gruß Thomas
Windows XP SP2, XProfan X2

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

Andreas
Koch

Yo habe ya después de diesem Ejemplo gesucht, lo pero no encontrar puede. ¿Puede du me mitteilen, wo Yo el finde?

PS: Übrigens una vez más danke para eure Hilfestellung, hätte Yo beinahe vergessen.

Thomas
Freier

Yo lugar lo una vez hier una.

eigene_eingaben.prf	11 kB

Hochgeladen:	25.04.2013

Ladeanzahl:
		Descargar

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

Ein kleines Ejemplo con AddHotKey, si IsKey no va:
Kompilieren Marca Separación

Declare bereich#,lvdll&,text$,x&,y&,z&,listview&
Def GetSysColor(1) !"USER32","GetSysColor"
Dim bereich#,256
var Font& = @CREATE("FONT","NEW TIMES ROMAN",14,0,0,0,0)
 $I Listview_Funktionen.inc
lvdll&=usedll("Listview.dll")
SetTrueColor 1
Window 0,0-400,400
Cls GetSysColor(15)
listview&=CreateListView(%hwnd,%hinstance,0,GetSysColor(24),-1,$31)
text$="A,B,C"
SetColumnsFromMem(listview&,addr(text$),0)
SetFont listview&,Font&

Whileloop 5

    SetItem listview&,"","",""

EndWhile

SetColumnWidth(listview&,0,100)
SetColumnWidth(listview&,1,100)
SetColumnWidth(listview&,2,100)
ShowListView(listview&,10,48,354,270)
CreateText(%hwnd,"Formel",10,8,60,22)
var FormelEdit%=CreateEdit(%hwnd,"=4+6",80,10,120,22)
var Formel_zul%=CreateButton(%hwnd,"Übernehmen",240,10,100,22)
InitMessages(%hwnd)
usermessages $1407
AddHotKey 7001, 13, 0'Return
AddHotKey 7002, 9, 0'Links
AddHotKey 7003, 9, 2'Rechts

While 1

    waitinput
    Case %key=2:BREAK
    case %umessage=$1407: EDIT &uwParam, &ulParam'Spaltenindex ,'Zeilenindex (nullbasierend)

Wend

CloseMessages(%hwnd)
freedll lvdll&
End

Proc Edit

    Parameters spalte%,zeile%
    Declare Ede_del2&,op.x&,op.y&
    INHALT
    @Create("Tooltip", %hWnd , Listview& ,"Esc=Abbruch, Wert mit Enter übernehmen.")
    Setfocus(Ede_del2&)

    While 1

        WaitInput
        case iskey(27):BREAK'Abbruch ESC

        Ifnot getfocus(Ede_del2&)

            SetText Listview&,Zeile%,Spalte%,trim$(GetText$(Ede_del2&))

            If Getfocus(FormelEdit%)

                'aus 2. Listview vorhandene Formel ins FormelEdit% und Curser ans Ende
                'SetText FormelEdit%,trim$(GetText$(Listview2&,Zeile%,Spalte%))'alter Inhalt
                DestroyWindow(Ede_del2&)

                while 1

                    waitinput
                    case iskey(27):BREAK

                    If getfocus(Formel_zul%)

                        ' Formel ins 2. Listview
                        ' Wert berechnen und ins 1.Listview
                        SetText Listview&,Zeile%,Spalte%,"10,00"
                        BREAK

                    EndIf

                wend

                SetText FormelEdit%,""

            endif

            BREAK

        ElseIf MenuItem(7001)'Speichern Enter gedrückt

            SetText Listview&,Zeile%,Spalte%,trim$(GetText$(Ede_del2&))
            BREAK

        ElseIf MenuItem(7002)'TAB vor

            SetText Listview&,Zeile%,Spalte%,trim$(GetText$(Ede_del2&))
            case Spalte%<GetColumns(Listview&)-1: inc Spalte%
            INHALT

        ElseIf MenuItem(7003)'TAB rück

            SetText Listview&,Zeile%,Spalte%,trim$(GetText$(Ede_del2&))
            case Spalte%>0 : dec Spalte%
            INHALT

        EndIf

    wend

    DestroyWindow(Ede_del2&)
    setfocus(%hwnd)

EndProc

Proc Inhalt

    DestroyWindow(Ede_del2&)
    Clear bereich#
    Text$=trim$(GetText$(Listview&,Zeile%,Spalte%))'alter Inhalt
    GetOwnControlParas(bereich#,Listview&,Spalte%,Zeile%)
    op.x&=Long(bereich#,12)'X Offset
    op.y&=Long(bereich#,16)'Y Offset
    var op.b&=Long(bereich#,20)'Breite
    var op.h&=Long(bereich#,24)'Höhe
    Ede_del2&= @Create("Edit", Listview& ,Text$,op.x&,op.y&,op.b&,op.h&)
    SetFont Ede_del2&,Font&
    Setfocus(Ede_del2&)
    SendString(Ede_del2&,"+({END})")ss=s1>'Resalte el texto y el cursor a la Ende

ENDPROC

Wenn en el gewählten Item en Listview2 ya una Formel es, sería Yo ellos igual en el Proc INHALT en el FormelEdit conjunto. Ändert el Anwender el Inhalt en el Item de Listview sería Yo el Formel y el Inhalt des entsprechenden Item en Listview2 löschen.

Gruß Thomas
Windows XP SP2, XProfan X2