Consulta sobre ajustes a ventana

Post Reply
User avatar
AngelSalom
Posts: 664
Joined: Fri Oct 07, 2005 7:38 am
Location: Vinaros (Castellón ) - España
Contact:

Consulta sobre ajustes a ventana

Post by AngelSalom »

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.
Image
Angel Salom
http://www.visionwin.com
---------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.0
User avatar
Paco Garcia
Posts: 172
Joined: Fri Oct 07, 2005 12:00 pm
Contact:

ajustes de ventana

Post by Paco Garcia »

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
User avatar
Paco Garcia
Posts: 172
Joined: Fri Oct 07, 2005 12:00 pm
Contact:

Post by Paco Garcia »

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

Un saludo

Paco García

Code: Select all

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
User avatar
AngelSalom
Posts: 664
Joined: Fri Oct 07, 2005 7:38 am
Location: Vinaros (Castellón ) - España
Contact:

Post by AngelSalom »

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

Un saludo.
Angel Salom
http://www.visionwin.com
---------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.0
User avatar
Paco Garcia
Posts: 172
Joined: Fri Oct 07, 2005 12:00 pm
Contact:

Post by Paco Garcia »

un placer como siempre :D
Post Reply