FiveTech Software tech support forums

Hola foro, en la aplicación que estoy migrando de Clip+Fw a Harbour+FWH, estoy empezando a usar TsBrowse y recientemente adquirí vTaskBar de Paco García.
Bien hasta ahora para mostrar un browse de datos, generaba una ventana desde código (redimensionable) y montaba el browse.
Para que el browse se redimensione cuando se redimensiona la ventana, pongo la siguiente orden :

oWnd[nId]:SetControl(oLbx[nId])

con lo cual cuando la ventana cambia de tamaño el browse también.
Bien ahora la pregunta. He puesto un vtaskbar a la izquierda del browse que queda muuuuuuuy chulo pero claro si pongo el SetControl, el browse se lo "come" literalmente. Sin el setcontrol cada cosa está en su sitio pero claro, el browse no cambia de tamaño.
La pregunta (por fin ) es como puedo realizar el proceso sin que se "coma" el vtaskbar.

Graciassss.
Un saludo.

Hola

Angel. En los ejemplos que trae taskbar puedes ver unos cuantos que hacen mas o menos lo que pides. Me parece que puedes enfocarlo de varias formas. Una poniendo un slider que este entre vtaskbar y tsbrowse. Otra utilizando paneles. Uno oLeft y el otro oCLient. En el oLeft pones vTaskbar y en el oClient pones el browse.

Echale un vistazo a los ejemplos y si no encuentras lo que necesitas comentamelo por correo privado y miramos como podemos hacerlo.

Un saludo

Paco Garcia

Esto es mas o menos lo que deberías hacer.

Un saludo

Paco García

Code: Select all  Expand view

function main()


local oWnd

local oFont
local oVMenu, oItem, oChild, oDlg
local oSplit



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

DEFINE WINDOW oWnd //COLOR 0, RGB( 1, 162, 255 )


   @ 10, 10 VMENU oVMenu SIZE 215, 220 OF oWnd ;
            COLOR RGB(86,102,45), CLR_WHITE  ;
            BORDER COLORBORDE RGB( 224, 231, 184 ) ;
            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 ) ;
          RADIOSQUARE 4;
          IMGBTN "bmps\upgreen.bmp","bmps\downgreen.bmp" ;
          OPENCLOSE ;
          FONT oFont ROUNDSQUARE

       DEFINE VMENUITEM oItem OF oVMenu           ;
     HEIGHT 300

  @ x, y BROWSE oListBox ....

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

ACTIVATE WINDOW oWnd MAXIMIZED

oFont:End()

return nil


Genial! Paco, muchas gracias, tan fácil y tan ciego como estaba.

Un saludo.

un placer como siempre