Adicionar caixa à página do documento

Estrutura

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

Parâmetros

| Parâmetro | Tipo | Descrição | | sDocFile | String | o ficheiro original a atualizar | | iPageNum | Inteiro | Página onde pretende adicionar a caixa | | 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. |

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 uma página específica de um ficheiro PDF criado anteriormente. Especifique a página utilizando o segundo parâmetro iPageNum. 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

if AddBoxToDocumentPageNum("C:\Temp\testpdf.pdf", 2, 600, 300, 135, 50,

0, 0,

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

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

Fim do if