Amigo tengo un problema aquí:
Código PHP:
void __fastcall TForm1::ListBoxSeleccionadosDrawItem(TWinControl *Control, int Index,
TRect &Rect, TOwnerDrawState State)
{
const int SPACE_IMG = 5;
TListBox *LB = dynamic_cast<TListBox*>(Control);
TRect R = Rect;
WideString s = LB->Items->Strings[Index];
int textHeight = LB->Canvas->TextHeight(s);
int textLeft = R.left + ImageList1->Width + SPACE_IMG;
int textTop = R.top + R.Height() / 2 - textHeight / 2;
ImageList1->Draw(LB->Canvas, R.left, R.top, Index);
LB->Canvas->TextOutA(textLeft, textTop, s);
}
El error que me da es este:
Código:
[bcc64 Error] Unit1.cpp(713): no member named 'TextOutA' in 'Vcl::Graphics::TCanvas'
Si pongo "LB->Canvas->TextO" el autocompletado me muestra esto:
https://ibb.co/kXjXc6y
He probado a usar AnsiString, WideString y UnicodeString y siempre me muestra el mismo error.
¿Puedes ayudarme?