Orlando FMC

Olá bjbernal, Vc pode usar também a fonte COURIER NEW. Não conheço nenhuma função para alinhar dados com as outras fontes. Abraços Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5 Editado por - orlandof on 18/07/2007 08:31:25

oFld:aEnable:={ .t. , .t. } // reativa o folder 2 oFld:SetOption(2) // muda para o folder de numero 2 Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5

Olá Paulo. Tente assim: oPrn:CharSay(nlin,024,(TRAN(venda,"@E ###,###,###.##")) usando um fonte Courier New. Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5

Tente: oBtnFiltro:SetText('Cancela Filtro') Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5

Caros Winners, estou precisando de um comando para identificar as máquinas que estão na rede, e vi, no fórum, em http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=5791, em 16/12/2005, uma citação do Gilberto Frohlich assim: WaitRun( "NET VIEW ...." , 0 ). Usando desta forma: WaitRun( "NET VIEW > REDE.TXT" , 0 ) seria o ideal para mim, mas não funciona. Será que o WaitRun só funciona com arquivos .bat? Obrigado. Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5

Caros Winners, estou precisando de um comando para identificar as máquinas que estão na rede, e vi, no fórum, em http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=5791, em 16/12/2005, uma citação do Gilberto Frohlich assim: WaitRun( "NET VIEW ...." , 0 ). Usando desta forma: WaitRun( "NET VIEW > REDE.TXT" , 0 ) seria o ideal para mim, mas não funciona. Será que o WaitRun só funciona com arquivos .bat? Obrigado. Orlando F M Costa - Belo Horizonte - MG XP - Clipper 5.2e - FW 1.92 - WS 4.5

up! Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 1.92 - WS 4.5

Como faço para saber, via codigo, o nome do campo do arquivo, que está associado à coluna n do TcBrowse? Por exemplo: o conteudo pode ser obtido assim: xConteudo := Eval(oBrw:aColumns[n]:bData ) // conteúdo da célula da coluna n Preciso saber o nome do campo correspondente à coluna n. Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 1.92 - WS 4.5

Como faço para saber, via codigo, o nome do campo do arquivo, que está associado à coluna n do TcBrowse? Por exemplo: o conteudo pode ser obtido assim: xConteudo := Eval(oBrw:aColumns[n]:bData ) // conteúdo da célula da coluna n Preciso saber o nome do campo correspondente à coluna n. Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 1.92 - WS 4.5

cArqFoto="C:\caminho\"+NovoNome+".jpg" oJpgFoto:Progress(.F.) oJpgFoto:LoadBmp(cArqFoto) Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 1.92 - WS 4.5

Bom dia Dorneles, Tente isto: #INCLUDE "image.CH" // no início do .PRG ... ... cArqFoto="NomeArq.JPG" REDEFINE Image oJpgFoto ID XXX Of dDialog; FILE cArqFoto Adjust UPDATE ... ... XXX=ID da caixa Static Style no WS Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 1.92 - WS 4.5

Luciane, A sua função está identificando a ordem para pesquisa? "SET Order TO nordem" Está sendo passado o valor do "nordem"? Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 1.92 - WS 4.5 Editado por - orlandof on 03/05/2006 04:53:47

Syda, Já passei por esta situação, e a resolvi criando no COREL um retândulo transparente envolvendo a figura. Acho que este retângulo deve ter o tamanho do papel, ficando a figura em seu interior, na posição desejada. Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 1.92 - WS 4.5

GetPrintDefault( GetActiveWindow() ) // para imprimir em USB. Colocar no início da aplicação. Isto resolveu para mim. Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 1.92 - WS 4.5

Para arquivos ".AVI": @ 05,10 video oVideo FILE "nome_arq.AVI" SIZE 650,455 OF oWnd oVideo:Play(1) Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 1.92 - WS 4.5

Sugestão: // Coloque a linha abaixo em locais adequados do seu PRG para salvar no arquivo "temp.txt" o conteúdo das variáveis. LOGFILE("temp.txt",{VAR1,VAR2,"Variavel3 = ",VAR3,...}) // gera arq texto para DEBUGAR as informacoes. // Voce pode repetir esta linha quantas vezes quiser. Cada uma gerará uma linha no arquivo "temp.txt". // No inicio da rotina voce pode colocar: ERASE("TEMP.TXT") // para deletar o arquivo anterior. Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 1.92 - WS 4.5

Gilberto, Estou tentando desenvolver algo utilizando o TREE mas, acho que o meu objetivo deve ser diferente do seu. No entanto, talvez a rotina possa lhe ser util. Quero desenvolver algo parecido com o Explorer para pesquisar PASTAS ( diferente do cGetFile() ). Está funcionando, mas ainda não consegui: - Colocar as figuras (pastas como no Explorer) e - Identificar o item selecionado, na FUNCTION TESTE() A intenção é gerar o TREE a partir de um ARQUIVO TEXTO COM O NOME "PASTAS.TXT", como a seguir: C: C:\A C:\A\AA C:\A\AA\AAA C:\A\AA\AAA\AAAA C:\A\AA\AAA\AAAB C:\A\AA\AAB C:\A\AB C:\A\AC C:\A\AD C:\B C:\C C:\D C:\E ------------ PROCEDURE BH PRIVATE oImageList, oBmp1, oBmp2 BEGIN SEQUENCE DEFINE FONT ofCOUR11 NAME "Courier New" SIZE 00,-11 // bold // UNDERLINE define font ofont name "Ms Sans Serif" size 0,-11 SET RESOURCES TO DLL_, "BWCC.DLL" DEFINE DIALOG dBH NAME "BM_EXPLORER" COLOR "B/W" dBH:LHELPICON := .F. dBH:bMMoved = { | nRow, nCol, nFlags | oRow:SetText( nRow ), oCol:SetText( nCol ) } // posição do cursor na base da tela * As 4 linhas a seguir serviriam para colocar as figuras (pastas como no Explorer) em cada item, mas não está funcionando. * oImageList = TImageList():New() * oBmp1 = TBitmap():Define( , "folder.bmp", dBH ) * oBmp2 = TBitmap():Define( , "fldMask.bmp", dBH ) * oImageList:Add( oBmp1, oBmp2 ) Nivel=0 NivelAnt=0 TREE oMenuTree FOR I:= nIni TO MlCount(memoread("PASTAS.TXT"), 254) linha := Trim(memoline(memoread("PASTAS.TXT"), 254, i, Nil, .F.)) IF !EMPTY(Linha) Nivel=OCORRENCIAS("\",Linha) Linha=SUBS(Linha,RAT("\",Linha)+1) DO CASE CASE Nivel > NivelAnt ; TREE CASE Nivel < NivelAnt ; ENDTREE ENDCASE TREEITEM TRIM(Linha) NivelAnt=Nivel ENDIF NEXT I DO WHILE NIVEL>0 ENDTREE NIVEL-- ENDDO REDEFINE LISTBOX oLbx FIELDS "" ID 100 OF dBH UPDATE oLbx:SetTree( oMenuTree ) // TWbrowse:Cargo receive Items oLbx:aHeaders := {"ESPLORER"} oLbx:ofont := ofCour11 oLbx:bLDblClicked = {|| If( oLbx:Cargo:oTree != nil, ; ( oLbx:Cargo:Toggle(),oLbx:Refresh() ),TESTE() )} * oLbx:bLClicked = {|| If( oLbx:Cargo:oTree != nil, ; * ( oLbx:Cargo:Toggle(),oLbx:Refresh() ),.T. )} oLbx:bKeyChar = { | nKey | If( nKey == 13 .and. oLbx:Cargo:oTree != nil,; ( oLbx:Cargo:Toggle(),oLbx:Refresh() ),TESTE() )} dBH:SetControl( oLbx ) *A linha a seguir serviria para colocar as figuras (pastas como no Explorer) em cada item, mas não está funcionando. *oMenuTree:SetImageList( oImageList ) oLbx:Cargo:Toggle();oLbx:Refresh() // para abrir a TREE já ao iniciar REDEFINE BUTTON oBSair ID 990 ACTION dBH:end() oBSair:ctooltip:="Fechar esta janela" oMenutree:openAll() // abrir a lista ao iniciar ACTIVATE DIALOG dBH ENDSEQUENCE SET RESOURCES TO RELEASE CONTAS * oBmp1:END() * oBmp2:END() * oImageList:END() ofCOUR11:END() ofont:END() RETURN .T. FUNCTION TESTE() BEGIN SEQUENCE ? "Identificar aqui o item acionado." // não consegui fazê-lo ENDSEQUENCE RETURN .T. FUNCTION OCORRENCIAS(TXT_MENOR,TXT_MAIOR) // Retorna o nº de ocorrencias de TXT_MENOR em TXT_MAIOR LOCAL I, J:=0 FOR I=1 TO LEN(TXT_MAIOR) IF SUBS(TXT_MAIOR,I,LEN(TXT_MENOR))=TXT_MENOR J++ ENDIF NEXT I RETURN J Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 2.1 - WS 4.5

Ico, Conforme disse o Wilson, o problema acontece após um travamento do programa. Travou, utiliza-se ctrl+alt+del para encerra-lo definitivamente. Em seguida, entra-se novamente no programa e sai, para fechar todos as dialogs e recursos, e tentar gravar as evetuais alterações feitas no WS. Só que, a partir daí, o WS não deixa mais gravar. Só reinicinado a máquina. []´s Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 2.1 - WS 4.5

Eu também convivo com este problema há tempos, e não consigo resolver de outra forma (sem resetar a máquina). Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 2.1 - WS 4.5

Kapiaba, Informei sobre o site, mas na verdade nem cheguei a fazer dowload de qualquer ícone. Por isto não vi a extensão ".BIN". Não sei como abri-la, e, naturalmente seria bom que alguém orientasse. No entanto, quando não consigo abrir, utilizo o "Print Scrin" e colo no Paint Brush. []´s Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 2.1 - WS 4.5 Editado por - orlandof on 18/10/2005 06:59:24

Ok Wagner, Utilizo o Paint Brush quando quero escolher uma cor, mas uma tabela como a do Cristiano serve como uma "referência rápida". Obrigado. Orlando F M Costa - Belo Horizonte - MG Clipper 5.2e - FW 2.1 - WS 4.5

Obrigado Senhores - resolvido. É ótima a tabela do Cristiano. Orlando Belo Horizonte - MG Clipper 5.2e - FW 2.1 - WS 4.5

Encontrei por acaso este site com alguns ícones, e não sei se já foi postado aqui: http://www.iconfactory.com/pp_listing.asp?category=CB []´s Orlando Clipper 5.2e - FW 2.1 - WS 4.5

Encontrei por acaso este site com alguns ícones, e não sei se já foi postado aqui: http://www.iconfactory.com/pp_listing.asp?category=CB []´s Orlando Clipper 5.2e - FW 2.1 - WS 4.5

Encontrei por acaso este site com alguns ícones, e não sei se já foi postado aqui: http://www.iconfactory.com/pp_listing.asp?category=CB []´s Orlando Clipper 5.2e - FW 2.1 - WS 4.5