Jhonas

O componente delphi Free acho que não mas tente esses links https://developer.team/delphi/24913-whats4delphi-124-whatsapp-component-for-delphi.html https://www.whatsapp.com/download/ http://delphimagic.blogspot.com/2017/07/integrar-whatsapp-con-delphi.html abraço

Tipo de arquivo Minecraft Data File Desenvolvedor Mojang Specifications Categoria Arquivos do Jogo Formato Binary .DAT Um arquivo DAT é um arquivo de dados usado pelo Minecraft, um jogo de exploração e construção em 3D. Ele é salvo em um formato Gzip compactado e pode salvar vários tipos de dados, incluindo inventário do jogador, posição do jogador e informações do mundo. Os arquivos DAT são usados para salvar informações de estado mundial, bem como para acompanhar o progresso do jogador. Mais informação: Os arquivos DAT também foram usados para armazenar "pedaços" de nível, que são pequenos pedaços de mapas carregados sob demanda enquanto um jogador navega pelo mundo. Este formato foi introduzido a partir da versão do Minecraft Infdev, e os blocos usaram uma dimensão de mapa de 16 x 16 x 128. Começando com a versão beta do Minecraft versão 1.3, um novo formato chamado "Region" foi introduzido, que armazena pedaços com a extensão .MCR . Posteriormente, o formato .MCA , chamado "Anvil", foi introduzido com o patch 1.2.1. Os arquivos Minecraft DAT usaram formatos diferentes em versões incrementais do jogo. Portanto, um arquivo DAT de uma versão do jogo pode não ser compatível com outra versão. NOTA: O Minecraft é um jogo em perspectiva na qual os jogadores constroem e destroem blocos e evitam monstros em um ambiente 3D. O Minecraft Server é um programa Java que é executado como uma interface de linha de comando. Common DAT Filenames level.dat - O arquivo de dados do Minecraft armazenando informações do mundo, como o player, o gerador de nível usado e a hora do dia. Programas que abrem arquivos DAT Windows: Mojang Minecraft NBTExplorer INVedit Linux: Mojang Minecraft NBTExplorer Macintosh: Mojang Minecraft NBTExplorer MCPlayerEdit abraço

