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
Please use the OnGetTextEx event:
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;
https://www.imageen.com/help/TImageEnMView.OnGetTextEx.html
Nigel
Xequte Software
www.xequte.com
nigel@xequte.com