LazReport Tutorial/pt: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		## Relatório
2	2
3	3		Vamos usar um demo de banco de dados fornecido pelo Delphi (alias DBDEMOS). Você deve criar uma nova aplicação com o formulário principal chamado Form1.
4	4
5	5		Ponha no formulário os seguintes componentes:
6	6
7	7		- TTable:
8	8		- Table1.DataBaseName := DBDEMOS
9	9		- Table1.TableName := ANIMALS.DBF
10	10		- Table1.Active := TRUE
11	11		- TDataSource
12	12		- DataSource1.DataSet := Table1
13	13		- TfrDBDataSet
14	14		- frDbDataSet.DataSource := DataSource1
15	15		- TfrReport
16	16		- TfrDesigner
17	17		- 2 TButton
18	18		- Button1.Caption := ' Editing'
19	19		- Button2.Caption := ' Preview'
20	20
21	21		O que resulta em:
22	22
23		-	~~<figure>~~
24		-	~~<img src="imagem1.jpg" title="imagem1.jpg" />~~
25		-	~~<figcaption>imagem1.jpg</figcaption>~~
26		-	~~</figure>~~
	23	+	![](/wiki-images/6/6f/Imagem1.jpg)
27	24
28	25		O LazReport permite associar nomes de variáveis a campos de dados ou valores do sistema, o que possibilita evitar que o usuário final decifre os geralmente pequenos nomes de campos. Em nosso exemplo vamos tentar criar uma variável nos campos BMP e NAME na Tabela1.
29	26
30		-	~~<figure>~~
31		-	~~<img src="imagem2.jpg" title="imagem2.jpg" />~~
32		-	~~<figcaption>imagem2.jpg</figcaption>~~
33		-	~~</figure>~~
	27	+	![](/wiki-images/2/23/Imagem2.jpg)
34	28
35	29		Clique em Variables Editor...
36	30
37		-	~~<figure>~~
38		-	~~<img src="imagem3.jpg" title="imagem3.jpg" />~~
39		-	~~<figcaption>imagem3.jpg</figcaption>~~
40		-	~~</figure>~~
	31	+	![](/wiki-images/7/74/Imagem3.jpg)
41	32
42	33		Agora clique no botão “Variables” para definir o lado esquerdo desta janela.
43	34
44		-	~~<figure>~~
45		-	~~<img src="imagem4.jpg" title="imagem4.jpg" />~~
46		-	~~<figcaption>imagem4.jpg</figcaption>~~
47		-	~~</figure>~~
	35	+	![](/wiki-images/6/6a/Imagem4.jpg)
48	36
49	37		Escreva as sentenças conforme indicado na figura acima. Demo Variables representa a categoria e CampoXXXX as variáveis. Para diferenciar as duas, as variáveis começam com um espaço. Então clique em OK para ter o seguinte:
50	38
51		-	~~<figure>~~
52		-	~~<img src="imagem5.jpg" title="imagem5.jpg" />~~
53		-	~~<figcaption>imagem5.jpg</figcaption>~~
54		-	~~</figure>~~
	39	+	![](/wiki-images/f/f1/Imagem5.jpg)
55	40
56	41		A categoria é disposta na ComboBox de variáveis acima. Cada variável precisa ser associada a um campo. Para isso, selecione a variável e depois o campo. A variável Name Field é associada ao campo Name da Tabela1.
57	42
58	43		Como para as variáveis, clique com o botão direito do mouse no componente frReport e então em New State. Você abriu o editor:
59	44
60		-	~~<figure>~~
61		-	~~<img src="imagem6.jpg" title="imagem6.jpg" />~~
62		-	~~<figcaption>imagem6.jpg</figcaption>~~
63		-	~~</figure>~~
	45	+	![](/wiki-images/3/38/Imagem6.jpg)
64	46
65	47		Talvez você tenha notado um pequeno número de objetos na barra de objetos.
66	48
67		-	~~<figure>~~
68		-	~~<img src="imagem7.jpg" title="imagem7.jpg" />~~
69		-	~~<figcaption>imagem7.jpg</figcaption>~~
70		-	~~</figure>~~
	49	+	![](/wiki-images/f/f3/Imagem7.jpg)
