... In my conversion (16 to 32) , I used the folowing TS browse call a lot of times : (In a older NTX format for indexes) REDEFINE BROWSE oLbxCol CELLED COLORS CLR_BLACK, CLR_WHITE ALIAS "kleuren" ID 3333 OF oDlg NewLbx(oLbxcol,"ARTIKEL") and this is the function, that I want ...
... prompt. AADD(aCALEND,{1,2,3,4,5,6,7,8,9,0}) AADD(aCALEND,{11,22,33,44,55,66,77,88,99,00}) REDEFINE BROWSE oBrw20 ID 101 OF oFld:aDialogs[2] UPDATE CELLED; ON CHANGE (cTEST:=STR(oBrw20:nAT)+' - '+STR(oBrw20:nCELL),oTEST:REFRESH()) oBrw20:SetArray(aCALEND) ADD COLUMN TO oBrw20 DATA ARRAY ELEMENT ...
... por tu tiempo y tu ayuda... Saludos hasta Mexico... SELE CASHFLOW REDEFINE BROWSE oBrw3 ID 302 OF oFld3:aDialogs[2] ALIAS "CASHFLOW" CELLED ADD COLUMN TO oBrw3 DATA FieldWBlock('FECHA',SELECT('CASHFLOW')) HEADER 'FECHA' SIZE 65 ALIGN 1,1,1 EDIT; PREEDIT dOldFec:=CASHFLOW->FECHA; ...
... ; //18 } AConfig[8]:=aBmp Luego hago el BROWSE... CODIGO PARA EL BROWSE: ======================= REDEFINE BROWSE oBrw2 ID 1008 OF oDlg UPDATE CELLED ADD COLUMN TO oBrw2 BITMAP DATA SIMBOLOS('INVSTATUS') HEADER 'ST' SIZE 25 NOHILITE ADD COLUMN TO oBrw2 BITMAP DATA SIMBOLOS('INVENT') HEADER ...
... "dperson" dbselectarea("clients") ordSetfocus("modmae2") dbgotop() REDEFINE COLUMN BROWSE oBrw ID 15 OF oDlgperb CELLED; ON DBLCLICK( lOk := .T. , odlgperb:End()) ADD COLUMN TO BROWSE oBrw DATA oBrw:nAt ; // array element number HEADER "No"; SIZE 50 ADD ...
Sr. Manuel, estou tentando usar combobox em uma célula que pode ou não ser um combobox, 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 := ...
Sr. Manuel, É possível utilizando TSBROWSE CELLED, fazer com que o usuário só consiga navegar em uma coluna(2) especifica? COLUNA 1 | COLUNA 2 NOME CLIENTE: | JOSE NOME CLIENTE: | JOAO NOME CLIENTE: | MARIA NOME CLIENTE: | MARCOS NOME CLIENTE: ...
... lCanDelete AS LOGICAL INIT .F. HIDDEN // activates delete capability DATA lCanSelect AS LOGICAL INIT .F. // activates select mode DATA lCellBrw // celled browse flag DATA lChanged AS LOGICAL INIT .F. // field has changed indicator DATA lClipMore AS LOGICAL INIT .F. // ClipMore RDD DATA lColDrag ...
... using horizontal and vertical lines in the browses. The default behaviour of xbrowse is no lines. To facilitate the programmers who use lines and celled browse, two new clauses LINES and CELL are added. LINES clause draws horizontal lines and vertical lines complete. CELL clause sets the browse ...
Sr. Manuel, como posso fazer para depois de INSERIR uma nova linha no TSBROWSE, posiciona-lo na primeira coluna? REDEFINE BROWSE oBrw CELLED ALIAS "SAIPRO" ID 46 OF oDlg obRW:nHeightHead := 28 obRW:nHeightCell := 23 obRW:nHeightFoot := 26 obRW:nColPos := 1 obRW:lMChange := .f. obRW:lDrawHeaders:= ...
Maestro, tenho em um BROWSE cerca de 30 colunas REDEFINE BROWSE oBrw CELLED ALIAS "SAIPRO" ID 46 OF oDlg .... .... //coluna 17 ADD COLUMN TO oBrw TITLE "ST" DATA FieldWBlock("subtri",select()) SIZE 30 EDITABLE 3DLOOK FALSE, TRUE, TRUE ALIGN DT_CENTER, DT_CENTER, ...