Manuel,
No creo que sea buena idea redimensionar el listview puesto que las mini p谩ginas no pueden redimensionarse (son bitmaps pertenecientes a un ImageList -salvo que este admita redimensionamiento) por lo que habria que volver a crearlas todas nuevamente en cada redimensi贸n...
preferible mantener su ancho y evitar esperas 贸 parpadeos 
Antonio Linares wrote:Manuel,
No creo que sea buena idea redimensionar el listview puesto que las mini p谩ginas no pueden redimensionarse (son bitmaps pertenecientes a un ImageList -salvo que este admita redimensionamiento) por lo que habria que volver a crearlas todas nuevamente en cada redimensi贸n...
preferible mantener su ancho y evitar esperas 贸 parpadeos
.Antonio,
Funciono. Muchas gracias
Manuel,
Entendido, gracias
Te agradezco si me proporcionas un ejemplo de lo que comentas de las MDI, gracias
Antonio Linares wrote:Te agradezco si me proporcionas un ejemplo de lo que comentas de las MDI, gracias
// Working with MDI enviroments
#include "FiveWin.ch"
#include "xbrowse.ch"
REQUEST DBFCDX
static oWnd
//----------------------------------------------------------------------------//
function Main()
local oWndEdit, oBar, oIcon, oImage
local cName := "FiveWin power"
USE Clientes NEW SHARED VIA "DBFCDX"
DEFINE ICON oIcon RESOURCE "test"
DEFINE WINDOW oWnd FROM 1, 1 TO 20, 70 TITLE "I am the MDI Frame" ;
MDI ;
ICON oIcon
SET MESSAGE OF oWnd TO "Main Window"
DEFINE BUTTONBAR oBar 2007 OF ownd
DEFINE BUTTON OF oBar GROUP ;
PROMPT "mdi" TOOLTIP "lanzar mdichild" ;
ACTION CreaMdiChild()
DEFINE BUTTON OF oBar GROUP ;
PROMPT "info" TOOLTIP "lanzar msginfo" ;
ACTION Msginfo("hola")
ACTIVATE WINDOW oWnd MAXIMIZED ;
VALID MsgYesNo( "Want to End ?" )
return nil
//----------------------------------------------------------------------------//
Function CreaMdiChild()
local oChild, oBrw
DEFINE WINDOW oChild TITLE "Basic Cell selector browse" MDICHILD OF oWnd
DEFINE BUTTONBAR oBar 2007 OF oChild
@ 0,0 XBROWSE oBrw OF oChild ALIAS Alias() AUTOCOLS
oBrw:CreateFromCode()
oBrw:cToolTip = "This is a test"
oChild:oClient := oBrw
oBrw:SetFocus()
RETURN NILMETHOD Activate() CLASS TPreview
ACTIVATE WINDOW ::oWnd MAXIMIZED ;
ON RESIZE ( ::PaintMeta() , ::ChangeListView() )
......
METHOD ChangeListView() CLASS TPreview
local oRect := ::oWnd:GetCliRect()
local nHeight := oRect:nHeight
::oLvw:nHeight := nHeight - If( ::oWnd:oBar != nil, ::oWnd:oBar:nHeight() - 2,;
::oWnd:oTop:nHeight() ) - ;
If( ::oWnd:oMsgBar != nil, ::oWnd:oMsgBar:nHeight(),;
::oWnd:oBottom:nHeight() )
::oLvw:refresh()
Return nilLRESULT WINAPI _WndFrameProc( HWND hWnd, UINT wMsg, WPARAM wParam, LPARAM lParam )
{
return DefFrameProc( hWnd, GetWindow( hWnd, GW_CHILD ), wMsg, wParam, lParam );
}LRESULT WINAPI _WndFrameProc( HWND hWnd, UINT wMsg, WPARAM wParam, LPARAM lParam )
{
HWND hWndClient = GetWindow( hWnd, GW_CHILD );
char szName[ 20 ];
GetClassName( hWndClient, szName, 19 );
while( hWndClient && strcmp( szName, "MDICLIENT" ) != 0 )
{
hWndClient = GetWindow( hWndClient, GW_HWNDNEXT );
GetClassName( hWndClient, szName, 19 );
}
return DefFrameProc( hWnd, hWndClient, wMsg, wParam, lParam );
}
Para aquellos que se pregunten por que quiero modificar
un codigo que ha funcionado bien durante a帽os y que ademas
avala Paul Dilascia, la razon es que ese codigo parece fallar
en 64 bits.
De todas formas voy a tracearlo con OutputDebugString() y ver
si es correcto o si mis cambios estaban mal
Pues el c贸digo de Paul Dilascia y el que usaba FWH est谩 bien,
el fallo, en la nueva versi贸n, era comparar el nombre de la clase con "MDICLIENT" cuando el nombre que usa Windows es "MDIClient"
asi que volvemos a usar el c贸digo que hasta ahora hemos usado y seguir buscando cual pueda ser la causa de que a veces falle en 64 bits.
LRESULT WINAPI _WndFrameProc( HWND hWnd, UINT wMsg, WPARAM wParam, LPARAM lParam )
{
聽 聽if( wMsg == WM_SETFOCUS )
聽 聽 聽 return DefFrameProc( hWnd, GetWindow( hWnd, GW_CHILD ), wMsg, wParam, lParam );
聽 聽else 聽
聽 聽 聽 return DefFrameProc( hWnd, NULL, wMsg, wParam, lParam );
}
LRESULT WINAPI _WndFrameProc( HWND hWnd, UINT wMsg, WPARAM wParam, LPARAM lParam )
{
return DefFrameProc( hWnd, GetWindow( hWnd, GW_CHILD ), wMsg, wParam, lParam );
}METHOD Command( nWParam, nLParam ) CLASS TMdiFrame
local lToolBar := ( GetClassName( nLParam ) == "ToolbarWindow32" )
if ::oWndActive != nil
do case
case nWParam == 61472
::oWndActive:Minimize()
case nWParam == 61728
::oWndActive:Restore()
case nWParam == 61536
::oWndActive:End()
endcase
endif
do case
case ! lToolBar .and. nWParam - If( IsExe64(), 1791, 0 ) < 100 // MdiChild Menu Selection
nWParam -= 1791
if nWParam >= 1 .and. nWParam <= Len( ::oWndClient:aWnd )
::oWndClient:aWnd[ nWParam ]:SetFocus()
endif
otherwise
::Super:Command( nWParam, nLParam )
endcase
return 0Antonio,
Por favor, 驴podr铆as esperar hasta solucionar los errores del rpreview que te he comentado?.
Adicionalmente, en el icono, las opciones PDF y WORD format, en espa帽ol deben llamarse formato o quitar el format.
Muchas gracias.
Lucas,
En el preview el bot贸n de exportar a PDF funciona en 32 bits y de momento no funciona en 64 bits. No sabemos lo que tardaremos en solucionar esto. Igual ocurre con la opci贸n de email, teneis que probarla en distintas configuraciones y que nos comenteis los resultados.
Pero no podemos esperar a todo eso para publicar un nuevo build que es necesario ya
Lucas,
Las traducciones en prev64sp.dll y los literales que faltaban se han incluido debidamente traducidos
