FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour C贸mo refrescar un COMBOBOX? (SOLUCIONADO)
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
C贸mo refrescar un COMBOBOX? (SOLUCIONADO)
Posted: Mon Oct 30, 2017 02:08 PM
Saludos al foro:

Tengo la siguiente situaci贸n, ojal谩 me puedan apoyar!.

El siguiente c贸digo de un COMBOBOX esta formado con un ARRAY (acPdc) y el
array lo formo dependiendo de un GET anterior, es decir lo armo en tiempo de
ejecuci贸n, el problema es que no se me refresca el array del COMBOBOX.

Code (fw): Select all Collapse
聽 聽 聽 聽 REDEFINE COMBOBOX aGets[03] VAR oBit:PDC ID 103 OF oDlg UPDATE;
聽 聽 聽 聽 聽 聽 PROMPTS acPdc;
聽 聽 聽 聽 聽 聽 WHEN oBit:REP;
聽 聽 聽 聽 聽 聽 MESSAGE "Elija la planta del cliente donde descargar"


Gracias
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: C贸mo refrescar un COMBOBOX?
Posted: Mon Oct 30, 2017 03:13 PM
Aramando, intenta asi:

Code (fw): Select all Collapse
   REDEFINE COMBOBOX oCbx2 VAR cOPCLAY2 ITEMS {"Diretoria","Conscilia莽茫o"};
      ID 120 OF oDlg;
      STYLE CBS_DROPDOWN ;
      WHEN nOpTot=1 .AND. nOpFilt=3 .AND. nOpcLay=1;
      ON CHANGE ( nOPCLAY2 := oCbx2:nAt,oCbx2:Refresh() )

   REDEFINE COMBOBOX oCbx VAR cOPCOUT ITEMS {"Impressora","Excel"};
      ID 121 OF oDlg;
      STYLE CBS_DROPDOWN ;
      ON CHANGE ( nOPCOUT := oCbx:nAt,oCbx:Refresh() )


Saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: C贸mo refrescar un COMBOBOX?
Posted: Mon Oct 30, 2017 03:38 PM
Karinha:

Agradezco tu respuesta pero no consigo hacerla funcionar, pongo m谩s c贸digo:

Code (fw): Select all Collapse
聽 聽 聽 聽 REDEFINE GET aGets[01] VAR oBit:RFC ID 101 OF oDlg UPDATE;
聽 聽 聽 聽 聽 聽 BITMAP "Bus16";
聽 聽 聽 聽 聽 聽 PICTURE "@!K";
聽 聽 聽 聽 聽 聽 VALID ValRfc(oDlg,aGets);
聽 聽 聽 聽 聽 聽 MESSAGE "Registro Federal de Contribuyentes del cliente"

聽 聽 聽 聽 REDEFINE COMBOBOX aGets[03] VAR oBit:PDC ID 103 OF oDlg UPDATE;
聽 聽 聽 聽 聽 聽 PROMPTS acPdc; 聽 聽 聽 聽 聽 聽<------------- Esto no se refresca
聽 聽 聽 聽 聽 聽 WHEN oBit:REP;
聽 聽 聽 聽 聽 聽 MESSAGE "Elija la planta del cliente donde descargar"


En la funci贸n ValRfc(oDlg,aGets) es donde armo el array acPdc dependiendo del
cliente que se ha registrado, pero no muestra el contenido.

Con otra pregunta, como hacer que se muestren las l铆neas punteadas en los controles COMBOBOX???

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: C贸mo refrescar un COMBOBOX?
Posted: Mon Oct 30, 2017 04:44 PM
Armando, con un DBCOMBO lo hago asi, haber si te da alguna idea...saludos... :-)

Code (fw): Select all Collapse
   aGet[5]:aItems := aNuevo1
   aGet[5]:aList  := aNuevo2
   aGet[5]:SetItems( aGet[5]:aItems, aGet[5]:aList, .t. )
   aVar[5] := "0"
   aGet[5]:REFRESH()
Dios no est谩 muerto...



Gracias a mi Dios ante todo!
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: C贸mo refrescar un COMBOBOX?
Posted: Mon Oct 30, 2017 05:00 PM
Armando, mira:

