[RAD] TCanvas 의 글자 폭, 높이 구하기

TCanvas 에는 TextWidth, TextHeight 가 있어 폭과 높이를 구할 수 있다.
TListBox, TListView, TStringGrid 등에서 CustomDraw 를 할 경우 텍스트 위치를 잡아주기 위해 필요한 정보다.
그 함수를 들여다 보면 둘 모두 TextExtent 를 호출하여 가로, 세로 폭을 얻은 뒤 한 쪽 정보만을 넘겨준다.
한 쪽 정보만 필요하다면 어차피 같겠지만 가로, 세로 모두 필요한 경우 저 두 함수를 호출 하면 크기 정보를 두번 가져오게 된다.
그냥 TextExtent 를 직접 호출 하여 TSize 형태의 정보로 가져온 뒤 값을 참조 한다면 쓸데없는 호출은 줄일 수 있다.