SOBRE LOS SAMPLES

[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: ??

[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

[mantonio_08]

GRACIAS AMIGO ES JUSTO LE QUE ANDABA BUSCANDO

TE DEBO UNA::

BYE