Pequeño ajuste visual en diálogos (SOLUCIONADO)

Board index FiveWin para Harbour/xHarbour Pequeño ajuste visual en diálogos (SOLUCIONADO)

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Pequeño ajuste visual en diálogos (SOLUCIONADO)
Posted: Mon Jun 22, 2015 02:04 PM

Hola amigos, estoy redibujando un poco algunos diálogos de mis aplicaciones y he pensado usarunas líneas separadoras de campos en lugar de las cajas del Groupbox (lo he visto en Sage y en alguna que otra aplicación que he probado para tomar ideas)
Para ello he cambiado la altura de los Groupbox que tenía definidos a 5 y queda bastante bien ... aunque no todo lo que quisiera ... para no reinventar la rueda, ¿sabéis si existe algún control que permita lo que quiera? Son diálogos creados desde recursos.

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

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Pequeño ajuste visual en diálogos
Posted: Mon Jun 22, 2015 03:54 PM

la clase TSBUTTON de M.Mercado tiene lo que necesitas.

Code (fw): Select all Collapse

*=============================================================================
* TSButton.ch  Version 4.0 1/Aug/2002
* Static Lines and Boxes from code
*=============================================================================

#xcommand @ <nTop>, <nLeft> [STATIC <oLine>] ;
            <cType: HORZ LINE, HLINE, VERT LINE, VLINE, WHITE BOX, WBOX, ;
                    GRAY BOX, GBOX, BLACK BOX, BBOX> ;
            [ SIZE <nWidth> [, <nHeight > ] ] ;
            [ OF <oWnd> ] ;
            [ <Colors: COLOR, COLORS> <nClrLite> [,<nClrDark> [,<nClrText> ] ] ] ;
            [ <lPixel: PIXEL, PIXELS> ] ;
            [ <lUpdate: UPDATE> ] ;
            [ <lRounded: ROUNDED> ] ;
            [ <label:LABEL, TEXT, PROMPT> <cLabel> ] ;
            [ FONT <oFont> ] ;
            [ ALIGN <nAlign> ] ;
            [ <lDesign: DESIGN> ] ;
       => ;
            [ <oLine> := ] TSLines():New( <nTop>, <nLeft>, <nWidth>, ;
                           <nHeight>, Upper(<(cType)>), <oWnd>, <nClrLite>, ;
                           <nClrDark>, <nClrText>, <.lPixel.>, <.lUpdate.>, ;
                           <.lRounded.>, <cLabel>, <oFont>, <nAlign>, ;
                           <.lDesign.> )

*=============================================================================
* TSButton.ch  Version 4.0 1/Aug/2002
* Static Lines and Boxes from resources
*=============================================================================

#xcommand REDEFINE [STATIC <oLine> ] ;
            <cType: HORZ LINE, HLINE, VERT LINE, VLINE, WHITE BOX, WBOX, ;
                    GRAY BOX, GBOX, BLACK BOX, BBOX> ;
            [ ID <nId> ] ;
            [ OF <oWnd> ] ;
            [ <Colors: COLOR, COLORS> <nClrLite> [,<nClrDark> [,<nClrText> ] ] ] ;
            [ <lUpdate: UPDATE> ] ;
            [ <lRounded: ROUNDED> ] ;
            [ <label:LABEL, TEXT, PROMPT> <cLabel> ] ;
            [ FONT <oFont> ] ;
            [ ALIGN <nAlign> ] ;
            [ <lDesign: DESIGN> ] ;
       => ;
            [ <oLine> := ] TSLines():ReDefine( Upper(<(cType)>), <nId>, ;
                           <oWnd>, <nClrLite>, <nClrDark>, <nClrText>, ;
                           <.lUpdate.>, <.lRounded.>, <cLabel>, <oFont>, ;
                           <nAlign>, <.lDesign.> )

saludos

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

AngelSalom

Posts: 728

Joined: Fri Oct 07, 2005 07:38 AM

Re: Pequeño ajuste visual en diálogos
Posted: Mon Jun 22, 2015 04:51 PM

Excelente Armando, hace años que usé tsbutton pero desconocía la posibilidad que tenía con las líneas.
Es justo lo que necesitaba, gracias.

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

FiveTech Support Forums

Continue the discussion