Combobox leer nach TranslateComponent

[Hedge]

Ich verwende dxgettext und meine Combobox hat den Style csOwnerDrawFixed.
Diese dient zum Auswählen der Sprache.
Darin lass ich lustige Flaggen zeichnen. OnDrawItem sieht so aus:

Delphi-Quellcode:

procedure TMainForm.LanguageComboBoxDrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
  LanguageComboBox.canvas.fillrect(rect);
  LanguageImageList.Draw(LanguageComboBox.Canvas,rect.left,rect.top,Index);
  LanguageComboBox.canvas.textout(rect.left+LanguageImageList.width+2,rect.top,
                          LanguageComboBox.items[index]);
end;

und OnChange so:

Delphi-Quellcode:

procedure TMainForm.LanguageComboBoxChange(Sender: TObject);
begin
  if (LanguageComboBox.Text='English') or (LanguageComboBox.Text='Englisch') then
  begin
    UseLanguage ('en');
  end
  else if (LanguageComboBox.Text='German') or (LanguageComboBox.Text='Deutsch') then
    UseLanguage ('de');
  ReTranslateComponent(self);
  LanguageComboBox.Refresh;
end;

Mein Problem ist, dass nach RetranslateComponent die ComboBox leer ist.
Habe schon Refresh, Repaint und Update probiert, aber es half nichts.

[Hedge]

Habe wieder mal zu schnell geschossen.

In der alten Doku von GNU gettext steht dazu Folgendes:

Zitat:

Next, I started to work through all my menus, popups and forms one by one to see if everything was translated and worked as expected. I found that I had some comboboxes that lost their stored ItemIndex when they were translated (it was reset to -1) so I added some code to set these programmatically. Also, I found some items that hadn't been translated in the po and I fixed these with poEdit.

Also speichert man sich vorher den ItemIndex zwischen und setzt ihn dann nach dem Retranslate erneut.