XProfan

English

Jac
de
Lad

I Have already everything probiert, what me moreover invaded is. white someone, How I the Context menu in a HTMLWin prevent can (Rechtsklick) and instead to that example one own Show can? i think time, the goes over The subclassproc, but I habs simply not hingekriegt.

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

07/12/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

Compile Mark Separation

declare html&
cls
html&=Create(HTMLWin,%hWnd,http://gamsav.xprofan.com/Gamsav,1,0,0,600,400)
SubClass html&,1

while 1

    waitinput

endwhile

SubClassProc

    If SubClassMessage(html&,32)

        settext %hwnd,Str$(&GetTickCount)
        Set(WinProc,0)

    endif

endproc

so can itself the of course intercepting and possible too Edit, but the Context menu appear nevertheless...

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

07/12/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

You subclasst the incorrect Window. the Control is a Verbund more units. WM_CONTEXTMENU becomes by me as Fensterclass InternetExplorer_Server displayed.
somewhere I had there time a Solution, find tappt im dunkeln but not any more on attempt.

07/12/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

the seltsame is Yes, that The Message 32 with Rechtsklick gesendet and abgefangen becomes. I take at times, that The means ne others function has.

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

07/12/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

32? which Constant is the?

07/12/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

in a. I Have me the Result through %sMessage Show let.

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

07/12/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Frank
Abbing

load your Testexe time with my ambassador. then you see klarer.

07/12/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Detlef
Jagolski

Hello Jac,

I make the always so:
Compile Mark Separation

 $P+
SetErrorLevel 0
Declare appexit%
Declare Edit1&
 $H WINDOWS.PH
 $H MESSAGES.PH
Def EnableMenuItem(3) !USER32,EnableMenuItem

SubClassProc

    If SubClassMessage(Edit1&, ~WM_CONTEXTMENU)

        ConTextMenu Edit1&, hConTextMenu&, LoWord(&sLParam), HiWord(&sLParam)
        Set(WinProc, 0)

    ElseIf SubClassMessage(Edit1&, ~WM_COMMAND)

        WMCommand Edit1&, &sWParam
        Set(WinProc, 0)

    EndIf

EndProc

Proc ConTextMenu

    Parameters handle&, hConTextMenu&, X&, Y&

    If SendMessage(handle&,~EM_GETMODIFY,0,0) = 0

        EnableMenuItem (hConTextMenu&,0,~MF_BYPOSITION | ~MF_GRAYED)

    Else

        EnableMenuItem (hConTextMenu&,0,~MF_BYPOSITION | ~MF_ENABLED)

    EndIf

    If GetClip$() =

        EnableMenuItem (hConTextMenu&,4,~MF_BYPOSITION | ~MF_GRAYED)

    Else

        EnableMenuItem (hConTextMenu&,4,~MF_BYPOSITION | ~MF_ENABLED)

    EndIf

    IfNot HiWord(SendMessage(handle&,~EM_GETSEL,0,0)) = LoWord(SendMessage(handle&,~EM_GETSEL,0,0))

        EnableMenuItem (hConTextMenu&,2,~MF_BYPOSITION | ~MF_ENABLED)
        EnableMenuItem (hConTextMenu&,3,~MF_BYPOSITION | ~MF_ENABLED)
        EnableMenuItem (hConTextMenu&,5,~MF_BYPOSITION | ~MF_ENABLED)

    Else

        EnableMenuItem (hConTextMenu&,2,~MF_BYPOSITION | ~MF_GRAYED)
        EnableMenuItem (hConTextMenu&,3,~MF_BYPOSITION | ~MF_GRAYED)
        EnableMenuItem (hConTextMenu&,5,~MF_BYPOSITION | ~MF_GRAYED)

    EndIf

    If GetText$(handle&) =

        EnableMenuItem (hConTextMenu&,7,~MF_BYPOSITION | ~MF_GRAYED)

    Else

        EnableMenuItem (hConTextMenu&,7,~MF_BYPOSITION | ~MF_ENABLED)

    EndIf

    ~TrackPopupMenu(hConTextMenu&, ~TPM_LEFTALIGN | ~TPM_RIGHTBUTTON, X&, Y&, 0, handle&, 0)

EndProc

Proc WMCommand

    Parameters handle&, wParam&

    If wParam& = 1000

        SendMessage(handle&,~EM_UNDO,0,0)

    ElseIf wParam& = 1002

        SendMessage(handle&,~WM_CUT,0,0)

    ElseIf wParam& = 1003

        SendMessage(handle&,~WM_COPY,0,0)

    ElseIf wParam& = 1004

        SendMessage(handle&,~WM_PASTE,0,0)

    ElseIf wParam& = 1005

        SendMessage(handle&,~WM_CLEAR,0,0)

    ElseIf wParam& = 1007

        SetFocus(handle&)
        SendMessage(handle&,~EM_SETSEL,0,-1)

    EndIf

EndProc

SetTrueColor 1
WindowStyle $003F
WindowTitle DesignForm
Window %maxX + 5,114 - 498,415
Cls 500
var Rueckgaengig$    = Das ist jetzt das neue Menü
var Ausschneiden$    = Ausschneiden
var Kopieren$        = Kopieren
var Einfuegen$       = Einfügen
var Loeschen$        = Löschen
var AllesMarkieren$  = Alles markieren
var hConTextMenu& = ~CreatePopupMenu()
~AppendMenu(hConTextMenu&, ~MF_STRING,1000,Addr(Rueckgaengig$))
~AppendMenu(hConTextMenu&, ~MF_SEPARATOR,101,0)
~AppendMenu(hConTextMenu&, ~MF_STRING,1002,Addr(Ausschneiden$))
~AppendMenu(hConTextMenu&, ~MF_STRING,1003,Addr(Kopieren$))
~AppendMenu(hConTextMenu&, ~MF_STRING,1004,Addr(Einfuegen$))
~AppendMenu(hConTextMenu&, ~MF_STRING,1005,Addr(Loeschen$))
~AppendMenu(hConTextMenu&, ~MF_SEPARATOR,106,0)
~AppendMenu(hConTextMenu&, ~MF_STRING,1007,Addr(AllesMarkieren$))
UseFont MS Sans Serif,13,0,0,0,0
SetDialogFont 1
Edit1&=CreateEdit(%hwnd,,117,78,121,21)
SubClass Edit1&, 1
SetWindowPos %hwnd = 207,114 - 498,415;0

WhileNot appexit%

    WaitInput

    If %key = 2

        appexit%=1

    ElseIf GetFocus(Edit1&)

    ElseIf %key = 4

        Fenstergröße

    ElseIf %key = 5

        Hilfe

    EndIf

Wend

SubClass Edit1&, 0

Greeting

Detlef

P.s. WM_SETCURSOR = 32

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

07/12/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

@Frank: Öhh, there must I me the part first wander. have you got ne gecrackte Version?

@Detlef: Neeee, the Have so did i virtual, but the HTMLWin sends no WM_ContextMenu, hehehe...

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

07/12/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

@Jac: look you once that here on:
Compile Mark Separation

 {$cleq}
 {$compiler x11rc8}
 {$runtime x11rc8}
windowStyle 512 | 8
cls
userMessages wm_eraseBkGnd,wm_close
long 	hMyMHook=setWindowsHookExA(7,procAddr(hpMyMH,3),hInstance,getWindowThreadProcessId(Hwnd,)),
hMyHTMLBox=create(HTMLWin,hWnd,http://gamsav.xprofan.com/Gamsav,1,,,600,400)

do {

    waitinput

    select uMessage

        caseof wm_close

        break

    endSelect

}

unhookWindowsHookEx(hMyMHook)
end

hpMyMH(long _msg,_wp,_lp){

    select _wp

        caseof wm_rButtonDown

        return true

    endSelect

    return