摘要:
uses vcl.Graphics, DelphiZXingQRCode; procedure CreateQRCode(AImg: vcl.Graphics.TBitMap; const ACode: String); const IMG_SCALE = 25; //放大倍数 var QRCode: TDelphiZXingQRCode; Row, Column: Inte... 阅读全文
摘要:
1 procedure RgbToHsv(R, G, B: Byte; var H, S, V: Single); 2 var 3 mx, mn: Byte; 4 tmp: Single; 5 begin 6 mx := R; 7 mn := R; 8 if mx G then mn := G; 11 if mn > B then mn := B; 12... 阅读全文