[CB] 긴 문자열 줄이기. (AnsiString, Canvas, TextWidth, Width)

문자열이 화면에 표시될때의 가로폭은 TCanvas.TextWidth 를 이용하여 확인된다.

1. 문자열이 원하는 길이보다 크면 문자열 뒤에 말줄임표 추가

2. 문자열이 원하는 길이보다 길지 않을 때까지, 말줄임표 앞 1글자를 삭제

3. 말줄임표 앞 1글자가 2바이트 문자의 앞(Lead) 문자일 경우 삭제

AnsiString __fastcall TextEllipsis(TCanvas *C, AnsiString V, int W, const AnsiString &P = "...")

{

for (C->TextWidth(V) > W? V += P: V; V.Length() > 0 && C->TextWidth(V) > W; V.Delete(V.Length() - P.Length(), 1));

if (ByteType(V, V.Length() - P.Length()) == mbLeadByte) {

V.Delete(V.Length() - P.Length(), 1);

}

return V;

}