Titolo: Ottenere testo formattato da 4D Write
Categoria: Plugin |
|
Ultimo Aggiornamento: 11/01/05 |
Ecco un metodo che ritorna come risultato un blob contenente il testo formattato presente in un'area 4DWrite. Il risultato del metodo puo essere inserito in un altro documento usando il comando WR INSERT STYLED TEXT.
` $1 - L'area 4D Write
` $2 - Posizione del primo carattere
` $3 - Posizione dell'ultimo carattere
` $0 - Blob il testo
C_LONGINT($1;$wrarea)
C_LONGINT($2;$3;$begsel;$endsel)
C_BLOB($0;$StyledTextBlob)
$wrarea:=$1
$begsel:=$2
$endsel:=$3
Case of : (($begsel>=0) & ($endsel>0))
If ($begsel<$endsel)
WR SET FRAME($wrarea;wr text frame )
WR SET SELECTION($wrarea;$begsel;$endsel)
$StyledTextBlob:=WR Get styled text($wrarea)
End if: (($begsel=-1) & ($endsel=-1)) ` Copy all
WR SET FRAME ($wrarea;wr text frame )
WR EXECUTE COMMAND ($wrarea;wr cmd select all )
$StyledTextBlob:=WR Get styled text ($wrarea)
End case $0:=$StyledTextBlob
Inviato da: PierPaolo Sichera |
|
Visite: 13773 |
Se accedi con utente e password, puoi aggiungere dei commenti.