edmar1361303188

Caro Gilmer, vc tem razão tLabel não é uma classe. Mas eu achei muito fácil fazer etiquetas usando este objeto, o programa ilabels.prg(Samples\Labels\Ilabel) mostra um exemplo de como imprimir etiquetas, mas ainda não sei como resolver o problema das margens.

Olá, Como configurar as margens superior e lateral de etiqueta com a classe TLabel ? ela permite apenas definir o tamanho da etiqueta e os separadores. Ex: Label oLabel SIZE 89, 23 SEPARATORS 2, 2 ON LINE 2 PREVIEW

Olá, Desenvolvi um programa para emissão de etiquetas, no meu computador funciona corretamente, mas quando instalo em outro computador dá a seguinte mensagem de erro: Error FiveWin/3 Cannot Create Dialog Box. Onde pode estar o problema ? Eis o meu LNK; BLINKER CLIPPER SYMBOL OFF PACKCODE PACKDATA DEFBEGIN name MeuNome exetype Windows 3.1 code moveable discardable preload data preload moveable stacksize 17500 heapsize 4096 segment 'PLANKTON_TEXT' nondiscardable segment 'EXTEND_TEXT' nondiscardable segment 'OM_TEXT' nondiscardable segment 'OSMEM_TEXT' nondiscardable segment 'SORTOF_TEXT' nondiscardable segment 'STACK_TEXT' nondiscardable DEFEND NOBELL file etiqueta,pdlabel,label,litem sear Five, FiveC, Objects sear WinApi, Clipper, Extend, DbfNtx, Terminal

Olá, Como faço para incluir ítens em um combobox depois de criado ? E para pesquisar em um ComboBox ? E para extrair texto ? var:=cbx1.cText ? Desde já obrigado.

Caro Gilmer, Obrigado pela dica do programa de pesquisa TSearch, é exatamte o que quero, só que este programa é uma versão Shareware de avaliação, eu não tenho os fontes para alteração. Será que não tem jeito mesmo usando o método bKeyDown ? No Delphi é assim.

Caro Gilmer, Me ajude por favor, estou tentando fazer uma pesquisa usando o método bKeyDown, enquanto o usuário digita eu pesquiso a tabela e atualizo o browse. O problema é que não estou conseguindo ver o valor da variável Get, observe o código abaixo: *---------------------- Static Function SeleCli *----------------------------------------------------------- Private oJanselcli,mcli,ListCli1,ListCli2,uVal If !File("CliTmp.Dbf") Copy Structure To CliTmp Endif Set order to 2 Use CliTmp New Use cadcli new Index Cadclin2 Alias CliTmp2 Index On Nome To CliTmp Define Dialog oJanselcli Resource "SeleCli" Redefine ListBox ListCli1 Fields Trans(CliTmp2->Codigo,"99999"),CliTmp2->Nome,; CliTmp2->Endereco Alias "CliTmp2" Headers "Código","Nome","Endereço" ID 102 of oJanselcli Redefine ListBox ListCli2 Fields Trans(Clitmp->Codigo,"99999"),Clitmp->Nome,; Clitmp->Endereco Alias "CliTmp" Headers "Código","Nome","Endereço" ID 103 of oJanselcli Redefine Get mcli Var uVal ID 101 of oJanselcli Picture "@!" Redefine Button ID 104 of oJanselcli Action SelCli2() Redefine Button ID 105 of oJanselcli Action oJanselcli:End() ListCli2:BlDblClick:={|| SelCli2()} mcli:bKeyDown:={|nKey| PesqCli2(nKey)} <== AQUI BKEYDOWN Activate Dialog oJanselcli Centered Select CliTmp Return( Nil ) *----------------------------- Static Function PesqCli2(nKey) *----------------------------------------------------------------------------- CliTmp2->(DBSeek(tGet():cText))<== AQUI NÃO ESTà FUNCIONANDO ListCli1:Refresh() Return( .T. ) Se eu substituir tGet():cText por uval ou mcli também não funciona. O que fazer ? Desde já agradeço.

Olá, O modo correto para usar o evento BkeyDown com um Get é como o exemplo abaixo ? Local var,ojan Define Dialog ojan Resource "myDialog" Redefine Get var ID 101 of myDialog var:BkeyDown:={|| Pesquisa()} Activate Dialog myDialog Centered Não está funcionando em meu programa.

