topic-17083

Posts: 330

Joined: Fri May 25, 2007 09:06 PM

SOBRE LOS SAMPLES
Posted: Tue Oct 20, 2009 01:43 AM

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

Posts: 514

Joined: Sun Oct 16, 2005 03:32 AM

Re: SOBRE LOS SAMPLES
Posted: Tue Oct 20, 2009 02:58 AM

Será esto lo que buscas ?

Code (fw): Select all Collapse

#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

Saludos,

Carlos Gallego

*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

mantonio_08

Posts: 330

Joined: Fri May 25, 2007 09:06 PM

Re: SOBRE LOS SAMPLES
Posted: Tue Oct 20, 2009 11:25 AM

GRACIAS AMIGO ES JUSTO LE QUE ANDABA BUSCANDO

TE DEBO UNA::

BYE

FiveTech Support Forums

Continue the discussion