XProfan

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

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 ▲

Kompilieren Marca Separación

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:

Kompilieren Marca Separación

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.

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 ...

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

[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 ...

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

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