Hello
Delphi XE8, ImageEn 6.2.1 and Windows 7 64 bit
In the code below, changing the font color of the BottomTextFont of a specific image works fine. However, if the currently remarked out BackgroundColor := clSkyblue is implemented, the anticipated background color of the BottomText is not implemented. I have attached an image of the font.color change below the code.
procedure TformViewScannedXrays.ImageEnMView1GetTextEx(Sender: TObject; Index: Integer; Position: TIEMTextPos; var Text: WideString; Font: TFont;
var BackgroundStyle: TBrushStyle; var BackgroundColor: TColor; var TruncSide: TIEMTruncSide);
var
tempFileName: String;
tempExtension: String;
begin
if Position = iemtpBottom then
begin
tempExtension := ExtractFileExt( Text );
if IEExtToFileFormat( tempExtension ) = ioJPEG then
begin
tempFileName := tempPtCephPath + Text;
tempFileName := Copy(tempFileName, 1, Length(tempFileName) -3);
tempFileName := tempFileName + 'iev';
if FileExists(tempFileName) = True then
begin
// BackgroundColor := clSkyblue;
Font.Color := clRed;
end
else
begin
// BackgroundColor := clWhite;
Font.Color := clBlack;
end;
end;
end;
end;
Suggestions??
TIA
John
Search
