| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
code64 Novato

Registrado: Sábado, 15 de Abril de 2017 Mensagens: 1
|
Enviada: Sáb Abr 15, 2017 5:04 pm Assunto: Erro evento |
|
|
Por que tá dando erro na linha 5 ?
procedure DetailBeforePrint;
1.begin
2. if vw_GridItensOrcamento['Origem']='ATIVO' then
3. begin
4. Descricao.Font.Color := clblack;
5. Descricao.Font.Style := [fsBold];
6.end
7.else
8.begin
9. Descricao.Font.Color := clred;
10. end;
11.
12.end;
ERRO, LINHA 5, ESPERADO '(' OU '[' MAS AO INVÉS ENCONTROU 'STYLE' |
|
| Voltar ao Topo |
|
 |
natanbh1 Colaborador

Registrado: Terça-Feira, 15 de Março de 2011 Mensagens: 3093 Localização: Belo Horizonte - MG
|
Enviada: Seg Abr 17, 2017 10:01 am Assunto: |
|
|
Pelo evento que você postou, você deve estar usando algum gerenciador de relatórios. Qual ? FastReport?
Teste seu código removendo os colchetes de fsBold:
| Código: | if vw_GridItensOrcamento['Origem'] = 'ATIVO' then
begin
Descricao.Font.Color := clblack;
Descricao.Font.Style := fsBold;
End
else
Descricao.Font.Color := clred; |
_________________ ''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
| Voltar ao Topo |
|
 |
|