XProfan

Español

Julian
Schmidt

¡Hola,
Yo sería gerne erfassen si innerhalb uno cierto Bereichs uno Haupt-, oder Dialogfensters una Links,- Rechts-, Doppel(links)klick gemacht wurde.
Yo weiß el lo etwa para Links y Rechtsklick el Messages WM_LButtonDown, WM_RButtonDown son. Nur como ermittle Soy un Haga doble clic en innerhalb uno cierto Bereichs?
Kompilieren Marca Separación

Def LinksImBereich(4) (%message=$201) and (%MouseX>@&(1)) and (%MouseX<@&(3)) and (%MouseY>@&(2)) and (%MouseY<@&(4))
Def RechtsImBereich(4) (%message=$204) and (%MouseX>@&(1)) and (%MouseX<@&(3)) and (%MouseY>@&(2)) and (%MouseY<@&(4))
Windowstyle 24
cls
UseBrush 7,RGB(153,153,153)
Rectangle 50,50 - (width(%hwnd)-50),(height(%hwnd)-50)

While 1

    Waitinput

    If LinksImBereich(50,50,width(%hwnd)-50,height(%hwnd)-50)'Links im Innen-Rechteck = Verschieben

        UseCursor 5
        SendMessage(%hwnd,$112,$F012,0)
        External("USER32","ReleaseCapture")
        UseCursor 0

    Elseif RechtsImBereich(50,50,width(%hwnd)-50,height(%hwnd)-50)=0'Rechts im Außen-Rechteck = Ende

        break

    EndIf

Endwhile

LG

Julian57

XProfan X2
Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor
˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

24.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

« Dieser Contribución wurde como Solución gekennzeichnet. »

Detlef
Jagolski

Und así con SubClassing!
Kompilieren Marca Separación

 $P+
SetErrorLevel 0
 $H WINDOWS.PH
 $H MESSAGES.PH
 $H STRUCTS.PH
STRUCT TRect         = ~Rect
STRUCT TPoint        = ~Point
Declare appexit%
Declare Point#
Declare Rect#
Declare Punkt&
Dim Point#,TPoint
Dim Rect#,TRect

