FiveTech Software tech support forums

... aLine ); } //---------------------------------------------------------------------------// HB_FUNC( WBRWSET )// ( lAdjLastCol, lAdjBrowse, lDrawHeaders, lDrawFooters ) { // CeSoTech bAdjLastCol = hb_parl( 1 ) ; // Ajuste o no de ultima columna al control. bAdjBrowse = hb_parl( 2 ) ; // ...

... aLine ); } //---------------------------------------------------------------------------// HB_FUNC( WBRWSET )// ( lAdjLastCol, lAdjBrowse, lDrawHeaders, lDrawFooters ) { // CeSoTech bAdjLastCol = hb_parl( 1 ) ; // Ajuste o no de ultima columna al control. bAdjBrowse = hb_parl( 2 ) ; // ...

... font ofonte_res obRW2:setArray(aResumo) obRW2:nHeightCell := 28 obRW2:nHeightHead := 25 obRW2:nHeightFoot := 28 obRW2:lMChange := .f. obRW2:lDrawHeaders:= .t. obRW2:lNoChangeOrd:= .t. obRW2:lFooting := .t. obRW2:lNoMoveCols := .t. obRW2:lNoHScroll := .t. obRW2:nFreeze := 2 bColor := {|| ...

... font ofonte_res alias "srdic" obRW2:nHeightCell := 28 obRW2:nHeightHead := 27 obRW2:nHeightSuper:= 27 obRW2:lMChange := .t. obRW2:lDrawHeaders:= .t. obRW2:lNoChangeOrd:= .t. obRW2:lFooting := .f. obRW2:lNoMoveCols := .f. obRW2:lNoHScroll := .t. obRW2:nFreeze := 4 bColor := {|| ...

... ex: redefine browse oBrw2 id 4003 of oDlg font ofonte_por CELLED obRW2:setArray(aDadoscli) obRW2:nHeightCell := 33 obRW2:lMChange := .T. obRW2:lDrawHeaders:= .F. obRW2:lNoMoveCols := .T. obRW2:lNoHScroll := .T. oBrw2:nFreeze := 1 oBrw2:lLockFreeze := .T. obRW2:refresh() ADD COLUMN TO BROWSE ...

... database objects DATA lDescend AS LOGICAL INIT .F. // descending indexes DATA lDestroy // flag to destroy bitmap created for selected records DATA lDrawHeaders AS LOGICAL INIT .T. // condition for headers drawing DATA lDrawFooters // condition for footers drawing DATA lEditing AS LOGICAL INIT .F. ...

... obRW2: lNoVScroll := .T. //Tem que estar aqui obRW2:setArray(subgrupos) obRW2:Refresh() obRW2:nHeightCell := 55 obRW2:lMChange := .F. obRW2:lDrawHeaders:= .F. obRW2:lFooting := .F. obRW2:lNoMoveCols := .T. obRW2:bchange := {|| carregaprodutos(If( Len(subgrupos)<1 .or. obRW2:nAt>Len(subgrupos),0,subgrupos[obRW2:nat,2]),@aprodsubs,@npg,@nto,tchbtn[17],tipo,fwdeabrtc,cDigProdvd,@VoBtc,@ToBti,@ToBtc,24) ...

... obRW2:Refresh() obRW2:nHeightCell := 24 obRW2:nHeightHead := 24 obRW2:nHeightFoot := 24 obRW2:nHeightSuper:= 29 obRW2:lMChange := .F. obRW2:lDrawHeaders:= .T. obRW2:lFooting := .T. obRW2:lNoMoveCols := .T. **obRW2:bchange := {|| } **obRW2:bKeyDown := {|nKey| } **oBrw2:bOnEscape := {|| oWndChild:end() ...

... fonte_TCS COLOR CLRT,CLRT1 obRW3:setArray(asubgrupos) obRW3:Refresh() obRW3:nHeightCell := 60 obRW3:lInitGoTop := .F. obRW3:lMChange := .F. obRW3:lDrawHeaders:= .F. obRW3:lFooting := .F. obRW3:lNoMoveCols := .T. obRW3:bchange := {|| carregaprodutos(If( Len(asubgrupos)<1 .or. obRW3:nAt>Len(asubgrupos),0,asubgrupos[obRW3:nat,2]),@a2prodsubs,@ncpg,@ncto,oGroup,ltipo,fwdeabrtc,cDigProdvd,@VoBc,@ToBi,@ToBc,20) ...

... OF oDlg1 FONT fonte_TCS COLOR CLR_LGRAY , CLR_LGREEN obRW2:setArray(subgrupos) obRW2:Refresh() obRW2:nHeightCell := 55 obRW2:lMChange := .F. obRW2:lDrawHeaders:= .F. obRW2:lFooting := .F. obRW2:lNoMoveCols := .t. obRW2:bchange := {|| carregaprodutos(If( Len(subgrupos)<1 .or. obRW2:nAt>Len(subgrupos),0,subgrupos[obRW2:nat,2]),@aprodsubs,@npg,@nto,tchbtn,tipo,fwdeabrtc,cDigProdvd) ...

... BROWSE oBrw2 ID 4016 OF oDlg1 FONT fonte_TCS obRW2:setArray(subgrupos) obRW2:Refresh() obRW2:nHeightCell := 55 obRW2:lMChange := .F. obRW2:lDrawHeaders:= .F. obRW2:lFooting := .F. obRW2:lNoMoveCols := .t. OBRW2:LNORESETPOS := .T. obRW2:bKeyDown := {|nKey| if(nKey==VK_ESCAPE,oWndChild:end(),.T.)} ...

... ALIAS "SAIPRO" ID 46 OF oDlg obRW:nHeightHead := 28 obRW:nHeightCell := 23 obRW:nHeightFoot := 26 obRW:nColPos := 1 obRW:lMChange := .f. obRW:lDrawHeaders:= .t. obRW:lFooting := .t. obRW:lNoMoveCols := .t. obRW:bKeyDown := {|nKey| TSTeclasEdit803(nKey,obRW,oDlg,odgets,.f.,nAliqForaUF, cConsFinal, ...

... tcobRW1:Refresh() ***sub-grupos redefine listBox obRW2 Fields OF oDlg1 id 4016 COLORS CLR_BLACK,CLR_LGREEN SIZES 100 obRW2:lDrawHeaders := .F. obRW2:lAdjBrowse := .f. obRW2:lAdjLastCol := .t. obRW2:aJustify := {2} obRW2:nHeaderStyle := 3 obRW2:nLineStyle := 2 obRW2:nclrbackfocus:= ...

... justificado a la derecha // b) .T. o 1 -> Indica justificado a la izquierda // c) 2 -> Indica justificado al centro. // 7) Nueva variable ::lDrawHeaders, permite manejar la visualizacion de las // cabeceras. Por defecto es .T., un valor .F. indicar  la no visualizacion. // 8) BUG Arreglado ...

... Files" ) If !File( uTXT ) return .F. EndIf EndIf ::oTXT:= oTXT:= TTxtFile():New( uTXT, 0 ) ElseIf cType == "O" oTXT:= uTXT Else return .F. EndIf ::lDrawHeaders := .F. ::aHeaders := { "" } ::aJustify := { .F. } ::aColSizes := { 2000 } ::nLineStyle := 0 ::cAlias := "_TXT_" ::bLine := { |cLine| cLine:= ...