ZECA

Eu preciso de uma programa que ao passar o cursor em cima da cor ele me forneça a cor em RGB e principalmente em DECIMAL, por exemplo: RGB(255,0,42) -> DECIMAL 2752767 Desculpem, estava todo enrolado. Eu vi este pequeno programa, não sei onde Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Olá pessoal, Eu peguei este exemplo em algum lugar e adaptei para as minhas necessidades aqui. Veja se server para vocês: #include "fivewin.ch" static oWnd static nZoom := 2 static oColor function main() local oTimer DEFINE WINDOW oWnd TITLE "Prueba de ventana" MENU mimenu() DEFINE TIMER oTimer OF oWnd ; INTERVAL 70 ACTION GetColor() oTimer:Activate() ACTIVATE WINDOW oWnd oTimer:DeActivate() return nil function mimenu() local oMenu MENU oMenu MENUITEM "Zoom" MENU MENUITEM "1" ACTION ( nZoom := 1 ) MENUITEM "2" ACTION ( nZoom := 2 ) MENUITEM "3" ACTION ( nZoom := 3 ) MENUITEM "4" ACTION ( nZoom := 4 ) MENUITEM "5" ACTION ( nZoom := 5 ) ENDMENU ENDMENU return oMenu function GetColor() local hDeskTop := GetDC(0) local a := GetCursorPos() local nColor := GetPixel( hDeskTop, a[2], a[1] ) local hDC := oWnd:GetDC() local hPen := CreatePen( PS_SOLID,1,CLR_HRED ) local hOldPen local nTop, nLeft local nWidth, nHeight nTop := 10 nLeft := 100 nWidth := 300 nHeight := 200 SetBkColor( hDC, nColor ) TextOut( hDC, 10, 10, " " ) TextOut( hDC, 25, 10, " " ) TextOut( hDC, 40, 10, " " ) TextOut( hDC, 60, 10, " " + corTOrgb( nColor ) + " " ) Moveto( hDC, nLeft-1, nTop-1) Lineto( hDC, nLeft + nWidth+1, nTop-1 ) Lineto( hDC, nLeft + nWidth+1, nTop+nHeight+1 ) Lineto( hDC, nLeft -1, nTop+nHeight+1 ) Lineto( hDC, nLeft-1, nTop-1) StretchBlt( hDC, nLeft, nTop, nWidth, nHeight, hDeskTop, a[2]-(nWidth/(nZoom*2)), a[1]-(nHeight/(2*nZoom)), nWidth/nZoom, nHeight/nZoom, 13369376 ) hOldPen := SelectObject( hDC, hPen ) Moveto( hDC, nLeft+nWidth/2+1, nTop-1 ) Lineto( hDC, nLeft+nWidth/2+1, nTop+nHeight+1 ) Moveto( hDC, nLeft+1, nTop+nHeight/2+1 ) Lineto( hDC, nLeft+nWidth+1, nTop+nHeight/2+1 ) SelectObject( hDC, hOldPen ) DeleteObject( hPen ) oWnd:ReleaseDC() ReleaseDC( 0, hDeskTop ) return nil ***************** function corTOrgb( Cor1 ) ***************** local Cor2, Cor3 Cor3 := int(Cor1 / 65536) Cor2 := int( ( Cor1 - ( Cor3 * 65536 ) ) / 256 ) Cor1 := Cor1 - ( Cor3 * 65536 ) - ( Cor2 * 256 ) return strzero(Cor1,3) + "," + strzero(Cor2,3) + "," + strzero(Cor3,3) #pragma BEGINDUMP #include "windows.h" #include "hbapi.h" HB_FUNC( STRETCHBLT ) { hb_retl( StretchBlt( (HDC) hb_parnl( 1 ) , hb_parni( 2 ) , hb_parni( 3 ) , hb_parni( 4 ) , hb_parni( 5 ) , (HDC) hb_parnl( 6 ) , hb_parni( 7 ) , hb_parni( 8 ) , hb_parni( 9 ) , hb_parni( 10 ) , (DWORD) hb_parnl( 11 ) ) ) ; } #pragma ENDDUMP id=code>id=code>Rossine FW 2.2c + @say + Clipper 5.2e + libs 5.3b / FWH 8.09 + @say + xHarbour Divinópolis/ MG id=quote>id=quote>Bom dia Rossine !!! Achei muito legal esta rotina e coloquei no meu arquivo para uso futuro mas o que estou querendo é semelhante a este programa porém que retorne a cor não em RGB(XXX,XXX,XXX) mas sim em numero inteiro como por exemplo: 8388608 (acho que este numero corresponde a uma variação do azul, por exemplo) 16733011 tem como fazer isto. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Não lembro onde vi, mas existe um programa que vc passa o cursor em cima da cor e retorna o numero correspondente a aquela cor. Onde posso conseguir este programa e como ele chama ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Não lembro onde vi, mas existe um programa que vc passa o cursor em cima da cor e retorna o numero correspondente a aquela cor. Onde posso conseguir este programa e como ele chama ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Bom Dia.. Pessoal to com um probleminha, meu chefe quer que eu demonstre dois digitos em dias num relatorio, tipo assim o cara trabalhou só 5 dias e se eu faço assim TotDias=Transform(TdIAS,"99") = 5 FIELD->HISTORICO :="Salario ("+TotDias+")" Teria que ficar assim Salario (05) id=code>id=code>queria uma função que re retorne = 05 e não 5 tem jeito ?? Obrigado.. Luiz Arruda - Corumba(MS) FiveWin 9.04 [x]Harbour xDev WS -- Não existe nada de completamente errado no mundo mesmo um relógio parado consegue estar certo duas vezes por dia. - Não Abandone Seu Tópicoid=red> id=quote>id=quote>Bom dia !!! Vou te passar a "familia" do STR que é usado em CLIPPER STR(numero1,numero2,numero3) retorna a string de numero1, numero2 caracteres e numero3 casas decimais. STRTRAN(caracter1,caracter2,caracter3,numero1,numero2) Pesquisa e substitui um texto dentro de uma string caracter1 - string onde ocorrerá a pesquisa caracter2 - texto a ser localizado caracter3 - texto que substituirá o texto localizado Numero 1 - primeira ocorrencia a ser substituida(default=1) Numero 2 - Numero de ocorrencias a serem substituidas(default=todas) STRZERO(numero1,numero2,numero3) retorna string do numero1 com numero2 caracteres substituindo os brancos a direita por zeros. As Funções que te passei são em CLIPPER, mas parece que vi algo semelhante em xharbour; vou pesquisar e se achar posto aqui Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