Ok ... mas observe os dias dos meses seguintes ( o dia que está selecionado ... exemplo: 31 de janeiro para o dia 28 de Fevereiro 28 de Fevereiro para o dia 31 de Março 31 de Março para o dia 30 de Abril o código a seguir, soluciona esse problema ... se quiser usá-lo var Form1: TForm1; dd : integer = 0; dia : integer = 0; implementation {$R *.dfm} procedure TForm1.ScrollBar1Change(Sender: TObject); begin if ScrollBar1.Position=1 Then Panel1.Caption:='Janeiro' Else if ScrollBar1.Position=2 Then Panel1.Caption:='Fevereiro' Else if ScrollBar1.Position=3 Then Panel1.Caption:='Março' Else if ScrollBar1.Position=4 Then Panel1.Caption:='Abril' Else if ScrollBar1.Position= 5 Then Panel1.Caption:='Maio' Else if ScrollBar1.Position=6 Then Panel1.Caption:='Junho' Else if ScrollBar1.Position=7 Then Panel1.Caption:='Julho' Else if ScrollBar1.Position=8 Then Panel1.Caption:='Agosto' Else if ScrollBar1.Position=9 Then Panel1.Caption:='Setembro' Else if ScrollBar1.Position=10 Then Panel1.Caption:='Outubro' Else if ScrollBar1.Position=11 Then Panel1.Caption:='Novembro' Else if ScrollBar1.Position=12 Then Panel1.Caption:='Dezembro'; if ScrollBar1.Position=13 Then begin ScrollBar1.Position:=1; Calendar1.Year := Calendar1.Year+1; end; if ScrollBar1.Position=0 Then begin ScrollBar1.Position:=12; Calendar1.Year := Calendar1.Year-1; end; case ScrollBar1.Position of 2 : case Calendar1.Day of 29: Calendar1.Day := Calendar1.Day-1; 30: Calendar1.Day := Calendar1.Day-2; 31: Calendar1.Day := Calendar1.Day-3; end; 4,6,9,11 : case Calendar1.Day of 31: Calendar1.Day := Calendar1.Day-1; end; end; Calendar1.Month:=ScrollBar1.Position; Panel3.Caption:= inttostr(Calendar1.Year); case Calendar1.Month of 4,6,9,11 : Calendar1.Day := dia; 1,3,5,7,8,10,12 : Calendar1.Day := dia; end; end; procedure TForm1.Calendar1Click(Sender: TObject); begin if dd = 0 then begin dia := Calendar1.Day; dd := 1; end; end; procedure TForm1.Calendar1Exit(Sender: TObject); begin if dd = 1 then dia := Calendar1.Day; dd := 0; end; abraço

Acho que é isso que voce está querendo fazer procedure TForm1.ScrollBar1Change(Sender: TObject); begin if ScrollBar1.Position=1 Then Panel1.Caption:='Janeiro' Else if ScrollBar1.Position=2 Then Panel1.Caption:='Fevereiro' Else if ScrollBar1.Position=3 Then Panel1.Caption:='Março' Else if ScrollBar1.Position=4 Then Panel1.Caption:='Abril' Else if ScrollBar1.Position= 5 Then Panel1.Caption:='Maio' Else if ScrollBar1.Position=6 Then Panel1.Caption:='Junho' Else if ScrollBar1.Position=7 Then Panel1.Caption:='Julho' Else if ScrollBar1.Position=8 Then Panel1.Caption:='Agosto' Else if ScrollBar1.Position=9 Then Panel1.Caption:='Setembro' Else if ScrollBar1.Position=10 Then Panel1.Caption:='Outubro' Else if ScrollBar1.Position=11 Then Panel1.Caption:='Novembro' Else if ScrollBar1.Position=12 Then Panel1.Caption:='Dezembro'; if ScrollBar1.Position=13 Then begin ScrollBar1.Position:=1; Calendar1.Year := Calendar1.Year+1; end; if ScrollBar1.Position=0 Then begin ScrollBar1.Position:=12; Calendar1.Year := Calendar1.Year-1; end; Calendar1.Month:=ScrollBar1.Position; Panel3.Caption:= inttostr(Calendar1.Year); end; abraço

Voce não respondeu a minha pergunta.... O erro ocorre nessas linhas ? Calendar1.Month:=ScrollBar1.Position; Calendar1.Year:=StrToInt(Panel3.Caption); "Argumento inválido para codificação de data". significa que voce esta tentanto atribuir um valor invalido para a data

Erro: "Argumento inválido para codificação de data". O erro ocorre nessas linhas ? Calendar1.Month:=ScrollBar1.Position; Calendar1.Year:=StrToInt(Panel3.Caption);

voce pode abrir um documento no word, procurar pelo texto que voce quer, modificar e depois salvar as alterações http://www.planetadelphi.com.br/dica/4808/abrir-word-trocar-strings-no-documento pode tambem o ( OpenDialog1 ) para procurar no disco o aqruivo, abri-lo e fazer as modificações nele e depois salva-lo http://maikelscheid.blogspot.com/2009/03/abrindo-documentos-word-no-delphi.html depois voce deve procurar o texto ( palavra ou outra coisa ) no documento, usando o comano ( Find ) exemplo no link que te passei para alterar atributos de texto ( cor, letra, fonte ... etc ) voce tera que usar comandos do word dentro do delphi. https://www.google.com.br/search?ei=gQlTXbvmN_S_5OUP7OmUsA0&q=alterar+cor+do+texto+word+delphi&o que=alterar+cor+do+texto+word+delphi&gs_l=psy-ab.3...1358.93924..94260...0.0..1.458.5414.0j29j2j0j1......0....1..gws-wiz.......0i71j0i67j0i131j0j0i22i30j0i22i10i30j33i22i29i30.u7ZFpGa9vUM&ved=0ahUKEwj7qsrexIDkAhX0H7kGHew0BdYQ4dUDCAo&uact=5 OBS: como te falei, tem muitos exemplos na net ( inclusive video-aulas mostrando como fazer ) http://www.theclub.com.br/restrito/revistas/201309/mani1309.aspx abraço

Só que voce ainda não explicou se o relatório no word já existe ou é criado em tempo de execução ... outra dúvida: porque o resultado tem que ser em um documento do word ? Não poderia ser em um relatório do Delphi ( QuickReport ) ?

esse link que te passei tem isso https://www.devmedia.com.br/forum/delphi-word-escrever-texto-colorido/198608 ou voce esta querendo abrir um documento no word e pelo delphi procurar uma parte do texto ?

tem varios exemplos na Internet https://www.google.com.br/search?ei=9PdRXZ3pNP655OUP_6S_sAI&q=manipular+cor+de+texto+word+com+delphi&o que=manipular+cor+de+texto+word+com+delphi&gs_l=psy-ab.3...24694.29142..30088...0.0..0.190.2106.0j13......0....1..gws-wiz.......0i71j0i13.9OOil16kMKg&ved=0ahUKEwids5Duv_7jAhX-HLkGHX_SDyYQ4dUDCAo&uact=5 abraço

File not found: 'wwdbdatetimepicker.dcu' Voce está usando o componente twwdbdatetimepicker que não foi encontrado na library ( biblioteca ) do Delphi Se voce tiver o componente deve instalar no delphi ou veja na net https://pt.freedownloadmanager.org/Windows-PC/InfoPower-Studio-2011-for-Delphi-XE-and-Delphi-2010.html abraço

Sua tabela deve estar ordenada por mes, ano e item para que funcione veja a modificação no código procedureTfrmPrincipal.BotaoCalcularClick(Sender: Tobject); begin vvalor:=0; vtotDespesa:=0; vmes:=frmPiricipal.ComboMes.Text; // aqui seleciono o mes vano:=frmPrincipal.ComboAno.Text; // aqui seleciono o ano vItem:=frmPrincipal.ComboItem.Text; frmPrincipal.IBTableDebito.First; if(frmPrincipal.IBTableDebito.Locate ('MES; ANO; ITEM', varArrayof([vmes, vano, vitem]),[]))then // Aqui ele encontra a linha que tem o item Valor (string) begin while not (frmPrincipal.IBTableDebito.Eof)do begin vvalor:=srttofloat(frmPrincipal.IBTableDebito.FieldByName('VALOR').asString); vtotDespesa:=vtotDespesa+vvalor; EditSoma.Text:=floattostr(vtotDespesa); if frmPrincipal.IBTableDebito.FieldByName('ITEM').asString <> vItem then exit; frmPrincipal.IBTableDebito.Next; end; end; end; abraço

exemplo: select SUM( ENTRADA ) as Entradas from SUA_TABELA select SUM( SAIDA ) as Saidas from SUA_TABELA select SUM( ENTRADA + SAIDA ) as Total from SUA_TABELA abraço

To usando a função "SUM", mais não dá certo a soma.. [SUM(<frxDBDataset1."VALOR">,MasterData1)] Estes valores estão no Banco de Dados Como "String" VarChar!!! O seu erro é justamente por definir valores como string basta voce alterar o tipo desse dado para numerico que a função SUM funciona abraço

Exemplo: http://www.bosontreinamentos.com.br/mysql/mysql-between-selecao-de-intervalos-em-consultas-21/ SELECT * FROM TABELA WHERE Data BETWEEN DateTimePicker1.Date AND DateTimePicker2.Date abraço

Tente esse link do forum https://forum.scriptbrasil.com.br/topic/53165-diferença-entre-datas-anos-meses-e-dias/ e esse do google https://www.google.com.br/search?ei=ReY4XeDSBZD85gLEpZb4Aw&q=delphi+calcular+tempo+decorrido+ano+mes+dia&o que=delphi+calcular+tempo+decorrido+ano+mes+dia&gs_l=psy-ab.3..33i160.16462.21520..22248...0.0..0.366.3292.2-9j3......0....1..gws-wiz.......0i22i30.Yh48m0brclE&ved=0ahUKEwigiY-9187jAhUQvlkKHcSSBT8Q4dUDCAo&uact=5 abraço

Amigo, se voce quiser auxiliar outros com o mesmo problema, gostaria que voce explicasse como foi resolvido o problema. abraço

Instale a versão Quickreport-v5.0.6 https://www.irdevelopers.com/post/17618/Quickreport-v5.0.6-for-Delphi-10.2-Tokyo-Full-Source.html abraço

Voce está se referindo ao QuickReport ou outro ?

ok... acho que estes exemplos vão te ajudar https://www.devmedia.com.br/artigo-clube-delphi-edicao-11-um-pequeno-ladrao/14933 outro unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Timer1: TTimer; Label1: TLabel; OpenDialog1: TOpenDialog; Button2: TButton; SpeedButton1: TSpeedButton; BitBtn1: TBitBtn; Memo1: TMemo; Label2: TLabel; Label3: TLabel; procedure Timer1Timer(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); var p: TPoint; i: THandle; z, x: integer; s: array [ 0..4094 ] of char; Posicao: TRect; begin GetCursorPos ( p ); i := WindowFromPoint ( p ); Label1.caption := intToStr ( i ); z := strToInt ( Label1.caption ); GetWindowText ( z, s, x ); Label2.caption := s; GetWindowRect(i,Posicao); Label3.Caption := (Format('%d,%d',[Posicao.Left,Posicao.Top])); end; procedure TForm1.Button2Click(Sender: TObject); begin OpenDialog1.Execute; end; end. OBS: Neste exemplo, voce coloca varios componentes no Form ( inclui o dialog < componente não visual > nesse caso vai mostrar somente o handle e a posição ) Ao passar com o mouse sobre os componentes, vai mostrar nos Labels o Handle, o nome do componente e a posição dele em relação ao Form Verifique tambem o exemplo no link. Veja esse outro tambem ... vai ajudar http://www.marcocantu.com/epascal/English/ch09win.htm traduzido: https://translate.google.com.br/translate?hl=pt-BR&sl=en&u=http://www.marcocantu.com/epascal/English/ch09win.htm&prev=search. Abraço

ok... vejamos se entendi o problema voce quer mover um dialog para uma posição especifica na tela, mas se a nova posição do dialog passar pelo edx+20 ( seria edit ? ou o que é isso ? ) voce grava a posição inicial, para que depois voce possa retornar o componente nessa posição ?

explique aqui, o melhor que voce puder ... tentarei ajuda-lo o que exatamente voce está querendo fazer ? abraço

Veja nesse link se é isso que voce quer https://www.blog.tyttosoft.com.br/post?pagina=6 abraço

Exemplo nesse link: https://codeoncode.blogspot.com/2016/12/get-processid-by-programname-include.html abraço

Voce tem 2 opções: 1 - Voce pode criar o TTreeView dinamicamente : removendo e criando os itens novamente ou 2 - Desabilitar os Nós que voce selecionar, mas dá mais trabalho. exemplo ( 1 ) : unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls; type TForm1 = class(TForm) TreeView1: TTreeView; Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; const EX_LEVEL=2; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var MyTreeNode1, MyTreeNode2 : TTreeNode; begin with TreeView1.Items do begin Clear; MyTreeNode1 := Add(nil, 'Nó Pai1'); AddChild(MyTreeNode1,'Nó Filho1'); MyTreeNode2 := Add(MyTreeNode1, 'Nó Pai2'); AddChild(MyTreeNode2,'Nó Filho2'); MyTreeNode2 := TreeView1.Items[3]; AddChild(MyTreeNode2,'Nó Neto2a'); MyTreeNode2 := TreeView1.Items[4]; Add(MyTreeNode2,'Nó Neto2b'); MyTreeNode2 := TreeView1.Items[5]; Add(MyTreeNode2,'Nó Neto2c'); Add(MyTreeNode1, 'Nó Pai3'); MyTreeNode2 := TreeView1.Items[7]; AddChild(MyTreeNode2,'Nó Filho3'); MyTreeNode2 := TreeView1.Items[8]; AddChild(MyTreeNode2,'Nó Neto3a'); TreeView1.FullExpand; TreeView1.Items.EndUpdate; end; end; procedure TForm1.Button2Click(Sender: TObject); var MyTreeNode1, MyTreeNode2 : TTreeNode; begin with TreeView1.Items do begin Clear; MyTreeNode1 := Add(nil, 'Nó Pai1'); AddChild(MyTreeNode1,'Nó Filho1'); MyTreeNode2 := Add(MyTreeNode1, 'Nó Pai2'); AddChild(MyTreeNode2,'Nó Filho2'); MyTreeNode2 := TreeView1.Items[3]; AddChild(MyTreeNode2,'Nó Neto2a'); MyTreeNode2 := TreeView1.Items[4]; Add(MyTreeNode2,'Nó Neto2b'); MyTreeNode2 := TreeView1.Items[5]; Add(MyTreeNode2,'Nó Neto2c'); Add(MyTreeNode1, 'Nó Pai3'); MyTreeNode2 := TreeView1.Items[7]; AddChild(MyTreeNode2,'Nó Filho3'); MyTreeNode2 := TreeView1.Items[8]; AddChild(MyTreeNode2,'Nó Neto3a'); // Deleta o Nó Filho do Nó Pai1 TreeView1.Items.Delete(TreeView1.Items[1]); // Deleta o Nó Neto(a) do Nó Filho2 TreeView1.Items.Delete(TreeView1.Items[2].Item[0]); TreeView1.FullExpand; TreeView1.Items.EndUpdate; end; end; end. Abraço