gibaf

nem o RIBBONBAR funciona em DIALOG ?

OLA a todos ! nunca usei a classe TExplorerBar e agora estou precisando... mas, numa DIALOG, mas da erro.. se mudar para WINDOWS ate funciona (mas precisava na DIALOG) alguma dica de quem ja usa ? desde ja agradeco !

estava pensando aqui... se, abrir 3 vezes (no caso) a tabela, conforme abaixo: cQuery1 := "select * from CLIENTES order by CODIGO" dbUseArea( .T. , "SQLRDD" , cQuery1 , "CLI_1" , .T. , .F. , , ) cQuery2 := "select * from CLIENTES order by NOME" dbUseArea( .T. , "SQLRDD" , cQuery2 , "CLI_2" , .T. , .F. , , ) cQuery3 := "select * from CLIENTES order by CPF" dbUseArea( .T. , "SQLRDD" , cQuery3 , "CLI_3" , .T. , .F. , , ) dai, as opces de ordens colocar num combobox, dai, ao selecionar a opcao do combobox fazer mudar o alias do browse, tipo, oBrw:cAlias := "CLI_"+Str(nCbox) claro, ao criar o browse o default ser o primeiro alias (ou a definir por parametro) o q vcs me dizem ?

o tempo todo estava dizendo q eh no W (WABIO) browse..hehe Ja tinha testado no X (XIS) browse, no C (ce) browse e esses nao dao o q da no Xbrowse.. mas por uma necessidade (um recurso q so tem no Wbrowse) queria resolver isso

conforme o manual, esta aqui Source code: SOURCE\WINAPI\DC.C e eis a funcao: #ifdef __HARBOUR__ HB_FUNC( FWDISPBEGIN ) // ( hWnd, hDC ) --> aInfo #else HB_FUNC( FWDISPBEGI ) // ( hWnd, hDC ) -->aInfo #endif { HWND hWnd = ( HWND ) hb_parnl( 1 ); HDC hDC = ( HDC ) hb_parnl( 2 ); HDC hDC2; HBITMAP hBmp, hBmpOld; RECT rct; GetClientRect( hWnd, &rct ); hDC2 = CreateCompatibleDC( hDC ); hBmp = CreateCompatibleBitmap( hDC, rct.right - rct.left, rct.bottom - rct.top ); hBmpOld = ( HBITMAP ) SelectObject( hDC2, hBmp ); // we comment it out to improve painting speed // BitBlt( hDC2, 0, 0, rct.right, rct.bottom, hDC, 0, 0, SRCCOPY ); #ifdef __XPP__ #define hb_stornl( x, y, z ) STORNL( x, params, y, z ) #endif hb_reta( 5 ); hb_storvnl( ( LONG ) hWnd , -1, 1 ); hb_storvnl( ( LONG ) hDC , -1, 2 ); hb_storvnl( ( LONG ) hDC2 , -1, 3 ); hb_storvnl( ( LONG ) hBmp , -1, 4 ); hb_storvnl( ( LONG ) hBmpOld, -1, 5 ); } mas, como disse, nao manjo em prg na raiz da classe, nao sei ai o q pode ser...

pelo q entendi, nao eh dbf (ou a tabela em si)... eu nao manjo de fonte das classes, mas o problema eh ali nessa funcao FWDispBegin da classe wbrowse... METHOD DispBegin( lCreateDC ) CLASS TWBrowse local hDC, aInfo, hOldDC:= ::hDC DEFAULT lCreateDC:= .F. if lCreateDC hDC:= GetDC( ::hWnd ) else hDC:= ::hDC endif aInfo:= FWDispBegin( ::hWnd, hDC ) ::hDC:= aInfo[3] // hDC de Memoria !!! return { aInfo, if(lCreateDC, hDC, nil ), hOldDC } o q sera q esse comando faz ? ate li no manual sobre essa funcao, mas eh entedi foi eh molufas ! FWDispBegin() Previous Top Next Part of the double buffer painting technique. Creates a memory DC as a temporary replacement for the actual DC of the window on which the painting takes place. Syntax: FWDispBegin( <hWnd>, <hDC> ) --> aInfo Parameters: <hWnd> The handle of the painting window. <hDC> The actual DC of the window . Returns: <aInfo> An array of informations required by FWDispEnd(). Sample : Source code: SOURCE\WINAPI\DC.C

