Hola a todos
Necesito hacer algunas cosillas en MDI, alguno de uds tendra algo de informacion, manuales, ejemplos que quieran compartir ?
He checado los archivos en SAMPLES y uno que otro archivo que he encontrado, pero me gustaria tener un poquitin mas. 
Gracias anticipadas
Saludos
Raymundo,
Explícanos un poco lo que quieres hacer y asi podremos orientarte de como implementarlo, gracias
local hdc :=CreateDc("DISPLAY","","")
local nHor:=GetDeviceCaps(hdc,8)
local nVer:=GetDeviceCaps(hdc,10) DEFINE WINDOW oDlg MDICHILD ;
OF Publicas:oWPpal;
FROM 30+(len(Publicas:oWPpal:oWndclient:aWnd)*15),30+(len(Publicas:oWPpal:oWndclient:aWnd)*15);
TO nver-160+(len(Publicas:oWPpal:oWndclient:aWnd)*15),nHor-30+(len(Publicas:oWPpal:oWndclient:aWnd)*15);
COLOR CLR_BLACK,CLR_WHITE;
PIXEL ACTIVATE WINDOW oDlg ;
ON INIT oLbx:SetFocus();
ON PAINT ( oLbx:Refresh(),;
oLbx:nWidth:=oDlg:nWidth-10 ,;
oLbx:nHeight:=oDlg:nHeight-82 ,;
oTab:nWidth:=oDlg:nWidth-10 ,;
oTab:nTop:=oDlg:nHeight-52 ) ;
MAXIMIZED;
VALID ((aAlias[21])-> ( dbClosearea() ),(aAlias[26])->( dbClosearea() ),;
(aAlias[23])->( dbCloseArea() ),(aAlias[29])-> ( dbCloseArea() ),;
(aAlias[2])-> ( dbCloseArea() ),oLbx:lCloseArea(),.t. ) if AbiertaVentana( cTitulo )
return NIL
endifFUNCTION AbiertaVentana ( cTitulo )
***********************************
local lAbierta:=.f.
local i
if len( Publicas:oWPpal:OwndClient:aWnd ) <> 0
for i = 1 to len( Publicas:oWPpal:oWndClient:aWnd )
if Publicas:oWPpal:OwndClient:aWnd[i]:ctitle = cTitulo
Publicas:oWPpal:OwndClient:aWnd[i]:normal()
lAbierta:=.t.
endif
next
endif
return lAbiertaFunction CargaAlias
*******************
return { ;
cGetNewAlias( "ARTICULO" ),; // 1
cGetNewAlias( "MUNICI" ) ,; // 2
cGetNewAlias( "PROVIN" ) ,; // 3
cGetNewAlias( "PROPIE" ) ,; // 4
cGetNewAlias( "SEAT1" ) ,; // 5
cGetNewAlias( "RAPPEL" ) ,; // 6
cGetNewAlias( "EQUIPO" ) ,; // 7
cGetNewAlias( "REFEREN" ) ,; // 8
cGetNewAlias( "MATERIAL" ),; // 9
cGetNewAlias( "VEHICULO" ),; // 10
cGetNewAlias( "TIPOS" ) ,; // 11
cGetNewAlias( "CANON" ) ,; // 12
cGetNewAlias( "TEXTOS" ) ,; // 13
cGetNewAlias( "IMAGEN" ) ,; // 14
,; // 15
,; // 16
,; // 17
cGetNewAlias( "PARTE" ) ,; // 18
cGetNewAlias( "FIESTAS" ) ,; // 19
cGetNewAlias( "VACAS" ) ,; // 20
cGetNewAlias( "PROVE" ) ,; // 21
cGetNewAlias( "FACTURA" ) ,; // 22
cGetNewAlias( "ALMACEN" ) ,; // 23
cGetNewAlias( "ALBARAN" ) ,; // 24
cGetNewAlias( "EXTRAS" ) ,; // 25
cGetNewAlias( "CONDUC" ) ,; // 26
cGetNewAlias( "GASTOS" ) ,; // 27
cGetNewAlias( "REEMBOL" ) ,; // 28
cGetNewAlias( "RUTA" ) ,; // 29
cGetNewAlias( "AVISOS" ) ,; // 30
cGetNewAlias( "NALBARAN" ) ; // 31
}function cGetNewAlias( cAlias )
*******************************
local cNewAlias, nArea := 1
if Select( cAlias ) != 0
while Select( cNewAlias := ( cAlias + ;
StrZero( nArea++, 2 ) ) ) != 0
end
else
cNewAlias = cAlias
endifHola Jose Luis :
Muchas gracias por compartir tu metodo MDI, empezare a hacer pruebas sobre el.
Hola Antonio :
Pasa lo siguiente, tengo una aplicacion practicamente terminada y debido a algunas sugerencias tanto de los clientes como propias, he determinado que tengo que convertirla a MDI.
Asi que, esa es la situacion tengo que ver antes de meterle mano a las modificaciones, todo lo que tengo que considerar que y que no debo cambiar, etc.
Saludos
Hola Raymundo:
Adjunto te dejo unos manuales de MDI al 100% que nos pasaron en un
curso de Argentina, del grupo puertosur.
Lo hicieron Eduardo Rizzolo y Victor Tomas.
Espero que te sirvan son muy buenos.
Pueden bajarlos de aqui.
http://rapidshare.com/files/29290837/Md ... _.rar.html
Saludos,
Muchas gracias Juan
Les estare dando su buena checada !!
Saludos
JoseLuis wrote:
3º Para activarla lo hago así, teniendo en cuenta cerrar los alias mediante el Valid(), y si hemos utilizado un listbox, ése area lo cierro con él:
ACTIVATE WINDOW oDlg ; ON INIT oLbx:SetFocus(); ON PAINT ( oLbx:Refresh(),; oLbx:nWidth:=oDlg:nWidth-10 ,; oLbx:nHeight:=oDlg:nHeight-82 ,; oTab:nWidth:=oDlg:nWidth-10 ,; oTab:nTop:=oDlg:nHeight-52 ) ; MAXIMIZED; VALID ((aAlias[21])-> ( dbClosearea() ),(aAlias[26])->( dbClosearea() ),; (aAlias[23])->( dbCloseArea() ),(aAlias[29])-> ( dbCloseArea() ),; (aAlias[2])-> ( dbCloseArea() ),oLbx:lCloseArea(),.t. )
Un Saludo
Carlos G.
FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home
Ando tambien en algo de MDI, sera que me pudieras enviar esa guia JCARO a mi privado, trate de descargarlo pero me fue imposible... muy agradecido... joseluisysturiz@yahoo.com Saludos
Buenas noches
¿Alguien que tenga los manuales MDI me los podria mandar a mi correo por favor?.
De antemano muchas gracias.
Buenas noches amigos.
Yo también solicito muy amablemente esos manuales, si alguno de ustedes lo tiene. En estos días he quedado atorado con esto de MDI, específicamente con los Dialogs NoWait.
Mi Email: falegria230349@yahoo.es
Saludos.
Hola interwin, te he enviado TODO lo que encontré en internet sobre MDI en fivewin. Todos los escritos dicen muy poco al respecto. No encontré ningún ejemplo contundente. De todos modos, espero te sirvan.
Por otro lado, creo que deberías identificarte en poco mejor, para poder llamarte por tu nombre propio.
Saludos.
