Español
Foro

GetState(N1, N2)

 

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?
 
12.09.2015  
 




RGH
Zwei Sachen:

%MouseKey se beim ersten Auslesen en 0 zurückgesetzt! So algo como
If %MouseKey = 1

    <...>

ElseIf %MouseKey = 2

    <...>

EndIf


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]
 
13.09.2015  
 




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?
 
13.09.2015  
 




Michael
W.
Yo bekam ne 404
 
XProfan X3
System: Windows 8/10, XProfan X4
Programmieren, das spannendste Detektivspiel der Welt.
14.09.2015  
 



Respuesta


Título del Tema, max. 100 Signo.
 

Systemprofile:

Kein Systemprofil creado. [anlegen]

XProfan:

 Contribución  Font  Smilies  ▼ 

Bitte registro en una Contribución a verfassen.
 

Tema opciones

6.100 Views

Untitledvor 0 min.
Ralf Netz22.05.2021
Michael W.11.08.2018
HofK08.08.2018
Jörg Sellmeyer25.05.2018
Más...

Themeninformationen



Admins  |  AGB  |  Applications  |  Autores  |  Chat  |  Política de Privacidad  |  Descargar  |  Entrance  |  Ayuda  |  Merchantportal  |  Pie de imprenta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Juegos  |  Búsqueda  |  Support

Ein Projekt aller XProfan, el lo son!


Mi XProfan
Privado Noticias
Eigenes Ablageforum
Temas-Merkliste
Eigene Beiträge
Eigene Temas
Zwischenablage
Cancelar
 Deutsch English Français Español Italia
Traducciones

Política de Privacidad


Wir uso Cookies sólo como Session-Cookies wegen el technischen Notwendigkeit y en uns hay no Cookies de Drittanbietern.

Wenn du hier en unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung de Informationen en unseren Cookies en XProfan.Net a.

Weitere Informationen a unseren Cookies y dazu, como du el Kontrolle darüber behältst, findest du en unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Yo möchte no Cookie