robinhocne

thuago, baixei aqui desse site http://sourceforge.net/projects/synedit/fi..._3.zip/download e compilei da pasta Packages o SynEdit_R7.dpk e ai compilei o SynEdit_D7.dpk e instalei, acrescentei a pasta source na biblioteca e funcionou certinho....

hum.....acho que você poderia acrescentar uma linha em branco, abaixo eu coloquei quando eu teclar enter. if key = #13 then begin RxRichEdit1.Lines.Add(''); end;

Propriedade Hint do botão.

faz um SQL unindo essas tabelas ai no DbGrid você informa na celula o nome do campo: pesquise no forum mesmo sobre SQL (Inner Join).... http://scriptbrasil.com.br/forum/index.php...st&p=587761 ou with Query1 do begin close; sql.clear; sql.add('Select * From Espera E, Paciente P, Medico M'); sql.add('where E.PacienteID = P.PacienteID and E.MedicoID = M.MedicoID'); open; end; ai na celula do DBGrid que é para aparecer o nome do Paciente digita o campo do P.Nome e do Medico M.Medico....... espero ter ajudado, pois estou sem o delphi aqui no serviço e não tenho como testar.....

o exemplo acima que lhe passei então lhe ajuda

Amigo...eu só coloco uma banda Detail e funciona certinho no meu.

coloquei no evento onShow e deu certo! Uses Unit2; procedure TForm1.FormShow(Sender: TObject); begin with TForm2.Create(Application) do begin try ShowModal; finally; free; end; end; end;

se você quer que apareça na hora de digitar coloca no evento onChange ou na hora de teclar enter pode ser no OnKeyPress do enter! Edit1.Text := IntToStr(Memo1.Lines.Count); você não citou qual componente, mas imaginei que você esteja usando um TMemo para fazer!

mas ai você tem que ver no seu SQL, pois então monta o SQL buscando qual IDPACIENTE da provavel tabela de paciente, no seu SQL trazendo o nome do Paciente é só linkar na celula do DbGrid.... qualquer passa o SQL com os campos!

Clica duas vezes no DbGrid e adiciona as colunas....em cada coluna na propriedade FieldName seleciona qual é o campo que tem q aparecer e na propriedade Title clica no (+) e no Caption informa o que você quer q apareca na coluna. espero ter ajudado......

só colocar na linha q você qer...... RxRichEdit1.Lines[0] := 'linha 0';

Boa Tarde Gustavo...... No inicio também tive essas duvidas e fiz da seguinte maneira, criei no banco de dados uma tabela que registra minhas configuraçãoes, entâo quando eu entro no sistema ela verifica se tem o registro se tiver abre o Form Principal sem problemas, eu coloquei para aparecer no OnShow, mas pode ser no OnCreate, OnActive caso fica aparecendo....deixa o FormPrincipal invisivel, depois de terminar deixa visivel.... espero ter ajudado....abraços....

no evento onchange do memo faz assim: Memo2.Lines.Add(Memo1[0]); espero ter ajudado

Você pode baixar a cópia de demonstração da EPL2_Unit.pas totalmente funcional, para fazer a sua própria avaliação do produto, em: http://www.igara.com.br/download.php?cod_area=5 http://www.igara.com.br/faq_zebra_epl2.htm abraço valeu pela ajuda Jhonas e pela paciencia.......mas analisei novamente o manual da zebra q você me passou.....e compreendi alguns campos..... a chave desse problema era na largura da etiqueta e o espaço entre as etiquetas, o que eu fiz, medi do espaço até a altura da etiqueta onde deu 1,06 cm, sendo que cada ponto na etiqueta é chamado de dots e é sempre por mm, então 1,06 cm = 16 mm, 1 mm é igual 8 dots, então 8 dots vezes 16 mm = 128 dots, o espaço entre as etiquetas deixei com 14 e a largura deixei 114 então ficou assm Q114,14 ai matei a xarada de ficar pulando etiqueta......ufa...rsrs ficou show....e concluido!

tente isso, acho q ajuda. copia, copia2 : integer; implementation {$R *.dfm} procedure TForm1.Edit1Enter(Sender: TObject); begin copia := StrToInt(StringReplace(Edit1.Text,',','',[])); end; procedure TForm1.Edit1Exit(Sender: TObject); begin copia2 := StrToInt(StringReplace(Edit1.Text,',','',[])); Edit1.Text := IntToStr(copia) +','+ IntToStr(copia2); end;

mesmo você colocando queryapagar.first está assim ???

acho q seria você pegar o resultado 0,222 copiar para uma variavel e ai na hora de digitar é só acrescentar como String!

no onchange do TDBEdit ou TEdit faz uma varredura se já tiver não deixa digitar.... var Acumulavirgulas : integer; Acumulavirgulas := 0; if Acumulavirgulas < 1 then begin if Length(Edit1.text) = ',' then begin Acumulavirgulas := 1; end; end else begin ShowMessage('Campo só pode conter 1 (uma) virgula !'); end; acho que isso já ajuda, fiz aki correndo qualqer coisa se não der fala q eu testo no delphi, estou sem ele agora.....abraços

você já tentou separar com a ban

