如題，ImageEn有回傳功能嗎？
uj5u.com熱心網友回復：
varss,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;
FONT.Name:='黑體';
TextOut(0, 0, ss);
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/39543.html
上一篇：git學習