基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

通过手机扫描条形码并发送到电脑端

procedure TfxScanBarcode.Paint;
Var
  LR,RT,RC,RB,RD:TRectf;
  PD:TPathData;
Begin
  inherited;
  if FIG<>Nil then
  Exit;
  //画线条
  Canvas.Stroke.Kind := TBrushKind.Solid;
  Canvas.Stroke.Dash := TStrokeDash.Solid;
  Canvas.Stroke.Color := TAlphaColors.Black;
  Canvas.Stroke.Thickness := 1;
  Canvas.DrawRect(LocalRect,0,0,AllCorners,1);
  //画非扫描区
  RT:=Rectf(LocalRect.Left,LocalRect.Top,LocalRect.Right,LocalRect.Top LocalRect.Height/3);
  RC:=Rectf(LocalRect.Left,LocalRect.Top LocalRect.Height/3,LocalRect.Right,LocalRect.Top LocalRect.Height/3*2);
  RB:=Rectf(LocalRect.Left,LocalRect.Top LocalRect.Height/3*2,LocalRect.Right,LocalRect.Bottom);
  Canvas.Fill.Color := FNotScanColor;
  Canvas.FillRect(RT,0,0,AllCorners,1);
  Canvas.FillText(RC,'未开启扫描',False,1,[],TTextAlign.Center,TTextAlign.Center);
  Canvas.FillRect(RB,0,0,AllCorners,1);
  //画手电筒开关
  RD:=Rectf(RB.Left RB.Width/2-WH/2,RB.Top RB.Height/2-WH/2,RB.Left RB.Width/2 WH/2,RB.Top RB.Height/2 WH/2);
  PD:=TPathData.Create;
  Try
    PD.Data:=FTorchModeData.Data;
    PD.FitToRect(RD);
    if FCC=NIL then
    Canvas.Fill.Color:=FTorchModeNotColor
    Else
    if FCC.TorchMode=TTorchMode.ModeOff then
    Canvas.Fill.Color:=FTorchModeOffColor
    Else
    Canvas.Fill.Color:=FTorchModeOnColor;

    Canvas.FillPath(PD,1);
  Finally
    PD.DisposeOf;
  End;
End;