SubClassProc

    If SubClassMessage(%hwnd, ~WM_LBUTTONDBLCLK)

        Point#.X& = LOWORD(&sLParam)
        Point#.Y& = HIWORD(&sLParam)
        ~SetRect(Rect#,70,70,200,200)
        Case ~PtInRect(Rect#,Point#.X&,Point#.Y&) <> 0: Print "Doppelklick Links"

    ElseIf SubClassMessage(%hwnd, ~WM_RBUTTONDBLCLK)

        Point#.X& = LOWORD(&sLParam)
        Point#.Y& = HIWORD(&sLParam)
        ~SetRect(Rect#,70,70,200,200)
        Case ~PtInRect(Rect#,Point#.X&,Point#.Y&) <> 0: Print "Doppelklick Rechts"

    EndIf

    Set("WinProc",1)

EndProc

SetTrueColor 1
WindowStyle $003F
WindowTitle "DesignForm"
Window %maxX + 5,114 - 498,415
Cls ~GetSysColor(15)
~SetClassLong(%hwnd,~GCL_STYLE,(~GetClassLong(%hwnd, ~GCL_STYLE) + ~CS_DBLCLKS))
Rectangle 70,70 - 200,200
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
SubClass %hwnd,1
SetWindowPos %hwnd = 207,114 - 498,415;0

WhileNot appexit%

    WaitInput

    If %key = 2

        appexit%=1

    ElseIf %key = 4

        ' Fenstergröße

    ElseIf %key = 5

        ' Hilfe

    EndIf

Wend

SubClass %hwnd,0
Dispose Point#
'./../../function-references/XProfan/disponer/'>Disponer Rect#

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

25.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Jagolski

Aus el API Ayuda!

WM_NCLBUTTONDBLCLK
WM_MBUTTONDBLCLK
WM_RBUTTONDBLCLK
WM_LBUTTONDBLCLK

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

24.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Ein Ejemplo?

24.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

¿Puede z.B. wm_lButtonDblClk como UserMessage festlegen...

XProfan X2
Win7 Home Premium, SP1, Core(TM)2 Duo E6750 @ 2.66GHz

24.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Also prinzipiell algo como? Funktioniert aber por desgracia, no.

Kompilieren Marca Separación

cls
Usermessages $203

While 1

    Waitinput
    case %UMessage=$203 : messagebox("test","",0)

Endw

24.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Ventana de Estilo 512 oder SubClassProc...

XProfan X2
Win7 Home Premium, SP1, Core(TM)2 Duo E6750 @ 2.66GHz

25.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Funktioniert aber trotzdem no. Kompilieren Marca Separación cls Usermessages $203 Subclass %hwnd,1 SubClassProc case SubClassMessage(%hwnd, $203) : messagebox("test","",0) EndProc While 1 Waitinput case iskey(27) : end
XProfan X2 Win7 Home Premium, SP1, AMD Athlon(tm) II Neo K125 Processor ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...]	25.09.2011 ▲ Vollständiges Zitat Absatzweise Cita Zeilenweise Cita

Dieter
Zornow

Müsste doch simplemente así ir
Kompilieren Marca Separación

Declare X&
Def Getclasslong(2) !"USER32","GetClassLongA"
Def Setclasslong(3) !"USER32","SetClassLongA"
Cls
Usermessages $203,$206
X&=Getclasslong(%Hwnd,-26)
X&=X& | 8
Setclasslong(%Hwnd,-26,X&)'CS_DBLCLKS Class-Style setzen.

While 1

    Waitinput
    Case %Key=2:Break

    If %Umessage=$203

        Print "Linker Doppelklick."

    Elseif %Umessage=$206

        Print "Rechter Doppelklick."

    Endif

Endwhile

Usermessages 0
End

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

25.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Detlef
Jagolski

Und así con SubClassing!
Kompilieren Marca Separación

 $P+
SetErrorLevel 0
 $H WINDOWS.PH
 $H MESSAGES.PH
 $H STRUCTS.PH
STRUCT TRect         = ~Rect
STRUCT TPoint        = ~Point
Declare appexit%
Declare Point#
Declare Rect#
Declare Punkt&
Dim Point#,TPoint
Dim Rect#,TRect

SubClassProc

    If SubClassMessage(%hwnd, ~WM_LBUTTONDBLCLK)

        Point#.X& = LOWORD(&sLParam)
        Point#.Y& = HIWORD(&sLParam)
        ~SetRect(Rect#,70,70,200,200)
        Case ~PtInRect(Rect#,Point#.X&,Point#.Y&) <> 0: Print "Doppelklick Links"

    ElseIf SubClassMessage(%hwnd, ~WM_RBUTTONDBLCLK)

        Point#.X& = LOWORD(&sLParam)
        Point#.Y& = HIWORD(&sLParam)
        ~SetRect(Rect#,70,70,200,200)
        Case ~PtInRect(Rect#,Point#.X&,Point#.Y&) <> 0: Print "Doppelklick Rechts"

    EndIf

    Set("WinProc",1)

EndProc

SetTrueColor 1
WindowStyle $003F
WindowTitle "DesignForm"
Window %maxX + 5,114 - 498,415
Cls ~GetSysColor(15)
~SetClassLong(%hwnd,~GCL_STYLE,(~GetClassLong(%hwnd, ~GCL_STYLE) + ~CS_DBLCLKS))
Rectangle 70,70 - 200,200
UseFont "MS Sans Serif",13,0,0,0,0
SetDialogFont 1
SubClass %hwnd,1
SetWindowPos %hwnd = 207,114 - 498,415;0

WhileNot appexit%

    WaitInput

    If %key = 2

        appexit%=1

    ElseIf %key = 4

        ' Fenstergröße

    ElseIf %key = 5

        ' Hilfe

    EndIf

Wend

SubClass %hwnd,0
Dispose Point#
'./../../function-references/XProfan/disponer/'>Disponer Rect#

XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11

25.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Ok, el beiden Fuente trabajo super!
Besonders el Variante de Detlef

25.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

IF hats doch geschrieben...Ventana de Estilo 512 oder SubClassProc...

Darauf schreibst Usted Funktioniert aber trotzdem no en un Ejemplo qué weder winstyle 512 o Proc nutzt.

Soll uno se schwer a kopf fassen.

25.09.2011 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Julian
Schmidt

Unbenannt (25.09.11)

IF hats doch geschrieben...Ventana de Estilo 512 oder SubClassProc...
Darauf schreibst Usted Funktioniert aber trotzdem no en un Ejemplo qué weder winstyle 512 o Proc nutzt.
Soll uno se schwer a kopf fassen.

Wo es en el Ejemplo kein SubClassProc?

Julian57 (25.09.11)

Kompilieren Marca Separación

cls
Usermessages $203
Subclass %hwnd,1

SubClassProc

    case SubClassMessage(%hwnd, $203) : messagebox("test","",0)

EndProc

While 1

    Waitinput
    case iskey(27) : end

KompilierenMarcaSeparación $H WINDOWS.PH
Usermessages $203
cls
~SetClassLong(%hwnd,~GCL_STYLE,(~GetClassLong(%hwnd, ~GCL_STYLE) + ~CS_DBLCLKS))
Subclass %hwnd,1

SubClassProc

    caso SubClassMessage(%hwnd, $203) : messagebox("test","",0)

ENDPROC

Mientras que 1

    Waitinput
    caso iskey(27) : end

Endwhile


Lo ha sólo el CS_DBLCLKS Class-Style gefehlt