XProfan

Français

Jac
de
Lad

merci Rolf, maintenant ist alles bien sûr (ou bien alles futsch...la fois voyons).

@iF: Du musst mir aider: je kriege ne...aucune funktionsfähiges Beispiel hin, wohin un Droit dans einer Gridbox abgefangen wird. mais lass dir Zeit, je va juste ins Bett et suis demain sur ner enterrement et samedi chez meiner amie, alors wahrscheinlich seulement dimanche soir wieder 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 citation

Absatzweise Citation Zeilenweise Citation

- page 1 -

Jac
de
Lad

merci!

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 citation

Absatzweise Citation Zeilenweise Citation

Hm ne...aucune Problem klappt doch wunderbar:
Kompilieren Marque Séparation

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

Absatzweise Citation Zeilenweise Citation

et ensuite hatte Roland im Phorum ebend et avec ca d'autre geschrieben - je darf la fois Citation:

So wird es ab RC5 - venez aujourd'hui soir - marcher:
Kompilieren Marque Séparation

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

on beachte qui neue Systemvariable %ChildMessage! Aussi volonté %MouseX et %MouseY maintenant aussi chez Droit sur un Dialogeleent korrekt gesetzt. Statt %ChildMessage pourrait on eh bien aussi %MousePressed = 2 abfragen.

GrußRoland

14.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

Öhhm, je exposition la fois quoi chez mir faux fonctionne.

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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

la hâte Du peut-être wieder qui LV sur un d'autre Contrôle gesetzt?

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

14.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

[quote-part:2f0666031a=Jörg Sellmeyer]la hâte Du peut-être wieder qui LV sur un d'autre Contrôle gesetzt?[/quote-part:2f0666031a]
Hm cela devrait eigendlich égal son!

15.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

c'est égal:
Kompilieren Marque Séparation

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

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

cela Listview liegt sur dem %HWnd. je schaus mir ce soir la fois à!

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 citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

alors dein Beispiel klappt, mais chez mir im Digicam-Assistenten klappts komischerweise pas. je coutume sûrement encore Weile jusqu'à je herausgefunden habe, pourquoi...

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 citation

Absatzweise Citation Zeilenweise Citation

Hm ok je suis gespannt trop savons woran es lag!

15.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

- page 2 -

Stop avec neuer Unit allez cela maintenant anders! je schreibs juste la fois sur!

18.09.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

ici nochmal Droit sur Listview am PCU-V0.0.3:
Kompilieren Marque Séparation

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