XProfan

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

Andreas
Koch

Perhaps ought to I mean question once more explizit formulieren...
knows someone a Possibility to find out, in which slot and row itself the Editfeld with the lever Getvar(0) befindet?

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

Regards!

look time whether you Getvar(4) The slot returns,

You can also userMessage $1405 define and then standing in &uwParam
The Spaltennummer and &ulParam The Zeilennummer.

then there too yet The function GetSelected( ...

Thomas
Freier

Hmmm. The Ansatz is ok, but
$H LISTVIEW.ph
$H Messages.ph
$H windows.ph
$I LISTVIEW_Funktionen.Inc
sees to one mixed of uralt List view, List view.dll and GridBOX from.
in the principle reicht The List view.dll and the Item, in the one simply- semidetached- left- right Click instead of found, have (can) You with
Compile Mark Separation

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

already determined.

now Text(worth) or Formel to ENTER in that chosen Item in LV1&, or., LV2&, take, and ggf. Neuberechnung.

Gruß Thomas
Windows XP SP2, XProfan X2

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

Andreas
Koch

this is everything correctly. and functions too tadellos. The problem is, that these values not updated go, if one with the Pfeiltasten or the tabulator the Item changes. I have even already a Keyhook ausprobiert and "mitgezählt", the funktionierte but neither reliably. Also have I attempts mithilfe the position the Edits relatively to that List and whom visible Split and Lines To works, the functions but only for slot reliably not for row.

Thomas
Freier

i'd on The Pfeiltasten or TAB dispense. ItemEdit in the gewähltem Item produce and with ENTER whom Content in that Item take. with Esc or ItemEdit lose whom Focus EDIT delete and nothing take, except FormelEdit get whom Focus and should with Enter or one Button The Formel übenehmen. with Esc or IFormelEdit lose whom Focus again everything verwerfen.
for that ItemEdit use I z.B.:
Compile Mark Separation

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

I have me The Examples in the list view-pkg respected. the example "Eigene_Eingaben.prf" should still your Wish correspond to.
One Itemwechsel goes but only over The TAB-Button. The Pfeiltasten, How generally validly in a Edit, steer only The Curserpos. in the Edit.

Gruß Thomas
Windows XP SP2, XProfan X2

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

Andreas
Koch

I have already to this example sought, But not find can. can you me communicating, where I the find?

PS: Übrigens once more thanks for eure Hilfestellung, had I beinahe forget.

Thomas
Freier

I put it once here.

eigene_eingaben.prf	11 kB

Hochgeladen:	04/25/13

Downloadcounter:
		Download

Gruß Thomas
Windows XP SP2, XProfan X2

Thomas
Freier

A small example with AddHotKey, if IsKey not goes:
Compile Mark Separation

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 Mark and Cursor ans end

Endproc

If in the chosen Item in list view2 already a Formel is, would I tappt im dunkeln same in the Proc CONTENT in that FormelEdit settle. Ändert the users whom Content in the Item of List view would I The Formel and the Content the suitable Item in list view2 delete.

Gruß Thomas
Windows XP SP2, XProfan X2