He presentado una solicitud cuyo aspecto se basa en tmetro clase. En el PC funciona bien, pero el port谩til no se ajusta a las dimensiones de la pantalla.
Tengo que forzar tmetro clase de auto-ajuste?
Gracias de antemano
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Metro resize
Que resoluci贸n tienes en ambos ordenadores ?
Puedes mostrar el c贸digo de c贸mo lo has programado ?
Buenas...
La resoluci贸n es de 1920x1080 en el PC y el port谩til es de 1024x768.
El c贸digo fuente que estoy utilizando se basa en el ejemplo metro.prg que est谩 en el directorio de ejemplos de FWH.
Utilizo FWH 13:15 Harbour + 3.2 + BCC 5.8.2
La resoluci贸n es de 1920x1080 en el PC y el port谩til es de 1024x768.
El c贸digo fuente que estoy utilizando se basa en el ejemplo metro.prg que est谩 en el directorio de ejemplos de FWH.
// -------------------------------------------------------------------------- //
// ----------------------------- Defini鈥∶s iniciais ------------------------ //
// -------------------------------------------------------------------------- //
#include "FiveWin.ch"
#include "metro.ch"
extern DbfCdx
聽 聽 聽 聽
// -------------------------------------------------------------------------- //
// --------------------------- Programa principal --------------------------- //
// -------------------------------------------------------------------------- //
FUNCTION Main()
聽 聽 LOCAL oMain
聽 聽
聽 聽 MsgLogo( "..\gfx\logotipo.png" )
聽 聽 聽聽 聽
聽聽 聽SET DATE TO 聽BRITISH
聽聽 聽SET DELETE 聽 ON
聽聽 聽SET CONFIRM 聽ON
聽聽 聽SET SOFTSEEK ON
聽聽 聽
聽聽 聽REQUEST DBFCDX
聽聽 聽
聽聽 聽RddSetDefault( "DBFCDX" )
聽聽 聽
聽聽 聽// --------------------------------------------------------- //
聽聽 聽// ------------------ Inic隆o do programa ------------------- //
聽聽 聽// --------------------------------------------------------- //
聽 聽 DEFINE METRO oMain ;
聽 聽 聽 聽 聽 聽TITLE "GESTAO INTEGRADA DA AUTARQUIA" ;
聽 聽 聽 聽 聽 聽BACKGROUND "..\gfx\logotipo.bmp"
聽 聽 聽 聽 聽 聽
聽聽 聽DEFINE METROBUTTON OF oMain ;
聽聽 聽 聽 聽 聽 PROMPT "Residentes" ;
聽聽 聽 聽 聽 聽 COLOR CLR_WHITE, RGB( 234, 112, 39 ) ;
聽聽 聽 聽 聽 聽 IMAGE "..\gfx\users.bmp"
聽聽 聽 聽 聽 聽
聽 聽 DEFINE METROBUTTON OF oMain ;
聽 聽 聽 聽 聽 聽 PROMPT "Sair" ;
聽 聽 聽 聽 聽 聽 聽COLOR CLR_WHITE, RGB( 2, 174, 224 ) ;
聽 聽 聽 聽 聽 聽 聽IMAGE "..\gfx\exit.bmp" ;
聽 聽 聽 聽 聽 聽 聽ACTION If( MsgYesNo( "Want to exit ?" ), oMain:End(),) 聽
聽聽 聽 聽 聽 聽
聽 聽 ACTIVATE METRO oMain
RETURN nilUtilizo FWH 13:15 Harbour + 3.2 + BCC 5.8.2
Prueba a usar una funcion parecida a esta
De esta manera en el metodo New de TMetro, aplicala a
A ver si as铆 te funciona mejor
Aunque si no pones una imagen no puedo saber cual es exactamente tu problema
Function CalculaRes( nTp ) 聽// nTp -> 0 Ancho 聽 nTp -> 1 Alto
local nAncho
local nAlto
local nPorcAnc
local nPorcAlt
DEFAULT nTp 聽 := 0
聽 聽 聽 nAncho 聽:= GetSysMetrics( 0 ) 聽
聽 聽 聽 nAlto 聽 := GetSysMetrics( 1 ) 聽
聽 聽 聽 nPorcAnc 聽 := Round( ( nAncho/1920 ) , 4 )
聽 聽 聽 nPorcAlt 聽 := Round( ( nAlto/1080 ) , 4 )
Return IF( Empty( nTp ), nPorcAnc, nPorcAlt )De esta manera en el metodo New de TMetro, aplicala a
METHOD New( cTitle, nBtnWidth, nBtnHeight, cFileName ) CLASS TMetro
聽 聽DEFAULT cTitle := "MyApp", nBtnWidth := 132, nBtnHeight := 132
聽 聽
聽 聽::cTitle 聽 聽 = cTitle
聽 聽::aButtons 聽 = {}
聽 聽::nBtnWidth 聽= nBtnWidth
聽 聽::nBtnHeight = nBtnHeight
聽 聽::nOriginX 聽 = Round( 200 * CalculaRes( 0 ), 0 ) // Aqui
聽 聽::nOriginY 聽 = Round( 200 * CalculaRes( 1 ), 0 ) // Aqui
聽 聽::nRow 聽 聽 聽 = 聽 0
聽 聽::nCol 聽 聽 聽 = 聽 0
.../...A ver si as铆 te funciona mejor
Aunque si no pones una imagen no puedo saber cual es exactamente tu problema
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo
El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
Buenas
Mi problema es que la misma aplicaci贸n de prueba (estoy convirtiendo algunas de las aplicaciones que tienen el aspecto de metro) en el PC con bajas resoluciones (800x600 y 1024x768) pantalla de la aplicaci贸n no se consiga el sistema y no todos aparecen en la pantalla ...
Prueba con el cambio que te ha indicado Cristobal