71	50
72	51		Deve ter visto que os objetos são iguais aos componentes QRLabel, QRMemo, etc, do QuickReport.
73	52
74		-	~~<figure>~~
75		-	~~<img src="imagem8.jpg" title="imagem8.jpg" />~~
76		-	~~<figcaption>imagem8.jpg</figcaption>~~
77		-	~~</figure>~~
	53	+	![](/wiki-images/f/f2/Imagem8.jpg)
78	54
79	55		Em nosso relatório em branco você deve clicar no tipo de faixa que deseja criar: Selecione o título do estado e clique OK.
80	56
81	57		\| Tipo de faixa \| Uso \|
82	58		\|-------------------\|-------------------------------------------------------\|
83	59		\| Report title \| Publicado apenas na primeira página \|
84	60		\| Report summary \| Publicado apenas na última página \|
85	61		\| Page header \| Publicado no topo de cada página \|
86	62		\| Page footer \| Publicado no pé de cada página \|
87	63		\| Master header \| Publicado no começo do primeiro nível (detalhe/barra) \|
88	64		\| Master Data \| Dados do primeiro nível \|
89	65		\| Master Footer \| Publicado no final do primeiro nível \|
90	66		\| Detail header \| Publicado no começo do segundo nível (barra/detalhe) \|
91	67		\| Detail Data \| Dados de segundo nível \|
92	68		\| Detail Footer \| Publicado no final do segundo nível \|
93	69		\| Subdetail Header \| Publicados no começo do terceiro (barra/detalhes) \|
94	70		\| Subdetail Data \| Dados de terceiro nível \|
95	71		\| Subdetail Footer \| Publicados no fim do terceiro nível \|
96	72		\| Overlay \| \|
97	73		\| Heading of column \| Publicado no topo de cada coluna \|
98	74		\| Column base \| Publicado no começo do grupo \|
99	75		\| Heading of group \| Publicado no topo de cada página \|
100	76		\| Foot of group \| Publicado no final do grupo \|
101	77		\| VarColumn \| Usado para tabelas cruzadas \|
102	78
103	79		Nesta faixa, adicione um retângulo e o dimensione como quiser. Escolha uma cor para o plano de fundo com o botão Baldinho Cheio, então clique duas vezes no retângulo para indicar o título.
104	80
105		-	~~<figure>~~
106		-	~~<img src="imagem9.jpg" title="imagem9.jpg" />~~
107		-	~~<figcaption>imagem9.jpg</figcaption>~~
108		-	~~</figure>~~
	81	+	![](/wiki-images/2/2f/Imagem9.jpg)
109	82
110	83		Na primeira linha deve ser indicado o título do relatório e na segunda, duas informações do sistema precisam ser adicionados. Eles são obtidos clicando em DB Field e depois em Other na ComboBox. Agora temos:
111	84
112		-	~~<figure>~~
113		-	~~<img src="imagem10.jpg" title="imagem10.jpg" />~~
114		-	~~<figcaption>imagem10.jpg</figcaption>~~
115		-	~~</figure>~~
	85	+	![](/wiki-images/b/b2/Imagem10.jpg)
116	86
117	87		Vamos inserir a faixa como dados mestre, então clique duas vezes nessa faixa para selecionar frDBDataSet1, a principal fonte de dados do nosso exemplo.
118	88
119		-	~~<figure>~~
120		-	~~<img src="imagem11.jpg" title="imagem11.jpg" />~~
121		-	~~<figcaption>imagem11.jpg</figcaption>~~
122		-	~~</figure>~~
	89	+	![](/wiki-images/a/ae/Imagem11.jpg)
123	90
124	91		Na metade esquerda da faixa insira um retângulo e dê um duplo clique.
125	92
126		-	~~<figure>~~
127		-	~~<img src="imagem12.jpg" title="imagem12.jpg" />~~
128		-	~~<figcaption>imagem12.jpg</figcaption>~~
129		-	~~</figure>~~
	93	+	![](/wiki-images/2/2d/Imagem12.jpg)
