FiveTech Software tech support forums

olbx:ncolAct
guarda el número de columna actual


olbx:lcellstyle := .t.
olbx:bLClicked:={|nRow,nCol|MSGALERT(olbx:ncolact)}


Un saludo

Marcelo Jingo

... evidenziasse tale cella, a tale scopo passo i parametri (x,y) ad una mia funzione e riesco a settare con : function miafunc param _y,_x,oBrw oBrw:nColAct:=_x && e funziona nel senso che si evidenzia la cella X oBrw:refresh() * non riesco pero' ad evidenziare la cella Y * ho provato con ...

Pare impossibile ma ho trovato cosa cercavo. Volevo sapere la colonna su cui ero posizionato e questa e' l'istruzione: oBrw:nColAct Evidentemente ti sei rifiutato di esaminare il mio esempio che conteneva, appunto, quell'istruzione. Come mai? La mia nuova domanda e': 1) per sapere il ...

Pare impossibile ma ho trovato cosa cercavo. Volevo sapere la colonna su cui ero posizionato e questa e' l'istruzione: oBrw:nColAct sfuttando l'istruzione: oBrw:bLClicked = { | nRow, nCol | mia_funzione( nRow, nCol, oBrw, oDlg ) } La mia nuova domanda e': 1) per sapere il nColAt mi devo ...

... twbrowse and use in line data entry - with validation on each cell if required. oLbx5:bKeyChar := {|nKey| iif(nKey == VK_RETURN,EditLab(oLbx5:nColAct,oLbx5,oTmsht,oLbx1,oTmsht:keyno()),)} oLbx5:lCellStyle = TRUE oLbx5:lAutoEdit = TRUE oLbx5:lAutoSkip = TRUE static function EditLab(nCol,oLbx5,oTmsht,oLbx1,nRow) ...

... aTotal ) } Algo similar podes hacer con browses sobre dbfs: oBcli:lAutoEdit := .t. oBcli:bKeyChar := {|nK| if( nK==VK_RETURN,oBcli:Edit(oBcli:nColAct,.t.),) } oBcli:bEdit:= {|nCol, cBuffer, lFirstEdit|; Edita2Celda( oDlg,oBcli, nCol,cBuffer,lFirstEdit )} Function Edita2Celda( oFld,oLbx, nCol, ...

... ; oBrw:Refresh() elseif nK==VK_F6 Copia_Presu() ; Refre3() ; oBrw3:Upstable() ; oBrw3:Refresh() elseif nK==VK_RETURN EditaCelda(oBrw,oBrw:nColAct,LLOFACT->PENDIENTE,.T.,wAlias ) endif RETURN NIL Saludos,

... oBrwMov fields ID 999 OF oDlg ; ALIAS (cALIAS) FONT oFont; COLOR CLR_BLACK, CLR_WHITE UPDATE ON RIGHT CLICK RMENU(oDlg); ON DBLCLICK IF(oBrwMov:nColAct > 0,oBrwMov:Edit(oBrwMov:nColAct,.t.),) -Define another font for a specific column: oBrwMov:bFont:={|nRow,nCol,nStyleLine| IF((nStyleLine==1.or.nStyleLine==0).and.(nCol==5.or.ncol==6.or.ncol==7),oFont5:hFont,; ...

... == nCol nClr := nRGB( 192, 192, 192 ) endif endif elseif nStyle == 3 // active cells nClr := GetSysColor( 13 ) if ( ::lCellStyle .and. nCol == ::nColAct ) .or. !::lCellStyle if oSel <> NIL .and. oSel:lSelect nClr := nRGB( 128, 128, 128 ) // CLR_GRAY endif endif elseif nStyle == 0 // normal ...