LISTBOX - Cor

Luiz Arruda (ICO) · July 21, 2005

Boa Trade.. Bem Tenho uma uma LISTBOX e mesmo seguindo as dicas de outros tÃ³picos nao consegui colocar cor nas colunas, gostaria que ficasse assim;

TRANSPORTEid=yellow> DEBITOid=red> CREDITOid=blue> SALDOid=green>

Segue o cÃ³digo;

FUNCTION SALDOS()

local odlg, olbx,OBMP

local oRadioBurrons

local arruma:=1

local ofont2, OFONT3

NORDEN :=2

xnom:=""

CLOSE DATA

Select 1

USE C:\DADOS\SALDOS ALIAS SALDOS EXCLUSIVE NEW

SET INDEX TO C:\DADOS\FUNCIO01

GO top

SELECT 1

DEFINE BITMAP oBmp FILENAME "\ADMP\BMP\VERIFI.bmp"

define font ofont2 NAME "MS SANS SERIF" SIZE 0,-10

DEFINE FONT OFONT3 NAME "MS SANS SERIF" SIZE 10,10 BOLD

DEFINE DIALOG ODLG FROM 06,00 TO 45,129 TITLE " 7.1 SALDOS DE EMPREGADOS "

@02,01 TO 05,50

@06,02 LISTBOX oLbx FIELDS SALDOS->NOME, OEMTOANSI(str(SALDOS->CONTA,7,3)),;

oemtoansi(str(SALDOS->transporte,10,2)), str(SALDOS->debito,10,2), str(SALDOS->credito,10,2), oemtoansi(str(SALDOS->saldo,10,2));

FIELDSIZES 295,80,80,80,80,80,80;

HEADERS " NOME ", "CONTA", "TRANSPORTE ","DEBITO","CREDITO","SALDO","ADMISSAO";

SIZE 349, 150;

ON LEFT DBLCLICK(MOSTRA(), oLbx, .T. );

OF oDlg

@03,02 say "Ordenar por:"

@03,08 RADIO oRadioButtons VAR arruma;

PROMPT "&Nome","&Conta";

OF ODLG ON CHANGE ordenar(arruma, OLBX)

@22,02 BUTTON "Buscar " of odlg;

ACTION BUSCAr(oLbx,arruma)

@22,12 button "Alterar" of odlg

@22,22 button "Excluir" of odlg;

message "Excluir Registro";

action deleta(oLbx)

@22,32 button "Ficha " of odlg;

action PRNLPT()

@22,42 button "Sair " of odlg;

action odlg:end(oLbx:end())

@03,15 SAY "Mes "+trim(MA)

@04,15 say "Impressora: "+PADNO

ACTIVATE DIALOG ODLG ;

ON PAINT PalBmpDraw( hDC, 10, 10, oBmp:hBmpPal )

oBmp:End()

CLOSE DATA

DBCLOSEAREA()

Desde jÃ¡ agradeÃ§o..

Luiz Arruda - iko67@ibest.com.br => Visite CorumbÃ¡/MS - ConheÃ§a o Pantanal ::

FW 2.4 Clipper 5.2 .

Editado por - ico on 21/07/2005 16:58:47

eajunior · July 21, 2005

Ola , voce esta utilizando o TwBrowse do HernÃ¡n Diego Ceccarelli

Onde vocÃª vÃª um obstÃ¡culo alguÃ©m vÃª o tÃ©rmino da viagem e o outro vÃª uma chance de crescer.

Elias AbrÃ£o JÃºnior

Fone : (0**11) 5181-6909 SÃ£o Paulo - SP

eajunior.fw@terra.com.br

xHarbour 0.99.0 - Fivewin 2.5 e xMate

pauloaraujo · July 21, 2005

Ico,

DÃª uma olhada nesses 2 tÃ³picos, porque acho que no LISTBOX nÃ£o tem jeito.

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=4352

http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=4244

Paulo/CONTATO SISTEMAS

Clipper53b / FW26 / Blinker70

Ajudar Ã© um prazer, agradecer Ã© uma obrigaÃ§Ã£o

Luiz Arruda (ICO) · July 22, 2005

Beleza vou mudar o fonte, volto a postar.

Luiz Arruda - iko67@ibest.com.br => Visite CorumbÃ¡/MS - ConheÃ§a o Pantanal ::