130	94
131	95		Aqui podem ser colocados vários campos, mas pode ser mantido um retângulo para um único campo a fim de aplicar formatos, por exemplo. A primeira linha Name \[Field Name\] é obtida escrevendo-se Name e então, com o botão Variable, inserindo a variável \[Field Name\] (poderíamos ter escrito isto diretamente). Para a segunda linha, Size\[\[Table1, “SIZE”\]*2.54\], nós escrevemos Size e com o botão DB Field escolhemos o tamanho do campo de Table1 e para converter este campo, expresso em polegadas, para centímetros, multiplicamos este campo por 2.54. Pode-se ver o poder do fastreport. Com apenas um retângulo coloca-se em nosso estado, a segunda nomeação, dois campos, incluindo um calculado. Agora no lado direito da faixa selecione uma imagem. Para mostrar sempre a mesma figura, seria suficiente dar um duplo clique nessa figura e carregar a figura desejada. Nós queremos uma figura associada com o pressionamento da tecla F11, para mostrar o Inspetor de Objetos.
132	96
133		-	~~<figure>~~
134		-	~~<img src="imagem13.jpg" title="imagem13.jpg" />~~
135		-	~~<figcaption>imagem13.jpg</figcaption>~~
136		-	~~</figure>~~
	97	+	![](/wiki-images/f/f9/Imagem13.jpg)
137	98
138	99		Informe a propriedade do Memo com a propriedade \[ImageField\]. Isso transforma a figura em um objeto associado com o campo de dados. O nosso primeiro estado está concluído. Deve ser gravado com o mesmo nome rapff. Um clique na pré-visualizaçao nos dá:
139	100
140		-	~~<figure>~~
141		-	~~<img src="imagem14.jpg" title="imagem14.jpg" />~~
142		-	~~<figcaption>imagem14.jpg</figcaption>~~
143		-	~~</figure>~~
	101	+	![](/wiki-images/e/e3/Imagem14.jpg)
144	102
145	103		Agora vamos escrever o código necessário para carregar e visualizar ou editar o nosso relaltório rap1frf. Para isto adicione ao projeto o seguinte código:
146	104
147	105		`TForm1.Button2Click(Sender procedure: TObject); `\
148	106		`begin `\
149	107		` frReport1.LoadFromFile(' rap1.frf'); `\
150	108		` FrReport1.ShowReport; `\
151	109		`end;`\
152	110		`TForm1.ButtonClick(Sender procedure: TObject); `\
153	111		`begin `\
154	112		` frReport1.LoadFromFile(' rap1.frf'); `\
155	113		` frReport1.DesignReport; `\
156	114		`end; `\
157	115
158	116		Você tem uma edição com pré-visualização que dá a possibilidade de os usuários finais modificarem o relatório sem precisar modificar a aplicação básica.
159	117
160	118		Agora vamos adicionar funcionalidades ao nosso exemplo básico. Você deve adicionar um componente TButton com a propriedade Caption := ‘Print’; e um TPrintDialog. Obtemos isso:
161	119
162		-	~~<figure>~~
163		-	~~<img src="imagem15.jpg" title="imagem15.jpg" />~~
164		-	~~<figcaption>imagem15.jpg</figcaption>~~
165		-	~~</figure>~~
	120	+	![](/wiki-images/3/31/Imagem15.jpg)
