Vtaskbar class

[Silvio]

Someone use this class ?
i need a help to create a sample

[Taiwan]

Hello Silvio,

I have this CLASS sample code.

If you want sample files, I can send to you.

Regards,

Richard

[jose_murugosa]

Please Taiwan

Send this sample to me too.

jmurugosa@yahoo.com

[Paco Garcia]

que quieres saber, Silvio?

[Silvio]

Paco I sent you a message in private email

[Silvio]

Paco I wanted create an windows MDI with Tfsdi and Vtaskbar alanit's program
Have one sample to build it ?

[Paco Garcia]

this is the solution Silvio:

Code: Select all  Expand view  RUN


#include "fivewin.ch"
#include "..\include\vmenu.ch"
#include "splitter.ch"

static oFont

function main()

local oWnd
local oMenu

MENU oMenu
   MENUITEM "Nueva hija" ACTION NuevaHija( oWnd )
ENDMENU

DEFINE WINDOW oWnd TITLE "Prueba de vTaskBar en MDI" MDI MENU oMenu

ACTIVATE WINDOW oWnd MAXIMIZED

return nil


function NuevaHija( oMadre )

local oWnd

local oVMenu, oVMenu2, oItem, oVMenu3, oVMenu4
local oSplit



DEFINE FONT oFont NAME "Ms Sans Serif"  SIZE 0, -10 BOLD

DEFINE WINDOW oWnd OF oMadre MDICHILD COLOR 0, CLR_GRAY



   @ 10, 10 VMENU oVMenu SIZE 215, 151 OF oWnd ;
            COLOR RGB(86,102,45), RGB(246,246,236) ;
            BORDER COLORBORDE CLR_WHITE ; //RGB( 252, 252, 236) ;
            COLORSELECT 0 ;
            UNDERLINE  ;
            HEIGHT ITEM 25

   DEFINE TITLE OF oVMenu ;
          CAPTION "Tareas de Red" ;
          HEIGHT 25 ;
          COLOR RGB(86,102,45), RGB(252, 252, 236 ), RGB( 224, 231, 184 ) ;
          CENTER RADIOSQUARE 4;
          IMGBTN "bmps\upgreen.bmp","bmps\downgreen.bmp" ;
          OPENCLOSE ;
          FONT oFont ROUNDSQUARE

       DEFINE VMENUITEM OF oVMenu           ;
     CAPTION "Agregar un sitio de red" ;
          IMAGE "bmps\red.bmp" ACTION MsgInfo( "Primero" )

       DEFINE VMENUITEM OF oVMenu           ;
     CAPTION "Ver conexiones de red" ;
          IMAGE "bmps\verred.bmp" ACTION MsgInfo( "Segundo" )

       DEFINE VMENUITEM OF oVMenu           ;
     CAPTION "Configurar una red domestica o para oficina pequeña" ;
     MULTILINE ;
          IMAGE "bmps\casared.bmp" ACTION MsgInfo( "Tercero" )

       DEFINE VMENUITEM OF oVMenu           ;
     CAPTION "Ver equipos del grupo de trabajo" ;
          IMAGE "bmps\grupored.bmp" ACTION MsgInfo( "Cuarto" )


  oVMenu2 := Menu( oWnd, oVMenu,  171 )
  oVMenu3 := Menu( oWnd, oVMenu2, 171 + 160 )
  oVMenu4 := Menu( oWnd, oVMenu3, 171 + 160 + 160 )


  @ 0, 260 SPLITTER oSplit ;
      VERTICAL _3DLOOK ;
      PREVIOUS CONTROLS  oVMenu, oVMenu2;
      SIZE 4, 1300 PIXEL ;
      OF oWnd   UPDATE


ACTIVATE WINDOW oWnd MAXIMIZED ON INIT oVMenu2:Switch()


return nil


function menu( oWnd, oVMenu, nTOp )

local oVMenu2

   @ nTop, 10 VMENU oVMenu2 SIZE 215, 151 OF oWnd ;
             COLOR RGB(86,102,45), RGB(246,246,236) ;
             BORDER COLORBORDE RGB( 252, 252, 236) ;
             UNDERLINE  ;
             COLORSELECT 0 ;
             HEIGHT ITEM 25 ATTACH TO oVMenu

   DEFINE TITLE OF oVMenu2 ;
          CAPTION "Otros sitios" ;
          HEIGHT 25 ;
          COLOR RGB(86,102,45), RGB(252, 252, 236 ), RGB( 224, 231, 184 ) ;
          CENTER RADIOSQUARE 4;
          IMGBTN "bmps\upgreen.bmp","bmps\downgreen.bmp" ;
          OPENCLOSE ;
          FONT oFont ROUNDSQUARE

       DEFINE VMENUITEM OF oVMenu2           ;
     CAPTION "Escritorio" ;
          IMAGE "bmps\escritorio.bmp"

       DEFINE VMENUITEM OF oVMenu           ;
     CAPTION "Mi PC" ;
          IMAGE "bmps\mipc.bmp"

       DEFINE VMENUITEM OF oVMenu2           ;
     CAPTION "Mis Documentos" ;
          IMAGE "bmps\misdoc.bmp"

       DEFINE VMENUITEM OF oVMenu2           ;
     CAPTION "Documentos compartidos" ;
          IMAGE "bmps\shared.bmp"

       DEFINE VMENUITEM OF oVMenu2           ;
     CAPTION "Impresoras y faxes" ;
          IMAGE "bmps\imprefax.bmp"

return oVMenu2