Adicionar caixa ao documento

Estrutura

AddBoxToDocument(sDocFile; iTop, iLeft, iWidth, iHeight, iTransparency, iDrawOptions, iRed, iGreen, iBlue: Integer; bFirstPageOnly: Boolean): Char

Parâmetros

| Parâmetro | Tipo | Descrição | | sDocFile | String | o ficheiro original a atualizar | | iTop | Inteiro | posição da caixa - parte superior | | iLeft | Inteiro | posição da caixa - esquerda | | iWidth | Inteiro | Largura da caixa. | | iHeight | Inteiro | Altura da caixa. | | iTransparency | Inteiro | Transparência - percentagem entre 0 e 100 | | iDrawOptions | Inteiro | 0 = Contorno

1 = Preenchimento

2 = Preenchimento e contorno | | iRed | Inteiro | A componente vermelha da cor. Os valores dos parâmetros de cor variam entre 0 e

1, sendo que 0 indica 0% e 1 indica 100% da cor. | | iGreen | Inteiro | A componente verde da cor. Os valores dos parâmetros de cor variam entre 0 e

1, sendo que 0 indica 0% e 1 indica 100% da cor. | | iBlue | Inteiro | A componente azul da cor. Os valores dos parâmetros de cor variam entre 0 e

1, sendo que 0 indica 0% e 1 indica 100% da cor. | | bFirstPageOnly | Booleano | True ou False - se pretende que a caixa seja adicionada apenas à primeira página do documento ou a todas as páginas |

Valor de retorno

Char

«1» = Sucesso, «0» = Falha. O sucesso significa que o ficheiro recém-atualizado existe

Descrição

Utilize esta função para adicionar automaticamente uma caixa a um ficheiro PDF criado anteriormente. Este texto pode ser adicionado a todas as páginas ou apenas à primeira página, consoante o último parâmetro. Nota: os parâmetros de posição estão expressos em unidades que correspondem exatamente a 1/72 de polegada por unidade, o que equivale aproximadamente a um «ponto», uma unidade utilizada na indústria gráfica. 25,4 milímetros equivalem a uma polegada.

Exemplo

se AddBoxToDocument("C:\Temp\testpdf.pdf", 600, 300, 135, 50,

0, 0,

(100, 0, 0, True) = "0" então

ShowMessage("O documento NÃO foi modificado")

Fim do if