伪彩色增强
提示:这里可以添加技术概要
核心源码
var
Form1: TForm1;
Img: array of array of integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
bmp: Tbitmap;
//位图对象
Gray, maxgray: integer;
i, j: integer;
p1, p2: pbytearray;
const
ColorTable: array[0…15] of integer = ($00000000, $00550000, $00005500,
$00000055, $003F3F3F, $00550055, $00FF0000, $00005555, $0000FF00,
$000000FF,
$00808080, $00FFFF00, $0000FFFF, $00FFFFFF, $00555500, $00FF00FF);
//16种颜色得颜色对照表
begin
bmp := Tbitmap.Create;