Delphi/Lazarus, FastReport, ACBr, Programação em Geral

Olá pessoal, neste post vou apresentar o componente JKGenFastRep, desenvolvido por mim, pra gerar relatórios no FastReport, usando um DBGrid como base. O código usado pra gerar o relatório é este logo abaixo JKGenFastRep1.FastReport := frxReport1; JKGenFastRep1.AddArquivoFR3(ExtractFilePath(ParamStr(0)) +  'Exemplo1.fr3'); JKGenFastRep1.Grid := DBGrid1; JKGenFastRep1.SelecionaColunas; JKGenFastRep1.AddVariaveis('titulo1','GERADOR DE RELATÓRIOS PARA FAST REPORT'); JKGenFastRep1.AddVariaveis('titulo2','Joemil Cássio - Sinop-MT - Nov/2019'); JKGenFastRep1.AddVariaveis('titulo3','RELATÓRIO COM AGRUPADORES E TOTALIZADORES'); // GRUPOS //JKGenFastRep1.AddGrupo('Nome', 'nome'); JKGenFastRep1.AddGrupo('Vencim.:', 'vencimento'); // TOTALIZADORES JKGenFastRep1.Totalizadores := 'valor,valorpago'; // IMAGENS JKGenFastRep1.AddImagens('Picture1', ExtractFilePath(ParamStr(0))+'Abacus.png

Olá galera, neste post vou adicionando varios links que vou coletando pela internet, pq ate eu to me perdendo neles kakaka . Object Pascal Programming https://objectpascalprogramming.com/ . Abrir Arquivo com mais de 2Gb http://theclub.com.br/Restrito/Revistas/201505/novo1505.aspx

função para gerar um InputQuery, porém, ao invés de usar um TEdit, é usado um TMemo function InputMemo(ACaption, ATexto: String; var AResult: String): Boolean; var Form: TForm;   Memo: TMemo;   Label1: TLabel;   ButtonOK, ButtonCancel: TButton;   iWidth: Integer; begin   iWidth := 350;   Form := TForm.Create(nil);   Form.Height := 200;   Form.Width := iWidth;   Form.Position := poScreenCenter;   Form.Caption := ACaption;   Label1 := TLabel.Create(Form);   Label1.Parent := Form;   Label1.Top := 5;   Label1.Left := 5;   Label1.Width := Form.Width - 10;   Label1.Caption := ATexto;   Memo := TMemo.Create(Form);   Memo.Parent := Form;   Memo.Top := Label1.Top + Label1.Height + 5;   Memo.Left := 5;   Memo.width := Form.Width - 10;   Memo.Height := Form.Height - Memo.Top - 45;   iWidth := iWidth + 95;   Form.Width := iWidth;   ButtonOK := TButton.Create(Form);   ButtonOK.Parent := Form;   ButtonOK.Top := 5;   ButtonOK.Left := iWidth - 20 - ButtonOK.Width;