FiveTech Software tech support forums

Hello, How can I set the color of listbox row when the listbox is not focused? oLbx1:nClrText = { || IIF( invdet->posted, CLR_WHITE, CLR_BLACK ) } oLbx1:nClrPane = { || IIF( invdet->posted, CLR_GREEN, CLR_WHITE ) } oLbx1:nClrForeFocus = { || IIF( invdet->posted, ...

... a su similar en Xbrowse, por favor me pueden ayudar al respecto, es lo unico que me detiene en este cambio por el momento. Redefine Browse oLbx1 Id 1000 Of oDlgFam FONT oFont1; ON LEFT DBLCLICK (EditFamilia(.F.,oLbx1), oLbx1:Refresh()); COLORS RGB(64,0,128), RGB(170,230,250),rgb(0,0,0), ...

... is defined once on top of the Application, for all Browser-Backgrounds inside the Dialog. 27 Browsers are opened in 8 Folder-Pages like : ... ... oLbx1 := TXBrowse():New( oFld:aDialogs[1] ) ... oLbx:SetBackGround( oBrush ) ... oLbx:CreateFromResource( 110 ) The Dialog includes a Folder with 8 ...

Mr Rick

Please include oLbx1:MakeTotals() in the INIT clause

Code: Select all  Expand view

ACTIVATE DIALOG oDlg1 ;
    ON INIT( oLbx1:MakeTotals(), oLbx1:SetFocus(), .F. )
 

Also you may initialize :nTotal := 0, to know that the totals are really made by xbrowse.

... el dialogo a una solapa. DEFINE WINDOW oWnd TITLE "Folders generation" COLOR "N/W" SELECT 3 USE EjeMPLO3.DBF @0,0 LISTBOX olbx1 FIELDS SIZE 200,355 @ 20, 205 FOLDER oFld PROMPTS "Caracteristicas", "&Lecturas", "Filtro" ; DIALOGS "SERIES","",""; ...

... a gradient and saved it as bitmap. http://www.pflegeplus.com/pictures/backgrd4.jpg Now it is very simple : Adjusted background : oLbx1:cBmpAdjBrush := "3D.bmp" // It is 24-Bit Tiled Background : oLbx1:SetBackGround("view.bmp" ) A small thing I noticed after some tests : Two Browsers ...

Hello, I added the lines to xBrowse.prg. The compile runs without error. With the extra lines : oLbx1:cBmpAdjBrush := "view.bmp" oLbx1:SetBackGround("view.bmp" ) I get a black background inside the browser. I tested without < oLbx1:SetBackGround >. The BMP-background ...

... Value: 0 bytes Highest Value: 0 bytes el codigo es : #include "TSBrowse.ch" #include "FiveWin.ch" #Include "Btnget.ch" FUNCTION Prg_101() LOCAL oLbx1, oBrw LOCAL oDlgFam LOCAL nOrden :=1 LOCAL vOrden := {"Codigo","Nombre"} LOCAL lOk := .F. LOCAL oSay Local Ofont1, Ofont2,cMensaje,oMensaje,oFont3 ...

... por eso me cambie a xbrowse y quede igual de perdido ?? #include "FiveWin.ch" #include "InKey.ch" #include "xbrowse.ch" FUNCTION Prg_100() LOCAL oLbx1 LOCAL oDlgGrupo, oFont, oFont2 LOCAL nOrden :=1 LOCAL vOrden := {"Codigo","Nombre"} LOCAL lOk := .F. Local cMensaje,oMensaje,oFont3 lOCAL oBot1,oBot2,oBot3,oBot4,oBot5,oBot6 ...

... LoadBitMap(Getresources(),"Blauw"),; LoadBitMap(Getresources(),"Purper"),; LoadBitMap(Getresources(),"Rood") } Redefine ListBox oLBX1; Fields ; aBmp[Max(Q->Kleur,1)], Q->Txt2; Headers "", "Dossiernaam"; Select Q->QId For aQ[1,1]; On Left DblClick (nRekNr := Q->(Recno()),EditJobFrm(oLbx1,Q->SetId) ...

Hello

The Problem is solved

I used

ASIZE( oLbx1:aCols[1]:aBitmaps,0)

to clear the bitmap-array of Col 1

Regards

Uwe

Hello, I added just one line. Before i start, to fill <Col 1 > with bitmaps the user selected, I set the bitmap-arraylist to 0 ( oLbx1:Adjust() i checked, there was no difference ) ASIZE( oLbx1:aCols[1]:aBitmaps,0) Now every time, the user wants to test a bitmap, he starts with a clean ...

... tienes que definir el tipo de cursor correcto, definierle lo codigos de blocks de navegacion asi como definir una funcion skipper especial... oLbx1:bLogicLen := { || oRecordSet:RecordCount } oLbx1:bGoTop := { || oRecordSet:MoveFirst() } oLbx1:bGoBottom := { || oRecordSet:MoveLast() } oLbx1:bSkip ...

... ,cNom_Con Local oCod_Area,cCod_Area,oNom_Area,cNom_Area,cFte_Area Local oBoton1,oBoton2,oBoton3 Local cBoton1,cBoton2,cBoton3 Local cFecha,olbx1,Base cFecha:=date() Base:=" " Base:=Tabla->Base // ACA SE BUSCA EL NOMBRE DEL ARCHIVO DEFINE FONT oFont1 NAME "Arial" SIZE 0,-12 Bold Define ...

... ,cNom_Con Local oCod_Area,cCod_Area,oNom_Area,cNom_Area,cFte_Area Local oBoton1,oBoton2,oBoton3 Local cBoton1,cBoton2,cBoton3 Local cFecha,olbx1,Base cFecha:=date() Base:=" " Base:=Tabla->Base // ACA SE BUSCA EL NOMBRE DEL ARCHIVO DEFINE FONT oFont1 NAME "Arial" SIZE 0,-12 Bold Define ...