166	121
167	122		Adicione também as unidades de impressora na cláusula uses do seu formulário e ponha o seguinte código no evento OnClick do botão Print:
168	123
169	124		`TForm1.bPrintClick(Sender procedure: TObject); `\
170	125		`var`\
171	126		` FromPg, ToPg, Cpy: Integer; `\
172	127		` ind: Integer; `\
173	128		` St: String; `\
174	129		` Collap: Boolean; `\
175	130		`begin `\
176	131		` / / Carregar o estado`\
177	132		` St:=ExtractFilePath(ParamStr(0)); `\
178	133		` frReport1.LoadFromFile(St+' rap1.frf'); `\
179	134		` / / Mudando a impressora padrão`\
180	135		` ind: = Printer.PrinterIndex; `\
181	136		` / / Preparar o estado; para sair se a preparação não funcionar`\
182	137		` if not frReport1.PrepareReport then Exit; `\
183	138		` / / inicializa a limpeza do diálogo para edição de parâmetros`\
184	139		` with PrintDialog1 C `\
185	140		` begin `\
186	141		` Options:=[poPageNums ]; / / autoriza a seleção de páginas`\
187	142		` Copies: = 1; / / apenas uma espécie`\
188	143		` Collate: = True; / / cópias ordenadas`\
189	144		` FromPage: = 1; / / página do começo`\
190	145		` ToPage: = frReport1.EMFPages.Count; // última página`\
191	146		` MaxPage: = frReport1.EMFPages.Count; / / número máximo de página`\
192	147		` if Execute then / / limpeza do diálogo `\
193	148		` begin `\
194	149		` if (Printer.PrinterIndex < > ind )/ / a impressora mudou? `\
195	150		` or frReport1.CanRebuild / / possui uma regeneração de estado? `\
196	151		` // mudança de impressora `\
197	152		` or frReport1.ChangePrinter(ind, Printer.PrinterIndex) then `\
198	153		` frReport1.PrepareReport `\
199	154		` else Exit; / / a mudança de impressora ocorreu de forma errônea `\
200	155		` if PrintDialog1.PrintRange = prPageNums then / / fez-se uma seleção de páginas`\
201	156		` begin `\
202	157		` FromPg : = PrintDialog1.FromPage; / / primeira página`\
203	158		` ToPg : = PrintDialog1.ToPage; / / última `\
204	159		` end; `\
205	160		` Cpy :=PrintDialog1.Copies; / / número de cópias `\
206	161		` Collap :=PrintDialog1.Collate; / / exemplares ordenados `\
207	162		` // recorte de edição da página FromPg com ToPg , " Cpy " `\
208	163		` // exemplares ordenados (Collap)) `\
209	164		`frReport1.PrintPreparedReport(FromPg, ToPg, Cpy, Collap); `\
210	165		` end; `\
211	166		` end; `\
212	167		`end;`
213	168
214	169		É um pouco longo mas nada impede que você crie uma classe herdada do TfrReport com um método de impressão ou, mais fácil, crie um procedimento PrintReport(letat: string) que carregue o relatório e o imprima.
215	170
216	171		No menu Edit File \> Page Options você obtém isso:
217	172
218		-	~~<figure>~~
219		-	~~<img src="imagem24.jpg" title="imagem24.jpg" />~~
220		-	~~<figcaption>imagem24.jpg</figcaption>~~
221		-	~~</figure>~~
	173	+	![](/wiki-images/7/73/Imagem24.jpg)
222	174
223	175		Para escolher o tamanho do papel
224	176
225		-	~~<figure>~~
226		-	~~<img src="imagem16.jpg" title="imagem16.jpg" />~~
227		-	~~<figcaption>imagem16.jpg</figcaption>~~
228		-	~~</figure>~~
	177	+	![](/wiki-images/a/ac/Imagem16.jpg)
229	178
230	179		Para escolher as margens
231	180
232		-	~~<figure>~~
233		-	~~<img src="imagem17.jpg" title="imagem17.jpg" />~~
234		-	~~<figcaption>imagem17.jpg</figcaption>~~
235		-	~~</figure>~~
	181	+	![](/wiki-images/3/3d/Imagem17.jpg)
236	182
237	183		Para especificar o número de colunas e o espaço entre as colunas.
238	184
239	185		No menu principal do editor, selecione File \> Report options para mostrar a seguinte caixa de diálogo:
240	186
241		-	~~<figure>~~
242		-	~~<img src="imagem18.jpg" title="imagem18.jpg" />~~
243		-	~~<figcaption>imagem18.jpg</figcaption>~~
244		-	~~</figure>~~
	187	+	![](/wiki-images/4/4c/Imagem18.jpg)
