| |
|
|
Pk | ¡Hola,
con un Mausklick puede ser sí en uno GridBox una Línea selektieren. Kann uno esta Auswahl auch otra vez rückgängig hacer - Así que el GridBox selektionsfrei hacer? Yo habe hier X3.1.
Grüße, Peter |
|
|
| |
|
|
|
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 ▲ |
|
|
|
|
Pk | 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 |
|
|
| |
|
|
|
Georg Teles | Bueno Abend,
füge veces Folgendes hinzu
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 |
|
|
| |
|
|
|
Pk | ¡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 |
|
|
| |
|
|
|
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
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 |
|
|
| |
|
|
|
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 |
|
|
| |
|
|
|
Pk | ¡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 |
|
|
| |
|
|