XProfan

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

Andreas
Koch

peut-être sollte je mon Frage encore la fois explizit formulieren...
Kennt quelqu'un une Possibilité herauszufinden, dans quel Spalte et la ligne sich cela Modifier le champ de avec dem Handle Getvar(0) est?

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

Grüße!

exposition la fois si Dir Getvar(4) qui Spalte zurückliefert,

tu peux aussi userMessage $1405 définir et ensuite steht dans &uwParam
qui Spaltennummer et dans &ulParam qui Zeilennummer.

ensuite gibt es aussi encore qui Funktion GetSelected( ...

Thomas
Freier

Hmmm. qui Ansatz ist ok, mais
$H LISTVIEW.ph
$H Messages.ph
$H Windows.ph
$I LISTVIEW_Funktionen.Inc
sieht pour einem Mix de uralt Listview, Listview.dll et Gridbox aus.
Im Prinzip reicht qui Listview.dll et cela Item, dans dem un simple- doppel- à gauche- à droite Klick statt fand, la hâte (peux) du avec
Kompilieren Marque Séparation

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

déjà ermittelt.

eh bien Text(Wert) ou bien Formel pour ENTER ins gewählte Item dans LV1&, bzw., LV2&, prendre, et ggf. Neuberechnung.

Gruß Thomas
Windows XP SP2, XProfan X2

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

Andreas
Koch

voilà tout richtig et funktioniert aussi correcte. cela Problem ist, dass cet Werte pas aktualisiert volonté, si on avec den Pfeiltasten ou bien dem tabulateur cela Item wechselt. j'ai sogar déjà une Keyhook ausprobiert et "mitgezählt", cela funktionierte mais aussi pas zuverlässig. Aussi habe je versucht mithilfe qui Position des Edits relativ zum Listview et den sichtbaren Spalten et Zeilen trop travailler, cela funktioniert mais seulement pour qui Spalte zuverlässig pas pour qui la ligne.

Thomas
Freier

je serait sur qui Pfeiltasten ou bien TAB verzichten. ItemEdit im gewähltem Item erzeugen et chez ENTER den le contenu ins Item prendre. chez Esc ou bien ItemEdit verliert den Concentrer EDIT effacer et rien prendre, sauf FormelEdit bekommt den Concentrer et soll avec Enter ou bien einem Button qui Formel übenehmen. chez Esc ou bien IFormelEdit verliert den Concentrer wieder alles jeter.
Fürs ItemEdit verwende je z.B.:
Kompilieren Marque Séparation

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

j'ai mir qui Beispiele im Listview-paquet angesehen. cela Beispiel "Eigene_Eingaben.prf" devrait doch deinen désirer entsprechen.
un Itemwechsel allez mais seulement sur qui TAB-bouton. qui Pfeiltasten, comment allgemein gültig dans einem Éditer, steuern seulement qui Curserpos. im Éditer.

Gruß Thomas
Windows XP SP2, XProfan X2

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

Andreas
Koch

j'ai déjà pour diesem Beispiel gesucht, es mais pas trouver peut. peux du mir mitteilen, wohin je cela finde?

PS: Incidemment encore la fois merci pour eure Hilfestellung, hätte je beinahe oublier qc.

Thomas
Freier

Je mets es einmal ici un.

eigene_eingaben.prf	11 kB

Hochgeladen:	25.04.2013

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

un kleines Beispiel avec AddHotKey, si IsKey pas allez:
Kompilieren Marque Séparation

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>'Text Marque et Cursor à l' Ende

ENDPROC

si im gewählten Item dans Listview2 déjà une Formel ist, serait je vous juste im Proc INHALT ins FormelEdit mettons. Ändert qui Anwender den le contenu im Item de Listview serait je qui Formel et den le contenu des entsprechenden Item dans Listview2 effacer.

Gruß Thomas
Windows XP SP2, XProfan X2