FiveTech Software tech support forums

Antonio y Loren: Gracias por su tiempo. Loren: entiendo que en esta definicion LISTAGEN es el OBJETO. listagen:nLineHeight := 80 && <<---- este es el alto de línea yo lo puse asi oLbx:nLineHeight := 80 y me da error BASE/1005 Message not found: TWBROWSE:_NLINEHEIGHT ...

Antonio y Loren: Gracias por su tiempo. Loren: entiendo que en esta definicion LISTAGEN es el OBJETO. listagen:nLineHeight := 80 && <<---- este es el alto de línea yo lo puse asi oLbx:nLineHeight := 80 y me da error BASE/1005 Message not found: TWBROWSE:_NLINEHEIGHT ...

... Local hCODE,oBRUSH,nRET Local nCLR:=IIF(nColor<>NIL,nColor,CLR_BLACK) Local nLineWidth:=IIF(nWidth==NIL .OR. nWidth<1,1,nWidth) Local nLineHeight:=nLineWidth Local nSCALE:=7.2 hCODE:=hb_zebra_create_qrcode(nQRCODE,iFlags) nY *= nSCALE nLineWidth *= nSCALE IF hCODE != NIL IF hb_zebra_geterror( ...

... Local hCODE,oBRUSH,nRET Local nCLR:=IIF(nColor<>NIL,nColor,CLR_BLACK) Local nLineWidth:=IIF(nWidth==NIL .OR. nWidth<1,1,nWidth) Local nLineHeight:=nLineWidth Local nSCALE:=7.2 hCODE:=hb_zebra_create_qrcode(nQRCODE,iFlags) nY *= nSCALE nLineWidth *= nSCALE IF hCODE != NIL IF hb_zebra_geterror( ...

... := { || ::GoBottom()} oLbx:bSkip := { |nRec| ::Skipper( nRec ) } oLbx:bLogicLen := { || ::RecCount() } // oLbx:nHeaderHeight := 20 // oLbx:nLineHeight := 20 RETURN oLbx //----------------------------------------------------------------------------// METHOD Insert() CLASS TDb LOCAL lOk:=.f. ...

Some changes in class trbgroup: If using a greater font this is required: METHOD Paint() CLASS TRBGroup local nLineHeight := ::oFont:nHeight * 1.3 //this local is new // all aRect[ 3 ] - 15 * nLine should be to: aRect[ 3 ] - nLineHeight * nLine When i use another window with tribbon ...

Ruben.
Puedes lograrlo con la Clase Twbrowse17 de HC, de la siguiente forma.

oBrw12:nLineHeight := nAlto_Fila
oBrw12 :nHeaderHeight := nAlto_Titulo

Saludos.

... Usando Listbox y tengo un problema como amplio las filas y titulos lo uso asi y me da error. oBrw12:nHeaderHeight := 20 // me da error oBrw12:nLineHeight := 15 // me da error     REDEFINE LISTBOX  oBrw12 ;            FIELDS oDat12:Fields("referen"):value, ...

... := 2 oLbx:bSeek := {|lRet| oLbx:DbfSeek(.T.) } oLbx:bUpdateBuffer:= {|| UpdateBuffer( oWnd:oMsgBar, ; cDefaultMsg, oLbx:cBuffer ) } oLbx:nLineHeight*= 2 oLbx:nHeaderStyle:= 2 SET MESSAGE OF oWnd TO cDefaultMsg DATE KEYBOARD NOINSET DEFINE MSGITEM oItem OF oWnd:oMsgBar PROMPT "www.cesotech.com.ar" ...

... := CBRWBACK oLbx:nClrBackHead := CHEADBACK oLbx:nClrForehead := CHEADFRONT oLbx:aJustify := eval(bAdjust) oLbx:nLineStyle := 1 oLbx:nLineHeight := 22 oLbx:nFreeze := 11 oLbx:lCellStyle = TRUE oLbx:lAutoEdit = TRUE Regards Colin

Dear Antonio, I try your WBRWLINE.OBJ but it've still got following error. The ::nLineHeight is DATA of TWBROWSE-HC but it is not in the original FTDN TWBROWSE. Application =========== Path and name: D:\V5\QUOTE\QUOTE.EXE (32 bits) Size: 2,080,768 ...

... = .T. Brw1:lAutoSkip = .T. Brw1:ladjlastcol:=.F. Brw1:lDrawFocusRect:=.F. Brw1:nLineStyle:= 2 Brw1:Set3DStyle() Brw1:nHeaderHeight := 18 Brw1:nLineHeight := 15 Brw1:bLogicLen = { || ( Brw1:CALIAS ) -> ( adskeycount() ) } // ( ORDKeyCount() ) Brw1:nClrPane := {|| IIF((Brw1:CALIAS)->(adskeyno()) ...

... ; HEADER "Código","Nombre","Ventas", "Notas", "Total" ; ID 172 ; OF oWndFact01 ; SIZES 40,380,75,75,75 UPDATE oPreccos:SetBrowse( oLbx ) oLbx:nLineHeight := 16 oLbx:nHeaderHeight := 16 //oLbx:nFreeze := 4 oLbx:aHJustify:={2,2,2,2,2} oLbx:aJustify:={.t.,.f.,.t.,.t.,.t.} oLbx:bRClicked := { ...

... ; HEADER "Código","Nombre","Ventas", "Notas", "Total" ; ID 172 ; OF oWndFact01 ; SIZES 40,380,75,75,75 UPDATE oPreccos:SetBrowse( oLbx ) oLbx:nLineHeight := 16 oLbx:nHeaderHeight := 16 //oLbx:nFreeze := 4 oLbx:aHJustify:={2,2,2,2,2} oLbx:aJustify:={.t.,.f.,.t.,.t.,.t.} oLbx:lDrawFooters :=.T. ...

... 172 ; OF oWndFact01 ; ON DBLCLICK funcion( variable para mandar a la funcion ) ; SIZES 40,380,75,75,75,50 UPDATE oPreccos:SetBrowse( oLbx ) oLbx:nLineHeight := 16 oLbx:nHeaderHeight := 16 oLbx:nFreeze := 4 oLbx:aHJustify:={2,2,2,2,2} oLbx:aJustify:={.t.,.f.,.t.,.t.,.t.} oLbx:lDrawFooters :=.T. ...