As title, ImageEn have the function of back?

CodePudding user response:

Var
Ss, XX: string;
I, J: INTEGER;
The begin
ImageEnView1. LayersCurrent:=0;
ImageEnView1. IO. DShowParams. GetSample (ImageEnView1. IEBitmap);
Ss:=FormatDateTime (' c ', the date + time) + DJS.
I:=POS (' : ', DJS) + 1;
J:=POS (' points', DJS) - 1;
XX:=COPY (DJS, POS (' : ', DJS) + 1, J - I + 1);

ImageEnView1. CurrentLayer. Locked:=False;//add layers do not lock
With ImageEnView1. IEBitmap. Canvas do
The begin
The font Size:=18;
Brush. Style:=bsClear;
IF (STRTOINTDEF (XX, 0) & gt; 10) OR (STRTOINTDEF (XX, 0)=0) THEN
The Font Color:=clWindow
The ELSE
IF STRTOINTDEF (XX, 0) & gt; 5 THEN
The Font Color:=clYELLOW
The ELSE
The Font Color:=clRED;

The FONT. The Name:='bold';
TextOut (0, 0, ss);
end;