Wrap Text

Wrap Text

  07.17    Prometheus

---

&& FUNCTION WrapWord

&& PARAMETERS _Word2Wrap,_LenWrap

&& Untuk warp text pada panjang tertentu 

&& Fungsi ini memerlukan fungsi CutWordAt yang telah dibahas sebelumnya

FUNCTION WrapWord

PARAMETERS _Word2Wrap,_LenWrap

PRIVATE _Word2Wrap,_LenWrap,_MinLenWrap,_WrapKei,_SisaWrap,;

_BalikWrap,_Counter,_Word1

IF LEN(_Word2Wrap)<_LenWrap

RETURN _Word2Wrap

ENDIF 

_MinLenWrap=0

FOR _WrapKei=1 TO JumKata(_Word2Wrap)

_TestLenWrap=LEN(KataKeX(_Word2Wrap,_WrapKei))

_MinLenWrap=MAX(_MinLenWrap,_TestLenWrap)

NEXT

&& GAGAL :

IF _LenWrap<_TestLenWrap  && Jika nilai wrap yg diingin lebih kecil dari panjang max kata dalam kalimat

RETURN _Word2Wrap

ENDIF 

_SisaWrap=_Word2Wrap

_BalikWrap=""

_Counter=1

DO WHILE LEN(_SisaWrap)>_LenWrap .and. _Counter<=LEN(_Word2Wrap)

_Word1=ALLTRIM(CutWordAt(_SisaWrap,_LenWrap))

IF EMPTY(_BalikWrap)

_BalikWrap=_Word1

ELSE 

IF LEN(_Word1)>0

_BalikWrap=_BalikWrap+CHR(13)+_Word1

ENDIF 

ENDIF 

_SisaWrap=ALLTRIM(STRTRAN(_SisaWrap,_Word1,""))

_Counter=_Counter+1

ENDDO 

IF LEN(_SisaWrap)>0

_BalikWrap=_BalikWrap+CHR(13)+_SisaWrap

ENDIF 

RETURN _BalikWrap