XProfan

Español

Jac
de
Lad

Gracias Rolf, ahora es alles klar (oder alles futsch...veces sehen).

@IF: Usted musst me helfen: Yo kriege kein funktionsfähiges Ejemplo hin, wo una Rechtsklick en uno Gridbox abgefangen se. Aber lass dir Tiempo, Yo geh igual en el Bett y bin morgen en ner Beerdigung y Samstag en meiner Freundin, also wahrscheinlich sólo Sonntag abend otra vez drin.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

14.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 1 -

Jac
de
Lad

Gracias!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

14.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hm kein Problema klappt doch wunderbar:
Kompilieren Marca Separación

 {$cleq}
 $U on.pcu = on.
Def GetSysColor(1) !User32,GetSysColor
declare lb&,dlg&
//unsichtbares Hauptfenster damit lecker messages angekommen
windowstyle 80 | 1024
window 0,0 - 0,0
showwindow(%hwnd,0)
//
windowstyle 512+8
dlg&:=createdialog(0,MyDlg,100,100,640,480)
lb& = create(GridBox,dlg&,0;0;340;0;2;100,0,0,0,300,300)
on.event close	,dlg&	,12344
on.event ldklick	,lb&	,12345
on.event rklick	,lb&	,12346

while 1

    waitinput
    case %umessage==12344 : break
    case %umessage==12345 : settext dlg&,dblklick +str$(&gettickcount)
    case %umessage==12346 : .trackmenu

wend

on.delevent close	,dlg&	,12344
on.delevent ldklick	,lb&	,12345
on.delevent rklick	,lb&	,12346
on.close
end

proc .trackmenu

    declare mx&,my&
    my&:=hiword(&ulparam)
    mx&:=loword(&ulparam)
    createmenu
    appendmenu 100,ll
    Trackmenu_byxy_bydialog mx&,my&,dlg&

endproc

