XProfan

Français

Jac
de
Lad

je hab déjà alles probiert, quoi mir en supplément eingefallen ist. sais quelqu'un, comment je cela Kontextmenü dans einem HTMLWin verhindern peux (Droit) et stattdessen zum Beispiel un eigenes Montrer peux? je denke la fois, cela allez sur qui subclassproc, mais je habs simple pas 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

12.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

Kompilieren Marque Séparation

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

avec cela peut sich cela zwar intercepter et eventuell aussi Travailler, mais cela Kontextmenü erscheint quand même...

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

12.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

Du subclasst cela falsche la fenêtre. cela Contrôle est un Verbund mehrerer Einheiten. WM_CONTEXTMENU wird chez mir comme Fensterclass InternetExplorer_Server angezeigt.
Irgendwo J'ai eu là la fois une Solution, finde vous mais pas plus sur Anhieb.

12.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

cela seltsame ist oui, dass qui Message 32 chez Droit gesendet et abgefangen wird. je prends la fois à, dass qui alors ne autre Funktion hat.

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

12.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

32? quelle Konstante ist cela?

12.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

je n'en sais rien. je hab mir cela Ergebnis mittels %sMessage Montrer laisser.

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

12.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Frank
Abbing

Lade deine Testexe la fois avec meinem Botschafter. ensuite vois du klarer.

12.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Detlef
Jagolski

allô Jac,

je fais cela toujours so:
Kompilieren Marque Séparation

 $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 Éditer1&, 0

Salut

Detlef

P.S. WM_SETCURSOR = 32

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

12.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jac
de
Lad

@Frank: Öhh, là muss je mir cela partie erstmal tirer. la hâte du ne gecrackte Version?

@Detlef: Neeee, cela hab je aussi gedacht, mais cela HTMLWin sendet ne...aucune 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

12.07.2008 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

@Jac: exposition Dir einmal que voici à:
Kompilieren Marque Séparation

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