XProfan

English

Jac
de
Lad

thanks Rolf, now is everything clear (or everything mci .....time see).

@iF: You must me help: I wars no funktionsfähiges example there, where one Rechtsklick in a GridBOX abgefangen becomes. but lass you Time, I go same in that bed and be tommorrow on Ner funeral and saturday with of my girl-friend, means probably first sunday evening again 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

09/14/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

I gugs me on!

09/14/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

Thank you!

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

09/14/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Hm no trouble works still wonderful:
Compile Mark Separation

 {$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

09/14/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

And then having Roland in the Phorum ebend yet something other written - I must time Quote:

so becomes it ex RC5 - comes today evening - functions:
Compile Mark Separation

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

one mind the new Systemvariable %ChildMessage! Also go %MouseX and %MouseY now too with Rechtsklick on one Dialogeleent correctly staid. but not %ChildMessage could one now too %MousePressed = 2 inquire.

GrußRoland

09/14/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

Öhhm, I look something by me wrong runs.

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

09/14/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

have You Perhaps again The LV on one other Control staid?

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

09/14/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

[quote:2f0666031a=Jörg Sellmeyer]have You Perhaps again The LV on one other Control staid?[/quote:2f0666031a]
Hm the should eigendlich alike his!

09/15/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

its alike:
Compile Mark Separation

 {$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