---

I am upgrading my code to v6.

I want to have different background colors for ImageTopText and ImageInfoText,

Previously I used:

ImageEnMView.ImageTopText[i].Background := clInfoBk;
ImageEnMView.ImageInfoText[i].Background := clYellow;

how can I change my code for same result ?

thx

---

procedure TForm1.ImageEnMView1GetTextEx(Sender: TObject; Index: Integer; Position: TIEMTextPos; var Text: WideString;
                                        Font : TFont; var BackgroundStyle: TBrushStyle; var BackgroundColor: TColor;
                                        var TruncSide: TIEMTruncSide);
begin
  case Position of
    iemtpTop  :	BackgroundColor := clInfoBk;
    iemtpInfo : BackgroundColor := clYellow;
  end;
  BackgroundStyle := bsSolid;
end;