XProfan

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

dis donc si je à gauche klicke ensuite wird alles pleine et si je à droite klicke ensuite wird aussi alles pleine et un PopupMenü angezeigt.

Zumindest funzt es so chez mir chez XP. allez cela chez Dir pas?

12.09.2015 ▲

Kompilieren Marque Séparation

RGH

deux Sachen:

%MouseKey wird beim ersten Lecture sur 0 zurückgesetzt! So quelque chose comment

Si %MouseKey = 1

    <...>

ElseIf %MouseKey = 2

    <...>

EndIf

peux alors pas marcher. ici wäre %MousePressed trop prendre (siehe Aider!)

sélectionner comme Variable peux Probleme bereiten, là ca un Befehlswort ist. Zumindest bereitet es chez qui korrekten Formattierung ici im Forum Probleme!

So funktioniert es, comment de Dir gewünscht:

Kompilieren Marque Séparation

Déclarer Handle Grid, edit1, edit2, edit3
Déclarer Int ende, la ligne, xselect, szeile
Déclarer String spalten, leerzeile
spalten = "Artikel;0;120;Menge;0;60;Preis;0;80"
ende = 0
Fenêtre 800, 600
@Créer("Text", %HWnd, "Artikel :", 10, 70, 70, 25)
edit1 = @Créer("Edit", %HWnd, », 90, 70, 240, 25)
@Créer("Text", %HWnd, "Menge :", 350, 70, 70, 25)
edit2 = @Créer("Edit", %HWnd, », 440, 70, 120, 25)
@Créer("Text", %HWnd, "Preis :", 10, 110, 70, 25)
edit3 = @Créer("Edit", %HWnd, », 90, 110, 240, 25)
Grid  = @Créer("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")

WhileNot ende

    WaitInput

    Si @Clicked(Grid)' Eintrag dans qui Gridbox geklickt ?

        la ligne = @GetCurSel(Grid)

        Si (%MousePressed = 1) and (GetState(Grid, la ligne))

            xselect = 1
            SetText edit1, GetText $(Grid, la ligne, 0)
            SetText edit2, GetText $(Grid, la ligne, 1)
            SetText edit3, GetText $(Grid, la ligne, 2)

        ElseIf %MousePressed = 2

            CreateMenu
            AppendMenu 111,"&Leerzeile einfügen"
            AppendMenu 112,"&Oberhalb  phrase einfügen"
            AppendMenu 113,"&Unterhalb phrase einfügen"
            TrackMenu %MouseX,%MouseY

            Si @MenuItem(111)

                szeile = @GetcurSel(Grid) + 1
                InsertString(Grid, szeile, leerzeile)

            ElseIf @MenuItem(112)

                szeile = @GetCurSel(Grid) - 1
                InsertString(Grid, szeile, @GetText $(Éditer1) + "|" + @GetText $(Éditer2) + "|" + @GetText $(Éditer3))

            ElseIf @MenuItem(113)

                szeile = @GetCurSel(Grid) + 1
                InsertString(Grid, szeile, @GetText $(Éditer1) + "|" + @GetText $(Éditer2) + "|" + @GetText $(Éditer3))

            EndIf

        EndIf

    EndIf

Endwhile

Fin

Salut
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

merci,
so voulais je es avons.

Jörg
Sellmeyer

[OFFTOPIC]je voulais den Fil dans cela normale Forum (per "Ausschneiden") Déplacer, là sich cela Problem oui comme aucun herausgestellt hat. malheureusement funktioniert cela pas.[/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]cela Thema ist maintenant dans "XProfan Forum", je habs là pas hin déménagé. je muss mais encore la fois zusehen dass cela Déplacer et Abtrennen de Unterthemen sûrement funktioniert et cela on Sujets trop Unterthemen Déplacer peux.[/OFFTOPIC]

Jörg
Sellmeyer

[OFFTOPIC]Ok - ensuite scheint es doch funktioniert trop avons. je hab jedenfalls seulement ne Fehlerseite gesehen, comme je es gemacht habe.

P.S.: cet Offtopic-Posts lösche je später wieder.
[/OFFTOPIC]

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

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

peux Du mir s'il te plaît den Fehlercode appeler? 500 ou bien 404? cela wäre mir important. Hat qui Vorgang très longtemps gedauert ou bien ging es très fix?