FW 2.4 Clipper 5.2 .

gilmer · July 22, 2005

OlÃ¡,

Porque vc nÃ£o utiliza a classe Tcbrowse, veja exemplo no samples TestTcBr.prg, acho que Ã© exatamente o que vocÃª esta querendo.

Luiz Arruda (ICO) · July 22, 2005

Ola. segui o exemplo indicado pelo GILMER, Ã© isso mesmo q eu quero, sÃ³ que estÃ¡ acontecendo o seguinte; se eu compilo fora do meu prog. fica tudo certo. se eu coloco junto do meu prog. nao funciona veja;

STATIc FUNCTION TESTE()

local oWndChild, oBrw, oFont

local nI, aTestData

DEFINE WINDOW oWndChild MDICHILD OF oWnd FROM 00, 0 TO 250, 400 PIXEL COLOR "R/W"

USE C:\DADOS\saldos ALIAS SALDOS EXCLUSIVE NEW

SET INDEX TO C:\DADOS\FUNCIO01

aTestData := Array( LastRec(), RecCount() )

FOR nI := 1 TO Len(aTestData)

aTestData[nI,1] := Field->CONTA

aTestData[nI,2] := Field->NOME

aTestData[nI,3] := Field->TRANSPORTE

aTestData[nI,4] := Field->DEBITO

aTestData[nI,5] := Field->CREDITO

aTestData[nI,6] := Field->SALDO

aTestData[nI,7] := Field->Admissao

IF .NOT.EOF()

SKIP

ENDIF

@ 1.5, 1 COLUMN BROWSE oBrw OF oWndChild ;

ON LEFT DBLCLICK EditCell( oBrw, nRow, nCol ) ;

SIZE 180, 135 MESSAGE "Saldo de Empregados Rurais "

oBrw:SetArray( aTestData )

oBrw:nClrForeHead := CLR_WHITE

oBrw:nClrBackHead := CLR_BLUE

oBrw:hBmpCursor := ReadBitmap( 0, "Triangle.bmp" )

ADD COLUMN TO BROWSE oBrw DATA "" SIZE 15

ADD COLUMN TO BROWSE oBrw DATA oBrw:nAt;

SIZE 50 NOBAR CENTER ;

HEADER " Ordem " color 08421376, 255

ADD COLUMN TO oBrw DATA ARRAY ELEMENT 1 HEADER "CONTA" SIZE 50

ADD COLUMN TO oBrw DATA ARRAY ELEMENT 2 HEADER "NOME" SIZE 250

ADD COLUMN TO oBrw DATA ARRAY ELEM 3 HEADER "Transporte" SIZE 90 CENTER

ADD COLUMN TO oBrw DATA ARRAY ELEMENT 4 HEADER "Debito" SIZE 65 PICTURE "999,999.99"

ADD COLUMN TO oBrw ARRAY ELEM 5 HEADER "CREDITO" SIZE 90 PICT "99,999.99"

ADD COLUMN TO oBrw ARRAY ELEM 6 HEADER "SALDO " SIZE 90 PICT "99,999.99"

ADD COLUMN TO oBrw ARRAY ELEM 7 ;

HEADER "ADMISSAO " SIZE 100 PICT "@D"

oWndChild:SetControl( oBrw ) id=red>

ACTIVATE WINDOW oWndChild

return nil

me da o erro Error objects/6 No Exp. Method TWINDOW:OWNDCLIENT id=blue>

se eu coloco assim

DEFINE DIALOG oWndCHILD FROM 00, 0 TO 250, 400

activate dialog... trava o computadorid=blue>

se mudo DEFINE DIALOG OWND

da erro aqui..

oWndChild:SetControl( oBrw ) id=red>

AbraÃ§os]

Luiz Arruda - iko67@ibest.com.br => Visite CorumbÃ¡/MS - ConheÃ§a o Pantanal ::

FW 2.4 Clipper 5.2 .

Editado por - ico on 23/07/2005 10:04:01

gunafe · October 17, 2005

Boa Tarde,

Sei que estou um pouco atrasado com a resposta, mas, se ainda estiver interessado, ai vai:

// Cor da Linha

