| |
| |
|
| - Page 1 - |
|
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 ▲ |
|
| |
|
| |
| |
| - Page 2 - |
|
|
 | Jac
in a. I Have me the Result through %sMessage Show let.
for such Cases use I Konstantinopel [...]  .
The ploy: Gib time supra into Input 32 = w one.  |
|
| |
| |
| |
|
|
|
@Frank: ... have you got ne gecrackte Version?
@Jac: an not permitted question, even if itself behind it one Freeware-Tool hide. I erwähne not because of you, separate for Mitlesende.
@Frank: Hook for set is naturally scotch tape with the gavel fasten, and its too sure not my Lieblingslösung about. name we it Workaround To a adäquatere Solution posted watts. |
|
| |
| |
| |
|
|
Frank
Abbing |
@Frank: Hook for set is naturally scotch tape with the gavel fasten, and its too sure not my Lieblingslösung about. name we it Workaround To a adäquatere Solution posted watts.
no reason to that justify. I love mitunter indeed Brachiallösungen. I mean only, it given too a simple Solution, only find I tappt im dunkeln not again... 
32 shining WM_SETCURSOR To his. really not The right Message. |
|
| |
| |
| |
|
|
Jac
de
Lad | @iF: Sorry, was as jest meant.
@Frank: somehow kommts not at me so correctly. into aisles. I raff not. |
|
| |
| 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 ▲ |
|
| |
|
|
Detlef
Jagolski | Hello Jac,
another attempt:
CompileMarkSeparation $P+
SetErrorLevel 0
Declare hSys&
Declare appexit%
SetTrueColor 1
WindowStyle $003F
WindowTitle DesignForm
Window %maxX + 5,114 - 498,415
Cls 500
var html&=Create(HTMLWin,%hWnd,D:Anpassen...........................INDEX.HTM,1,0,0,600,400)
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
I faith You must The HTML Page adjust.
Greeting
Detlef |
|
| |
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 07/12/08 ▲ |
|
| |
|
|
| | About JS, too interestingly. goes but far from kürzer! unfortunately comes it if it above the Context menu Done badly again out from the Page in that Program. (at least without ocx) |
|
| |
| |
| |
|
|
Detlef
Jagolski | Hello IF,
have I only quick from the Bestand together copies.
Greeting
Detlef |
|
| |
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 07/12/08 ▲ |
|
| |
|
|
Andreas
Miethe
 |
