Foro | | | | H.Brill | Könnte uno en GetState() auch el aktuellen Mausklick (rechts/links/mitte) obtener ?
Bekomme el en el Moment no hin : Wenn en un Gridbox geklickt se, debería en Linksklick el Editboxen gefüllt voluntad y en Rechtsklick una Popup-Menu erscheinen y el Ausgewählte ausgeführt voluntad.
Hier veces una Minimal Ejemplo :
Declarar Handle Grid, edit1, edit2, edit3
Declarar Int ende, zeile, seleccionar, szeile
Declarar String spalten, leerzeile
spalten = "Artikel;0;120;Menge;0;60;Preis;0;80"
ende = 0
Ventana 800, 600
@Crear("Text", %HWnd, "Artikel :", 10, 70, 70, 25)
edit1 = @Crear("Edit", %HWnd, "", 90, 70, 240, 25)
@Crear("Text", %HWnd, "Menge :", 350, 70, 70, 25)
edit2 = @Crear("Edit", %HWnd, "", 440, 70, 120, 25)
@Crear("Text", %HWnd, "Preis :", 10, 110, 70, 25)
edit3 = @Crear("Edit", %HWnd, "", 90, 110, 240, 25)
Grid = @Crear("GridBox", %HWnd, spalten, 0, 10, 180, 400, 300)
AddStrings(Grid, "Eier|10|0.25")
AddStrings(Grid, "Butter|5|1.25")
AddStrings(Grid, "Käse|2|2.50")
Sinestar encargado ende
WaitInput
If @Clicked(Grid)' Eintrag en el Gridbox geklickt ?
zeile = @GetCurSel(Grid)
If @GetState(Grid, zeile)
seleccionar = 1
SetText edit1, GetText $(Grid, zeile, 0)
SetText edit2, GetText $(Grid, zeile, 1)
SetText edit3, GetText $(Grid, zeile, 2)
EndIf
If %MouseKey = 2
CreateMenu
AppendMenu 111,"&Leerzeile einfügen"
AppendMenu 112,"&Oberhalb Satz einfügen"
AppendMenu 113,"&Unterhalb Satz einfügen"
TrackMenu %MouseX,%MouseY
If @MenuItem(111)
szeile = @GetcurSel(Grid) + 1
InsertString(Grid, szeile, leerzeile)
ElseIf @MenuItem(112)
szeile = @GetCurSel(Grid) - 1
InsertString(Grid, szeile, @GetText $(Editar1) + "|" + @GetText $(Editar2) + "|" + @GetText $(Editar3))
ElseIf @MenuItem(113)
szeile = @GetCurSel(Grid) + 1
InsertString(Grid, szeile, @GetText $(Editar1) + "|" + @GetText $(Editar2) + "|" + @GetText $(Editar3))
EndIf
EndIf
EndIf
EndWhile
End
Habs auch veces con %MouseKey = 1 para Linksklick probiert. Yo denke, si GetState() todavía 2 - 3 weitere Werte para el Mausklicks zurückliefern podría, ginge el einfacher.
Ist insofern schwierig, como GetState() wohl auch en una Rechtsklick reagiert y somit el Editfelder otra vez encima- schrieben en lugar de ausgelesen voluntad.
Como bekommt uno ahora algo como correcto gebacken ? |
| | | 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. | 12.09.2015 ▲ |
| |
| | | Sag veces si yo links klicke Luego se alles gefüllt y si yo rechts klicke Luego se auch alles gefüllt y una PopupMenü adecuado.
Zumindest funzt lo así en me en XP. Geht esto con usted no? |
| | | | |
| | RGH | Zwei Sachen:
%MouseKey se beim ersten Auslesen en 0 zurückgesetzt! So algo como
kann also no trabajo. Hier wäre %MousePressed a nehmen (siehe Ayuda!)
seleccionar como Variable kann Problemas bereiten, como dies una Befehlswort es. Zumindest bereitet lo en korrekten Formattierung hier en el Foro Problemas!
So funktioniert lo, como de Usted gewünscht:
Declarar Handle Grid, edit1, edit2, edit3
Declarar Int ende, zeile, xselect, szeile
Declarar String spalten, leerzeile
spalten = "Artikel;0;120;Menge;0;60;Preis;0;80"
ende = 0
Ventana 800, 600
@Crear("Text", %HWnd, "Artikel :", 10, 70, 70, 25)
edit1 = @Crear("Edit", %HWnd, "", 90, 70, 240, 25)
@Crear("Text", %HWnd, "Menge :", 350, 70, 70, 25)
edit2 = @Crear("Edit", %HWnd, "", 440, 70, 120, 25)
@Crear("Text", %HWnd, "Preis :", 10, 110, 70, 25)
edit3 = @Crear("Edit", %HWnd, "", 90, 110, 240, 25)
Grid = @Crear("GridBox", %HWnd, spalten, 0, 10, 180, 400, 300)
AddStrings(Grid, "Eier|10|0.25")
AddStrings(Grid, "Butter|5|1.25")
AddStrings(Grid, "Käse|2|2.50")
Sinestar encargado ende
WaitInput
If @Clicked(Grid)' Eintrag en el Gridbox geklickt ?
zeile = @GetCurSel(Grid)
If (%MousePressed = 1) and (GetState(Grid, zeile))
xselect = 1
SetText edit1, GetText $(Grid, zeile, 0)
SetText edit2, GetText $(Grid, zeile, 1)
SetText edit3, GetText $(Grid, zeile, 2)
ElseIf %MousePressed = 2
CreateMenu
AppendMenu 111,"&Leerzeile einfügen"
AppendMenu 112,"&Oberhalb Satz einfügen"
AppendMenu 113,"&Unterhalb Satz einfügen"
TrackMenu %MouseX,%MouseY
If @MenuItem(111)
szeile = @GetcurSel(Grid) + 1
InsertString(Grid, szeile, leerzeile)
ElseIf @MenuItem(112)
szeile = @GetCurSel(Grid) - 1
InsertString(Grid, szeile, @GetText $(Editar1) + "|" + @GetText $(Editar2) + "|" + @GetText $(Editar3))
ElseIf @MenuItem(113)
szeile = @GetCurSel(Grid) + 1
InsertString(Grid, szeile, @GetText $(Editar1) + "|" + @GetText $(Editar2) + "|" + @GetText $(Editar3))
EndIf
EndIf
EndIf
EndWhile
End
Saludo Roland |
| | | Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4 | 12.09.2015 ▲ |
| |
| | H.Brill | Gracias, así Yo quería lo haben. |
| | | 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. | 13.09.2015 ▲ |
| |
| | Jörg Sellmeyer | [OFFTOPIC]Yo quería el hilo en el normale Foro (por "Ausschneiden") mover, como se el problema sí como keines herausgestellt ha. Leider funktioniert el no.[/OFFTOPIC] |
| | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 13.09.2015 ▲ |
| |
| | | [OFFTOPIC]Das Thema es ahora en "XProfan Forum", Yo habs como no hin movido. Yo muss aber una vez más zusehen dass el Verschieben y Abtrennen de Unterthemen sicher funktioniert y el uno Temas a Unterthemen mover kann.[/OFFTOPIC] |
| | | | |
| | Jörg Sellmeyer | [OFFTOPIC]Ok - entonces scheint lo doch funktioniert a haben. Yo jedenfalls sólo ne Fehlerseite gesehen, como Yo gemacht habe.
P.S.: Diese Offtopic-Beiträge lösche Yo später otra vez. [/OFFTOPIC] |
| | | Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 13.09.2015 ▲ |
| |
| | | ¿Puede Usted me Por favor, el Fehlercode nennen? 500 oder 404? Das wäre me Wichtig. Sombrero el Vorgang muy largo gedauert oder ging lo muy fix? |
| | | | |
| | Michael W. | | | | XProfan X3System: Windows 8/10, XProfan X4 Programmieren, das spannendste Detektivspiel der Welt. | 14.09.2015 ▲ |
| |
|
RespuestaThemeninformationenDieses Thema ha 5 subscriber: |