Colegas, quiero que los di谩logos guarden su posici贸n al cerrar. Estoy tomando como modelo el c贸digo de "dlgsave.prg" que se encuentra en samples. Me guarda la posici贸n del dialogo pero no respeta las dimensiones del mismo ( el dialogo es de recursos ).
Aqu铆 el dialogo original
http://imagizer.imageshack.us/a/img537/7756/ueQMqp.jpg
Aqu铆 con las funciones para mantener la 煤ltima posici贸n
http://imageshack.com/a/img540/3066/QGfTZO.jpg
Alguna idea ? Much铆simas gracias.
Saludos
#include "fivewin.ch"
function Main()
local oWnd
DEFINE WINDOW oWnd
@ 40,40 BUTTON "Dialog" OF oWnd SIZE 80,28 PIXEL ACTION CreateDlg()
ACTIVATE WINDOW oWnd MAXIMIZED
return nil
static function CreateDlg()
static lOk := .t.
local oDlg
local lInit := .t.
if ! lOK
return nil
endif
// In case of resource
DEFINE DIALOG oDlg RESOURCE "DIALOGO" ;
STYLE nOr( WS_CAPTION, WS_THICKFRAME, WS_SYSMENU, ;
WS_MINIMIZEBOX, WS_MAXIMIZEBOX )
/* //Desde codigo
DEFINE DIALOG oDlg ;
STYLE nOr( WS_CAPTION, WS_THICKFRAME, WS_SYSMENU, ;
WS_MINIMIZEBOX, WS_MAXIMIZEBOX )
*/
oDlg:bMoved := { || If( ! lInit, SaveDlgPos( oDlg ), nil ) }
oDlg:bResized := { || SaveDlgPos( oDlg ) }
ACTIVATE DIALOG oDlg ON INIT ( RestoreDlgPos( oDlg ), lInit := .f. ) ;
VALID ( SaveDlgPos( oDlg ), lOK := .t. )
return nil
static function SaveDlgPos( oDlg )
local oIni, oRect
oIni := TIni():New( ".\dlgpos.ini" )
if ! IsIconic( oDlg:hWnd ) .and. ! IsZoomed( oDlg:hWnd )
oRect := oDlg:GetRect()
oIni:Set( "Dialog", "nTop", oRect:nTop )
oIni:Set( "Dialog", "nLeft", oRect:nLeft )
oIni:Set( "Dialog", "nBottom", oRect:nBottom )
oIni:Set( "Dialog", "nRight", oRect:nRight )
endif
return nil
static function RestoreDlgPos( oDlg )
local oIni
local nTop,nLeft, nBottom, nRight
oIni := TIni():New( ".\dlgpos.ini" )
nTop := oIni:Get( "Dialog", "nTop", 100 )
nLeft := oIni:Get( "Dialog", "nLeft", 100 )
nBottom := oIni:Get( "Dialog", "nBottom", 600 )
nRight := oIni:Get( "Dialog", "nRight", 800 )
oDlg:Move( nTop, nLeft, nRight - nLeft, nBottom - nTop )
return nilDIALOGO DIALOG 145, 70, 336, 213
STYLE DS_ABSALIGN | DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_THICKFRAME
CAPTION "Dialogo"
FONT 8, "MS Sans Serif"
{
}static function RestoreDlgPos( oDlg )
聽 聽local oIni
聽 聽local nTop,nLeft, nBottom, nRight
聽 聽oIni 聽 聽 := TIni():New( ".\dlgpos.ini" )
聽 聽nTop 聽 聽 := oIni:Get( "Dialog", "nTop", 聽 聽100 )
聽 聽nLeft 聽 聽:= oIni:Get( "Dialog", "nLeft", 聽 100 )
聽 聽nBottom 聽:= oIni:Get( "Dialog", "nBottom", 600 )
聽 聽nRight 聽 := oIni:Get( "Dialog", "nRight", 聽800 )
聽 聽//oDlg:Move( nTop, nLeft, nRight - nLeft, nBottom - nTop )
聽 聽oDlg:Move( nTop, nLeft )Horacio,
Prueba a llamar a oDlg:CoorsUpdate() antes de tomar los valores de nBottom y nRight
Estas usando oDlg:GetRect() asi que no sirve lo que te he dicho.
A que te refieres que no respeta esos valores ? Aumenta, disminuye ?
Antonio, gracias por tus respuestas. En el primer post de este hilo adjunte dos imagenes, la primera muestra las dimensiones correctas del dialogo, la otra aplicando las funciones para que el cuadro mantenga su ultima posicion. La posicion la mantiene pero las dimensiones del cuadro no las respeta. En mi caso aumenta. Tome estas funciones de DlgSave.prg que se encuentra en la carpeta samples. Solo que cambie el dialogo por uno de recursos ( el original es por codigo y funciona bien ).
Saludos
Horacio,
Prueba a asignarle el tama帽o usando oDlg:SetSize( nAncho, nAlto, lRepintar )
Antonio, nuevamente gracias. La soluci贸n que le postee a Karinha para mi funciona. Rara vez utilizo dialogos desde c贸digo, por lo tanto mantendr茅 el c贸digo de esta manera. Siguiendo la m谩xima del programador "si funciona no lo toques ". Gracias 
Saludos
