| |
| |
|
| - Página 1 - |
|
Jac
de
Lad | Yo ya alles probiert, qué me dazu eingefallen es. Weiß alguien, como yo Kontextmenü en un HTMLWin verhindern kann (Rechtsklick) y stattdessen para Ejemplo una propio Mostrar kann? Yo denke veces, el va en subclassproc, pero yo habs simplemente no 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 ▲ |
|
| |
|
| |
| |
| - Página 2 - |
|
|
 | Jac
Keine Idea. Yo me Ergebnis mittels %sMessage Mostrar dejar.
Für solche Fälle nutze Yo Konstantinopel [...]  .
Der Trick: Gib veces oben en el Eingabefeld 32 = w una.  |
|
| |
| |
| |
|
|
|
@Franco: ... Hast du ne gecrackte Versión?
@Jac: Un hier no gestattete Cuestión, incluso si se detrás de él una Freeware-Tool verbirgt. Yo erwähne el no wegen Usted, pero para Mitlesende.
@Franco: Hook dafür ansetzen es natürlich Tesafilm con el Hammer befestigen, y es auch sicher no mi Lieblingslösung para Thema. Nennen wir lo Workaround a una adäquatere Solución Nuevo wurde. |
|
| |
| |
| |
|
|
Frank
Abbing |
@Franco: Hook dafür ansetzen es natürlich Tesafilm con el Hammer befestigen, y es auch sicher no mi Lieblingslösung para Thema. Nennen wir lo Workaround a una adäquatere Solución Nuevo wurde.
Kein Grund para Rechtfertigen. Yo liebe mitunter en efecto Brachiallösungen. Yo mi sólo, lo gab auch una simple Solución, sólo finde Yo ellos no otra vez... 
32 scheint WM_SETCURSOR a ser. Wirklich no el richtige Message. |
|
| |
| |
| |
|
|
Jac
de
Lad | @IF: Sorry, war como Scherz gemeint.
@Franco: Irgendwie kommts no yo en el así correcto en el Gänge. Yo raff el no. |
|
| |
| 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 | ¡Hola Jac,
todavía una Intento:
KompilierenMarcaSeparación $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
Yo glaube Usted muss el HTML Página Anpassen.
Saludo
Detlef |
|
| |
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 12.07.2008 ▲ |
|
| |
|
|
| | Über JS, auch interessant. Geht aber weit de kürzer! Leider kommt él si él darüber el Kontextmenü hecho schlecht otra vez fuera de el Página en el Programa. (zumindest sin ocx) |
|
| |
| |
| |
|
|
Detlef
Jagolski | ¡Hola IF,
Yo sólo rápidamente de el Bestand zusammen Kopiert.
Saludo
Detlef |
|
| |
| XProfan X4, PRFellow, Profan2Cpp - Version 2.0c-pre5, Windows 11 | 12.07.2008 ▲ |
|
| |
|
|
Andreas
Miethe
 |
KompilierenMarcaSeparación $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: Gracias, el Solución gefällt me al besten.
@Detlef: Auch danke, aber irgendwie verstehe Yo, el Ansatz no. Yo vermute aber, que aquí el Webseite el 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 | ¡Hola Personas!
Der Vollständigkeit halber, auch si el meisten wohl a kompliziert es  ...
Un Möglichkeit, el Kontextmenü uno WebBrowser-Controls a ändern Es el Erstellung uno eigenen IDocHostUIHandler-Interfaces, el anstelle des Originals eingesetzt se.
Dieses Interface enthält u.A. el método ShowContextMenu, para el una Profano-Proc verwendet voluntad kann:
(Voraussetzung: OCX-Package 2 + XProfan 10)
KompilierenMarcaSeparaciónwindow 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: El Proc CreateIMD producido por Embedded ASM una Art Dummy, así no para jede Método una propio Proc se instalará muß. Genauere Descripción y weitere Demos para Thema Event-Handling (Ereignis-Auswertung) voluntad en el OCX-Package 3 enthalten ser, así lo porque jemals fertig se y bajo XProfan 11 lauffähig es 
SeeYou
Pascal |
|
| |
| |
| |
|
|
Frank
Abbing | Hehe, klasse!  |
|
| |
| |
| |
|
|
| Mir kribbeln el Finger seit él de ocx3.inc spricht... 
Hab el natürlich (auch a Vlstndgkt) con hier aufgenommen: [...] |
|
| |
| |
| |
|
(981)
Deutsch
English
Français
Español
Italia