Explicando na prática...rsrs
#INCLUDE "MINIGUI.CH"
func main
Define Window form1;
at 0,0 ;
width 1017 ;
height 238 ;
title "TESTE";
main
@ 015,006 LABEL oLABEL01;
VALUE "TESTE";
WIDTH 064;
HEIGHT 022;
TRANSPARENT
@ 017,076 TEXTBOX oTEXT01;
VALUE "";
WIDTH 865;
HEIGHT 024
@ 013,950 BUTTONEX oBOTAO01;
CAPTION "&OK";
WIDTH 062;
HEIGHT 025;
ACTION FORM1.RELEASE
Endo Window
Center Window Form1
Activate Window Form1
Retu
Compile o fonte acima e execute em resolução 800x600, com certeza parte do TEXTBOX e o BOTÃO não poderão ser vistos.....agora
#INCLUDE "MINIGUI.CH"
FUNC MAIN()
WD:=GetDesktopWidth()
HD:=GetDesktopHeight()
DEFINE WINDOW Form1;
AT 238,007;
WIDTH ((WD*99.32)/100);
HEIGHT ((HD*12.24)/100);
TITLE "Form1";
MAIN
@ ((HD* 1.69)/100),((WD*92.77)/100) BUTTON oBUT001 CAPTION "&OK" WIDTH ((WD* 6.05)/100) HEIGHT ((HD* 3.26)/100) ACTION NIL
@ ((HD* 1.82)/100),((WD* 7.42)/100) TEXTBOX oGET001 VALUE "" WIDTH ((WD*84.47)/100) HEIGHT ((HD* 3.13)/100)
@ ((HD* 1.95)/100),((WD* 0.59)/100) LABEL oLAB001 VALUE "TESTE" WIDTH ((WD* 6.25)/100) HEIGHT ((HD* 2.86)/100) TRANSPARENT
END WINDOW
CENTER WINDOW Form1
ACTIVATE WINDOW Form1
RETURN
compile este exemplo, execute nas resoluções 1024x768 e 800x600....
parece complicado, mas montei tb um programinha que converte o arquivo XML criado pela HMGIDE em PRG já com os cálculos montados...rs
valeu