Existe alg煤n utilitario, que permita establecer la coordenada de impresi贸n de un campo, arrastr谩ndolo hasta la posici贸n deseada en pantalla?. esto permitir铆a que el propio usuario realizara esta operaci贸n de manera visual sin tener que ingresar fila y columna en un campo.
saludos y gracias de antemano por sus comentarios.
lafug wrote:Existe alg煤n utilitario, que permita establecer la coordenada de impresi贸n de un campo, arrastr谩ndolo hasta la posici贸n deseada en pantalla?. esto permitir铆a que el propio usuario realizara esta operaci贸n de manera visual sin tener que ingresar fila y columna en un campo.
saludos y gracias de antemano por sus comentarios.
#include "FiveWin.ch"
#define HORZSIZE 聽 聽 聽 聽 聽4
#define VERTSIZE 聽 聽 聽 聽 聽6
#define HORZRES 聽 聽 聽 聽 聽 8
#define VERTRES 聽 聽 聽 聽 聽10
#define LOGPIXELSX 聽 聽 聽 88
#define LOGPIXELSY 聽 聽 聽 90
/* ****************************************************************************
Funciones para convertir PIXEL a Twip/Pulgadas/Cent铆metros y viceversa.
hDC -> oWnd:hDC or oPrn:hDC
聽 聽************************************************************************* */
/* ******************************************************* */
FUNCTION nPixels2Twips( hDC, nPixels, lVertical )
Return (nPixels / GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) ) * 1440
/* ******************************************************* */
FUNCTION nTwips2Pixels( hDC, nTwips, lVertical )
Return (nTwips / 1440) * GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) )
/* ******************************************************* */
FUNCTION nPixels2Inches( hDC, nPixels, lVertical )
Return (nPixels / GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) )
/* ******************************************************* */
FUNCTION nInches2Pixels( hDC, nInches, lVertical )
/*Traza( 1, "hDc 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 =", hDc )
Traza( 1, "nInches 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 =", nInches )
Traza( 1, "lVertical 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 =", lVertical )
Traza( 1, "GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) 聽 聽 聽 聽 聽 聽 =", GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) )
Traza( 1, "(nInches * GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) )=", (nInches * GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) ) )*/
Return (nInches * GetDeviceCaps( hDC, If(lVertical, LOGPIXELSY, LOGPIXELSX) ) )
/* ******************************************************* */
FUNCTION nPixels2Cm( hDC, nPixels, lVertical )
Return nPixels2Inches( hDC, nPixels, lVertical ) * 2.54
/* ******************************************************* */
FUNCTION nCm2Pixels( hDC, nCm, lVertical )
Return nInches2Pixels( hDC, (nCm / 2.54), lVertical )
/* ******************************************************* */
FUNCTION uCm2Pixels( HdC, nCmy, nCmx )
nCmy := nCm2Pixels( hDC, nCmy, .T. )
nCmx := nCm2Pixels( hDC, nCmx, .F. )
Return NilUn Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home