Ayuda Urgente

[Angel_Miguel]

Amigos del Foro buenos dias y espero me ayuden please, lo que requiero es poner una imagen y encima de la imagen unas say que al momento de hacer click me hagan una accion , se podra hacer, algunas sugerencia al respecto, le agradece un monton

[Patricio Avalos Aguirre]

hola

revisa el ejemplo de Fw,

TestSay2

Ahi podras colocar un say y luego presionar CLICK, solo debes colocar la imagen al dialog

Code: Select all

#include "FiveWin.ch"

#define COLOR_BTNFACE       15

function Main()

   local oDlg, oSay, oCursor, oBrush

   DEFINE CURSOR oCursor HAND
    DEFINE BRUSH oBrush FILE "C:\FWH\bitmaps\b_run.bmp"

   DEFINE DIALOG oDlg BRUSH oBrush


   @ 2, 2 SAY oSay PROMPT "Test" TRANSPARENT

   oSay:lWantClick = .t.
   oSay:bLClicked  = { || oSay:SetColor( CLR_WHITE, GetSysColor( COLOR_BTNFACE ) ),;
                          oSay:Refresh(), MsgInfo( "Hello" ) }
   oSay:oCursor    = oCursor

   ACTIVATE DIALOG oDlg CENTERED

    oBrush:End()

return nil