var
ss,XX: string;
I,J:INTEGER;
begin
ImageEnView1.LayersCurrent:=0;
ImageEnView1.IO.DShowParams.GetSample(ImageEnView1.IEBitmap);
ss := FormatDateTime('c', date + time)+DJS;
I:=POS(':',DJS)+1;
J:=POS('分',DJS)-1;
XX:=COPY(DJS,POS(':',DJS)+1,J-I+1);
ImageEnView1.CurrentLayer.Locked := False; //添加层不锁定
with ImageEnView1.IEBitmap.Canvas do
begin
font.Size:=18;
Brush.Style := bsClear;
IF (STRTOINTDEF(XX,0)>10) OR (STRTOINTDEF(XX,0)=0) THEN
Font.Color := clWindow
ELSE
IF STRTOINTDEF(XX,0)>5 THEN
Font.Color := clYELLOW
ELSE
Font.Color := clRED;