XProfan

H.Brill

Tal vez algo como :

Título de la ventana "Gridbox"
Ventana de Estilo 31+512
Ventana 0,0-800,600
Declarar Handle Grid, BtnEnde, btnState
Declarar Int zeile
Var Int Ende = 0
Grid     = Crear("GridBox", %hwnd, "Nr.;0;40;Eintrag;0;135;DATUM;0;135", 2, 100, 70, 410, 370)
BtnEnde  = Crear("Button",%hwnd,"ENDE",500,500,190,25)
btnState = Crear("Button",%hwnd,"Deselektieren", 520,100,120,25)

WhileLoop 1, 50

    Addstring(Grid, Str$(&LOOP) + "|" + "EINTRAG" + "|" + Date$(0))

EndWhile

Sinestar encargado Ende

    WaitInput

    If Clicked(BtnEnde)

        Let Ende = 1

    Endif

    If Clicked(btnstate)

        SendMessage(Grid, 4139, 1, 0)' Línea(n) entmarkieren

    EndIf

Endwhile

FIN

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

02.03.2017 ▲

Nee, el Auswahl wechselt zwar de blau después de grau, aber el Selektion(en) restos.
Mit "GetSelCount(N)" lässt se el testen.

Grüße, Peter

02.03.2017 ▲

Georg
Teles

Bueno Abend,

füge veces Folgendes hinzu

 $H commctrl.ph

Proc LvDeSelect'deselectieren

    Parámetros Lv&,Item&
    Declarar s#
    Dim s#,1024
    Largo s#,12=0
    Largo s#,16=~LVIS_SELECTED | ~LVIS_FOCUSED
    SendMessage(Lv&,~LVM_SETITEMSTATE,Item&,s#)
    Disponer s#

ENDPROC

y rufe esta Proc beim entmarkieren en

 $H commctrl.ph

Proc LvDeSelect'deselectieren

    Parámetros Lv&,Item&
    Declarar s#
    Dim s#,1024
    Largo s#,12=0
    Largo s#,16=~LVIS_SELECTED | ~LVIS_FOCUSED
    SendMessage(Lv&,~LVM_SETITEMSTATE,Item&,s#)
    Disponer s#

ENDPROC

Título de la ventana "Gridbox"
Ventana de Estilo 31+512
Ventana 0,0-800,600
Declarar Handle Grid, BtnEnde, btnState
Declarar Int zeile
Var Int Ende = 0
Grid     = Crear("GridBox", %hwnd, "Nr.;0;40;Eintrag;0;135;DATUM;0;135", 2, 100, 70, 410, 370)
BtnEnde  = Crear("Button",%hwnd,"ENDE",500,500,190,25)
btnState = Crear("Button",%hwnd,"Deselektieren", 520,100,120,25)

WhileLoop 1, 50

    Addstring(Grid, Str$(&LOOP) + "|" + "EINTRAG" + "|" + Date$(0))

EndWhile

Sinestar encargado Ende

    WaitInput

    If Clicked(BtnEnde)

        Let Ende = 1

    Endif

    If Clicked(btnstate)

        'SendMessage(Grid, 4139, 1, 0)' Línea(n) entmarkieren
        LvDeSelect Grid,GetCurSel(Grid)' markierte Línea(n) entmarkieren

    EndIf

Endwhile

FIN

Servus

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

06.03.2017 ▲

¡Hola,

Yo durchschaue deine Proc ahora no, aber ellos funktioniert. Das lo así aufwendig ser muss, Yo eigentlich no esperado. En uno Auswahl en el Gridbox reicht una Clic. En mehrfach Auswahl se zuerst el letzte gemachte deselektiert y una más Clic el restlichen.
Tuve me sólo una vez con un hin y her kopieren geholfen, pero en uno bastante langen GridListe dauert el ya una Weile, así es jedenfalls viel-viel más rápido.

Dank a euch beide y
Grüße, Peter

07.03.2017 ▲

Georg
Teles

Sí como hast Usted Recht, el Proc deaktiviert sólo una Línea, el zuletzt markierte.

Um Alle Zeilen abzufragen kannst Usted Por ejemplo mittels uno Bucle Folgendes versuchen

If Clicked(btnstate)

    'SendMessage(Grid, 4139, 1, 0)' Línea(n) entmarkieren

    WhileLoop 0,GetCount(Grid)-1'zähle de 0 a Anzahl Einträge minus 1, como el erste Position = 0 es

        caso GetState(Grid,&bucle)>=1:LvDeSelect Grid,&bucle'sobald el durchlaufende Línea markiert oder aktiv es, se ellos demarkiert voluntad

    EndWhile

EndIf

Wenn deine Liste algo länger es, mostrar si el Bucle a viel Tiempo kostet. Espero con solange en mi Archiv si Yo como qué Brauchbares sin Bucle finde.

Servus

XProfan X3
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

10.03.2017 ▲

R.Schneider

Georg Teles (06.03.2017)

SendMessage(Lv&,~LVM_SETITEMSTATE,Item&,s#)

Ersetze veces "Item&" por "-1", entonces debería lo para todos Einträge en una vez trabajo.

Saludo
Rudger

Perbody is nofect !

12.03.2017 ▲

¡Hola zusammen,

Yo durchschaue el Proc sí no y el sustituir des "Item&" con -1 natürlich auch no, aber ahora funktioniert lo perfekt!
Vielen Dank y Grüße, Peter

15.03.2017 ▲