Ajustando un poco
ComboBox1DrawItem para que centre bien la opción elegida al dibujarla en la zona EDIT del ComboBox:
Código PHP:
void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index,
TRect &Rect, TOwnerDrawState State)
{
TComboBox *CB = dynamic_cast<TComboBox*>(Control);
if(CB){
CB->Canvas->FillRect(Rect);
if(!State.Contains(odComboBoxEdit))
Rect.Right -= GetSystemMetrics(SM_CXVSCROLL);
SetTextAlign(CB->Canvas->Handle, TA_CENTER);
CB->Canvas->TextOut(Rect.Right/2, Rect.Top + (CB->ItemHeight + CB->Font->Height)/2, CB->Items->Strings[Index]);
}
}
El ajuste con GetSystemMetrics(SM_CXVSCROLL) es para que al desplegar el ComboBox no de la sensación de incoherencia en el centrado entre Items y la zona EDIT.
Saludos.