XProfan

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

Andreas
Koch

Vielleicht sollte ich meine Frage noch mal explizit formulieren...
Kennt jemand eine Möglichkeit herauszufinden, in welcher Spalte und Zeile sich das Editfeld mit dem Handle Getvar(0) befindet?

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

Grüße!

Schau mal ob Dir Getvar(4) die Spalte zurückliefert,

Du kannst auch userMessage $1405 definieren und dann steht in &uwParam
die Spaltennummer und in &ulParam die Zeilennummer.

Dann gibt es auch noch die Funktion GetSelected( ...

Thomas
Freier

Hmmm. Der Ansatz ist ok, aber
$H LISTVIEW.ph
$H Messages.ph
$H Windows.ph
$I LISTVIEW_Funktionen.Inc
sieht nach einem Mix von uralt Listview, Listview.dll und Gridbox aus.
Im Prinzip reicht die Listview.dll und das Item, in dem ein einfach- doppel- links- rechts Klick statt fand, hast (kannst) du mit
Kompilieren Markieren Separieren

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

schon ermittelt.

Nun Text(Wert) oder Formel nach ENTER ins gewählte Item in LV1&, bzw., LV2&, übernehmen, und ggf. Neuberechnung.

Gruß Thomas
Windows XP SP2, XProfan X2

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

Andreas
Koch

Das ist alles richtig und funktioniert auch tadellos. Das Problem ist, dass diese Werte nicht aktualisiert werden, wenn man mit den Pfeiltasten oder dem Tabulator das Item wechselt. Ich habe sogar schon einen Keyhook ausprobiert und "mitgezählt", das funktionierte aber auch nicht zuverlässig. Außerdem habe ich versucht mithilfe der Position des Edits relativ zum Listview und den sichtbaren Spalten und Zeilen zu arbeiten, das funktioniert aber nur für die Spalte zuverlässig nicht für die Zeile.

Thomas
Freier

Ich würde auf die Pfeiltasten oder TAB verzichten. ItemEdit im gewähltem Item erzeugen und bei ENTER den Inhalt ins Item übernehmen. Bei Esc oder ItemEdit verliert den Focus EDIT löschen und nichts übernehmen, außer FormelEdit bekommt den Focus und soll mit Enter oder einem Button die Formel übenehmen. Bei Esc oder IFormelEdit verliert den Focus wieder alles verwerfen.
Fürs ItemEdit verwende ich z.B.:
Kompilieren Markieren Separieren

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

Ich habe mir die Beispiele im Listview-Paket angesehen. Das Beispiel "Eigene_Eingaben.prf" müßte doch deinen Wünschen entsprechen.
Ein Itemwechsel geht aber nur über die TAB-Taste. Die Pfeiltasten, wie allgemein gültig in einem Edit, steuern nur die Curserpos. im Edit.

Gruß Thomas
Windows XP SP2, XProfan X2

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

Andreas
Koch

Ich habe schon nach diesem Beispiel gesucht, es aber nicht finden können. Kannst du mir mitteilen, wo ich das finde?

PS: Übrigens noch mal danke für eure Hilfestellung, hätte ich beinahe vergessen.

Thomas
Freier

Ich stelle es einmal hier ein.

eigene_eingaben.prf	11 kB

Hochgeladen:	25.04.2013

Ladeanzahl:
		Herunterladen

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

Ein kleines Beispiel mit AddHotKey, falls IsKey nicht geht:
Kompilieren Markieren Separieren

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})")'Text Markieren und Cursor ans Ende

Endproc

Wenn im gewählten Item in Listview2 schon eine Formel ist, würde ich sie gleich im Proc INHALT ins FormelEdit setzen. Ändert der Anwender den Inhalt im Item von Listview würde ich die Formel und den Inhalt des entsprechenden Item in Listview2 löschen.

Gruß Thomas
Windows XP SP2, XProfan X2