FiveTech Software tech support forums

... :lColDividerComplete := .t. :bRClicked := { || msginfo( "pulsastes boton derecho..." ) } // LLAMA MENU-POPUP CON BOTON DERECHO :lRecordSelector := .t. // SI/NO 1RA.COL.IZQ.QUE TIENE LA FLECHITA NEGRA :lAllowColHiding := .f. // SI/NO BOTON DERECHO SOBRE CABEZERA, MUESTRE ARRAY COL. :lAllowColSwapping ...

Asunto resuelto.

La clase get maneja la varible :lDisColors que por inicio tien el valor .T., entonces lo que hago es

oGet:lDisColor:=.f.

ello obliga al get a tomar sel setcolor() los colores que le defino, de lo contrario hace esto:

SetTextColor(:nHD, GetSysColor(COLOR_GRAYTEXT))

Jose Luis, A ver si entendi lo que quieres hacer: desde una funcion controlar en un valid que el get te permita o no avanzar si tiene codigo y hacerlo por medio de un boton, te explico yo que hago a ver si te puede ayudar... Tengo una funcion sel_Catalogo donde cargo el catalogo especificado, y los ...

... function xbrowsetest() redefine XBROWSE oR:aoTbrs[1] id 501 COLUMNS 17,2,6,9,7,15,16; OF oR:oDlg SIZES 40,120,90,170,90,170,90 HEADERS "Sel.","Recibo","F.Factura","Cliente","F.Emision","Cuenta Bancaria","Importe"; JUSTIFY ...

Hello, I finished the new Image-converter and Script-Editor Let me know, if still something missing ! Many things are still possible like extracting Frames of a Multiple TIF or adding Frames, Noise-reduction ... A sample : convert a Screencapture ( BMP ) to a new File ( JPG ) // Your Application-pat...

Carles acabo de probar con tu ejemplo he hice lo mismo... usas harbour o xharbour? cree una tabla en sel servidor de dolphin como la definiste en el post anterior prueba y me comentas gracias #include 'fivewin.ch'#define P_SERVER        'dolphintest.sitasoft.net'#define ...

MR RAO, I made : // OPEN DATABASE oDHard:=Apri_dbf("Hardware",.T.,.T.,aIdx) (oDHard)->(OrdSetFocus(2)) // CREATE Dialog and XBROWSE oApp():oDlg := TMia():New(oApp():oWndMain) oApp():oDlg:cTitle := i18n('Gestione Hardware') oApp():oDlg:SetColor(0,RGB(143,172,230)) oApp():oWndMain:oClient...

DEAR ANTONIO, I THINK this error on fwh10.6 corrected .. but http://img195.imageshack.us/img195/4794/errorxbrowse.png I have also the same error on xbrowse to show bitmap on xbrowse when I want use the windows seven effect oCol:= oApp():oGrid:AddCol() oCol:AddResource("sort1&quo...

Raymundo...

mira el TTITLE.CH para que tengas una idea, recuerda que en el recurso debes crear el control tipo "CUSTOM" y en CLASS NAME colocar "TTITLE"

si no te funciona sugiero coloque sel codigo que no te funciona y la linea de como creas el control en el recurso

Ola pessoal, to quase terminando um programa de conversao de SQLServer para DBF ou vice versa. Estou usando Harbour 41.0, fwh 2.4, BCC 5.5. O programa abaixo esta funcionando perfeitamente, mas quando a função seek() é ativada da a mansagem "Seek operations are not allowed on SELECT statements&...

... ) and MAc OS X (with wine or crossover). Is there any non-windows standard call used in this class ? Any solution ? Antonio ? This is a simply sel-contained sample that crash under linux+wine #include "fivewin.ch" #include "ttitle.ch" #include "ribbon.ch" Function ...

... IF Left(Upper(cPorta),3) = "USB" .OR. oPub:wImpJato // Usb Ou Jato de tinta WAITRUN( oPub:wPathRaiz + "DOSPRIN /SEL'" + AllTrim(oPub:wPorta) + "' " + cFileTxt ) FErase( cFileTxt ) ELSEIF Left( Upper(cPorta),3) = "LPT" ......

... lógico. oCol:= oBrw:AddCol() oCol:AddResource("TIQUEA-NO") oCol:AddResource("TIQUEA-SI") oCol:bBmpData:= { || iif( TRAB->SEL, 1, 2) } // SEL es campo lógico oCol:nWidth:=15 oCol:bLDClickData:={|| ELIGE(oDBF) } //Doble click Izquierdo oCol:bRClickData :={|| ELIGE(oDBF) ...

I add on an array oDTipGrad the value of a dbf record (oDTipGrad)->Bitmap Apri_Dbf("Tabelle" ) (oDTipGrad)->(DbSeek("G")) DO WHILE (oDTipGrad)->CveTab="G" .AND. !(oDTipGrad)->(EoF()) AAdd(aGradiBmp,(oDTipGrad)->Bitmap) (oDTipGrad)->(DbSkip()) ENDDO Ch...

Hello Rick, There are two color-settings // xBrowse got Focus Color Row/Cell - Text and Background // --------------------------------------------------------------------- oLbx:bClrSelFocus = { || { SEL_TEXTCOLOR, SEL_BACKCOLOR } } // Black Text on White Background oLbx:bClrSelFocus = { || { 0, 1677...