摘要:
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... 阅读全文
posted @ 2017-11-25 15:28
伯通心智
阅读(415)
评论(0)
推荐(0)