CompileMarkSeparation $H messages.ph
$H Windows.ph
declare html&,subwin&
cls
html&=Create(HTMLWin,%hWnd,http://www.ampsoft.eu,1,0,0,600,400)
while HTMLWin(GetBusy,html&)
Wend
~EnumChildWindows(html&,ProcAddr(GetServerWindow,2),0)
SubClass subwin&,1
while 1
waitinput
endwhile
SubClassProc
If SubClassMessage(subwin&,~wm_contextmenu)
settext %hwnd,Time$(0)+:+Time$(1)
Set(WinProc,0)
endif
endproc
Proc GetServerWindow
parameters wnd&,lparam&
If ClassOf(wnd&) = Shell Embedding
~EnumChildWindows(wnd&,ProcAddr(GetServerWindow,2),0)
elseIf ClassOf(wnd&) = Shell DocObject View
~EnumChildWindows(wnd&,ProcAddr(GetServerWindow,2),0)
elseIf Classof(wnd&) = Internet Explorer_Server
Subwin& = wnd&
Windowtitle server gefunden
Endif
Return 1
ENDPROC
|
|
| |
| Gruss Andreas ________ ________ ________ ________ _ Profan 3.3 - XProfanX2 Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher Homepage : [...] | 07/13/08 ▲ |
|
| |
|
|
Jac
de
Lad | @Andreas: thanks, The Solution gefällt me best.
@Detlef: too thanks, but somehow understand I the Ansatz not. I suspect but, that here The Website whom Rechtklick machine. |
|
| |
| 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/13/08 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | Hello people!
The Vollständigkeit halber, even if it whom most well To tricky is  ...
an Possibility, the Context menu one WebBrowser-Controls To Change is the Creation one own IDocHostUIHandler-Interfaces, the in lieu of the Originals inserted becomes.
this interface contains u.A. The method ShowContextMenu, for a Profan-Proc uses go can:
(prerequisite: OCX-Package 2 + XProfan 10)
CompileMarkSeparationwindow 10,10-500,400
usermessages 16
$H Messages.ph
$H Windows.ph
$H ocx2.ph
$I ocx2.inc
ocxInit()
declare VTable#
dim VTable#,76
proc CreateIMD---------------------------CreateInterfaceMethodDummy
var a&=~GlobalAlloc(0,16)
long a&,0=-1192457387,&(2),-1034033781,&(1)*4+4
return a&
endproc-------------------------------------------------------------
proc ShowContextMenu--------------------------------ShowContextMenu
parameters This&,ID&,Point&,IUnknown&,IDispatch&
~ScreenToClient(%hwnd,Point&)
createmenu
case ID&=0:appendmenu 101,Kontextmenü leerer Bereich
case ID&=1:appendmenu 102,Kontextmenü Bild
case ID&=4:appendmenu 103,Kontextmenü markierter Text
case ID&=5:appendmenu 104,Kontextmenü Link
trackmenu long(Point&,0),long(Point&,4)
~RedrawWindow(%hwnd,0,0,$485)
return 0
endproc-------------------------------------------------------------
proc InitICustomDoc----------------------IDocHostUIHandler-Interface
parameters Object&
long VTable#,0= CreateIMD(2,1)QueryInterface
long VTable#,4= CreateIMD(0,0)AddRef
long VTable#,8= CreateIMD(0,0)Release
long VTable#,12=procaddr(ShowContextMenu,5)
long VTable#,16=CreateIMD(1,1)GetHostInfo
long VTable#,20=CreateIMD(5,1)ShowUI
long VTable#,24=CreateIMD(0,0)HideUI
long VTable#,28=CreateIMD(0,1)UpdateUI
long VTable#,32=CreateIMD(1,1)EnableModeless
long VTable#,36=CreateIMD(1,1)OnDocWindowActivate
long VTable#,40=CreateIMD(1,1)OnFrameWindowActivate
long VTable#,44=CreateIMD(3,1)ResizeBorder
long VTable#,48=CreateIMD(3,1)TranslateAccelerator
long VTable#,52=CreateIMD(2,1)GetOptionKeyPath
long VTable#,56=CreateIMD(2,1)GetDropTarget
long VTable#,60=CreateIMD(1,1)GetExternal
long VTable#,64=CreateIMD(3,1)TranslateUrl
long VTable#,68=CreateIMD(2,1)FilterDataObject
long VTable#,72=VTable#
var IFace&=VTable#+72
var Document&=ocxGet(Object&,Document)
var ICustomDoc&=QueryInterface(Document&,{3050f3f0-98b5-11cf-bb82-00aa00bdce0b})
CallMethod(ICustomDoc&,3,IFace&)--ICustomDoc::SetUIHandler
ocxRelease(ICustomDoc&,Document&)
endproc-------------------------------------------------------------
declare Control&
var URL$=C:Test.html---Irgendeine HTML(!)-Datei
var Object&=ocxCreate(Url$,%hwnd,10,10,400,300,$50b00000,addr(Control&))
InitICustomDoc(Object&)
while 1
waitinput
case %umessage=16:break
settext %hwnd,str$(%menuitem)
endwhile
ocxRelease(Object&)
destroywindow(Control&)
ocxDeInit()
PS: The Proc CreateIMD created by Embedded ASM a manner Dummy, lest for each method a Own Proc be installed must. Genauere Description and further Demos about Event-Handling (incident-Auswertung) go in the OCX-Package 3 include his, so it because ever ready and is under XProfan 11 run is 
SeeYou
Pascal |
|
| |
| |
| |
|
|
Frank
Abbing | Hehe, class!  |
|
| |
| |
| |
|
|
| me kribbeln The fingers since it of ocx3.inc speaks... 
Have the naturally (too to Vlstndgkt) with here adopted: [...] |
|
| |
| |
| |
|
(1.005)
Deutsch
English
Français
Español
Italia