Olá, Depois que comecei usar a classe TLabel em meus programas o BLINKER está dando a seguinte mensagem na hora de Linkeditar o programa: («») («») BLINKER DOS Extender and Windows Linker 4.10 ___ Blink and you'll miss it !! Copyright © Assembler Software Manufacturers, Inc. 1990-96 All Rights Reserved. Serial # BR-055704. Fax (804) 747-4200. BLINKER : 1115 : CAD.OBJ(CAD) : 'LBLBEGIN' : unresolved external BLINKER : 1115 : CAD.OBJ(CAD) : 'LBLADDITEM' : unresolved external BLINKER : 1115 : CAD.OBJ(CAD) : 'LBLEND' : unresolved external BLINKER : 0 Warning error(s), 3 Fatal error(s) Onde está o problema ? Desde já, agradeço.

Olá, A sintaxe para a alteração de fontes na impressora não é como no exemplo a seguir. Define Font oFont Name "Ms Sans Serif" SIZE 0,8 Of oPrn Já tentei vários tipos de fontes e simplesmente não acontece nada, ele continua insistindo em imprimir o mesmo de tipo de letra. Minha impressora é uma Epson LX 300, o Preview de meu relatório também fica louco quando uso o zoom, em página normal exibe corretamente. Onde pode estar o problema, abaixo está um pouco do meu código. Print oPrn Name "Clientes" Preview CursorWait() plin:=oPrn:nVertRes() / 65 pcol:=oPrn:nHorzRes() / 80 oPrn:SetPage(1) linpag:=(oPrn:nVertRes()) colpag:=oPrn:nHorzRes() If norm=2 Define Font oFont Name "Ms Sans Serif" SIZE 0,8 Of oPrn Endif dbgotop() while !eof() if (ocinat.and.inativo="S") dbskip() loop endif lin:=col:=1 Page cabec("Relação de clientes") if norm=2 if ordem=1 oPrn:Say(lin,1,"NOME CODIGO ENDERECO BAIRRO TELEFONE") plin() oPrn:Say(lin,1,"COMPLEMENTO C.N.P.J/C.P.F INSC.EST. CEP CONTATO") else oPrn:Say(lin,1,"NOME CODIGO ENDERECO BAIRRO CIDADE ESTADO") plin() oPrn:Say(lin,1,"COMPLEMENTO C.N.P.J/C.P.F INSC.EST. CEP CONTATO VENDEDOR TELEFONE") endif plin() oPrn:Say(lin,0,replicate("_",oPrn:nHorzres())) endif ...continua

Olá, Como fazer para a impressora não ejetar o papel ao terminar a impressão ? Obrigado!

Olá Gilmer, me envie a classe por favor, meu e-mail é: comercial@chumbos_lobo.com.br obrigado.

Olá Gilmer, Como usar máscara na impressão em FW como no clipper ? ex: Get mcnpj picture "@R 99.999.999/9999-99" vc disse que criou uma classe em FW para deixar 99% compativel com Clipper, qual classe ? Obrigado!

Olá pessoal, Como ficaria o seguinte código em FiveWin ? USE CLIENTES SET DEVICE TO PRINT SETPOS(0,0) WHILE !EOF() @PROW()+1,1 SAY NOME DBSKIP() ENDDO EJECT SET DEVICE TO SCREEN RETURN( NIL ) Obrigado!

Olá, como vc me pediu, estou enviando um pouco mais do meu código: *---------------------- Static Function PesqCli *---------------------------------------------------------- Private oDlgPesqcl Define Dialog oDlgPesqcl Resource "PesqCli" Redefine Button ID 101 of oDlgPesqcl Action PesqC(1) Redefine Button ID 102 of oDlgPesqcl Action PesqC(2) Redefine Button ID 103 of oDlgPesqcl Action PesqC(3) Redefine Button ID 104 of oDlgPesqcl Action PesqC(4) Redefine Button ID 105 of oDlgPesqcl Action PesqC(5) Redefine Button ID 106 of oDlgPesqcl Action PesqC(6) Activate Dialog oDlgPesqcl Centered Return(Nil) *------------------------- Static Function PesqC(arg) *---------------------------------------------------------- Private oDlgPesqc,mcod:=0,mnome:=space(len(nome)),mcomp:=space(len(complem)),; mcid:=space(len(cidade)),mcnpj:=space(len(cgc)),mcont:=space(len(contato)) oDlgPesqcl:End() Define Dialog oDlgPesqc Resource "EntraDadCli" Redefine Button ID 101 of oDlgPesqc Action AchaCli() Redefine Button ID 102 of oDlgPesqc Action oDlgPesqc:End() Do Case Case arg=1 Redefine Get mcod ID 103 of oDlgPesqc Picture "99999" Valid mcod>0 Case arg=2 Redefine Get mnome ID 104 of oDlgPesqc Picture "@!" Valid !empty(mnome) Case arg=3 Redefine Get mcomp ID 105 of oDlgPesqc Picture "@!" Valid !empty(mcomp) Case arg=4 Redefine Get mcid ID 106 of oDlgPesqc Picture "@!" Valid !empty(mcid) Case arg=5 Redefine Get mcnpj ID 107 of oDlgPesqc Picture "@R 99.999.999/9999-99" Valid !empty(mcnpj) Case arg=6 Redefine Get mcont ID 108 of oDlgPesqc Picture "@!" Valid !empty(mcont) Otherwise EndCase Activate Dialog oDlgPesqc Centered Return(Nil)

