FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Scroll bars en xBrowse Redefinido con fwh 12.04
Leo
Posts: 66
Joined: Thu Jan 03, 2013 06:13 PM

Scroll bars en xBrowse Redefinido con fwh 12.04

Posted: Wed Mar 13, 2013 07:03 PM
Amigos del foro, tengo un problema, tengo unos dialogs con xbrowse, los cuales no me presentan los scroll bars , y no s茅 como ponerlos, puesto que cambio la condici贸n l贸gica del xbrowse y a煤n as铆 continuan sin aparecer.

C贸digo RC:

Code (fw): Select all Collapse
AZTECAMASIVO DIALOG 13, 9, 780, 436
STYLE WS_POPUP | WS_VISIBLE | WS_THICKFRAME
FONT 8, "MS Sans Serif"
{
 CONTROL "", 110, "TXBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 4, 120, 772, 276
 CONTROL "TImage", 4001, "TImage", 0 | WS_CHILD | WS_VISIBLE, 0, 0, 676, 28
 LTEXT "Centro Emisor:", 4004, 2, 32, 472, 28
 EDITTEXT 4002, 6, 60, 476, 16, NOT WS_TABSTOP | WS_BORDER
}


C贸digo Prg:

Code (fw): Select all Collapse
REDEFINE XBROWSE oClient  ID 110  OF oDlg LINES CELL Font oFont

    oClient:nColDividerStyle         := 2
    oClient:nRowDividerStyle         := 2
    oClient:lColDividerComplete      := .T.
    oClient:nMarqueeStyle            := 5
    oClient:bClrSelFocus             := {|| {0, nRGB( 155,201,210 )  }}
    oClient:bClrStd                  := {|| {nRGB( 217, 255, 217 ), nRGB( 217, 255, 217 ) }}
    oClient:bClrSel                  := {|| {nRGB( 217, 255, 217 ), nRGB( 217, 255, 217 )  }}
     oClient:lVScroll:=.T.
    oClient:lHScroll:=.T.
    oClient:l3D:=.T.
    oClient:l3DLook:=.T.
    oClient:bClrRowFocus    := { || { 0, ( 185 + ( 220 * 256 ) + ( 255 * 65536 ) ) } }

    oClient:nHeaderLines        := 2
    oClient:nDataLines          := 1

    SetDolphin( oClient, oClientsQry,.T.,aSizes )
    oClient:SetBackGround( "Browses.Png",1 )

    FOR xZ := 1 TO Len(aCab)
        oClient:aCols[xZ]:nWidth:=aWidht[xZ]
        oClient:aCols[xZ]:cHeader := aCab[xZ]
        oClient:aCols[xZ]:nHeadStrAlign := 2
        oClient:aCols[xZ]:nDataStrAlign := aJustify[xZ]
        oClient:aCols[xZ]:oHeaderFont := oFont
        oClient:aCols[xZ]:lHide := aHiden[xZ]
        oClient:aCols[xZ]:cEditPicture :=aPicture[xZ]
        IF xZ=1
           oClient:aCols[xZ]:bStrData:= { || Pm_Point(oClientsQry:cRut)  }
        ENDIF
   NEXT
Fivewin 12.04 + xHarbour 1.2.1 + BCC582



Nada como Fivewin, odio visual basic, visual studio y todas las porquer铆as visual.
Pedro
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM

Re: Scroll bars en xBrowse Redefinido con fwh 12.04

Posted: Wed Mar 13, 2013 09:04 PM
Leo
Code (fw): Select all Collapse
AZTECAMASIVO DIALOG 13, 9, 780, 436
STYLE WS_POPUP | WS_VISIBLE | WS_THICKFRAME
FONT 8, "MS Sans Serif"
{                                              
 CONTROL "", 110, "TXBrowse", 0x00300000 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP, 4, 120, 772, 276
 CONTROL "TImage", 4001, "TImage", 0 | WS_CHILD | WS_VISIBLE, 0, 0, 676, 28
 LTEXT "Centro Emisor:", 4004, 2, 32, 472, 28
 EDITTEXT 4002, 6, 60, 476, 16, NOT WS_TABSTOP | WS_BORDER


Observa que despu茅s del nombre del control va 0x00300000 si quieres poner barra vertical y horizontal
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Leo
Posts: 66
Joined: Thu Jan 03, 2013 06:13 PM

Re: Scroll bars en xBrowse Redefinido con fwh 12.04

Posted: Fri Mar 15, 2013 06:05 PM

Muchas gracias Pedro. Me ayud贸 much铆simo su post.

Fivewin 12.04 + xHarbour 1.2.1 + BCC582



Nada como Fivewin, odio visual basic, visual studio y todas las porquer铆as visual.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions