Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: oTop, oLeft, oBottom, oRight, oClient para redimensionar ??
Posted: Fri Jan 02, 2009 08:36 PM
Hola Aida , cómo estás??
Por qué no pruebas hacer en vez de dos programas enlazar dos archivos de recuros??
O si no otra alternativa es usar dos archivos DLL de recursos, o las que sean necesarias, y en tu main() del sistema haces lo siguiente:
#include "FiveWin.ch"
Function Main()
Local ResH,ResV,oWnd
DEFINE WINDOW oWnd Title "Prueba"
ResH:=oWnd:nHorzRes()
ResV:=oWnd:nVertRes()
IF ResH=800 .AND. RESV=600
SET RESOURCES TO "R800x600.dll"
ENDIF
IF ResH=1024 .AND. RESV=768
SET RESOURCES TO "R1024x768.dll"
ENDIF
ACTIVATE WINDOW oWnd MAXIMIZED
Return nil
Donde en R800x600.dll tendrás todos los recursos que se adaptan a la resolución 800x600 y en R1024x768.Dll los que se adaptan a la resolución 1024x768. Quizá no sea el mejor método pero es solo algo que se me ocurriria hacer para no hacer dos sistemas.
Saludos desde Argentina, Esteban.
Ojeda Esteban Eduardo.
Buenos Aires - Argentina.
FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport
Skype: jreduojeda