Olá, como faço para colocar o foco em uma determinada variável get ? ex: Do Case Case arg=1 Redefine Get mcod ID 103 of oDlgPesqc Picture "99999" Valid mcod>0 Case arg=2 Redefine Get mnome ID 104 of oDlgPesqc Picture "@!" Valid !empty(mnome) quero colocar o foco na variável mnome. Obrigado!

Olá, Como fazer para um controle do FiveWin responder a uma ação(evento)como um componente do Delphi ? Ex: Estou exibindo uma lista de clientes através do controle TBrowse, quero que responda quando eu der um clique duplo ou Enter em cima de um cliente. Obrigado.

Olá pessoal, estou precisando de um editor de programas em windows, alguém poderia me indicar algum e onde posso conseguir. O bloco de notas é muito fraco! Obrigado.

Olá pessoal, estou precisando de um editor de programas em windows, alguém poderia me indicar algum e onde posso conseguir. O bloco de notas é muito fraco! Obrigado.

Olá, Gilmer, eu não estou desativando a DLL. Olha só! Set Resources to "Gerente.dll" // Ativando * If !Senha(0) //Pulou para a função senha Quit Endif Set Resources To // Depois eu desativo, pois não preciso mais Editado por - edmar on 24/05/2002 13:49:23

Aqui está meu código inicial, se for necessário envio todo o código, a DLL, e o .LNK. #include "FiveWin.ch" Static oJanela,oFundo,Ok:=.F. Function Main() Local hBorland Set 3dLook On SetHandleCount(100) hBorland:=LoadLibrary("Bwcc.Dll") * Set Resources to "Gerente.dll" * If !Senha(0) Quit Endif Set Resources To Define Brush oFundo Style BORLAND Define Window oJanela From 0,0 to 30,80 Title "VISUAL GERENTE" Brush oFundo Activate Window oJanela Maximized FreeLibrary(hBorland) return(nil) *------------------ Function Senha(arg) *----------------------------------------------------------- Define Dialog Senha Resource "SenhaIni" Use Senhas mNome:=space(len(Nome)) mSenha:=space(len(Senha)) Redefine Get mNome ID 101 of Senha Picture "@!" Redefine Get mSenha ID 102 of Senha Redefine Button ID 103 of Senha Action TestaSen(mNome,mSenha) Redefine Button ID 204 of Senha Action Senha:End Activate Dialog Senha Centered Use Return (Ok) citação:Obrigado pela dica Gilmer, mas não deu certo, continua dando a mesma mensagem. citação:Estou começando a utilizar o FiveWin e já me deparei com um problema, criei uma DLL utilizando o Resource WorkShop contendo uma caixa de diálogo, quando tento ativar este diálogo em meu programa dá a seguinte mensagem: Error FiveWin/3 Cannot Create Dialog Box. Não consigo ver onde está o problema. Obs: Para chamar a DLL: Set Resources do "gerente.dll" Para criar/executar o diálogo: Define Dialog Senha Resource "SenhaIni" Activate Dialog Senha Centered Desde já agradeço. id=quote>id=quote> id=quote>id=quote>Editado por - edmar on 23/05/2002 16:28:23

citação:Obrigado pela dica Gilmer, mas não deu certo, continua dando a mesma mensagem. citação:Estou começando a utilizar o FiveWin e já me deparei com um problema, criei uma DLL utilizando o Resource WorkShop contendo uma caixa de diálogo, quando tento ativar este diálogo em meu programa dá a seguinte mensagem: Error FiveWin/3 Cannot Create Dialog Box. Não consigo ver onde está o problema. Obs: Para chamar a DLL: Set Resources do "gerente.dll" Para criar/executar o diálogo: Define Dialog Senha Resource "SenhaIni" Activate Dialog Senha Centered Desde já agradeço. id=quote>id=quote> id=quote>id=quote>Editado por - edmar on 23/05/2002 16:28:23

Estou começando a utilizar o FiveWin e já me deparei com um problema, criei uma DLL utilizando o Resource WorkShop contendo uma caixa de diálogo, quando tento ativar este diálogo em meu programa dá a seguinte mensagem: Error FiveWin/3 Cannot Create Dialog Box. Não consigo ver onde está o problema. Obs: Para chamar a DLL: Set Resources do "gerente.dll" Para criar/executar o diálogo: Define Dialog Senha Resource "SenhaIni" Activate Dialog Senha Centered Desde já agradeço.