FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index All products support Utilizzare gli splitter per il resize automatico
Posts: 858
Joined: Fri Oct 07, 2005 12:00 PM

Utilizzare gli splitter per il resize automatico

Posted: Tue Apr 24, 2007 02:19 PM

Salve a tutti,
sto facendo un pò di pratica con il comando splitter perché vorrei sostituire alcune dialog con una visualizzazione tipo "outlook" che mi permetta di operare agevolmente a tutte le risoluzioni.

In pratica ho la necessità di avere in nella sezione sinistra un browse e nella destra un folder.
Il mio problema è che in caso di resize mi viene allargata la parte sinistra (folder) mentre vorrei che venga allargata la destra (browse) e precisamente solo la prima colonna del browse.

Vorrei inoltre che lo sfondo della sezione sinistra appaia in grigio (come una dialog); devo creare un oggetto Panel per questo ?

Qualche suggerimento ?

La videata del mio prg di esempio è su www.softwarexp.co.uk/beta/test.png

mentre il prg è scaricabile da www.softwarexp.co.uk/beta/test.zip

Grazie in anticipo.

Marco Turco

Best Regards,



Marco Turco

SOFTWARE XP LLP
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

Utilizzare gli splitter per il resize automatico

Posted: Tue Apr 24, 2007 04:10 PM

prova a trovare i messagi inerenti a fsdi2006
li c'era un resize automatico con gli splitter dialog e browse

Best Regards, Saludos



Falconi Silvio
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM

Re: Utilizzare gli splitter per il resize automatico

Posted: Tue Apr 24, 2007 06:04 PM
Marco Turco wrote:Il mio problema è che in caso di resize mi viene allargata la parte sinistra (folder) mentre vorrei che venga allargata la destra (browse) e precisamente solo la prima colonna del browse.


Non so come allargare una colonna del browse ma per il resto modifica così il tuo esempio:

ACTIVATE WINDOW oWnd;
         ON RESIZE RIDIMENSIONA( oWnd, oSplit, oBrw, oFld )


STATIC FUNCTION RIDIMENSIONA( oWnd, oSplit, oBrw, oFld )

    oSplit:nFirst = oWnd:nWidth() - oSplit:nWidth - 300

    oFld:Move( 90, oSplit:nFirst + oSplit:nWidth, , , .T. )

    oBrw:Move( 90, 60, oSplit:nFirst - 60, 220, .T. )

    oSplit:AdjClient()

    RETURN NIL


EMG
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM

Re: Utilizzare gli splitter per il resize automatico

Posted: Tue Apr 24, 2007 06:10 PM
Marco Turco wrote:Vorrei inoltre che lo sfondo della sezione sinistra appaia in grigio (come una dialog)


Aggiungi la clausola color al comando DEFINE WINDOW:

#include "Wcolors.ch"

...

... COLOR NIL, GETSYSCOLOR( COLOR_BTNFACE )


EMG
Posts: 858
Joined: Fri Oct 07, 2005 12:00 PM

Utilizzare gli splitter per il resize automatico

Posted: Wed Apr 25, 2007 03:33 PM

Grazie EMG,
con le tue indicazioni ho fatto un deciso passo avanti.

Ho modificato il programma in modo tale che cliccando sul pulsante sulla buttonbar si esegue una funzione che crea il browse,il folder e attiva la gestione dello splitter. Tutto più o meno ok. L'unico problema è che ho aggiunto un combobox sul quale opero con il metodo Move che mi hai suggerito ma in caso di resize il programma va in blocco.

Forse il comando move non è supportato per le combobox ?

Inoltre, che funzione posso utilizzare per cambiare lo sfondo quando chiamo la funzione che crea il browse e poi per ripristinarlo uscendo dalla funzione con il pulsante Exit che ho aggiunto ?

Ho aggiornato il prg con le modifiche su www.softwarexp.co.uk/beta/test.zip

Grazie

Marco

Best Regards,



Marco Turco

SOFTWARE XP LLP
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM

Utilizzare gli splitter per il resize automatico

Posted: Wed Apr 25, 2007 06:27 PM
Marco Turco wrote:Forse il comando move non è supportato per le combobox ?


Il metodo Move() è perfettamente supportato dai Combobox.

Marco Turco wrote:Inoltre, che funzione posso utilizzare per cambiare lo sfondo quando chiamo la funzione che crea il browse e poi per ripristinarlo uscendo dalla funzione con il pulsante Exit che ho aggiunto ?


Il metodo SetColor()

EMG
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

Utilizzare gli splitter per il resize automatico

Posted: Thu Apr 26, 2007 06:55 AM

comunque nel fsdi2006 allargava o restringeva tab,browse,splitter,menu e quantaltro era nella dialog ma c'erano degli errori iniziali

il problema era che non funzionava bene quando si andava a restringere il tutto a causa di un metodo che non trovava nella classe dialog poi io ho aggiunto questo metodo, probabilmente c'è ma è con un altro nome

Caro Marco, Quando torno a casa ti riporto il codice ...

Best Regards, Saludos



Falconi Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

Utilizzare gli splitter per il resize automatico

Posted: Thu Apr 26, 2007 07:01 AM
Function ResizeWndMain()
   local aClient
   if oApp():oDlg != NIL
      aClient := GetClientRect (oApp():oWndMain:hWnd )
      oApp():oDlg:SetSize( aClient[4], aClient[3] - oApp():oWndMain:oBar:nHeight - oApp():oWndMain:oMsgBar:nHeight )
      // oApp():oDlg:Move(oApp():oDlg:nYMove,)
      oApp():oDlg:Refresh()
      oApp():oSplit:nLong := oApp():oDlg:nHeight // aClient[4]
      oApp():oSplit:Refresh()
      oApp():oGrid:SetSize( aClient[4]-oApp():oGrid:nLeft, oApp():oDlg:nHeight - 26 )
      oApp():oGrid:Refresh()
      oApp():oTab:nTop := oApp():oDlg:nHeight - 26
      oApp():oTab:Refresh()
      oApp():oWndMain:oMsgBar:Refresh()
      // SysRefresh()
   endif
return NIL



c'è una finestra principale e dentro c'è una dialog particolare con a sinistra la classe vtaskbar ( menu)

solo questa parte cioè con la vtaskbar non sono riuscito a rimpicciolire mentre gli altri controlli sono a posto
Best Regards, Saludos



Falconi Silvio
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

Utilizzare gli splitter per il resize automatico

Posted: Thu Apr 26, 2007 07:02 AM
oops il comando era

 ::oWndMain:bResized := {|| ResizeWndMain() }


scusate!
Best Regards, Saludos



Falconi Silvio
Posts: 858
Joined: Fri Oct 07, 2005 12:00 PM

Utilizzare gli splitter per il resize automatico

Posted: Thu Apr 26, 2007 10:05 AM

Grazie Emg e Silvio. Ho risolto quasi tutti i problemi.

Sto cercando di creare un rettangolo blu con la scritta "Bilancio" ed un'altra scritta più piccola sotto. Vorrei in pratica qualcosa tipo "Posta elettronica" di Outlook (vedi www.softwarexp.co.uk/beta/image2.png ) da inserire sopra il browse ( vedi www.softwarexp.co.uk/beta/image1.png ).
Che funzione mi suggerite di usare per ottenere un risultato tipo "Outlook" ?
Ho provato con il semplice Say indicando le dimensioni da coprire ma non ho l'effetto 3d e vorrei inoltre che il contorno del box blu sia definito da una linea nera come il browse. Non c'è una funzionalità tipo "Box" nelle fivewin ?

Un altro problema che ho è che non riesco a rendere trasparente la bitmap, in pratica mi prende uno sfondo bianco invece che azzurro.

In pratica faccio:

@35,05 BITMAP oBmp FILENAME "48CONS.BMP" PIXEL NOBORDER OF oWnd

oBmp:nClrPane=nRgb(128,128,255)
oBmp:Refresh()

Ma il risultato è che lo sfondo appare sempre bianco come si vede da www.softwarexp.co.uk/image1.png

Qualche idea ?

Marco

Best Regards,



Marco Turco

SOFTWARE XP LLP
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

Utilizzare gli splitter per il resize automatico

Posted: Thu Apr 26, 2007 03:22 PM

ci vuole la classe di paco Vtitle oppure se vuoi farlo piu' bello esteticamente la vtaskbar sempre di paco

www.canalfive.com

Best Regards, Saludos



Falconi Silvio
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM

Utilizzare gli splitter per il resize automatico

Posted: Thu Apr 26, 2007 03:32 PM
Marco Turco wrote:Sto cercando di creare un rettangolo blu con la scritta "Bilancio" ed un'altra scritta più piccola sotto. Vorrei in pratica qualcosa tipo "Posta elettronica" di Outlook (vedi www.softwarexp.co.uk/beta/image2.png ) da inserire sopra il browse ( vedi www.softwarexp.co.uk/beta/image1.png ).
Che funzione mi suggerite di usare per ottenere un risultato tipo "Outlook" ?


Non puoi utilizzare semplicemente un bitmap?

Marco Turco wrote:Un altro problema che ho è che non riesco a rendere trasparente la bitmap


Prova con

oBmp:lTransparent = .T.


EMG
Posts: 858
Joined: Fri Oct 07, 2005 12:00 PM

Utilizzare gli splitter per il resize automatico

Posted: Thu Apr 26, 2007 05:56 PM

>Non puoi utilizzare semplicemente un bitmap?

Provo ma temo che sgrani col cambiare della risoluzione.

>Prova con Code: oBmp:lTransparent = .T.

già fatto ma in questo caso assume come colore di background il nero.

Marco

Best Regards,



Marco Turco

SOFTWARE XP LLP
Posts: 9022
Joined: Thu Oct 06, 2005 08:17 PM

Utilizzare gli splitter per il resize automatico

Posted: Thu Apr 26, 2007 06:03 PM
Marco Turco wrote:Provo ma temo che sgrani col cambiare della risoluzione.


Ovviamente parlavo solo del colore sfumato. Quello non sgrana. Il testo lo puoi aggiungere durante il paint.

Marco Turco wrote:già fatto ma in questo caso assume come colore di background il nero.


Ovviamente non è così, avrai fatto qualche errore solo che senza un esempio minimale che lo mostri non posso saperlo.

EMG
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM

Utilizzare gli splitter per il resize automatico

Posted: Fri Apr 27, 2007 10:42 AM

prova a trovare sul forum una funzione denominata gradient
mi ricordo che qualcuno l'aveva fatta e paco l'aveva anche corretta
naturalmente non ti posso inviare quella sua ....

Best Regards, Saludos



Falconi Silvio