TextLen

Ukázka prodloužení textu

Popis

declare function ChangeTextLen dll "ActualDocument" (string, string, integer): string

script ChangeTextLenScript (): boolean
var
  sVal, sNewVal: string
begin
  sVal := "Jméno Příjmení"
  sNewVal := ChangeTextLen(sVal, " ",  30)
  sNewVal += "20 Kč"
  write(sNewVal)

  result := true
end