FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour ERROR ON VISTAMENU : png failed!!!
Eoeo
Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
ERROR ON VISTAMENU : png failed!!!
Posted: Sat Jun 23, 2012 09:22 AM
Look this snapshot






I have problem to show png files

the files are showed bad

Code (fw): Select all Collapse
 


oVistaMenu := TVistaMenu():New( 0,nSplit, 100,100, oApp:oDlg() )

ACTIVATE DIALOG oApp():oDlg NOWAIT ; 
     ON INIT (VistaMenu(oVistaMenu,oApp():oDlg)



RETU NIL



.....


Function VistaMenu(oVistaMenu, oParent)
oVistaMenu:nColumns := 2
           oVistaMenu:nType := 1


  oItem :=  oVistaMenu:AddItem( "Configurazione ", ".\bitmaps\pngs\config.png" )
             oItem:AddItem( "Specificare la stampante","SH_IMPRIMIR", { || PrinterSetup() } )
             oItem:AddItem( "Creare una copia di sicurezza",, { || (ZipBackup(),Pstart()) } )
             oItem:AddItem( "Ripristinare  una copia di sicurezza",, { || (ZipRestore(),Pstart()) } )
             oItem:AddItem( "Inserire una password",, { || Password() } )
             oItem:AddItem( "Indicizzare gli archivi",, { || (Ut_Indexar(),Pstart()) } )
             oItem:AddItem( "Configurazione generale",, { ||  (oApp:Configurazione(),Pstart()) } )

    oItem :=  oVistaMenu:AddItem( "Gestione Ordini", ".\bitmaps\pngs\invoiceM.png" )
             oItem:AddItem( "Ver el estado y las tareas de red" )
             oItem:AddItem( "Configurar el uso compartido de archivos" )

    oItem :=  oVistaMenu:AddItem( "Gestione Clienti", ".\bitmaps\pngs\clienti2.png" )
             oItem:AddItem( "Reproducir un CD u otros archivos multimedia autom谩ticamente" )
             oItem:AddItem( "Impresora" )
             oItem:AddItem( "Mouse" )

    oItem :=  oVistaMenu:AddItem( "Gestione Articoli", ".\bitmaps\pngs\articoli2.png" )
             oItem:AddItem( "Desinstalar un programa" )
             oItem:AddItem( "Cambiar programas de inicio" )

    oItem :=  oVistaMenu:AddItem( "Gestione Fornitori", ".\bitmaps\pngs\fornitori.png" )
             oItem:AddItem( "Cambiar la configuraci贸n de la bateria" )
             oItem:AddItem( "Ajustar parametros de configuraci贸n de movilidad de uso frecuente" )

    oItem :=  oVistaMenu:AddItem( "Gestione Utenti", ".\bitmaps\pngs\image7.png" )
             oItem:AddItem( "Modificare il tipo di accesso" )

    oItem :=  oVistaMenu:AddItem( "Opzioni", ".\bitmaps\pngs\image12.png" )

    oItem :=  oVistaMenu:AddItem( "Personalizzazione", ".\bitmaps\pngs\image8.png" )
             oItem:AddItem( "Cambiar fondo de escritorio" )
             oItem:AddItem( "Cambiar la combinaci贸n de colores" )
             oItem:AddItem( "Ajustar la resoluci贸n de pantalla" )

    oItem :=  oVistaMenu:AddItem( "Utilit脿", ".\bitmaps\pngs\image9.png" )
             oItem:AddItem( "Cambiar teclados u otros m茅todos de entrada" )
             oItem:AddItem( "Cambiar el idioma para mostrar" )

    oItem :=  oVistaMenu:AddItem( "Cassa Facile", ".\bitmaps\pngs\touch.png" )
             oItem:AddItem( "Permitir que Windows sugiera parametros de configuraci贸n" )
             oItem:AddItem( "Optimizar la presentaci贸n visual" )

    oItem :=  oVistaMenu:AddItem( "E-Commerce", ".\bitmaps\pngs\ecommerce.png" )
             oItem:AddItem( "Parametri Generali" ,, { || oApp:Author() } )
             oItem:AddItem( "Carico / Scarico Ordini" ,, { || GoWeb("www.eoeo.it") } )



      oItem :=  oVistaMenu:AddItem( "CopyRights", ".\bitmaps\pngs\image2.png" )
             oItem:AddItem( "Autore di "+oApp:cAppname ,, { || oApp:Author() } )
             oItem:AddItem( "Visitare il sito di eoeo" ,, { || GoWeb("www.eoeo.it") } )


           * oApp():oWndVista:oClient :=  oVistaMenu
           oParent:oClient :=  oVistaMenu



    RETURN NIL
ukoenig
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: ERROR ON VISTAMENU : png failed!!!
Posted: Sat Jun 23, 2012 10:07 AM

It seems showing bad quality, these files are not proper converted.
I noticed original FWH-png's and will have a look at them, maybe to increase quality and repair them
or replace them with better ones.

Best Regards
Uwe :lol:

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Eoeo
Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
Re: ERROR ON VISTAMENU : png failed!!!
Posted: Sat Jun 23, 2012 11:15 AM

uwe,
the files are good quality i can send you some to see the quality !!!
when i use vistamenu it converte it on bad quality

I tried on win xp and Seven
I take them from iconfinder.com

ukoenig
Posts: 4043
Joined: Wed Dec 19, 2007 06:40 PM
Re: ERROR ON VISTAMENU : png failed!!!
Posted: Sat Jun 23, 2012 12:17 PM
Silvio,

I will do some tests.
I noticed, different image-sizes are accepted.
That makes it possible, building groups but adding spaces to the text, doesnt help.
Is there maybe a solution, to define the left text-startposition ?
The normal used sizes are 48x48. I Added a Image 128x128.



I found a fixed nleft-value in
METHOD Paint( hDC, lSelected, lFocus, lLast ) CLASS TVistaMenuItem

Maybe using Image-width ?

Enabled :
//if ::lLevel1
nLeft += ::nWLeftImage
//endif
but there is still some more work to do.


..
..
if ::lLevel1 .or. (!::lLevel1 .and. ::nType == 1 )
DrawMText( hDC, ::cText , {nTop,nLeft,nBottom,nRight} )
else
DrawText( hDC, ::cText , {nTop,nLeft,nBottom,nRight}, 32 )
if !lLast
Linea( hDC, nTop+1, nRight-11, nBottom-1, nRight-11, rgb( 207,207,207))
endif
endif
..
..
Best Regards
Uwe :-)
Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.
Eoeo
Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
Re: ERROR ON VISTAMENU : png failed!!!
Posted: Mon Jun 25, 2012 10:20 AM

Perhaps it not run ok If it is created on a dialog class

Eoeo
Posts: 222
Joined: Mon Jun 04, 2012 12:00 PM
Re: ERROR ON VISTAMENU : png failed!!!
Posted: Mon Sep 03, 2012 03:58 PM

Friends,
Any solution ?

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions