FiveTech Support Forums

METHOD AddLink( cPrompt, bAction, cBitmap, oFnt, nClrT, nClrP, nClrO ) CLASS TTaskPanel

   local nTop := ::nTitleHeight + 10, n, oUrlLink

   if ! Empty( ::aControls )
      for n = 1 to Len( ::aControls )
         nTop += ::aControls[ n ]:nHeight + ::nOffSetY
      next
   endif

   oUrlLink := TUrlLink():New( nTop, 33, Self, .T., .F., if( HB_IsNIL( oFnt ), ::oFont, oFnt ), ;
                               "", cPrompt, , nClrT, nClrP, nClrO )
   if !HB_IsNIL( nClrT )
      oUrlLink:nClrText := nClrT
   endif
   oUrlLink:SetColor( oUrlLink:nClrText, if( HB_IsNIL( nClrP ), ::nClrPane, nClrP ) )
   oUrlLink:nClrOver = if( HB_IsNIL( nClrO ), ::nClrHover, nClrO )

   oUrlLink:bAction = bAction

   if File( cBitmap )
      oUrlLink:hBmp = ReadBitmap( 0, cBitmap )
   else
      oUrlLink:hBmp = LoadBitmap( GetResources(), cBitmap )
   endif

   if oUrlLink:nTop + oUrlLink:nHeight > ::nHeight
      ::nHeight     := oUrlLink:nTop + oUrlLink:nHeight + 10
      ::nBodyHeight := ::nHeight - ::nTitleHeight
      ::UpdateRegion()
   endif

return nil

METHOD AddLink( cPrompt, bAction, cBitmap, oFnt, nClrT, nClrP, nClrO, cMsg, cTooltip ) CLASS TTaskPanel

   local nTop := ::nTitleHeight + 10, n, oUrlLink

   if ! Empty( ::aControls )
      for n = 1 to Len( ::aControls )
         nTop += ::aControls[ n ]:nHeight + ::nOffSetY
      next
   endif

   oUrlLink := TUrlLink():New( nTop, 33, Self, .T., .F., if( HB_IsNIL( oFnt ), ::oFont, oFnt ), ;
                               cMsg, cPrompt, cToolTip , nClrT, nClrP, nClrO )
   if !HB_IsNIL( nClrT )
      oUrlLink:nClrText := nClrT
   endif
   oUrlLink:SetColor( oUrlLink:nClrText, if( HB_IsNIL( nClrP ), ::nClrPane, nClrP ) )
   oUrlLink:nClrOver = if( HB_IsNIL( nClrO ), ::nClrHover, nClrO )

   oUrlLink:bAction = bAction

   if File( cBitmap )
      oUrlLink:hBmp = ReadBitmap( 0, cBitmap )
   else
      oUrlLink:hBmp = LoadBitmap( GetResources(), cBitmap )
   endif

   if oUrlLink:nTop + oUrlLink:nHeight > ::nHeight
      ::nHeight     := oUrlLink:nTop + oUrlLink:nHeight + 10
      ::nBodyHeight := ::nHeight - ::nTitleHeight
      ::UpdateRegion()
   endif

return nil

#include "fivewin.ch"
#include "taskpanel.ch"

function Principal()
   local cTitle := "TASKPANEL TEST"
   local oWnd

   WITH OBJECT TestPanel()
      :New()
   END OBJECT
return nil

CLASS TestPanel
   data oWnd   as OBJECT
   method new()
   method MakeWin()
   method MakePanel()

ENDCLASS

method new() class TestPanel

   ::MakeWin()

return nil

Method MakeWin() CLASS TestPanel
   local oSelf := Self
   MENU oMenu
      MENUITEM "&Archivo"
      MENU
         menuitem "Selecciona la impresora ...." action( PrinterSetup() )
         MENUITEM "&Salir"  ACTION ( ::oWnd:End() )
      ENDMENU
      oMenu:AddMdi()
   ENDMENU

   define window ::oWnd title "tTaskPanel" FROM 0, 0  TO 750, 1000 PIXEL MENU oMenu

   activate window ::oWnd on init ( oSelf:MakePanel() )


Return nil

Method MakePanel() CLASS TestPanel

   local oTaskPanel

   DEFINE THEME NAME "#CUSTOM"

  ELEMENT TASKPANEL ;
           BACKGROUND {RGB( 251, 213, 229 ), RGB( 235, 154, 192 )  };   //RGB( 251, 213, 229 )
           BORDERCOLOR RGB( 235, 154, 192 );
           PADDING 20; //RELLENO
           BORDERTHICKNESS 1


     ELEMENT SPECIAL GROUP
        ELEMENT HEADER ;
                BACKGROUND {RGB( 237,208, 242 ),RGB( 255, 161, 255 )};
                FOREGROUND RGB( 0, 0, 0 );
                BORDERTHICKNESS 0;
                BUTTON COLLAPSE {"TBN_COLLAPSE1", "TBN_COLLAPSE2" };
                BUTTON EXPAND {"TBN_NOCOLLAPSE1", "TBN_NOCOLLAPSE2"};
                MARGIN TO PANEL 10
        ENDELEMENT

        ELEMENT TASKLIST;                           //SEPARATOR
                BACKGROUND {RGB( 253, 234, 242 ), RGB( 235, 154, 192 ) } ;
                BORDERTHICKNESS 0;
                PADDING 0;
                MARGIN TO TASK 2

           ELEMENT TASK ;                              //BARRA SELECCIONADORA
                   BACKGROUND { RGB( 251, 213, 229 ), RGB(255,0,255), -1 } ;
                   FONTSTYLE { "", "" };
                   FOREGROUND RGB( 0, 0, 0 ); //ITEM LETRAS
                   PADDING { 6, 2, 4, 2 }  //RGB( 251, 213, 229 )
           ENDELEMENT
        ENDELEMENT

     ENDELEMENT


  ENDELEMENT
   ENDTHEME

   DEFINE TASKPANEL oTaskPanel ANCHOR LEFT ;
         THEME "#CUSTOM"

     TASKGROUP "Group 1"  SPECIAL
        TASKITEM "ITEM 1" BITMAP "PRN16" ACTION MSGINFO("ITEM1")
        TASKITEM "ITEM 2" BITMAP "PRN16" ACTION MSGINFO("ITEM2")
     ENDTASKGROUP

     TASKGROUP "Group 2" SPECIAL
        TASKITEM "ITEM 1" BITMAP "PRN16" ACTION MSGINFO("ITEM1")
        TASKITEM "ITEM 2" BITMAP "PRN16" ACTION MSGINFO("ITEM2")
     ENDTASKGROUP

     TASKGROUP  "Detalles" NO COLLAPSABLE SPECIAL
        TASKITEM "<b>test</b>" + ;
                 "<p>===========================</p>"+;
                 "<p>tTaskPanel</p>" +;
                 "<p><b>Autor</b></p>" +;
                 "<p></p>" +;
                 "<p>Cesar</p>"  INFO
     ENDTASKGROUP
   ENDTASKPANEL

Return nil