pior q fiz num dbf e acontecendo o mesmo..

humm... um detalhe, nao sei se importante, pois tambem ja estava funcionando a tempo, parece q foi dado um "click"... parece q uma chave foi ligada q comecou dar isso.. por isso q fico bolado (isso nao acontecia a anos q estou usando o wbrowse, e agora, do nada, acontece). o detalhe eh q a tabela eh no banco postgress e abro ela (e uso tudo normalmente, no no browse q acontece isso), com o comandoÇ dbUseArea( .T. , "SQLRDD" , "SELECT * FROM cliente" , "CLI" , .F. , .T. , , nConexao ) eh froid... mas, tudo a de retornar como era antes... espero !

eh feito via programacao mesmo, basico, somente com dados minimos ja , pra tentar descobrir o problema, e ainda assim da o problema oBrw:= TWBrowse():New(40,60 , 300 , 300 , ; {|| COD, NOME} , ; {"Codigo","Nome"} , ; {80,200} , oDlg,,,,,,, ; oFont ,,CLR_BLACK,CLR_WHITE,,.F.,cAlias,.T.,,.F.,,,) mesmo erro se a sintaxe for pelo arquivo.rc

ola a todos imaginem essa query: select CODIGO, NOME, CPF from CLIENTES order by NOME o resultado dessa query foi apresentado no BROWSE (ordem do nome, conforme a query) agora imagina q tem a necessidade de se mudar para a ordem do CPF.. eis a questao: tem como fazer sem ter q fazer uma nova executa de uma nova query (agora pela ordem do CPF) ? ja q os dados ja estao apresentado e ter q, somente, alterar a sequencia (no caso, agora por CPF). se a query nao possibilita fazer isso, as VIEWs, permitem ? se sim, como faz ? obrigado !!!

pior q nao tirei tudo, ja deixando so o basicao, pra tentar descobrir o problema, mas mesmo assim ocorre

andei olhando a classe e achei mais ou menos onde eh o problema: METHOD DispBegin( lCreateDC ) CLASS TWBrowse local hDC, aInfo, hOldDC:= ::hDC DEFAULT lCreateDC:= .F. if lCreateDC hDC:= GetDC( ::hWnd ) else hDC:= ::hDC endif aInfo:= FWDispBegin( ::hWnd, hDC ) ::hDC:= aInfo[3] // hDC de Memoria !!! return { aInfo, if(lCreateDC, hDC, nil ), hOldDC } se eu comentar essas duas linhas o problema relatado no inicio do topico resolve, porem, a rolagem pra cima e para baixo, nao faz certo, mas a tela preta para alguem pra dar uma pista para resolver ?

para explicar melhor: sem navegar para baixou/cima fica ok, ou se navegar para direita/esquerda tambem fica ok agora, se navegar pra cima/baixo, fica tudo preto, assim: mesmo assim, se navegar novamente para direita/esquerda, volta a ficar normal como na primeira tela q doidera ! hehe e agora ?

ola a todos tem um wBrowse tudo certinho, com as cores definidas tudo certo se eu rolar para direta/esquerda (ou pela seta do teclado ou clicando na barra de rolagem do brw) permanece tudo ok agora, se eu rolar pra baixo/cima (ou pela setas do teclado ou mesmo clicando na barra de rolagem do brw) o browse fica preto, permanecendo certo somente a linha do brw posicionada... se rolar pra direita/esquerda, volta ao normal... mas se voltar a rolar pra cima/baixo fica preto novamente detalhe: ja tirei tudo onde faz cores no xbrowse e continua fazendo como escrito acima e agora ?

