Newsgroup: it.comp.lang.vo-clipper
Titolo: Immagine e testo in un bottone

Sono alle prese con una revisione di un vecchio programma in V.O. e mi
si richiede la possibilità di mostrare i bottoni con una immagine
(BitMap) e del testo che la affianca nello stesso bottone.
Qualcuno che abbia già affrontato il tema e che l'abbia risolto e che
vuole condividere questa possibilità, sarebbe il benvenuto se vorrà
condividere questa possibilità che per me è determinante in questo
momento.
Grazie per l'aiuto, basta un solo esempio.
Summa Mario



Se guardi negli esempi trovi tutto
-- 
Ciao, Alessandro

 Grazie per l'aiuto, basta un solo esempio.
prova HoverButton
Mario Costantino
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


wrote:

Alessandro ciao,  grazie per il suggerimento, ma non trovo alcun
esempio in ,merito al mio caso, puoi indicarmi in quale directory di
VO devo guardare ?? oppure, se ti va me lo mandi anche zippato alla
mia mail (
mds...@alice.it
)

 questo articolo e` stato inviato via web dal servizio gratuitohttp://
www.newsland.it/newssegnala
 gli abusi ad 
ab...@newsland.it
Grazie mario per il tuo suggerimento, ma mi pareva che non fosse molto
stabile questa dll, poiché dava qualche problema per windows xp, tu ne
sai qualcosa in più ??

 ha scritto nel messaggio 
news:66085927-99f9-4dab...@l26g2000yqd.googlegroups.com...
Sono alle prese con una revisione di un vecchio programma in V.O. e mi
si richiede la possibilit� di mostrare i bottoni con una immagine
(BitMap) e del testo che la affianca nello stesso bottone.
Qualcuno che abbia gi� affrontato il tema e che l'abbia risolto e che
vuole condividere questa possibilit�, sarebbe il benvenuto se vorr�
condividere questa possibilit� che per me � determinante in questo
momento.
Grazie per l'aiuto, basta un solo esempio.
Summa Mario
Senza prodotti di terze parti non mi pare si possa fare, puoi aggirare il 
problema creando bitmap che contengono il testo. (una porcata? si per� ne 
vieni fuori senza troppo dolore)
Danilo 

 sai qualcosa in pi� ??
E' fornita di codice sorgente.Ci fai quello che vuoi.
Ciao
-- 


 Danilo
Ciao Danilo, a volte la semplicità e quella vincente, ma ho ritenuto
saggio dare una occhiata intorno... Ora provo a digerire quella di
Hover e se la salita è ardua, ritorno sui miei passi ...
Grazie, Mario Summa

 ha scritto nel messaggio 
news:4b66e831$0$700$5fc...@news.tiscali.it...

Io ho utilizzato le due soluzioni sia HoverButton che bitmap con testo e le 
seconde alla fine mi hanno dato meno problemi.
Certo devi rinunziare alle dimensioni variabili del pulsante
Claudio 



Scusa ma ricordavo male, l'esempio era quello della pizza
-- 
Ciao, Alessandro

 sai qualcosa in pi� ??
Da VO27 in su, prova ad usare questo codice in sostituzione dell'originale
ASSIGN ImageList(oImageList) CLASS PushButton
	LOCAL sBImageList IS _winButton_ImageList
	LOCAL oImgList    AS ImageList
	LOCAL oDimFont AS Dimension
	LOCAL dwSize AS DWORD
	LOCAL i AS DWORD
	LOCAL k AS BYTE
	IF IsInstanceOfUsual(oImageList, #ImageList)
		oImgList := oImageList
		IF IsThemeEnabled()
 
			oDimFont := SELF:Size
            FOR i:=1 UPTO SELF:Length
            	k :=Asc(SubStr(SELF:TextValue,i,1) )
            	DO CASE
            	   CASE  k >= 47 .and.  k <= 57
            	       dwSize +=  SELF:wXChars /2
            	   CASE  k >= 97
            	       dwSize +=  SELF:wXChars /2
            	   CASE  k = 32
            	       dwSize +=  SELF:wXChars /3
            	   OTHERWISE
                       dwSize +=  SELF:wXChars
            	END CASE
            NEXT
            IF dwSize > 10
               dwSize -= 10
            ENDIF
			sBImageList.himl   := oImgList:Handle()
 
			sBImageList.margin.left  := (oDimFont:Width-dwSize)/2
			sBImageList.uAlign       := BUTTON_IMAGELIST_ALIGN_LEFT
 
            /*
			DO CASE
			   CASE _And(GetWindowLong(SELF:Handle(), GWL_STYLE), BS_RIGHT)> 0
            	    ?AsString(SELF),"Destra"
			        sBImageList.margin.Right  := oDimFont:Width/2 - dwSize
			        sBImageList.uAlign       := BUTTON_IMAGELIST_ALIGN_RIGHT
			   CASE  _And(GetWindowLong(SELF:Handle(), GWL_STYLE), BS_LEFT)> 0
			   	    ?AsString(SELF),"Sinistra"
			        sBImageList.margin.left  := 0
			        sBImageList.uAlign       := BUTTON_IMAGELIST_ALIGN_LEFT
			   OTHERWISE
			   	    ?AsString(SELF),"CENTRO"
			        sBImageList.margin.left  := (oDimFont:Width-dwSize)/2
			        sBImageList.uAlign       := BUTTON_IMAGELIST_ALIGN_LEFT
 
 	        END CASE
 	        */
			SendMessage(hWnd, BCM_SETIMAGELIST, 0, LONG(_CAST,@sBImageList))
		ENDIF
	ENDIF
	RETURN (oImage := oImgList)
Ti scegli la tua BMP in modalit� design-time con allineamento a sx.
Risultato : Bottone con bmp e testo centrati!
Funziona solo con stile XP
Ciao
-- 
