我要评论
文章目录
真彩色转256 色源程序
提示：这里可以添加技术概要
核心源码
procedure tform1.button2click(sender: tobject);
var bmp: tbitmap;
begin
bmp := tbitmap.create;
//bmp.assign(image1.picture.bitmap);
trueto256(image1.picture.bitmap, bmp);
image2.picture.bitmap := bmp;
bmp.free;
end;
unit unit2;
interface
uses
windows, graphics;
type
prgbcolor = ^trgbcolor;
trgbcolor = record
b, g, r: byte;
end;
pbyte = ^byte;
lcolor = record
color, times: integer;
end;
procedure trueto256(sbitmap: tbitmap; var dbitmap: tbitmap);
implementation
var
colorcount: array[0…4096] of lcolor; //为记录颜色使用频率的数组
colortable: array[0…4096] of byte; // 为记录颜色索引
发表评论