ola a todos estou compilando um programa e esta dando esse erro, creio de algum recurso exterior, tipo, alguma .lib xLINK: error: Unresolved external symbol '??2@YAPAXI@Z referenced from Fivehcm.lib(ACTX.obj)'. xLINK: error: Unresolved external symbol '??3@YAXPAX@Z referenced from Fivehcm.lib(ACTX.obj)'. alguem saberia dar a dica para solucionar esse problema ? desde ja agradeco ! att

ola a todos uma coisa simples (uso muito isso) mas esta tomando um tempo, pois nessa rotina em especifico, nao esta funcionado vejam.... o que esta errado nesse codigo ? If File("arquivo.Ini") oIni := TIni():New( "arquivo.Ini" ) cNome := oIni:Get( "LOCAL" , "Computador" , , ) cUnidade := oIni:Get( "LOCAL" , "Unidade" , , ) oIni := Nil Endif o conteudo do arquivo INI eh esse: [LOCAL] Computador=DESKTOP Unidade=D: mas o GET nao esta trazendo o conteudo do arquivo ini, vindo vazio e quando veio (uma vez), trouxe a unidade sem os dois pontos, somente a letra e agora ? Desde ja agradeco a todos: MUITO OBRIGADO

eu vejo alguns sistemas com o menu na lateral a esquerda, nao sei se eh com tree (dai tambem nao sei como faz pra pegar a achao da chamada da funcao)

ola a todos ! gostaria poder ter opcoes de menus, e gostaria saber como vcs fazem o menu (para as opcoes) do sistema de vcs ? queria ver se fazia um menu mais "sofisticado", saindo do tradicional MENU. se puderem postar imagens tambem... desde ja fico muito agradecido: MUITO OBRIGADO !!! att Gilberto

OrdScope ! eeeee. veiera !

bah tche ! me deu um branco agora estou querendo utilizar o comando para o filtro, mas nao estou me recordando (deu branco)... sao 2 comandos, 1 pra dizer a chave inicial e o outro para a chave final alguem poderia ajudar, por favor ? att Gilberto

aqui na Brasil (Marcelo Lombardo) desistiram, ne ?

Ola alguem ja esta utilizando o Python ? que ja esteja utlizando pra web, tipo, Django, Web Flash, Docker e tal ? att

obrigado !! eu so nao sei porque, mas ele executa 2 x

bom dia a todos !!! desde já agradeço a ajuda de todos: MUITO OBRIGADO !!! att Giba

Ola a todos ! Alguem ja usa o WEBDEV de fato ? Estou a alguns dias vendo sobre essa linguagem de programacao, estavamos tentendo bem em adquirirmos, mas nas conversas finais com o representante aqui do Brasil (o cara eh de Curitiba) cheguei a conclusao que o WEBDEV nao eh pra empresas pequenas de desenvolvimento de sofwares, como o cara mesmo me falow, q os clientes deles (WEBDEV) eh nada mais nada memos que Vivo, Unimed e América net, custo estimada de um milhao por ano.. sendo assim, impossivel de nos podermos usarmos... Outra coisa q tentei eh poder avaliar a linguagem, mas nao tem isso.. tipo, tem q comprar, se vc ver q nao podera (por motivos q forem) ja teve um dispendio, que nao eh pouco... o webdev nos dias de hoje custa mais de R$ 8 mil reais.. mas esse nao eh o unico custo q se tem, tem um valor mensar q tem q ser pago tambem, alem de instalar um hardlook no meu note q fica fazendo leituras do meu computador.. achei muito "amarrado", preso a valor e a ferramenta, tipo, comparado com outra linguagem, tipo delphi ou mesmo (x)Harbour com Fivewin.. A teoria eh q se ganha tempo na escrita do codigo fonte, mas tambem pode, no meu ponto de vista, esse argumento, encarecer pra carai a utilizacao desse produto... Por isso, gostaria saber de quem ja usa o webdev de verdade, qual eh esta sendo a sua experiencia, principalmente, relacionado a esses custos (porque, relacionado aos recursos que a ferramente tem, eh praticamente desnecessario conversamos aqui sobre isso) ? desde ja agradeco a todos: MUITO OBRIGADO !!! Gilberto