Code (fw): Select all Collapse
   c:\fwh1701\samples\testcalr.prg


Saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: C贸mo refrescar un COMBOBOX?
Posted: Mon Oct 30, 2017 05:32 PM
Tocayo: como dice jose luis

Code (fw): Select all Collapse
oGets[3]:SetItems( acPdc , .T. )
oBit:PDC 聽 聽:= 聽acPdc[1]
oGets[3]:Refresh()
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: C贸mo refrescar un COMBOBOX? (SOLUCIONADO)
Posted: Mon Oct 30, 2017 09:22 PM

Amigos:

Solucionado con la propuesta de Jos茅 Luis, sacaron un alma del purgatorio :)

Gracias a todos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: C贸mo refrescar un COMBOBOX?
Posted: Tue Oct 31, 2017 12:07 AM
armando.lagunas wrote:Tocayo: como dice jose luis

Code (fw): Select all Collapse
oGets[3]:SetItems( acPdc , .T. )
oBit:PDC 聽 聽:= 聽acPdc[1]
oGets[3]:Refresh()



Armando Lagunas, aprovechando que respondistes, te hago una peque帽a consulta sobre TASKPANEL, haber si es posible me des una idea o ayuda en lo siguiente, no estoy usando ningun THEME y asi me sirve 99,99%, porque digo eso.? ya que necesito solo cambiar el color de los TASKGROUP en todo el sistema y que las cajas tengan SOMBRA y EFECTO 3D, lo demas que no tiene color stylo transparente me viene al pelo...como podria hacer lo que necesito.?

Pense en hacer un THEME, pero creo seria mucho trabajo solo para cambiar un color...no se que opinas, o si puedo crear un THEME donde solo use y modifique el color de los TASKGROUP...

Espero sugerencias e ideas, saludos, gracias... :-)
Dios no est谩 muerto...



Gracias a mi Dios ante todo!
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: C贸mo refrescar un COMBOBOX? (SOLUCIONADO)
Posted: Tue Oct 31, 2017 04:47 PM
Actualmente lo uso asi, con un theme standard que se llama "#TASKOK"

Aqui esta:

Code (fw): Select all Collapse
// Definici贸n del tema para los TaskPannel

// **  DEFINICION PRINCIPAL

   DEFINE THEME NAME "#TASKOK"

      ELEMENT TASKPANEL BACKGROUND {nRGB(  0, 60,108), nRGB(  0, 46, 83),1}                    ;
                        BORDERCOLOR nRGB( 21, 33, 67)                                          ;
                        BORDERTHICKNESS 1                                                      ;
                        PADDING 5

         ELEMENT SPECIAL GROUP

            ELEMENT HEADER   BACKGROUND      {nRGB(  0, 60,108),nRGB(  0, 98,170),-1}          ;
                             FOREGROUND      {nRGB(251,252,255),nRGB(192,193,195)   }          ;
                             BORDERCOLOR      nRGB(  0,106,186)                                ;
                             BORDERTHICKNESS 2                                                 ;
                             BUTTON COLLAPSE { ".\System\DownButton3.bmp" , ".\System\DownButton4.bmp" }   ;
                             BUTTON EXPAND   { ".\System\DownButton1.bmp" , ".\System\DownButton2.bmp" }   ;
                             FONT            {"Segoe UI Symbol",12}                            ;
                             FONTSTYLE       {"N" ,"N"}                                        ;
                             MARGIN TO PANEL 7                                                 ;
                             PADDING 5
            ENDELEMENT

            ELEMENT TASKLIST BACKGROUND       nRGB(252,253,255)                                ;
                             BORDERCOLOR      nRGB(  0,106,186)                                ;
                             BORDERTHICKNESS { 2, 0, 2, 2 }                                    ;
                             PADDING         5                                                 ;
                             MARGIN TO TASK  7

               ELEMENT TASK  BACKGROUND      {nRGB(252,253,255), nRGB( 52,123,254),-1}         ;
                             FOREGROUND      {nRGB( 67, 68, 70), nRGB(255,255, 26)   }         ;
                             FONT            {"Segoe UI Symbol",10}                            ;
                             FONTSTYLE       { "N", "N"  }                                     ;
                             PADDING         5
               ENDELEMENT

            ENDELEMENT

         ENDELEMENT

         ELEMENT NORMAL GROUP
            ELEMENT HEADER   BACKGROUND {nRGB(  8,  9, 11),nRGB( 55, 56, 58)}                  ;
                             FOREGROUND {nRGB(188,189,191),nRGB(255,255,255)}                  ;
                             BORDERCOLOR nRGB(166,167,169)                                     ;
                             BUTTON COLLAPSE { ".\System\DownButton3.bmp" , ".\System\DownButton4.bmp" }   ;
                             BUTTON EXPAND   { ".\System\DownButton1.bmp" , ".\System\DownButton2.bmp" }   ;
                             BORDERTHICKNESS 2                                                 ;
                             FONT {"Segoe UI Symbol",12}                                       ;
                             FONTSTYLE {"N","NU"}                                              ;
                             MARGIN TO PANEL 10
            ENDELEMENT
            ELEMENT TASKLIST BACKGROUND nRGB(255,201, 14)                                      ;
                             BORDERTHICKNESS 1                                                 ;
                             PADDING 5                                                         ;
                             MARGIN TO TASK 2

               ELEMENT TASK  BACKGROUND nRGB(239,228,176)                                      ;
                             FONT {"Sagoe UI Symbol",10}                                       ;
                             FOREGROUND nRGB(  0,163,232)                                      ;
                             PADDING { 2, 2, 2, 2 }
               ENDELEMENT
            ENDELEMENT
         ENDELEMENT
      ENDELEMENT
   ENDTHEME


lo uso asi:

Code (fw): Select all Collapse
      DEFINE TASKPANEL oOut OF oWnd SIZE 295, 400 ANCHOR LEFT THEME "#TASKOK" ANIMATE

         TASKGROUP " "+CRLF+"  Informes de Recepci贸n"         BITMAP "WallFore_a.bmp"   SPECIAL
               TASKITEM " Recepci贸n General de la Planta"     BITMAP "100.BMP"   ACTION oOut:CollapseAll(), RecepcionGralPlanta( oBtn )
               TASKITEM " Recepciones por d铆a"                BITMAP "101.BMP"      ACTION oOut:CollapseAll(), RecepcionGralxDia  ( oBtn )
         ENDTASKGROUP

         TASKGROUP " "+CRLF+"  Producci贸n y Proceso"          BITMAP ".\WallFore_b.bmp"  SPECIAL COLLAPSED
               TASKITEM " Procesos Realizado x Turno"         BITMAP "200.BMP"       ACTION oOut:CollapseAll(), Inf_ProduccionGral  ( oBtn )
               TASKITEM " Resumen de Producci贸n x Dia"        BITMAP "201.BMP"    ACTION oOut:CollapseAll(), Inf_Produccion_xDias( oBtn )
               TASKITEM " Producto actualmente en Producci贸n" BITMAP "202.BMP"       ACTION oOut:CollapseAll(), Inf_ProduccionActual( oBtn )
         ENDTASKGROUP
     ...
     ...
     ...
         TASKGROUP "   "+CRLF+"   Acerca de..."               BITMAP ".\System\Freeze\WallFore_f.con"          COLLAPSED
               TASKITEM "<b>"+__MAIN+"</b>"+"<p>Modulo de Congelado "+SUBSTR(__VERSION+oApp:cVersion,1,9)+"</p>"+"<p><b>Desarrollador</b></p>"+"<p>"+oApp:cAutor+"</p>" INFO
         ENDTASKGROUP
      ENDTASKPANEL


Resultado:



Saca un ejemplo de aqui, por si te sirve algo, la verdar yo estoy muy conforme asi como esta, ja

Saludos
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: C贸mo refrescar un COMBOBOX? (SOLUCIONADO)
Posted: Tue Oct 31, 2017 05:06 PM
armando.lagunas wrote:Actualmente lo uso asi, con un theme standard que se llama "#TASKOK"

Aqui esta:

Code (fw): Select all Collapse
// Definici贸n del tema para los TaskPannel

// ** 聽DEFINICION PRINCIPAL

聽 聽DEFINE THEME NAME "#TASKOK"

聽 聽 聽 ELEMENT TASKPANEL BACKGROUND {nRGB( 聽0, 60,108), nRGB( 聽0, 46, 83),1} 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 BORDERCOLOR nRGB( 21, 33, 67) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 BORDERTHICKNESS 1 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 PADDING 5

聽 聽 聽 聽 聽ELEMENT SPECIAL GROUP

聽 聽 聽 聽 聽 聽 ELEMENT HEADER 聽 BACKGROUND 聽 聽 聽{nRGB( 聽0, 60,108),nRGB( 聽0, 98,170),-1} 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽FOREGROUND 聽 聽 聽{nRGB(251,252,255),nRGB(192,193,195) 聽 } 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽BORDERCOLOR 聽 聽 聽nRGB( 聽0,106,186) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽BORDERTHICKNESS 2 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽BUTTON COLLAPSE { ".\System\DownButton3.bmp" , ".\System\DownButton4.bmp" } 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽BUTTON EXPAND 聽 { ".\System\DownButton1.bmp" , ".\System\DownButton2.bmp" } 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽FONT 聽 聽 聽 聽 聽 聽{"Segoe UI Symbol",12} 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽FONTSTYLE 聽 聽 聽 {"N" ,"N"} 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽MARGIN TO PANEL 7 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽PADDING 5
聽 聽 聽 聽 聽 聽 ENDELEMENT

聽 聽 聽 聽 聽 聽 ELEMENT TASKLIST BACKGROUND 聽 聽 聽 nRGB(252,253,255) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽BORDERCOLOR 聽 聽 聽nRGB( 聽0,106,186) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽BORDERTHICKNESS { 2, 0, 2, 2 } 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽PADDING 聽 聽 聽 聽 5 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽MARGIN TO TASK 聽7

聽 聽 聽 聽 聽 聽 聽 聽ELEMENT TASK 聽BACKGROUND 聽 聽 聽{nRGB(252,253,255), nRGB( 52,123,254),-1} 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽FOREGROUND 聽 聽 聽{nRGB( 67, 68, 70), nRGB(255,255, 26) 聽 } 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽FONT 聽 聽 聽 聽 聽 聽{"Segoe UI Symbol",10} 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽FONTSTYLE 聽 聽 聽 { "N", "N" 聽} 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽PADDING 聽 聽 聽 聽 5
聽 聽 聽 聽 聽 聽 聽 聽ENDELEMENT

聽 聽 聽 聽 聽 聽 ENDELEMENT

聽 聽 聽 聽 聽ENDELEMENT

聽 聽 聽 聽 聽ELEMENT NORMAL GROUP
聽 聽 聽 聽 聽 聽 ELEMENT HEADER 聽 BACKGROUND {nRGB( 聽8, 聽9, 11),nRGB( 55, 56, 58)} 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽FOREGROUND {nRGB(188,189,191),nRGB(255,255,255)} 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽BORDERCOLOR nRGB(166,167,169) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽BUTTON COLLAPSE { ".\System\DownButton3.bmp" , ".\System\DownButton4.bmp" } 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽BUTTON EXPAND 聽 { ".\System\DownButton1.bmp" , ".\System\DownButton2.bmp" } 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽BORDERTHICKNESS 2 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽FONT {"Segoe UI Symbol",12} 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽FONTSTYLE {"N","NU"} 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽MARGIN TO PANEL 10
聽 聽 聽 聽 聽 聽 ENDELEMENT
聽 聽 聽 聽 聽 聽 ELEMENT TASKLIST BACKGROUND nRGB(255,201, 14) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽BORDERTHICKNESS 1 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽PADDING 5 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽MARGIN TO TASK 2