245	188
246	189		Aqui você especifica a impressora necessária para o carregamento de estados e se a preparação é feita em duas formas.
247	190
248	191		Se você quer numerar suas páginas com a página atual a partir do número total de páginas, você deve escolher a opção Two-pass Report.
249	192
250	193		Aqui serão adicionadas ao nosso exemplo algumas variáveis não relacionadas aos dados. Elas tornarão possível, por exemplo, mostrar as diferentes nomeações de acordo com o contexto. Para isso, abra o editor de relatórios e selecione o menu File e a Lista de Variáveis. Com uma variável Test, como explicado anteriormente, a única diferença é que você não vai selecionar um campo de valor, mas deixar None (o valor padrão). Publique um dos objetos e adicione a variável Test como visto anteriormente. Retorne ao Delphi (não esquecer de salvar seu relatório) e publique o evento OnGetValue do componente FrRepor1 adicionando o seguinte código:
251	194
252	195		`procedure TForm1.frReport1GetValue(const ParName: String; `\
253	196		`var ParValue: Varying; VAr fld: TField); `\
254	197		`begin `\
255	198		` // trata o caso de variáveis não dependentes`\
256	199		` if UpperCase(ParName)=' TEST' then `\
257	200		` ParValue:=' Answer: Variable " test1 " '; `\
258	201		`end;`
259	202
260	203		Ou também é possível passar o valor diretamente para a variável através do seguinte código:
261	204
262	205		` procedure TForm1.Button1Click(Sender:TObject);`\
263	206		` begin`\
264	207		` frReport1.Values.FindVariable('test').Field := QuotedStr('test1');`\
265	208		` frReport1.ShowReport;`\
266	209		` end;`
267	210
268	211		Isto não é usado para os dados, mas para permitir formatar os dados com DisplayFormat. Agora vamos ver como criar uma variável calculada. Como antes, vamos criar uma nova categoria (opcional) e uma variável. Test Calculation. Selecione uma nova variável e escolha um valor da ComboBox " Other " e " Expression ". Essa seleção ativa a área de dados de entrada Expression. Escreva o seguinte: \[Table1."SIZE"\] + \[Table1."WEIGHT"\] . Dessa forma você obterá o sumário dos campos de dados Size e Weight. Você também pode colocar nome nas variáveis. E pode utilizar os seguintes operadores:
269	212
270	213		\| Tipos de Operadores \| Operadores \|
271	214		\|----\|----\|
272	215		\| Logic \| \>, \<, BUT, AND, NOT, =, \< \>, \> =, \< = \|
273	216		\| Mathematics\\|\\|-, *, +, MOD, / \| \|
274	217
275	218		Mais à frente você poderá dispor dos seguintes funções padronizadas:
276	219
277	220		\| Função \| Descrição \| Exemplos \|
278	221		\|----------------\|---------------------------\|----------\|
279	222		\| SUM \| Soma \| \|
280	223		\| AVG \| Média \| \|
281	224		\| MIN \| Mínimo \| \|
282	225		\| MAX \| Máximo \| \|
283	226		\| FORMATDATETIME \| Data e hora formatadas \| \|
284	227		\| FORMATFLOAT \| Ponto flutuante formatado \| \|
285	228		\| LOWERCASE \| Letras minúsculas \| \|
286	229		\| NAMECASE \| Primeira maiúscula \| \|
287	230		\| STRTODATE \| Data para string \| \|
288	231		\| STRTOTIME \| Hora para string \| \|
289	232		\| UPPERCASE \| Letras maiúsculas \| \|
290	233
291	234		Se não for suficiente você pode criar suas próprias funções, mas isso nós veremos mais adiante.
292	235
293	236		Agora vamos definir um formato para as variáveis de uma área. Um formato é válido para todas as variáveis de uma área de display. Para mostrar o editor de formatos, clique com o botão direito em uma área e então em Variable Format.
294	237
295		-	~~<figure>~~
296		-	~~<img src="imagem19.jpg" title="imagem19.jpg" />~~
297		-	~~<figcaption>imagem19.jpg</figcaption>~~
298		-	~~</figure>~~
	238	+	![](/wiki-images/8/8e/Imagem19.jpg)
299	239
300	240		A primeira ComboBox indica o tipo de dado (texto, numérico, data, hora, lógico). A segunda permite selecionar o formato preestabelecido. O tipo Text não permite qualquer formatação e o tipo Number requer um número decimal com vírgula. A não ser para os tipos Text e Logic, você pode usar as funções de formatação do Delphi. Você pode incluir também o conceito de highlighting, que é muito útil para enfatizar dados. Você pode especificar uma condição para aplicar o highlighting. Para isso use a palavra-chave Value para indicar o valor da variável. Aqui é requisitado o highlighting para todos os valores maiores que 1000. Por padrão o highlighter é um simples negrito sobre fundo branco. Você pode definir esses parâmetros para uma área clicando no botão Realce.
301	241
302		-	~~<figure>~~
303		-	~~<img src="imagem20.jpg" title="imagem20.jpg" />~~
304		-	~~<figcaption>imagem20.jpg</figcaption>~~
305		-	~~</figure>~~
	242	+	![](/wiki-images/8/8c/Imagem20.jpg)
