Antonio, tpreview no me muestra el icono de la venta de previsualizacion
este codigo esta fallando
se corrige, usando
ahora una pregunta, deseo usar icono propios en la toolbar del previre, aca tu usas una funcion FWBitmap( cResname ), la cual tiene codificada dentro los bitmap usado en hexadecimal, pero en el caso de querer usar bitmap propios, es correcto una funcion como esta:
existe alguna probabilidad de perdida de recursos, o en este caso al funalizar tpreview elimina todos los handle de bitmap usados, incuso lo de mi funcion?
salu2
carlos vargas
este codigo esta fallando
if ! ::oDevice:lPrvModal .and. ::oWndMain != nil .and. ;
Upper( ::oWndMain:ClassName() ) == "TMDIFRAME"
DEFINE WINDOW ::oWnd ;
TITLE cTitle ;
ICON oIcon ; /*nowork*/
COLOR CLR_BLACK,CLR_LIGHTGRAY ;
VSCROLL HSCROLL MDICHILD
else
DEFINE WINDOW ::oWnd ;
TITLE cTitle ;
ICON oIcon ; /*nowork - por lo menos este que estoy usando*/
COLOR CLR_BLACK,CLR_LIGHTGRAY ;
VSCROLL HSCROLL MENU ::BuildMenu()
ENDIFse corrige, usando
ENDIF
::oWnd:SetIcon( oIcon ) //new
::oWnd:SetFont( ::oFont )ahora una pregunta, deseo usar icono propios en la toolbar del previre, aca tu usas una funcion FWBitmap( cResname ), la cual tiene codificada dentro los bitmap usado en hexadecimal, pero en el caso de querer usar bitmap propios, es correcto una funcion como esta:
STATIC FUNCTION FWBitmap2( cResname )
LOCAL oBitmap
DEFINE BITMAP oBitmap RESNAME cResname
IF HB_IsObject( oBitmap )
RETURN oBitmap:hBitmap
ENDIF
RETURN 0existe alguna probabilidad de perdida de recursos, o en este caso al funalizar tpreview elimina todos los handle de bitmap usados, incuso lo de mi funcion?
salu2
carlos vargas
Salu2
Carlos Vargas
Desde Managua, Nicaragua (CA)
Carlos Vargas
Desde Managua, Nicaragua (CA)