CHAT
Search
 
 

Display results as :
 


Rechercher Advanced Search

Latest topics

Hola a todos

View previous topic View next topic Go down

Hola a todos

Post  Pedro on Sat Apr 23, 2011 1:40 pm

Hola a todos
He empezado a usar la clase taskpanel, y me está dando un pequeño dolor de cabeza, ya que cuando acabo un diálogo desaparecen los taskitems, al pasar el ratón por encima vuelven a aparecer pero el color de separación entre los taskitems, si que desaparece.

Bueno no doy más la tabarra ya me diréis si es normal o no

Saludos a todos.

Pedro

Pedro

Posts : 2
Reputation : 0
Join date : 2011-04-23

View user profile

Back to top Go down

Re: Hola a todos

Post  Andres Reyes on Tue Apr 26, 2011 10:50 pm

Hola pedro podrias publicar algo de codigo con el que te genera este error visual y asi poder ayudarte...

_________________
-- { http://codigo-base.blogspot.com } ----
avatar
Andres Reyes
Admin

Posts : 38
Reputation : 3
Join date : 2010-06-23
Age : 37
Location : Mazatlan, Sinaloa, Mexico

View user profile http://codigo-base.blogspot.com

Back to top Go down

Re: Hola a todos

Post  Pedro on Wed Apr 27, 2011 12:44 am

Hola Andres

Este es el código :
Code:
#include "FiveWin.ch"
#Include "xbrowse.ch"
#include "splitter.ch"
#include "taskpanel.ch"
*-------------------------------------------------------------------------
FUNCTION CLIENTES()
*-------------------------------------------------------------------------
Local oBar, oCol, oCont,aBrowse
Local i,nSplit := 115 ,oTaskPanel
Local nOrder

  if oApp():oDlg != nil
      if oApp():nEdit > 0
        return nil
      else
        oApp():oDlg:End()
        SysRefresh()
      endif
  endif
 
  nSigue := AbreClie()
  If nSigue == 1
      Return nil
  EndIf 
  dbSelectArea("CLIE")
  CLIE->(OrdSetFocus(1))
 
  oApp():oDlg := TFsdi():New(oApp():oWndMain,,RGB(51,0,0),RGB(212,255,212) )
  oApp():oDlg:cTitle := "Gestión de Clientes"
  oApp():oWndMain:oClient := oApp():oDlg
  oApp():oDlg:NewGrid( nSplit )
  nOrder := CLIE->(IndexOrd()) 

      oApp():oGrid:nMarqueeStyle      := MARQSTYLE_HIGHLCELL
      oApp():oGrid:nColDividerStyle    := LINESTYLE_BLACK
      oApp():oGrid:nRowDividerStyle    := LINESTYLE_BLACK
      oApp():oGrid:lColDividerComplete := .t.
 
      oApp():oGrid:cAlias := "CLIE"
      for nFor := 1 to len( oApp():oGrid:aCols )
          oCol := oApp():oGrid:aCols[ nFor ]
          oCol:nEditType := 0
          oCol:blDClickData := {|| CtrCli(oApp():oGrid,2,oApp:oDlg) }
      next


      oApp():oGrid:SetRDD()
      oApp():oGrid:CreateFromCode()   
      oApp():oGrid:l2007 := (.T.)
      oApp():oGrid:bClrStd := { || If( ( (oApp():oGrid:cAlias)->(OrdKeyNo()) % 2 ) == 0, ;
                    { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
      oApp():oGrid:bKeyDown := {|nKey| PonTecla(nKey,oApp():oGrid,oApp():oDlg) }
 
      CLIE->(dbGotop())
     
      @ oApp():oDlg:nGridBottom, nSplit+2 TABS oApp():oTab ;
        OPTION nOrder SIZE oApp():oWndMain:nWidth()-80, 20 PIXEL OF oApp():oDlg ;
        ITEMS ' Cliente ', ' Apellidos ', ' Nombre ';
        COLOR RGB(204,0,0),RGB(255,255,102);
        ACTION ( nOrder := oApp():oTab:nOption  ,;
                  CLIE->(OrdSetFocus(nOrder)),;
                  oApp():oGrid:Refresh(.t.) )   
       
       
      ACTIVATE DIALOG oApp():oDlg NOWAIT ;
      ON INIT ( DLG_INIT(oApp:oDlg,oApp:oGrid),oApp():oGrid:SetFocus() ) ;
      VALID ( oApp():oGrid:nLen := 0 ,;
              DbCloseAll(), oApp():oDlg := NIL, oApp():oGrid := NIL, oApp():oTab := NIL, .t. )

return( nil )
//----------------------------------------------------------------------------//
function DLG_INIT(oDlgCli,oGrid )
//----------------------------------------------------------------------------//
Local oTaskPanel
     
      DEFINE THEME NAME "#CUSTOM"
      ELEMENT TASKPANEL ;
              BACKGROUND RGB(212,255,212); //RGB( 255, 125, 0 );
              PADDING 2;
              BORDERTHICKNESS 0

        ELEMENT SPECIAL GROUP
            ELEMENT HEADER ;
                    BACKGROUND RGB(0,80,32);    // RGB( 51, 51, 51 );
                    FOREGROUND RGB( 255, 255, 255 );
                    BORDERTHICKNESS 0;
                    BUTTON COLLAPSE {};
                    BUTTON EXPAND {};
                    MARGIN TO PANEL 10
            ENDELEMENT
            ELEMENT TASKLIST;
                    BACKGROUND RGB( 255, 152, 0 ) ;
                    BORDERTHICKNESS 0;
                    PADDING 0;
                    MARGIN TO TASK  4 //2
              ELEMENT TASK ;
                      BACKGROUND { RGB( 255, 204, 104 ), RGB(255,248,223), -1 } ;
                      FONTSTYLE { "", "" };
                      FOREGROUND RGB( 0, 0, 0 );
                      PADDING { 15, 4, 6, 4 }  // { 6, 2, 4, 2 }
              ENDELEMENT
            ENDELEMENT
        ENDELEMENT

        ELEMENT NORMAL GROUP
            ELEMENT HEADER ;
                    BACKGROUND RGB( 51, 51, 51 );
                    FOREGROUND RGB( 255, 255, 255 );
                    BORDERTHICKNESS 0;
                    BUTTON COLLAPSE {};
                    BUTTON EXPAND {};
                    MARGIN TO PANEL 10
            ENDELEMENT
            ELEMENT TASKLIST;
                    BACKGROUND RGB( 255, 152, 0 ) ;
                    BORDERTHICKNESS 0;
                    PADDING 0;
                    MARGIN TO TASK 6  //2
              ELEMENT TASK ;
                      BACKGROUND { RGB( 255, 204, 104 ), RGB(255,248,223), -1 } ;
                      FONTSTYLE { "", "" };
                      FOREGROUND RGB( 0, 0, 0 );
                      PADDING { 20, 4, 6, 4 }      //{ 6, 2, 4, 2 }
              ENDELEMENT
            ENDELEMENT
        ENDELEMENT

      ENDELEMENT
  ENDTHEME


  DEFINE TASKPANEL oTaskPanel OF oDlgCli ANCHOR LEFT;
                    THEME "#CUSTOM";
                    HEADER ".\BMP\LOGO.BMP" ALIGN CENTER;
                    NO COLLAPSABLE

                   
          TASKGROUP "Clientes" BITMAP "CLIENTES"    //SPECIAL
            TASKITEM "Nuevo Cliente";
                    BITMAP "NUEVOCLI";
                    TOOLTIP "Añadir nuevos clientes";
                    ACTION CTRCLI(oDlgCli,1)
            TASKITEM "Modificar Clientes";
                    BITMAP "MODIFCLI";
                    TOOLTIP "Modificar un cliente";
                    ACTION CTRCLI(oDlgCli,2,,)                   
            TASKITEM "Consultar Clientes" ;
                    BITMAP "CONSUCLI";
                    TOOLTIP "Consultar un cliente";
                    ACTION CTRCLI(oDlgCli,3,,)
            TASKITEM "Borrar Clientes";
                    BITMAP "BORRACLI";
                    TOOLTIP "Borrar un cliente";
                    ACTION BorraCli(oGrid)
            TASKITEM "Buscar Clientes" ;
                    BITMAP "BUSCACLI";
                    TOOLTIP "Buscar clientes"

            TASKITEM "Controles de Clientes";
                    BITMAP "CONTRCLI";
                    TOOLTIP "Controles de un cliente"

            TASKITEM "Salir de la tarea";
                    BITMAP "SALIR1";
                    TOOLTIP "Salir y Regresar al menú principal";
                    ACTION oDlgCli:End()                                                                                                                         
        ENDTASKGROUP

      ENDTASKPANEL

      oDlgCli:SetColor(RGB(51,0,0),RGB(212,255,212))
RETURN nil

En cuanto vuelves de la función CtrCli, que es un diálogo para añadir, modificar o consultar un cliente, los taskitems desaparecen (como si colapsaras la tarea) pero si pasas el raton por encima de donde estaban los taskitems, estos vuelven a aparecer, sin embargo el color si que ha desaparecido.

Un saludo y gracias
Pedro

Pedro

Posts : 2
Reputation : 0
Join date : 2011-04-23

View user profile

Back to top Go down

Re: Hola a todos

Post  Sponsored content


Sponsored content


Back to top Go down

View previous topic View next topic Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum