Dialog con ButtonBar ?

[Romeo]

Scusate ma non e' possibile creare una Dialog con una Button bar ?

Ho controllato gli esempi nella samples, ma ho solo trovato esempi con le Window. Altre soluzioni ?

Romeo/Zingoni

[Enrico Maria Giordano]

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    DEFINE DIALOG oDlg

    ACTIVATE DIALOG oDlg;
             ON INIT TOOLBAR( oDlg );
             CENTER

    RETURN NIL


STATIC FUNCTION TOOLBAR( oDlg )

    DEFINE BUTTONBAR OF oDlg 2007

    DEFINE BUTTON;
           OF oDlg:oBar;
           FILE "C:\FWH\BITMAPS\CLOSE.BMP";
           ACTION oDlg:End()

    RETURN NIL

EMG

[Romeo]

Grazie mille.

Anche il BTNBAR funziona.... per il colore delle scritte si puo fare qualcosa ?

Grazie ancora

[Enrico Maria Giordano]

Quali scritte?

EMG

[Romeo]

esempio:

@10,10 BTNBMP obutt prompt "Successivo" filename "pippo.bmp","pippo1.bmp" action ...


ecco mi riferivo alla scritta "Successivo", posso io averla di un altro colore ?

Grazie

[Enrico Maria Giordano]

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg

    DEFINE DIALOG oDlg

    ACTIVATE DIALOG oDlg;
             ON INIT TOOLBAR( oDlg );
             CENTER

    RETURN NIL


STATIC FUNCTION TOOLBAR( oDlg )

    LOCAL oBtn

    DEFINE BUTTONBAR SIZE 40, 45 OF oDlg 2007

    DEFINE BUTTON oBtn;
           OF oDlg:oBar;
           FILE "E:\FWHARBOUR\BITMAPS\CLOSE.BMP";
           PROMPT "Test";
           ACTION oDlg:End()

    oBtn:SetColor( CLR_RED )

    RETURN NIL

EMG

[Romeo]

Tutto ok,
a parte quel 2007 che forse non c'entra (almeno penso)

Sarebbe possibile piazzare la buttonbar in BASSO ?

Ho provato con "bottom" ma picche !

Grazie Mille

[Romeo]

Nell'ultimo esempio che hai pubblicato:


-Non si riesce a dimensionare la buttonbar ?
-Il testo viene sempre centrato e non e' possible come nella BTNBMP metterlo su,giu,dx,sx
-La buttonbar mi occorrerebbe in basso (in una dialog)

...troppe cose lo so..

Grazie

[Romeo]

Ops..
Sono riuscito a dimensionare la buttonbar, quello che mi pare non possibile e' inserire le scritte a dx,sx,up,dn e posizionare la buttonbar in basso della dialog !

Ciao

[Enrico Maria Giordano]

Tutto ok,
a parte quel 2007 che forse non c'entra (almeno penso)

Serve ad ottenere il nuovo look celestino sfumato delle toolbar.

Sarebbe possibile piazzare la buttonbar in BASSO ?

Ho provato con "bottom" ma picche !

Grazie Mille

Sembra che ci sia un bug che non consente il funzionamento delle clausole LEFT, RIGHT, BOTTOM.

EMG

[Enrico Maria Giordano]

-Il testo viene sempre centrato e non e' possible come nella BTNBMP metterlo su,giu,dx,sx

Anche qui, le clausole ci sono ma sembrano non funzionare.

EMG

[Romeo]

Meno male, quasi quasi sono contento...non e' come al solito colpa mia.

Posso provare a chiedere lumi a sua santita'....Antonio ?

Ciao

[Enrico Maria Giordano]

Credo non ci sia altra possibilità.

EMG

[Romeo]

Sno riuscito a fare comparire la bar in basso....:
esempio (di emg)
#include "Fivewin.ch"


FUNCTION MAIN()

LOCAL oDlg

DEFINE DIALOG oDlg

ACTIVATE DIALOG oDlg;
ON INIT TOOLBAR( oDlg );
CENTER

RETURN NIL


STATIC FUNCTION TOOLBAR( oDlg )

LOCAL oBtn,oBar

DEFINE BUTTONBAR oBar SIZE 40, 45 OF oDlg 2007

DEFINE BUTTON oBtn;
OF oDlg:oBar;
FILE "E:\FWHARBOUR\BITMAPS\CLOSE.BMP";
PROMPT "Test";
ACTION oDlg:End()

oBtn:SetColor( CLR_RED )

* ho aggiunto

oDlg:oBar:GoDown()

* e funziona !!

RETURN NIL


**** chiaramente le scritte sono pultroppo sempre centrate ...
e un'altra cosa: come si fa a piazzare un bottone a DX della barra (magari l'EXIT)

Tks