topic-39

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Consulta sobre ajustes a ventana
Posted: Fri Oct 07, 2005 06:09 PM

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.

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

Paco Garcia

Posts: 172

Joined: Fri Oct 07, 2005 12:00 PM

ajustes de ventana
Posted: Fri Oct 07, 2005 09:34 PM

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

Posts: 172

Joined: Fri Oct 07, 2005 12:00 PM

Consulta sobre ajustes a ventana
Posted: Sat Oct 08, 2005 09:26 AM

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

Un saludo

Paco García

Code: Select all Collapse

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

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Consulta sobre ajustes a ventana
Posted: Sun Oct 09, 2005 11:04 AM

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

Un saludo.

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4

Paco Garcia

Posts: 172

Joined: Fri Oct 07, 2005 12:00 PM

Consulta sobre ajustes a ventana
Posted: Sun Oct 09, 2005 05:49 PM

un placer como siempre

FiveTech Support Forums

Continue the discussion