Proc Trackmenu_byxy

    Parameters X&,Y&
    Declare Gmp#,Dx&,Dy&
    Dim Gmp#,8
    External(user32,ClientToScreen,%Hwnd,Gmp#)
    Dx&=Long(Gmp#,0)
    Dy&=Long(Gmp#,4)
    Trackmenu (X&-Dx&),(Y&-Dy&)
    Dispose Gmp#

Endproc

Proc Trackmenu_byxy_bydialog

    Parameters X&,Y&,H&
    Declare Gmp#,Dx&,Dy&
    Dim Gmp#,8
    External(user32,ClientToScreen,H&,Gmp#)
    Dx&=Long(Gmp#,0)
    Dy&=Long(Gmp#,4)
    Trackmenu_byxy X&+Dx&,Y&+Dy&
    Dispose Gmp

class=s4 href='./../../function-references/XProfan/ENDPROC/'>ENDPROC

14.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Und entonces hatte Roland en el Phorum ebend todavía de otra manera geschrieben - Yo darf veces Cita:

So se lo de RC5 - kommt heute Abend - trabajo:
Kompilieren Marca Separación

WindowStyle 112
window 100,100-600,500
Declare Hgrid&
hgrid& = create(GridBox,%Hwnd,0;0;340;0;2;100,0,0,0,width(%Hwnd),Height(%Hwnd))
Declare ende%

WhileNot ende%

    WaitInput

    IF Equ(%key,2)

        Let ende%=1

    ELSEIF getfocus(hgrid&)

        If %childmessage = 516

            CreateMenu
            AppendMenu 100,Programm konfigurieren
            AppendMenu 101,Eintrag hinzufügen
            AppendMenu 102,Einträge bearbeiten
            AppendMenu 103,Neue Gruppe anlegen
            SubPopUp Gruppe wechseln
            AppendMenu 104,Gruppe1
            EndSub
            Separator
            AppendMenu 1000,Programmende
            TrackMenu %MouseX, %MouseY

            If MenuItem(1000)

                ende% = 1

            EndIf

        EndIf

    EndIf

EndWhile

Man beachte el neue Systemvariable %ChildMessage! Außerdem voluntad %MouseX y %MouseY ahora en Rechtsklick en una Dialogeleent korrekt gesetzt. Statt %ChildMessage podría uno nun auch %MousePressed = 2 abfragen.

GrußRoland

14.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Öhhm, Yo tener un aspecto en me falso se ejecuta.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

14.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Hast Usted tal vez otra vez el LV en una más Control gesetzt?

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

14.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

[quote:2f0666031a=Jörg Sellmeyer]Hast Usted tal vez otra vez el LV en una más Control gesetzt?[/quote:2f0666031a]
Hm el debería eigendlich egal ser!

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Es egal:
Kompilieren Marca Separación

 {$cleq}
 $U on.pcu = on.
Def GetSysColor(1) !User32,GetSysColor
declare lb&,dlg&,st&
window 0,0 - 640,480
dlg&:=%hwnd
st&:=create(Text,dlg&,,50,50,300,300)
lb& = create(GridBox,st&,0;0;340;0;2;100,0,0,0,300,300)
on.event close	,dlg&	,12344
on.event ldklick	,lb&	,12345
on.event rklick	,lb&	,12346

while 1

    waitinput
    case %umessage==12344 : break
    case %umessage==12345 : settext dlg&,dblklick +str$(&gettickcount)
    case %umessage==12346 : .trackmenu

wend

on.delevent close	,dlg&	,12344
on.delevent ldklick	,lb&	,12345
on.delevent rklick	,lb&	,12346
on.close
end

proc .trackmenu

    declare mx&,my&
    my&:=hiword(&ulparam)
    mx&:=loword(&ulparam)
    createmenu
    appendmenu 100,ll
    Trackmenu_bymousepos

endproc

Proc Trackmenu_bymousepos

    Declare Gmp#,Dx&,Dy&
    Dim Gmp#,8
    External(user32,ClientToScreen,%Hwnd,Gmp#)
    Dx&=Long(Gmp#,0)
    Dy&=Long(Gmp#,4)
    External(user32,GetCursorPos,Gmp#)
    Trackmenu (Long(Gmp#,0)-Dx&),(Long(Gmp#,4)-Dy&)
    Dispose Gmp#

../../function-references/XProfan/ENDPROC/'>ENDPROC

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Das Listview liegt en el %HWnd. Yo schaus me heute abend veces a!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jac
de
Lad

Also dein Ejemplo klappt, pero en me en el Digicam-Assistenten klappts komischerweise no. Yo costumbre sicher todavía Weile a Yo herausgefunden habe, por qué...

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hm ok Yo bin gespannt a wissen woran lo lag!

15.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

- Página 2 -

Stop con neuer Unit va el ahora anders! Yo schreibs igual veces en!

18.09.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Hier otra vez Rechtsklick en Listview al PCU-V0.0.3:
Kompilieren Marca Separación

 {$Cleq}
 $U On.pcu = On.
Def Getsyscolor(1) !User32,GetSysColor
Declare Lb&,Dlg&
//unsichtbares Hauptfenster damit lecker messages angekommen
Windowstyle 80 | 1024
Window 0,0 - 0,0
Showwindow(%Hwnd,0)
//
Windowstyle 512+8
Dlg&:=Createdialog(0,MyDlg,100,100,640,480)
Lb& = Create(GridBox,Dlg&,0;0;340;0;2;100,0,0,0,300,300)
declare onclose&,onldklick&,onrkklick&
onclose&:=On.event(close ,Dlg&)
onldklick&:=On.event(ldklick ,Lb&)
onrkklick&:=On.event(rklick ,Lb&)

While 1

    Waitinput
    Case %Umessage==onclose& : Break
    Case %Umessage==onldklick& : Settext Dlg&,dblklick +Str$(&Gettickcount)
    Case %Umessage==onrkklick& : .Trackmenu

Wend

On.close
End

Proc .Trackmenu

    Declare Mx&,My&
    My&:=Hiword(&Ulparam)
    Mx&:=Loword(&Ulparam)
    Createmenu
    Appendmenu 100,ll
    Trackmenu_byxy_bydialog Mx&,My&,Dlg&

Endproc

Proc Trackmenu_byxy

    Parameters X&,Y&
    Declare Gmp#,Dx&,Dy&
    Dim Gmp#,8
    External(user32,ClientToScreen,%Hwnd,Gmp#)
    Dx&=Long(Gmp#,0)
    Dy&=Long(Gmp#,4)
    Trackmenu (X&-Dx&),(Y&-Dy&)
    Dispose Gmp#

Endproc

Proc Trackmenu_byxy_bydialog

    Parameters X&,Y&,H&
    Declare Gmp#,Dx&,Dy&
    Dim Gmp#,8
    External(user32,ClientToScreen,H&,Gmp#)
    Dx&=Long(Gmp#,0)
    Dy&=Long(Gmp#,4)
    Trackmenu_byxy X&+Dx&,Y&+Dy&
    Dispose Gmp#

'./../../references-fonction/XProfan/ENDPROC/'>ENDPROC