Ir para conteúdo
  • Cadastre-se

bnobre

Membros Pro
  • Total de ítens

    1.491
  • Registro em

  • Última visita

  • Days Won

    4

Tudo que bnobre postou

  1. Olá a todos, Quem usa o Zeos Lib para conexão com o banco de dados pode optar pela versão professional, já que estaria sanado a limitação com a conexão ao banco de dados, correto? Mas eu fiquei com 3 dúvidas... O componente TDataSource da paleta Data Access vem na versão professional? A própria paleta Data Access vem na versão professional? E o Data Module para organização das ZQuery também está presente na versão professional? Abraços a todos
  2. Oi Amarildo, beleza? Obrigado pelos vídeos, bem legais. Mas eu queria a experiência de alguém que passou por essa migração recentemente, para saber os prós e contras atuais, aí eu colocaria na balança o custo e benefício disso para mim agora. Abraços
  3. Oi Daniel, beleza? Meu sistema funciona 100% no Windows 10... Minha dúvida mesmo é se posso usar o Delphi 2010 no Windows 10, pois até então só tenho usado o mesmo no Windows XP.
  4. Oi meu amigo... Deu certo... É a mesma usada no ACBrPosPrinter1.Buffer.Add?
  5. Fala galera, beleza? Tenho pesquisado sobre o tema, mas os tópicos que achei estão meio antigos e creio que muitos fatores complicadores que tenho lido de uma possível migração do Delphi para o Lazarus tenham sido sanados ou ao menos minimizados. Minha experiência com o Delphi é usando a IDE em sua versão 7 e 2010. Seria muito traumático trocar o Delphi pelo o Lazarus? Desde já agradeço a atenção de todos
  6. Olá a todos, O Delphi 2010 é compatível com o Windows 10 ou teria problema? Desde já agradeço a atenção
  7. Outra dúvida... O comando ACBrPosPrinter1.Buffer.Add escreve e quebra a linha para mim sem problemas... Qual a tag ou técnica que ele usa para quebrar a linha? Quero usar a mesma para garantir que funcionará!!!
  8. Atualmente faço assim: ACBrPosPrinter1.Buffer.Add('linha1'); ACBrPosPrinter1.Buffer.Add('linha2'); ACBrPosPrinter1.Imprimir; Com os comandos acima eu obtenho a quebra de linha. Quero ter o mesmo resultado usada uma tag de quebra de linha. Exemplo: texto := 'linha1<quebralinha>linha2'; ACBrPosPrinter1.Buffer.Add(texto); ACBrPosPrinter1.Imprimir;
  9. Olá... Quero passar para o ACBrPosPrinter uma string quebrando a linha. Por exemplo: texto := 'linha1<quebralinha>linha2' Qual seria a tag a ser usada?
  10. Consegui... só foi colocar um "Abort" no KeyDown para anular a seta pra cima e pra baixo... Ficou do jeito que eu queria. Abraços a todos
  11. Bem... Tá fluindo aqui... Eu fiz o seguinte... Ao invés de digitar dentro da StringGrid, eu coloquei um componente JvCalcEdit da biblioteca Jedi para aparecer dentro das células conforme eu clico, adaptando o código em descrito em https://www.devmedia.com.br/forum/combobox-em-stringgrid/226192. Com isso fica um formato legal de borda quando ele é exibido e ainda travo a digitação em números com 2 casas decimais que eu queria também. Tá quase 100% agora, o problema tá sendo que quero selecionar todo o texto da CalcEdit quando a mesma for exibida. Para tal coloquei o seguinte código no SelectCell da StringGrid: if ACol <> 2 then begin CanSelect := False; Exit; end else begin R := grd_fechamento.CellRect(ACol, ARow); R.Left := R.Left + grd_fechamento.Left; R.Right := R.Right + grd_fechamento.Left; R.Top := R.Top + grd_fechamento.Top; R.Bottom := R.Bottom + grd_fechamento.Top; with edt_valor do begin Left := R.Left + 1; Top := R.Top + 1; Width := (R.Right + 1) - R.Left; Height := (R.Bottom + 1) - R.Top; Visible := True; if grd_fechamento.Cells[ACol, ARow] = '' then Text := '0,00' else Text := grd_fechamento.Cells[ACol, ARow]; SetFocus; SelStart := 0; //Aqui SelLength := Length(Text); //E Aqui end; CanSelect := True; end; Além do código cima, tenho um código para permitir o usuário navegar para cima e para baixo no StringGrid com as setas direcionais e o Enter, está no KeyDown do CalcEdit: if (Key = VK_Return) OR (Key = VK_Down) then begin if grd_fechamento.Row <> grd_fechamento.RowCount - 1 then begin SendMessage(grd_fechamento.Handle,WM_VSCROLL,SB_Linedown,0); grd_fechamento.Row := grd_fechamento.Row + 1; end; end else if Key = VK_UP then begin if grd_fechamento.Row <> 1 then begin SendMessage(grd_fechamento.Handle,WM_VSCROLL,SB_Lineup,0); grd_fechamento.Row := grd_fechamento.Row - 1; end; end; O problema é que por algum motivo só aparece selecionado o texto do CalcEdit quando dou Enter ou clico com o mouse, quando uso as setas direcionais para cima e para baixo ele muda de linha normalmente, exibe normalmente o CalcEdit, mas o foco fica sempre ao final do texto e não seleciona o mesmo, me obrigando a apagar com back space e não é isso o que quero. Alguém sabe o motivo disso?
  12. Quando tu diz que "as vezes se tornam pesadas" se refere ao custo financeiro ou performance do Delphi após serem instaladas?
  13. Vou analisar aqui... E sobre as classes, qual seria a abordagem?
  14. @Juliomar Marchetti O que seria esse frame que citou? E onde posso ler sobre classes que me dê uma "luz" de como aplicar tal conceito com essa minha necessidade na grid?
  15. Sem condições, muita grana, eu vi lá... Na verdade sem condições pois não vou usar nem 98% daquilo tudo. Só quero um grid onde possa colorir as linha de grade, forçar o usuário digitar somente valores numéricos e com 2 casas decimais, ao selecionar uma célula já entrar em modo de edição na mesma, basicamente isso
  16. Caminhos obscuros?!?! Não saquei. Achei umas bem legais e mais em conta ainda. Achei até uma gratuita, vou testar, mas não tem StringGrid, só DBGrid http://www.scalabium.com/smcmtbl.htm http://www.rosinsky.cz/delphi/ Esse também parece legal. Cara, sempre que preciso de algo mais elaborado com grid o Delphi me deixa na mão, não sei porque isso... Os componentes padrões são tão flexíveis, tão fáceis de adaptar e fazer programação rápida, não sei porque não seguem essa filosofia com as grids.
  17. Sim, verdade... Mas resolvi ampliar a necessidade e sugeri logo um tópico com uma alternativa de componente, pois tudo que tem que fazer com a grid para customizá-la é mais complicado (ao menos para mim), para colorir use código, para colorir as linhas da grade use código e não fica 100%, para validar o que é digitado código, e por ai vai, isso quando um código não atrapalha o outro lá no DrawCell, um saco... Sinto falta das opções, tipo essa coluna vai pegar Currency, essa linha vai ficar colorida, essa borda preta (e sem erros) e tu marcando e desmarcando propriedades, como o bom e velho RAD gosta. Sobre pensar fora da caixinha, seria legal, mas não tenho esse conhecimento infelizmente, pois não sei como resolver isso usando classes e nem sei o que é esse "frame" que citou. Sei que vou ficar refém, mas pelo que citei acima estou meio limitado em uma resolução.
  18. Olá a todos, Estou tentando fazer uma tela de fechamento de caixa no Delphi com um StringGrid: Mas o mesmo é muito limitado em relação a por exemplo validar os dados digitados e qualquer customização não é muito 100%, como colorir as células, colorir as linhas de grade, além de não ser nada RAD. Estou pesquisando alguns componentes que transcendam tais limitações. Os amigos podem me indicar alguns que usam?
  19. Sei... Mas será que dá pra funcionar sem sumir as bordas em edição?
  20. Agora foi
  21. Olá a todos, Estou tentando usar um StringGrid para preencher as informações de uma tela de Fechamento de Caixa... As mesmas serão digitadas na coluna "No Caixa". Eu pintei as bordas do StringGrid de preto, porque aquele cinza padrão é muito fraco. Como podem observar na primeira foto está ok, mas na segunda quando se tenta digitar a borda em volta some. Alguém sabe como posso mudar esse comportamento? Desde já agradeço a atenção
  22. Oi Michel, beleza? É mesmo?!?! Conta mais sobre isso aí! O que rolou?
  23. Fala @Márcio Antônio e @Eridan. Beleza? Eu uso os componentes e em relação aos mesmos essa tag já está disponível tem tempo, pois estou usando a mesma em ambiente de produção desde maio de 2021 em meus clientes. Estava atualizando eles, pois hoje entrou em produção a validação dessa tag. Ela está lá nos detalhamentos do pagamento, junto com a tPag e vPag por exemplo. Se vocês usam o Monitor eu não sei responder, mas se usam os componentes assim como eu com certeza é falta de atualização. Atualiza pelo SVN, roda o instalador e irão achar. Abraços e boa sorte
  24. Oi Amigo... Essa variável Ok é obrigatória? Serve pra que?
  25. Olá... Normalmente atribuímos o valor da propriedade tPag da seguinte maneira: tPag := fpDinheiro; Só que tenho os códigos das formas de pagamento em meu banco como um campo string: "01", "02", "03", ..., "99". Como faço para ler direto desses campos??? tPag := "01";
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...