O que falta neste exemplo para que o mesmo funcione ? #include "FiveWin.ch" FUNCTION MAIN() local odlg local otabs DEFINE DIALOG oDlg TITLE "Selección articulos" FROM 77,178 TO 353,662 ; PIXEL //FIVEWIDI ACTIVATE DIALOG odlg ; ON INIT PlaceTabs( oDlg, oTabs ) RETURN Nil function PlaceTabs( oDlg, oTabs ) @ 119.00,1.00 TABS oTabs OF oDlg ITEMS "Orde Natural","Codigo Artigo", ; "Alfabetica" ACTION (MSGALERT("Error en TABS", "Aqui vá") ) ; PIXEL SIZE 242.00,32.00 MESSAGE "Ordem da lista" return nil erro testtab2.prg(20) Error E0030 Syntax error: "syntax error at '@'" Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

O que falta neste exemplo para que o mesmo funcione ? #include "FiveWin.ch" FUNCTION MAIN() local odlg local otabs DEFINE DIALOG oDlg TITLE "Selección articulos" FROM 77,178 TO 353,662 ; PIXEL //FIVEWIDI ACTIVATE DIALOG odlg ; ON INIT PlaceTabs( oDlg, oTabs ) RETURN Nil function PlaceTabs( oDlg, oTabs ) @ 119.00,1.00 TABS oTabs OF oDlg ITEMS "Orde Natural","Codigo Artigo", ; "Alfabetica" ACTION (MSGALERT("Error en TABS", "Aqui vá") ) ; PIXEL SIZE 242.00,32.00 MESSAGE "Ordem da lista" return nil erro testtab2.prg(20) Error E0030 Syntax error: "syntax error at '@'" Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:POR FAVOR ALGUEM PODE ME AJUDAR ESTOU APRENDENDO A COMPILAR EM 32 BITS COMO FAÇO PARA INCLUIR UMA LINHA NO BUILDX.BAT ADICIONANDO UM RC OU SEJA ESTOU PEGANDO MINHA DLL E MANDEI SALVAR COMO RC E PRECISO INCLUIR NA COMPILACAO PARA TESTAR OBRIGADO FW24 + CLIP5_2 id=quote>id=quote>Boa Tarde !!! O pessoal tá batendo duro, mas não esquenta não. Eu faço assim. Para arquivo RC rem *** recursos do sistema **** IF EXIST wintrc.rc echo %bcdir%\bin\brc32 -r -32 wintrc.rc ele vai se transformar em wintrc.res Para o arquivo RES rem *** recursos do sistema **** IF EXIST wintrtrc.res echo wintrcres.res + >> b32.bc As instruções abaixo dentro do BAT substitui os arquivos CFG. Isto é bom porque se vc muda a versão do BCC ele automaticamente mudará e estará sempre onde vc compilar sem programa echo -I"%hdir%\include;%bcdir%\include;%fwhdir%\include;" + > b32.bc echo -L"%hdir%\lib;%fwhdir%\lib;%bcdir%\lib;%bcdir%\lib\PSDK;" + >> b32.bc echo -Gn -M -m -Tpe -s + >> b32.bc Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Ola zeca Eu nao havia visto esta tua mensagem, vc sabe se estas configuracoes funcionam para LX300, LX300+ e LX300+II? valeu amigo Um Xharbraço. Uso Fwh 9.4 (xharbour 1.2.1) + xDev Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA id=quote>id=quote>Boa tarde !!! Eu uso para FX 2170 - FX 2180 - LQ 1170 - LX 300. Parece que ela serve para todas as impressoras matriciais da EPSON. Estes comandos funcionam também nas extintas EMILIA PC e EMILIA PS, aliás o manual a EMILIA PC é mais completo que os manuais da EPSON. É a CRIATURA mais completa do que a CRIADORA. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Po vag... valeu amigao... um xharbraco tche... Um Xharbraço. Uso Fwh 8.4 (xharbour 1.1) e Xmate Para Compilar Impactus Automação Comercial jef2_timber@hotmail.com (91)-3238-7012 Belem-PA id=quote>id=quote>Ola Jef2_tim !!! Eu tenho um include (CH) da Epson FX 2180 que uso em meus programas. Ei-lo: ///////////////////////////////////////////////// // EPSON.CH - Arquivo header de Comandos da EPSON FX 2180 ///////////////////////////////////////////////// // Preparar Impressora #define iniciar CHR(27)+"@" // Inicializa a Impressora // espacamento de linha #define oitavo CHR(27)+"0" // Selecionado 1/8" #define sexto CHR(27)+"2" // Seleciona 1/6" // Fontes #define roman CHR(27)+"k0" // Imprime Roman #define sansserif CHR(27)+"k1" // Imprime Sans Serif #define draft CHR(27)+"x0" // Imprime Draft // Tamanhos dos Caracteres #define normal CHR(27)+"P" // Dez Polegadas #define dez CHR(27)+"P" // Seleciona 10 CPI #define doze CHR(27)+"M" // Seleciona 12 CPI * #define condensado CHR(15) // Condensacao Simples #define dcondensado CHR(18) // Cancela Condensado #define scondensado CHR(30)+"3" // Super Condensado #define sdcondensado CHR(30)+"0" // Cancela Super Condensado #define scondensado CHR(15)+CHR(27)+"M" // Cancela Condensado #define expandir CHR(27)+CHR(14) // Expansao em uma Linha #define dexpandir CHR(20) // Desativa Expansao em uma Linha // Qualidade de Impressao //#define carta CHR(27)+"G" // Qualidade Carta //#define dcarta CHR(27)+"H" // Desativa Qualidade Carta #define carta CHR(27)+"x1" // Qualidade Carta #define enfatizado CHR(27)+"E" // Enfatizado #define denfatizado CHR(27)+"F" // Desativa Enfatizado #define expandecom CHR(15)+CHR(14) // Imprime Expandido/Condensado #define italico CHR(27)+"4" // Ativa Italico #define ditalico CHR(27)+"5" // Desativa Italico #define sublinhado CHR(27)+CHR(45)+"1" // Ativa Sublinhado #define dsublinhado CHR(27)+CHR(45)+"0" // Desativa Sublinhado // tamanho da pagina de impressao #define quarentaecinco CHR(27)+"C"+CHR(45) // Define 45 linhas #define seispolegadas CHR(27)+"C"+CHR(0)+CHR(6) // Define 6 polegadas #define quatropolegadas CHR(27)+"C"+CHR(0)+CHR(4) // Define 4 polegadas #define onzepolegadas CHR(27)+"C"+CHR(0)+CHR(11) // Define 4 polegadas // Fim de EPSON.CH Vê te serve Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde !!! Juntei todas as informações recebidas, agradeço e estou tentando fazer da seguinte forma, mas não "gira" PRIVATE lSair:=.F. . . . (Na janela do Windows) Activate Window oMainWnd Maximized ; Valid lSair . . . (nos Botoes) DEFINE SBUTTON OF oBar GROUP TEXT position 3 ; RESOURCE "QUIT" PROMPT "Sair" TOOLTIP "Sair (Alt+F4)"; FONT osButtonFont; ACTION (EndSys()) ....... (desejo encerrar o programa usando recursos(resource) ************************************************************ static function EndSys() ************************************************************ local oSair,oBtnSair,oLogo oFontSair := TFont():New("Times New Roman",0,-11,,.T.,,,,,,,,,,,,) DEFINE DIALOG oSair resource "SAIR" oSair:LHELPICON := .F. // Desliga a "?" da Caixa de Dialogo. REDEFINE BITMAP oLogo ID 54 OF oSair resource "CAVEIRA_32" ADJUST REDEFINE SBUTTON oBtnSair ID 105 resource "DELETE_32" OF oSair action (lSair:=.F.); PROMPT "Cancelar " TOOLTIP "Cancelar a Saida do Sistema" ; TEXT ON_RIGHT REDEFINE SBUTTON oBtnSair ID 106 resource "CONFIRMAR " OF oSair action (lSair:=.T.); PROMPT "Sair " TOOLTIP "Sair do Sistema"; TEXT ON_RIGHT ACTIVATE DIALOG oSair CENTERED RETURN NIL Só que não está aparecendo a tela para encerrar o programa, dá erro. Para maiores informações, existem o resource "SAIR", os botões DELETE_32 e CONFIRMAR. Quando aciono a rotina de encerramento, demora e aparece a seguinte mensagem: o WINTRC encontrou um problema e precisa se fechado. Alguém tem alguma idéia do que poder esta acontecendo ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde !!! Juntei todas as informações recebidas, agradeço e estou tentando fazer da seguinte forma, mas não "gira" PRIVATE lSair:=.F. . . . (Na janela do Windows) Activate Window oMainWnd Maximized ; Valid lSair . . . (nos Botoes) DEFINE SBUTTON OF oBar GROUP TEXT position 3 ; RESOURCE "QUIT" PROMPT "Sair" TOOLTIP "Sair (Alt+F4)"; FONT osButtonFont; ACTION (EndSys()) ....... (desejo encerrar o programa usando recursos(resource) ************************************************************ static function EndSys() ************************************************************ local oSair,oBtnSair,oLogo oFontSair := TFont():New("Times New Roman",0,-11,,.T.,,,,,,,,,,,,) DEFINE DIALOG oSair resource "SAIR" oSair:LHELPICON := .F. // Desliga a "?" da Caixa de Dialogo. REDEFINE BITMAP oLogo ID 54 OF oSair resource "CAVEIRA_32" ADJUST REDEFINE SBUTTON oBtnSair ID 105 resource "DELETE_32" OF oSair action (lSair:=.F.); PROMPT "Cancelar " TOOLTIP "Cancelar a Saida do Sistema" ; TEXT ON_RIGHT REDEFINE SBUTTON oBtnSair ID 106 resource "CONFIRMAR " OF oSair action (lSair:=.T.); PROMPT "Sair " TOOLTIP "Sair do Sistema"; TEXT ON_RIGHT ACTIVATE DIALOG oSair CENTERED RETURN NIL Só que não está aparecendo a tela para encerrar o programa, dá erro. Para maiores informações, existem o resource "SAIR", os botões DELETE_32 e CONFIRMAR. Quando aciono a rotina de encerramento, demora e aparece a seguinte mensagem: o WINTRC encontrou um problema e precisa se fechado. Alguém tem alguma idéia do que poder esta acontecendo ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:PARA DIALOGO COM RECURSOS ACTIVATE DIALOG oDlgComp CENTERED ; VALID( SAIDA( oDlgComp ) ) oFnt:End() oFont:End() RETURN NIL //-> Controlar a Saida do Dialgo com a Tecla ESCAPE STATIC FUNCTION SAIDA( oDlgComp ) PUBLIC lRetorno IF GETKEYSTATE( VK_ESCAPE ) msgstop( "Estou encerrando pela tecla ESC !!!" ) //-> Faca o que quiser... ELSE //-> X OU BOTAO - TIREI O X MsgInfo( "Encerrado de outra forma" ) //-> Faca o que quiser... ENDIF RETURN( .T. ) //-> PARA A WINDOW(JANELA ) ON INIT DO ACTIVATE WINDOW... SHOWTASKBAR() //habilita HIDETASKBAR() //desabilita TIRA_X() // DESABILITA O X da janela PISCA_EXE() // VAI PISCAR O SEU EXE NA BARRA #pragma BEGINDUMP #include "windows.h" #include "shlobj.h" #include "hbapi.h" #include "math.h" #include "hbvm.h" #include "hbstack.h" #include "hbapiitm.h" #include "hbapigt.h" HB_FUNC ( SHOWTASKBAR ) //Habilita o botao INICIAR { HWND hWnd = FindWindow("Shell_TrayWnd", ""); ShowWindow( hWnd, 1 ); } HB_FUNC ( HIDETASKBAR ) //Desabilita o botao Iniciar { HWND hWnd = FindWindow("Shell_TrayWnd", ""); ShowWindow( hWnd, 0 ); } HB_FUNC ( PISCA_EXE ) // VAI PISCAR O SEU EXE NA BARRA { HWND Handle = GetForegroundWindow(); FlashWindow(Handle,TRUE); // VAI PISCAR O SEU EXE NA BARRA Sleep(300); // TEMPO DE ESPERA } HB_FUNC ( TIRA_X ) // DESABILITA O X da janela { HMENU MenuH = GetSystemMenu(GetForegroundWindow(),FALSE); EnableMenuItem(MenuH,SC_CLOSE,MF_GRAYED); } #pragma ENDDUMP id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>Boa noite Kapiaba !!! Eu perguntei uma coisa, vc me respondeu outra que eu ia perguntar. Vou guardar este retalho de prg com muito carinho para uso futuro. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação: function main() PRIVATE lSair:=.F. . . DEFINE WINDOW oWnd.... . *****--- BARRA DE TAREFAS ---*************************************************** DEFINE BUTTONBAR oBar... . DEFINE BUTTON OF oBar RESOURCE "EXIT_PORTA_32" ; PROMPT "Sair" + CRLF + ; "F12 " ; MESSAGE "Encerra o Sistema" ; TOOLTIP "Fecha o Sistema" ; ACTION IIf( MsgYesNo( "Deseja Encerrar o Sistema ?", "Por Favor, Selecione !" ), ; ( lSair:=.T.,oWnd:End() ), ) . . . ACTIVATE WINDOW oWnd MAXIMIZED Valid lSair id=code>id=code>Na Dialog: DEFINE DIALOG oDlg RESOURCE ... . . REDEFINE BUTTONBMP oBtn[3] ; ID 703 OF oDlg ; ACTION ( lSair := .T., oDlg:End() ) ; . . ACTIVATE DIALOG oDlg CENTERED VALID lSair . . lSair:=.F. . return id=code>id=code>@braços Ale aleseribeli@hotmail.com Andradina/SP "Nois bebi pra fica ruim, se fosse pra fica bom tomava remedio." Editado por - Ale SB on 02/06/2009 17:25:40 id=quote>id=quote>BINGO ALE !!! Vc entendeu o que eu quero. Só falta me dizer como vc bloqueia a saida do programa pelo "X" do window; sei que vc sabe porque já vi em alguns executaveis seu Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:No Pelles tem como, Window Style -> System Menu = no Ao que se refere essa "Saida" de sistema? MSN: samirid=red>abreuid=black>@hotmail.com Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 id=quote>id=quote>Boa tarde !!! A saida do sistema do sistema a que me refiro é quando vc vai sair do sistema ele remete a uma DIALOG com uma imagem, dois botoes, sendo um para confirmar a saida do sistema e outro para cancelar. Vc acredita que antigamente eu sabia fazer isto, mas deu um branco. O "X" que estou me referindo é: ao criar uma JANELA(window) do lado direito tem tres icones: para minimizar, outro para expandir e o terceiro para sair da JANELA. O que quero é bloquear este terceiro para evitar que sai do sistema pelo x. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde a todos !!! 1. Vi alguns exemplos(executaveis) neste forum de menu em que a saida pela "X" da tela é bloqueado. Como pode ser feito isto ? 2. Como fazer uma SAIDA de sistema usando recursos ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde a todos !!! 1. Vi alguns exemplos(executaveis) neste forum de menu em que a saida pela "X" da tela é bloqueado. Como pode ser feito isto ? 2. Como fazer uma SAIDA de sistema usando recursos ? Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:teste Marcelo Ferro Petrópolis - Rj Fwh9.01/xHarbour 1.1.0 Simplex /SqlLib /xMate/WSe Pelles http://www.marcainformatica.com.br/marca.jpg id=quote>id=quote>Furou !!!! Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Zeca, tem como vc postar uma imagem, pra gente ter uma ideia melhor doq esta acontecendo ?! Qual versao do Pelles vc ta usando ? @braços Ale aleseribeli@hotmail.com Andradina/SP "Nois bebi pra fica ruim, se fosse pra fica bom tomava remedio." id=quote>id=quote>Bom dia !!! Estou usando a ultima versao do PELLES (6.0). Desculpe a ignorancia do macaco, mas como faço para postar a imagem ? capturar eu sei. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Isto porque voce definiu cor de fundo na criação da dialog. DEFINE DIALOG oDlg.........COLOR branco,vermelho. Para isto voce devera: DEFINE SAY ID xxx OF oDlg COLOR branco,vermelho id=quote>id=quote>Boa Noite !!! Obrigado pela tentativa, mas não é esta a solução. Para maiores esclarecimentos: Crio um DIALOG através do PELLES. Neste DIALOG tem o campo que vc vai digitar algo (chamamos de campo EDIT) e logo acima tem a denominação deste campo(chamamos de LABEL ou rotulo). Este label é fica com um rastro branco, principalmente se o espaço para o LABEL for maior que a escrita. Neste forum alguém, a pouco tempo falou sobre isto e como no momento não estava tendo este problema não me interessei pelo assunto. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde !!! Estou usando o PELLES mas quando aciono a DIALOG, nos titulos dos campos(TEXT) aparece um rastro branco. Como fazer para sumir este rastro. Ele aparece principalmente se o campo para TEXT é maior do que o que vc vai escrever. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Boa tarde !!! Estou usando o PELLES mas quando aciono a DIALOG, nos titulos dos campos(TEXT) aparece um rastro branco. Como fazer para sumir este rastro. Ele aparece principalmente se o campo para TEXT é maior do que o que vc vai escrever. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Bom dia !!! Alguém teria como me explicar como colocar barra de botão em uma Dialog. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

Bom dia !!! Alguém teria como me explicar como colocar barra de botão em uma Dialog. Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP

citação:Ainda bem que resolveu, e ainda deu a dica.. Bem, se vc. usa a xDev e fosse na pasta onde fica os OBJs, teria uma copia da sua DLL feita na ultima compilação válida com a extenção.RES, vc. abriria ela normalmente pelo PellesC ou WS, no Pelles não sei mas no WS vc. poderia salva-la novamente como DLL, só que vc. não tinha mencionado o ocorrido antes.. Abraços.. Luiz Arruda - Corumba(MS) FiveWin 9.01 / 9.02 /9.03 / 9.04 [x]Harbour xDev WS Não Abandone Seu Tópicoid=red> Editado por - ico on 22/05/2009 17:23:52 id=quote>id=quote>Ola LUIZ !!! Esqueci de mencionar que quando faz alguma modificação o RESTORATOR cria um backup daquela DLL. Se voce abrir 10 vezes a DLL, ele cria 10 backups. Quando tiver tudo certo vc pode apagar os backups mais antigo Sds José Carlos - ZECA fw23c-clipper52e-blinker 7.0 - six 3.02 - Windows XP