| |
| |
|
| - page 1 - |
|
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 ▲ |
|
| |
|
| |
| |
| - page 2 - |
|
|
 | Jac
je n'en sais rien. je hab mir cela Ergebnis mittels %sMessage Montrer laisser.
Pour solche Fälle nutze je Konstantinopel [...]  .
qui Trick: Gib la fois au haut de cela Eingabefeld 32 = w un.  |
|
| |
| |
| |
|
|
|
@Frank: ... la hâte du ne gecrackte Version?
@Jac: une ici pas gestattete Frage, selbst si sich derrière elle un Freeware-Tool verbirgt. je erwähne cela pas à cause de Dir, mais pour Mitlesende.
@Frank: Hook pour ansetzen ist naturellement Tesafilm avec dem marteau befestigen, et c'est aussi sûrement pas mon Lieblingslösung zum Thema. appeler wir es Workaround jusqu'à une adäquatere Solution posté wurde. |
|
| |
| |
| |
|
|
Frank
Abbing |
@Frank: Hook pour ansetzen ist naturellement Tesafilm avec dem marteau befestigen, et c'est aussi sûrement pas mon Lieblingslösung zum Thema. appeler wir es Workaround jusqu'à une adäquatere Solution posté wurde.
ne...aucune Grund zum justifier. je liebe mitunter oui aussi Brachiallösungen. je mon seulement, es donnais aussi une simple Solution, seulement finde je vous pas wieder... 
32 scheint WM_SETCURSOR trop son. Wirklich pas qui richtige Message. |
|
| |
| |
| |
|
|
Jac
de
Lad | @iF: Sorry, était comme Scherz gemeint.
@Frank: Irgendwie kommts chez Je ne so richtig dans qui Gänge. je raff cela pas. |
|
| |
| 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 ▲ |
|
| |
|
|
Detlef
Jagolski | allô Jac,
encore un Versuch:
KompilierenMarqueSéparation $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
je crois Du muss qui HTML page Anpassen.
Salut
Detlef |
|
| |
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 12.07.2008 ▲ |
|
| |
|
|
| | Über JS, aussi intéressant. allez mais large aus kürzer! malheureusement venez il si il par-dessus cela Kontextmenü erledigt mal wieder raus aus qui page ins Programme. (zumindest sans ocx) |
|
| |
| |
| |
|
|
Detlef
Jagolski | allô IF,
habe je seulement vite aus dem Bestand zusammen Kopiert.
Salut
Detlef |
|
| |
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 12.07.2008 ▲ |
|
| |
|
|
Andreas
Miethe
 |
KompilierenMarqueSéparation $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 : [...] | 13.07.2008 ▲ |
|
| |
|
|
Jac
de
Lad | @Andreas: merci, qui Solution comme mir am besten.
@Detlef: aussi merci, mais irgendwie verstehe Je l' Ansatz pas. je vermute mais, que voici qui Webseite den Rechtklick bearbeitet. |
|
| |
| 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 | 13.07.2008 ▲ |
|
| |
|
|
Uwe
''Pascal''
Niemeier | allô gens!
qui Vollständigkeit halber, aussi si es den meisten wohl trop compliqué ist  ...
une Possibilité, cela Kontextmenü eines WebBrowser-Controls trop changement ist qui Erstellung eines eigenen IDocHostUIHandler-Interfaces, cela anstelle des Originals eingesetzt wird.
cet Interface contient u.A. la méthode ShowContextMenu, pour qui une Profan-Proc verwendet volonté peux:
(Voraussetzung: OCX-Package 2 + XProfan 10)
KompilierenMarqueSéparationwindow 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: qui Proc CreateIMD erzeugt per Embedded ASM une Art Dummy, avec cela pas pour chacun Methode une eigene Proc incorporé volonté doit. Genauere Beschreibung et weitere Demos zum Thema Event-Handling (Ereignis-Auswertung) volonté im OCX-Package 3 enthalten son, so es car jamais fertig wird et sous XProfan 11 courir ist 
SeeYou
Pascal |
|
| |
| |
| |
|
|
Frank
Abbing | Hehe, super!  |
|
| |
| |
| |
|
|
| Mir kribbeln qui Finger depuis il de ocx3.inc spricht... 
Hab cela naturellement (aussi zur Vlstndgkt) avec ici aufgenommen: [...] |
|
| |
| |
| |
|
(1.332)
Deutsch
English
Français
Español
Italia