by Cgallegoa » Tue Oct 20, 2009 2:58 am
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
Saludos,
Carlos Gallego
*** FWH-24.07, xHarbour 1.3.1 Build 20240624, Borland C++7.70, PellesC ***