Como puedo colocar un control Get sobre una imagen, cuando paso el mouse sobre el control aparece?
la idea es ir colocando algunas letras sobre la imagen
he colocado esto
- Code: Select all Expand view
- oDlg:bPainted := { || oGetImg1:Refresh() }
oDlg:bPainted := { || oGetImg1:Refresh() }
oImg = CurDrive() + ":\" + CurDir() + "\impr" + zejer + "\imp115.bmp"
@ 28,375 GET gDlg001 VAR va011 OF oDlgwBus
@ 65,455 GET gDlg002 VAR va012 OF oDlgwBus
@172,541 GET gDlg003 VAR va013 OF oDlgwBus
@ 5, 5 IMAGE tDlg001 FILE oImg OF oDlgwBus PIXEL SIZE 600,385 ADJUST
tDlg001:Zoom(ProPorH*600/840)
DEFINE DIALOG oDlg RESOURCE "MOD110" TITLE cTitulo
REDEFINE IMAGE oImagen ID 800 OF oDlg FILENAME "model110.jpg"
//
REDEFINE GET oGet[1] VAR vP1 ID 401 OF oDlg
REDEFINE GET oGet[2] VAR vP2 ID 402 OF oDlg
.......................
......................
REDEFINE GET aGet[1] ;
VAR _img1 ;
PICTURE "!" ;
ID 21 OF PAGE1 UPDATE ;
COLOR CLR_BLACK,RGB( 255,255,200) ;
VALID _img1 $ " ;A;R;Q;S;P;T" ;
FONT oFont
REDEFINE GET aGet[2] ;
VAR _img2 ;
PICTURE "!" ;
ID 22 OF PAGE1 UPDATE ;
COLOR CLR_BLACK,RGB( 255,255,200) ;
VALID _img2 $ " ;A;R;Q;S;P;T" ;
FONT oFont
REDEFINE IMAGE oBmp ID 9 OF PAGE1 FILENAME "IMAGEN\vehoc.bmp" ADJUST
Stack Calls
===========
Called from: c:\fwh\source\classes\DIALOG.prg => CREATEDLGERROR(559)
Called from: c:\fwh\source\classes\DIALOG.prg => TDIALOG:ACTIVATE(317)
Called from: c:\fwh\source\classes\folder.prg => TFOLDER:DEFAULT(453)
Called from: c:\fwh\source\classes\folder.prg => TFOLDER:INITIATE(365)
Called from: => __OBJSENDMSG(0)
Called from: => HB_EXECFROMARRAY(0)
Called from: .\source\function\HARBOUR.PRG => OSEND(219)
Called from: => HB_EXECFROMARRAY(0)
Called from: .\source\function\HARBOUR.PRG => ASEND(197)
Called from: c:\fwh\source\classes\DIALOG.prg => TDIALOG:INITIATE(664)
Called from: c:\fwh\source\classes\DIALOG.prg => TDIALOG:HANDLEEVENT(929)
Called from: => DIALOGBOX(0)
Called from: c:\fwh\source\classes\DIALOG.prg => TDIALOG:ACTIVATE(273)
Called from: .\IngreOt.PRG => INGRESOOT(713)
Called from: .\Wcta.PRG => (b)MAKEMENU(1236)
Called from: .\Wcta.PRG => (b)MAKEMENU(1236)
Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE(470)
Called from: .\Wcta.PRG => SHOWPOPUP(1229)
Called from: .\Wcta.PRG => (b)MAIN(116)
Called from: .\source\classes\TOOLBAR.PRG => TTOOLBAR:COMMAND(219)
Called from: c:\fwh\source\classes\DIALOG.prg => TDIALOG:COMMAND(381)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: c:\fwh\source\classes\DIALOG.prg => TDIALOG:HANDLEEVENT(945)
Called from: c:\fwh\source\classes\WINDOW.prg => _FWH(3394)
Called from: => WINRUN(0)
Called from: c:\fwh\source\classes\WINDOW.prg => TMDIFRAME:ACTIVATE(978)
Called from: .\Wcta.PRG => MAIN(229)
System
======
// REDEFINE IMAGE oBmp ID 800 OF PAGE1 FILENAME "IMAGEN\vehoc.bmp" ADJUST
REDEFINE BITMAP oBmp ID 800 OF PAGE1 FILENAME "IMAGEN\vehoc.bmp" ADJUST
Daniel Garcia-Gil wrote:Patricio
lo que pretendes hacer no es posible de esa forma, todos los controles son "ventanas" cada uno procesa eventos (mensajes) independientemente (movimiento de raton, pintados, click, etc ) al colocar una ventana sobre otra en algun momento una estara oculta dejando a la otra sin recibir eventos...
Pudes hacer los get hijos de la imagen, los get los contruirias sin recursos, y hablandote de memoria, tendras que crearlos despues que inicialice el dialogo pues con los recursos no tendras un Handle valido hasta que este este inicializado
Si la imagen ocupa todo el dilogo, solo pinta en el DC del dialogo la imagen con el codeblock bPainted (ON PAINT)
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 43 guests