SOBRE LOS SAMPLES
Posted:
Tue Oct 20, 2009 1:43 am
by mantonio_08
COLEGAS NO DOY CON LO QUE BUSCO::
RECUERDO HABER VISTO Y COMPILADO, UN PRG. DE SAMPLES DONDE SE PODIA OBTENER LA POSICIONES DEL MOUSE DENTRO DE UNOBJETO,, EL NCOL Y NROW.. ALGO PARECIDO AL BLCLICKED ..
pero no doy con el ejemplo...
alguien sabes como se hace o cual ejemplo era..
GRACIAS
Quizas ANTONIO SEPA: ??
Re: SOBRE LOS SAMPLES
Posted:
Tue Oct 20, 2009 2:58 am
by Cgallegoa
Será esto lo que buscas ?
- Code: Select all Expand view
#include "FiveWin.ch"
PROCEDURE Main()
LOCAL oDlg, oSay1, oSay2, cRow:=Space(5), cCol := Space(5)
LOCAL oFont
DEFINE FONT oFont NAME "Arial" SIZE 0,-14 BOLD
DEFINE DIALOG oDlg FROM 0,0 TO 260,300 TITLE "Movimiento del Mouse" PIXEL
oDlg:bMMoved := {|nRow, nCol| PutCoorMouse(nRow,nCol,oSay1,oSay2) }
@ 15,10 SAY "Mueve el mouse sobre" OF oDlg PIXEL FONT oFont SIZE 134,10 CENTER
@ 25,10 SAY "cualquier parte de este Diálogo" OF oDlg PIXEL FONT oFont SIZE 134,10 CENTER
@ 60,40 SAY "Fila" OF oDlg UPDATE PIXEL FONT oFont
@ 60,75 SAY oSay1 VAR ": "+cRow OF oDlg UPDATE PIXEL FONT oFont COLOR nRGB(0,0,200)
@ 70,40 SAY "Columna" OF oDlg UPDATE PIXEL FONT oFont
@ 70,75 SAY oSay2 VAR ": "+cCol OF oDlg UPDATE PIXEL FONT oFont COLOR nRGB(0,0,200)
@ 106,60 BUTTON "&Salir" OF oDlg ACTION oDlg:End() PIXEL
ACTIVATE DIALOG oDlg CENTERED
RETURN
Procedure PutCoorMouse(nRow,nCol,oSay1,oSay2)
oSay1:SetText(": "+AllTrim(Str(nRow)))
oSay2:SetText(": "+AllTrim(Str(nCol)))
Return
Saludos,
Carlos Gallego
Re: SOBRE LOS SAMPLES
Posted:
Tue Oct 20, 2009 11:25 am
by mantonio_08
GRACIAS AMIGO ES JUSTO LE QUE ANDABA BUSCANDO
TE DEBO UNA::
BYE