Consegui resolver dessa maneira abaixo procedure TFrmNovProdutos.LeImagem; var jpgFoto: TJPEGImage; msFoto: TMemoryStream; begin msFoto:=TMemoryStream.Create; jpgFoto:=TJPEGImage.Create; with DtmLoja.QryProdutos do begin close; Sql.Clear; Sql.Add('Select Codigo, Imagem From Produtos Where Codigo =' + QuotedStr(TxtCod.Text)); open; end; if DtmLoja.QryProdutos.RecordCount = 0 then begin exit; end; TGraphicField(DtmLoja.QryProdutos.FieldByName('Imagem')).SaveToStream(msFoto); jpgFoto.LoadFromStream(msFoto); msFoto.Position:=0; jpgFoto:=TJPEGImage.Create; jpgFoto.LoadFromStream(msFoto); Foto.Picture.Graphic := jpgFoto; msFoto.Free; end;

Jhonas estava me esquecendo de comentar sobre esse projeto, pois estou com essa Zebra aqui, mas ela utiliza a linguagem da ELTRON, ( EPL ) e não ( ZPL ), esse codigo que tem eu olhei e até tentei mas não deu certo, ai pesquisei na net e achei bastante coisa, mas nada explicando direito os codigos, olhei mais o manual e consegui me virar, abaixo vou explicar um pouco também para quem precisar: N Q104,18 F2 D10 ZT A124,95,2,3,1,1,N,"R$14,55" P001 consegui obter os dados de configuração da etiqueta ligando a impressora e apertando o botão sai os codigos de configuração lendo os modelos da etiquetas. Fiz tudo e :D consegui.....ufa.....impreimei perfeitamente, mas como alegria dura pouco...mandei imprimir 30 etiquetas e imprime 15 etiquetas (5 linhas) ai pula uma linha de etiqueta ai imprime mais 6 etiquetas e pula uma linha. estou na reta final, acabei com o ribow e com as etiquetas o cliente tá furioso e eu feliz por ter conseguido bastante coisa, mas mais uma vez peço ajuda, o porque tá pulando assim ?????

Pessoal gravei no meu banco firebird uma imagem do tipo JPG num campo blob, mas e agora como eu carrego ela na minha TImage atraves de uma consulta feita no banco ??

....internet que emula a porta LPT1 para USB, bem simples de usar, ai sucesso a impressão saiu corretamente. N Q001,8 F2 D10 ZT A675,115,2,1,1,1,N,"CINTO TRANCADO" A675,85,2,1,1,1,N,"00001" A582,95,2,3,1,1,N,"R$14,55" B490,35,0,2,2,5,30,N,"00001" A447,115,2,1,1,1,N,"CINTO TRANCADO" A354,95,2,3,1,1,N,"R$14,55" A447,85,2,1,1,1,N,"888899970" B265,35,0,2,2,5,30,N,"888899970" A217,115,2,1,1,1,N,"CINTO TRANCADO" A124,95,2,3,1,1,N,"R$14,55" A217,85,2,1,1,1,N,"888899970" B35,35,0,2,2,5,30,N,"888899970" P001 Ai a dor de Cabeça foi entender os codigos, (entendi um pouco) e tentei tentei e tentei ai consegui configurar a etiqueta certinho, os codigos estão ai embaixo, mas eis o problema, lembra que falei que entendi um pouco os codigos ? Então....vamos lá. minha etiqueta é de 3 colunas, agora se eu mando imprimir 9 etiquetas, automaticamente muda o campo P001 da etiqueta para P003, 3 linhas de 3 colunas = 9 etiquetas, mas ai não sai certo na etiqueta, não dá o espaço certo de cada linha para sair na posição certa, sei que isso é nos codigos acima que está ai, olhei no manual, traduzi bastande coisa mas não achei e estou desesperado!!!!! :( alguém pode me ajudar nisso ????

Bom consegui já resolver boa parte.... Joguei a consiguração da impressora em um DBgrid para quebrar as linhas e ficar bem legal e coloquei as informações dentro de uma tabela temporária. Ficou assim......... procedure TFrmConfigEtiquetas.SpbImpClick(Sender: TObject); Var Comando : TStringList; F : TextFile; begin TblEtiq.First; while not TblEtiq.Eof do begin Comando.Add(TblEtiqComando.AsString); TblEtiq.Next; end; // gera arquivo texto com o conteúdo que será enviado para a impressora Comando.SaveToFile('c:\IzaLoja\IzaSis\etiqueta.txt'); // criar um arquivo .bat para enviar o arquivo texto gerado para a impressora atraves da porta LPT1 // usando o comando type do DOS if not FileExists('C:\IzaLoja\IzaSis\printlbl.bat') then begin AssignFile(F, 'C:\IzaLoja\IzaSis\printlbl.bat'); try Rewrite(F); Writeln(F, 'Type C:\IzaLoja\IzaSis\etiqueta.txt > LPT1'); finally CloseFile(F); end end; ShellExecute(0, 'Open', PChar('C:\IzaLoja\IzaSis\printlbl.bat'), nil, nil, Ord(SW_HIDE)); end; Dessa maneira eu estou jogando os codigos da Tabela para um txt e mandando por um arquivo bat para a porta LPT1, mas como meu objetivo era para a porta USB eu achei um programinha chamado DOSPRINT na internet que emula a po