聽 聽 聽 聽 聽 聽 聽 聽ELEMENT TASK 聽BACKGROUND nRGB(239,228,176) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽FONT {"Sagoe UI Symbol",10} 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽FOREGROUND nRGB( 聽0,163,232) 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽PADDING { 2, 2, 2, 2 }
聽 聽 聽 聽 聽 聽 聽 聽ENDELEMENT
聽 聽 聽 聽 聽 聽 ENDELEMENT
聽 聽 聽 聽 聽ENDELEMENT
聽 聽 聽 ENDELEMENT
聽 聽ENDTHEME


lo uso asi:

Code (fw): Select all Collapse
聽 聽 聽 DEFINE TASKPANEL oOut OF oWnd SIZE 295, 400 ANCHOR LEFT THEME "#TASKOK" ANIMATE

聽 聽 聽 聽 聽TASKGROUP " "+CRLF+" 聽Informes de Recepci贸n" 聽 聽 聽 聽 BITMAP "WallFore_a.bmp" 聽 SPECIAL
聽 聽 聽 聽 聽 聽 聽 聽TASKITEM " Recepci贸n General de la Planta" 聽 聽 BITMAP "100.BMP" 聽 ACTION oOut:CollapseAll(), RecepcionGralPlanta( oBtn )
聽 聽 聽 聽 聽 聽 聽 聽TASKITEM " Recepciones por d铆a" 聽 聽 聽 聽 聽 聽 聽 聽BITMAP "101.BMP" 聽 聽 聽ACTION oOut:CollapseAll(), RecepcionGralxDia 聽( oBtn )
聽 聽 聽 聽 聽ENDTASKGROUP

聽 聽 聽 聽 聽TASKGROUP " "+CRLF+" 聽Producci贸n y Proceso" 聽 聽 聽 聽 聽BITMAP ".\WallFore_b.bmp" 聽SPECIAL COLLAPSED
聽 聽 聽 聽 聽 聽 聽 聽TASKITEM " Procesos Realizado x Turno" 聽 聽 聽 聽 BITMAP "200.BMP" 聽 聽 聽 ACTION oOut:CollapseAll(), Inf_ProduccionGral 聽( oBtn )
聽 聽 聽 聽 聽 聽 聽 聽TASKITEM " Resumen de Producci贸n x Dia" 聽 聽 聽 聽BITMAP "201.BMP" 聽 聽ACTION oOut:CollapseAll(), Inf_Produccion_xDias( oBtn )
聽 聽 聽 聽 聽 聽 聽 聽TASKITEM " Producto actualmente en Producci贸n" BITMAP "202.BMP" 聽 聽 聽 ACTION oOut:CollapseAll(), Inf_ProduccionActual( oBtn )
聽 聽 聽 聽 聽ENDTASKGROUP
聽 聽 聽...
聽 聽 聽...
聽 聽 聽...
聽 聽 聽 聽 聽TASKGROUP " 聽 "+CRLF+" 聽 Acerca de..." 聽 聽 聽 聽 聽 聽 聽 BITMAP ".\System\Freeze\WallFore_f.con" 聽 聽 聽 聽 聽COLLAPSED
聽 聽 聽 聽 聽 聽 聽 聽TASKITEM "<b>"+__MAIN+"</b>"+"<p>Modulo de Congelado "+SUBSTR(__VERSION+oApp:cVersion,1,9)+"</p>"+"<p><b>Desarrollador</b></p>"+"<p>"+oApp:cAutor+"</p>" INFO
聽 聽 聽 聽 聽ENDTASKGROUP
聽 聽 聽 ENDTASKPANEL


Resultado:



Saca un ejemplo de aqui, por si te sirve algo, la verdar yo estoy muy conforme asi como esta, ja

Saludos


Armando, gracias por tu respuesta, leyendo el manual y entre pruebas y ensayos logre lo que necesitaba hacer...es una estupenda clase y de verdad que ayuda bastante, lo que necesitaba hacer era algo especifico de un cliente...lastima que haya conocido esta clase tan tarde ya que estoy cambiando todas mis aplicaciones a usar RIBBON y la UI de Navarro ya que asi tengo mas espacio de pantalla para los controles de dialogo/folder, etc...igual muchas gracias de nuevo, saludos...gracias... :-)
Dios no est谩 muerto...



Gracias a mi Dios ante todo!

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions