Conocer la altura de un ítem en un TListView

[Angel.Matilla]

Buenos días. He estado mirando y no he encontrado ninguna forma de saber la altura que tiene cada ítem de un TListView. Lo único parecido que he encontrado ha sido un código que facilitó _Leo en otro foro para calualr la altura de cada línea de un QRMemo:

// Calculamos la altura exacta de una línea
SIZE size;
HDC hdc = GetDC(QRMemo1->Handle);
SelectObject(hdc, QRMemo1->Font->Handle);
GetTextExtentPoint32(hdc, "Mg", 2, &size);
ReleaseDC(QRMemo1->Handle, hdc);

[Angel.Matilla]

Me respondo a mi mismo. Había escrito mal una de las líneas. Quedaría así:

int BorderWidth;
TRegistry *rRegistro = new TRegistry();

rRegistro->RootKey = HKEY_CURRENT_USER;
if (rRegistro->OpenKeyReadOnly("Control Panel\\Desktop\\WindowMetrics"))
     BorderWidth = MulDiv(-StrToFloat(rRegistro->ReadString("PaddedBorderWidth")), Screen->PixelsPerInch, 1440);

// Calculamos la altura exacta de una línea
SIZE size;
HDC hdc = GetDC(Lista->Handle);
SelectObject(hdc, Lista->Font->Handle);
GetTextExtentPoint32(hdc, "Mg", 2, &size);
ReleaseDC(Lista->Handle, hdc);

// Calculamos la altura del ListView para que muestre todas las líneas
Lista->Height = 2 * BorderWidth + size.cy * Lista->Items->Count;

Siendo Lista el TListView.