Jump to content
Fórum Script Brasil

Jhonas

Monitores
  • Content Count

    9667
  • Joined

Community Reputation

0 Neutro

5 Followers

About Jhonas

Perfil

  • Gender
    Male
  • Location
    São Paulo

Recent Profile Visitors

25296 profile views
  1. Quando tento definir o cliente_id como not null retorna erro 1452 - Cannot add or update a child row: a foreign key constraint fails. Quando tento definir o cliente_id como não null retorna erro 1452 - Não é possível adicionar ou atualizar uma linha filha: uma restrição de chave estrangeira falha. Obs: O erro 1452 - Não é possível adicionar ou atualizar uma linha filha: uma restrição de chave estrangeira falha ocorre quando o registro de dados é inicialmente inserido na Tabela Estrangeira. Exemplo: https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=https://w
  2. É um dos links dessa lista ... favor pesquisar https://www.google.com.br/search?source=hp&ei=ne1kX5yoLMy-5OUP_fKj4As&q=https%3A%2F%2Faddons.mozilla.org%2Fpt-BR%2Ffirefox%2Fad...ication%3Dfirefox&o que=https%3A%2F%2Faddons.mozilla.org%2Fpt-BR%2Ffirefox%2Fad...ication%3Dfirefox&gs_lcp=CgZwc3ktYWIQA1DsF1jsF2CAI2gBcAB4AIABqAGIAagBkgEDMC4xmAEAoAECoAEBqgEHZ3dzLXdperABAA&sclient=psy-ab&ved=0ahUKEwjc6u_VnPPrAhVMH7kGHX35CLwQ4dUDCAY&uact=5 abraço
  3. Veja o segundo link .... faça a tradução da pagina para o portugues e leia com atenção. Tem exemplos e informações de como utilizar no delphi abraço
  4. Isso parece ser bug de versão que já foi corrigido tente esses links: http://opensource.spotify.com/cefbuilds/index.html https://www.briskbard.com/index.php?lang=en&pageid=cef https://www.google.com.br/search?source=hp&ei=mNZcX9r3HYai5OUPxrqL4A0&q=Embarcadero\CEF4\CEF4Delphi-master\demos&o que=Embarcadero\CEF4\CEF4Delphi-master\demos&gs_lcp=CgZwc3ktYWIQA0oFCAgSATFKBQgJEgExSgUIChIBMlCCCliCCmCcEmgAcAB4AIAB2gGIAZIDkgEFMC4xLjGYAQCgAQKgAQGqAQdnd3Mtd2l6sAEA&sclient=psy-ab&ved=0ahUKEwjao-HL5ePrAhUGEbkGHUbdAtwQ4dUDCAY&uact=5 abraço
  5. Você acha que em um futuro irá ocorrer problemas com essas versões anteriores de 32 bits ? Pode ficar tranquilo que não vai ocorrer problema algum ... entretanto se voce desenvolver programas em 64 bits e quiser rodar em um sistema de 32 bits, ai já vai ter problemas. abraço
  6. Voce não colocou qual é a versão do seu delphi ... entretanto, uma aplicação feita para 32 bits deve rodar sem problemas em 64 bits. Desenvolvi programas em delphi 7 usando o windows XP ( 32 bits ) que rodam ( sem modificação alguma ) tranquilamente no windows 10 ( 64 bits ). Mas existem algumas limitações relacionadas a componentes de terceiros ou legados. Se a maioria dos componentes usados são VCL, não precisa modificar nada. Links sobre o assunto: https://www.google.com.br/search?ei=IqBXX8WqD7m95OUP2JaOuA4&q=migrar+projeto+32+bits+para+64+bits+delphi&o que=migr
  7. Se voce testar com outra cor, acontece o mesmo ? Procure por referencia ao evento no help do Lazarus Obs: Acho que tem uma solução nesse link https://lazarus-br.narkive.com/ffOZoLms/mudar-a-cor-de-texto-de-uma-celula-do-dbgrid abraço
  8. Erro: Tipo incompatível para arg nº. 1: Obtido "String constante", esperado "TGraphicsColor" Erro: identificador idents não é membro de "DefaultDrawDataCell" Obs: Não dá pra advinhar o código que voce colocou no evento : procedure Tform1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  9. Se voce digitar : 12.345.678,90 resultado 12345678.90 Ok... mas isso é ainda mais simples procedure TForm1.Button1Click(Sender: TObject); var s : string; begin Edit1.text := StringReplace(Edit1.Text, '.', '', [rfReplaceAll]); Edit1.text := StringReplace(Edit1.Text, ',', '', [rfReplaceAll]); s := trim(Edit1.text); Insert(',',s, Length(s)-1); Edit1.text := s; end; Obs: voce tambem pode digitar somente os numeros, sem ponto ou virgula que vai ficar como está querendo abraço
  10. Voce pode simplificar seu código por esse: procedure TForm1.Edit1Exit(Sender: TObject); begin if pos('.',Edit1.Text) > 0 then Edit1.Text := StringReplace(Edit1.Text, '.', ',', []); Edit1.Text := CurrToStrF(StrToCurr(Trim(Edit1.Text)),ffNumber,2); end; Exemplo: Se voce digitar : 12345678.90 resultado 12.345.678,90 se digitar : 123456,79 resultado 123.456,79 Só tem que digitar o numero e na parte dos centavos, voce pode usar ponto ou virgula e depois dar um <Enter> ou <Tab> para mudar de campo. Na saida do campo o valor é automat
  11. This problem has only 2 solutions: It is either a problem with the printer drive, or with the logic board. Try changing the printer driver ... install the LX-80 driver for testing. If it doesn't work, replace the printer cable. In the latter case, replace the logic board. hug
  12. decimal (M, D) altura decimal(1,2), Exibe um erro se um campo tiver um valor de casa decimal maior do que a parte do número inteiro. # 1427 - Para float (M, D), double (M, D) ou decimal (M, D), M deve ser> = D (coluna 'algo'). o correto: altura decimal(2,2), ou altura decimal(3,2), ou altura decimal(4,1), ... etc abraço
  13. Veja nesses links https://www.projetoacbr.com.br/forum/topic/53484-dbgrid-no-lazarus/ https://lazarus-br.narkive.com/ffOZoLms/mudar-a-cor-de-texto-de-uma-celula-do-dbgrid https://www.devmedia.com.br/forum/dbgrid1-canvas-font-color-clred-não-funciona/147808 abraço
  14. Veja a alteração no código da impressão unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; ComboBox1: TComboBox; procedure FormActivate(Sender: TObject); procedure Button1Click(Sender: TObject); Procedure Memo_Print(Conteudo:TStrings); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation Uses Printers, QRPrntr; {$R *.dfm} procedure TForm1.FormActivate(Sender:
  15. type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; ComboBox1: TComboBox; procedure FormActivate(Sender: TObject); procedure Button1Click(Sender: TObject); Procedure Memo_Print(Conteudo:TStrings); private { Private declarations } public { Public declarations } end; Obs: Se voce copiar o codigo todo não vai dar erro abraço
×
×
  • Create New...