oLbx:nClrText := { || IF( ((oLbx:cAlias)->OPE_FAT = "E" .or.;

(oLbx:cAlias)->OPE_FAT = "S" .or. (oLbx:cAlias)->OPE_FAT = "P" .or.;

(oLbx:cAlias)->OPE_FAT = "R" .or. (oLbx:cAlias)->OPE_FAT = "A" ) .and.;

(oLbx:cAlias)->APAGA = "*", nRGB( 0, 0, 0 ),PreFatu3_43( oSlg, oLbx ) ) }

// Cor de fundo da planilha

oLbx:nClrPane := { || IF( ((oLbx:cAlias)->OPE_FAT = "E" .or.;

(oLbx:cAlias)->OPE_FAT = "S" .or. (oLbx:cAlias)->OPE_FAT = "P" .or.;

(oLbx:cAlias)->OPE_FAT = "R" .or. (oLbx:cAlias)->OPE_FAT = "A" ) .and.;

(oLbx:cAlias)->APAGA = "*", nRGB( 255, 0, 0 ), nRGB( 255, 255, 255 ) ) }

// Cor do Cursor Em Cima do Item

oLbx:nClrBackFocus := { || IF( ((oLbx:cAlias)->OPE_FAT = "E" .or.;

(oLbx:cAlias)->OPE_FAT = "S" .or. (oLbx:cAlias)->OPE_FAT = "P" .or.;

(oLbx:cAlias)->OPE_FAT = "R" .or. (oLbx:cAlias)->OPE_FAT = "A" ) .and.;

(oLbx:cAlias)->APAGA = "*", nRGB( 255, 0, 0 ), PreFatu3_43( oSlg, oLbx ) ) }

//------------------------------------------------------------------------------------//

Function PreFatu3_43( oSlg, oLbx ) // Cores no Browse

local nColor := nRGB( 0, 0, 183 )

IF ( (oLbx:cAlias)->OPE_FAT = "E" .or. (oLbx:cAlias)->OPE_FAT = "S" .or.;

(oLbx:cAlias)->OPE_FAT = "P" .or. (oLbx:cAlias)->OPE_FAT = "R" .or.;

(oLbx:cAlias)->OPE_FAT = "A" ) .and. (oLbx:cAlias)->APAGA = "*"

nColor := nRGB( 0, 0, 0 ) // Preto

ElseIF (oLbx:cAlias)->OPE_FAT = "E"

nColor = nRGB( 0, 0, 183 ) // Azul

ElseIF (oLbx:cAlias)->OPE_FAT = "S"

nColor = nRGB( 255, 0, 0 ) // Vermelho

ElseIF (oLbx:cAlias)->OPE_FAT = "P"

nColor = nRGB( 0, 128, 0 ) // Verde

ElseIF (oLbx:cAlias)->OPE_FAT = "R"

nColor = nRGB( 244, 34, 182 ) // Rosa

ElseIF (oLbx:cAlias)->OPE_FAT = "A"

nColor := nRGB( 0, 0, 0 ) // Preto

EndIF

Return nColor

//------------------------------------------------------------------------------------//

Naturalmente que voce vai precisar adaptar para o seu padrÃ£o, caso tenha alguma duvida, entre em contato, laugusto@acbusca.com.br.

Luiz Augusto

Luiz Arruda (ICO) · October 17, 2005

Ola XarÃ¡, atrasado que nada sÃ£o sÃ³ tres meses.. he! he!

Com certeza sua dica serÃ¡ aproveitada.. Nao sÃ³ por mim que vou usa-la em outras aplicaÃ§Ãµes a vir, assim como tÃ¡ chegando gente nova no forum...

AbraÃ§os.

LUIZ ARRUDA - Corumba-MS

FW 2.4 - CLP 5.3 - WS ico67@ibest.com.br

NÃ£o Percam - 3Âº ENCONTRO DE FIVEWINERS - NOVEMBRO DE 2005

Sign In

LISTBOX - Cor

Recommended Posts

Luiz Arruda (ICO)

Link to comment

Share on other sites

eajunior

Link to comment

Share on other sites

pauloaraujo

Link to comment

Share on other sites

Luiz Arruda (ICO)

Link to comment

Share on other sites

gilmer

Link to comment

Share on other sites

Luiz Arruda (ICO)

Link to comment

Share on other sites

gunafe

Link to comment

Share on other sites

Luiz Arruda (ICO)

Link to comment

Share on other sites

Join the conversation

Browse

Activity