topic-15420

Posts: 13

Joined: Thu Apr 03, 2008 04:42 PM

Ayuda Urgente
Posted: Mon Apr 27, 2009 03:18 PM

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

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: Ayuda Urgente
Posted: Mon Apr 27, 2009 03:34 PM

hola

revisa el ejemplo de Fw,

TestSay2

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

Code (fw): Select all Collapse

#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

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

FiveTech Support Forums

Continue the discussion