AdicionarCaixaDeTextoGiradaAoDocumento

Estrutura

AddRotatedTextToDocument(sDocFile, sText: String; iTop, iLeft, iWidth, iHeight, iAngle, iTransparency, iOptions, iBorder, iRadius, iDrawOptions, iTextAlign, iTextSize, iRed, iGreen, iBlue: Integer; bFirstPageOnly: Boolean): Char

Parâmetros

| Parâmetro | Tipo | Descrição
| sDocFile | String | o ficheiro original a atualizar sText | String | o texto a adicionar iTop | Inteiro | posição do texto - parte superior iLeft | Inteiro | posição do texto - esquerda iWidth | Inteiro | Largura do texto.iHeight | Inteiro | Altura do texto.iAngle | Inteiro | O ângulo em que a caixa deve ser rodada em torno do canto superior esquerdo, medido

no sentido anti-horário em graus.iTransparency | Inteiro | Transparência - percentagem entre 0 e 100.iOptions | Inteiro | 0 = Alinhamento vertical central

1 = Alinhamento vertical superior

2 = Alinhamento vertical inferior

3 = Alinhamento vertical central, sem quebra automática

4 = Alinhamento vertical superior, sem quebra automática

5 = Alinhamento vertical inferior, sem quebra automáticaiBorder | Inteiro | 0 = Sem borda

1 = Borda

2 = Borda com cantos arredondadosiRadius | Inteiro | Raio dos arcos dos cantosisiDrawOptions | Inteiro | 0 = Contorno

1 = Preenchimento

2 = Preenchimento e contornoiTextAlign | Inteiro | 0 = Alinhado à esquerda (padrão)

1 = Alinhado ao centro

2 = Alinhado à direita

3 = Justificado

4 = Forçar justificação

5 = Justificar última linha

Qualquer outra opção = Alinhado à esquerdaiTextSize | Inteiro | O tamanho do texto em pontos 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 o texto HTML seja adicionado 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 texto rodado 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

sText = " APROVADO "

if AddRotatedTextBoxToDocument(GetCurrentSignOffDoc, sText, 600, 300, 135, 50,

20, 0, 0, 2, 20, 2, 0, 20,

100, 0, 0, True) = "0" then

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

End If

|