306	243
307	244		Então você pode definir a cor do plano de fundo, o estilo e a cor da fonte a ser usada selecionando Intesified brightness.
308	245
309	246		## Funções
310	247
311	248		É necessário adicionar ao arquivo FR.lng a linha seguinte:
312	249
313	250		FCT = CATEGORY \\| FCT(\<X\>, \<Y\>, \<Z \>) \\| Help on the function
314	251
315	252		onde: FCT é o nome da função. CATEGORY, é o nome da categoria. FCT(\<X\>, \<Y\>, \<Z \>), é a visualização dos parâmetros necessários, com no máximo 3 parâmetros. Help., é uma pequena Ajuda que deve tornar possívell ao usuário entender o objetivo da função. \\| é um separador. Cada parâmetro é separado por vírgula e pode ser uma expressão, uma constante, uma variável, um campo ou dados. As constantes de tipo alfanumérico devem ser limitadas por um caractere. As variáveir são limitadas por and. Os campos de dados são limitados como as variáveis e tem o seguinte formato:
316	253
317	254		Dataset_Name. "Field_Name"
318	255
319	256		Funções Estatísticas:
320	257
321	258		SUM(\<X \>)
322	259		. Retorna a soma dos valores dados por \<X\>, que é geralmente um campo de dados.
323	260
324	261		AVG(\<X \>)
325	262		Retorna a média dos valores dados por \<X\>.
326	263
327	264		COUNT
328	265		Meter.
329	266
330	267		MIN(\<X \>)
331	268		Retorna o valor mínimo dos valores dados em \<X\>.
332	269
333	270		MAX(\<X \>)
334	271		Retorna o valor máximo dos valores dados em \<X \>.
335	272
336	273		### Funções nos dados:
337	274
338	275		FORMATDATETIME(\<X\>, \<Y \>)
339	276		Retorna os dados abreviados em (TDateTime) \< Y \> no formato \< X \>. \< X \> usa a descrição padrão [Lazarus para formatos](https://www.freepascal.org/docs-html/rtl/sysutils/formatdatetime.html).
340	277
341	278		FORMATFLOAT(\<X\>, \<Y \>)
342	279		Retorna o numeral \< Y \> no formato \< X \>. \< X \> usa o padrão de descrição [Lazarus para formatos](https://www.freepascal.org/docs-html/rtl/sysutils/formatfloat.html).
343	280
344	281		STRTODATE(\<X \>)
345	282		Retorna a repesentação (TdateTime) da string \< X \>. \< X \> deve respeitar o formato de dados
346	283
347	284		STRTOTIME(\<X \>)
348	285		Retorna A representação digital (TDateTime) da string \< X \>. \< X \> deve respeitar o formato de horas.
349	286
350	287		### Funções nos caracteres de conexão:
351	288
352	289		LOWERCASE(\<X \>)
353	290		Retorna a string \<X\> em letras minúsculas.
354	291
355	292		UPPERCASE(\<X \>)
356	293		Retorna a string \<X\> em maiúsculas.
357	294
358	295		NAMECASE(\<X \>)
359	296		Retorna a string \<X\> com a primeira letra maiúscula.
360	297
361	298		COPY(\<X\>, \<Y\>, \<Z \>)
362	299		Retorna a string \<X\> na posição \< Y \> e comprimento\< Z \>.
363	300
364	301		Funções nos numerais:
365	302
366	303		FRAC(\<X \>)
367	304		Retorna a parte decimal do número \< X \>.
368	305
369	306		INT(\<X \>)
370	307		Retorna a parte inteira do número \< X \>.
371	308
372	309		ROUND(\<X \>)
373	310		Retorna o número inteiro correspondente ao arredondamento de \< X \>.
374	311
375	312		STR(\<X \>)
376	313		Retorna a string correspondente de um número \< X \>.
377	314
378	315		### Funções Lógicas:
379	316
380	317		IF(\<X\>, \<Y\>, \<Z \>)
381	318		Retorna \< Y \> se a expresssão \< X \> é verdadeira, se falsa retorna \< Z \>.
382	319
383	320		Para adicionar suas próprias funções é realmente muito simples. Aqui um código-fonte para adicionar as funções POS e SQRT:
384	321
385	322		`Unit FR_OGFct;`\
386	323		`interface `\
387	324		`implementation `\
388	325		`uses FR_Pars, FR_Class; / / Declaração-padrão`\
389	326		`type `\
390	327		` //Declaração de TBrOGFunctionLibrary `\
391	328		`TfrOGFunctionLibrary = class(TfrFunctionLibrary)`\
392	329		` public `\
393	330		` constructor Create; override; `\
394	331		` procedure DoFunction(FNo:integer procedure; p1, p2,`\
395	332		` p3:Variant; var valley:string); override; `\
396	333		` p3:Variant; var valley:string);`\
397	334		` end; `\
398	335		`//************************** / / * TfrOGFunctionLibrary `\
399	336		`constructor TfrOGFunctionLibrary.Create;`\
400	337		`begin `\
401	338		` inherited Create; `\
402	339		` with List do `\
403	340		` begin`\
404	341		` Add('POS');`\
405	342		` ADD('SQRT');`\
406	343		` end;`\
407	344		`end;`\
408	345		`Procedure TfrOGFunctionLibrary.DoFunction(FNo:Integer procedure; p1,`\
409	346		`p2, p3:Variant; Var valley:String);`\
410	347		`VAr Par1, Par2: Varying;`\
411	348		` Result: Variantying;`\
412	349		`begin`\
413	350		`Try`\
414	351		` Case FNo of //FNo é um íindice das funções declaradas no constructor `\
415	352		` 0 : Begin //função POS `\
416	353		` Par1:=VarToStr(Parser.Calc(p1)); `\
417	354		` Par2:=VarToStr(Parser.Calc(P2)); `\
418	355		` Resultat:=Pos(Par1,Par2);`\
419	356		` end;`\
420	357		` 1 : Resultat:=SQRT(Parser.Calc(P1)); //função SQRT`\
421	358		` end;`\
422	359		` Except `\
423	360		` // String resultante se der erro `\
424	361		` Resultat:='Erreur fonction '+List.Strings[FNo];`\
425	362		` end;`\
426	363		` Val:=VarToStr(Resultat); // String resultante`\
427	364		`end;`\
428	365		`Procedure DoInit;`\
429	366		`begin`\
430	367		` frRegisterFunctionLibrary(TfrOGFunctionLibrary);`\
431	368		`end;`
432	369
433	370		No arquivo FR.lng, anexe as seguintes linhas:
434	371
435	372		SQRT = Matemática e Trigonometria \\| SQRT(\<X\>) \\|Retorna a raiz quadrada de \<X\>\
436	373		POS = Strings \\| POS(\<X\>,\<Y\>) Retorna a posição da string \<X\> em \<Y\>
437	374
438	375		Publique um estado, então em File\>List esta janela aparecerá:
439	376
440		-	~~<figure>~~
441		-	~~<img src="imagem21.jpg" title="imagem21.jpg" />~~
442		-	~~<figcaption>imagem21.jpg</figcaption>~~
443		-	~~</figure>~~
	377	+	![](/wiki-images/1/10/Imagem21.jpg)
444	378
445	379		Você pode notar o aparecimento de um pequeno botão (...), ativo somente se for o caso de uma expressão. Clique para abrir o editor abaixo:
446	380
447		-	~~<figure>~~
448		-	~~<img src="imagem22.jpg" title="imagem22.jpg" />~~
449		-	~~<figcaption>imagem22.jpg</figcaption>~~
450		-	~~</figure>~~
	381	+	![](/wiki-images/0/0f/Imagem22.jpg)
451	382
452	383		Você pode notar a semelhança. Se clicar no botão Add você vai carregar o editor de parâmetros:
453	384
454		-	~~<figure>~~
455		-	~~<img src="imagem23.jpg" title="imagem23.jpg" />~~
456		-	~~<figcaption>imagem23.jpg</figcaption>~~
457		-	~~</figure>~~
	385	+	![](/wiki-images/2/23/Imagem23.jpg)
458	386
459	387		De acordo com o número de parâmetros, você terá mais ou menos zonas de edição. O botão (...) torna possível abrir o gerador de expressões para informar o parâmetro.
460	388
461	389		------------------------------------------------------------------------
462	390
463	391		tradução: Ana Carolina Simplicio de Oliveira
464	392
465	393		## See also
466	394
467	395		- [[LazReport Tutorial]] English translation of this article
468	396
469	397		---
470	398		From the Free Pascal wiki, page "LazReport Tutorial/pt", as it stood on 2018-03-29 after a change by Mario13, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).
471	399		Category: LazReport/pt
472	400		Category: Lazarus/pt

Back to history