no designer estou verificando um problema que tem acontecido
o tamanho do FORM quando gera o .PRG difere do tamanho do desenhado
mas no formato .XML esta com as dimensões corretas
ex:
No XML
<?xml version="1.0" encoding="UTF-8"?>
-<part class="form">
-<style>
<property name="Geometry">{294,446,500,203}</property>
<property name="Caption">[Form1]</property>
<property name="FormType">[dlgModal]</property>
<property name="lClipper">.F.</property>
<property name="lExitOnEnter">.F.</property>
<property name="lDebug">.F.</property>
<property name="FromStyle">[Popup]</property>
<property name="Icon">[]</property>
<property name="BackColor">-1</property>
<property name="NoModal">.F.</property>
<property name="SystemMenu">.T.</property>
<property name="Minimizebox">.F.</property>
<property name="Maximizebox">.F.</property>
<property name="AbsAlignent">.T.</property>
<property name="SizeBox">.T.</property>
<property name="Visible">.T.</property>
<property name="3DLook">.F.</property>
<property name="Clipsiblings">.F.</property>
<property name="Clipchildren">.F.</property>
</style>
-<part class="browse">
-<style>
<property name="Geometry">{24,24,443,150}</property>
<property name="Name">[oBrowse1]</property>
</style>
</part>
</part>
no PRG
#include "hwgui.ch"
#include "common.ch"
#ifdef __XHARBOUR__
#include "ttable.ch"
#endif
FUNCTION _telateste
LOCAL oBrowse1
INIT DIALOG oDlg TITLE "Form1" ;
AT 294,446 SIZE 516,268 ;
STYLE WS_SYSMENU+WS_SIZEBOX+WS_VISIBLE
@ 24,24 BROWSE oBrowse1 ARRAY SIZE 443,150
oBrowse1:aColumns := {}
oBrowse1:aArray := {}
oBrowse1:AddColumn( HColumn():New( ,{|v,o|Iif(v!=Nil,o:aArray[o:nCurrent]:=v,o:aArray[o:nCurrent])},'C',100,0))
*- FIM DE oBrowse1
ACTIVATE DIALOG oDlg
RETURN oDlg:lresult
:? :? :?