ImageEn, unit ieDicomTags |
|
GenerateDicomColorPalette
Declaration
function GenerateDicomColorPalette(ColorTable: TIEColorTable): TIEArrayOfTRGB;
Description
Returns array of 256
RGB colors for a specified color palette.
These palettes are commonly used to colorize gray-scale DICOM images.
To display images with a color map (without modifying the image) use
AssignColorMap.
To change the colors of an image use
MapGrayToColorNote:
◼Add ieDicomTags to your uses clause to support
GenerateDicomColorPalette◼ieDicomTags adds about 400KB to your exe
| Demos\InputOutput\DicomRange\Dicom.dpr |
| Demos\Other\ColorPalette\ColorPalette.dpr |
// Show preview of Rainbow color palette
var
colorMap: TIEArrayOfTRGB;
aColor: TColor;
begin
colorMap := GenerateDicomColorPalette( iectRainbow );
IEPromptForColor( aColor, colorMap, Length( colorMap ));
end;
// Show image with Rainbow palette (image is not changed)
colorMap := GenerateDicomColorPalette( iectRainbow );
ImageEnView1.IEBitmap.AssignColorMap( colorMap );
ImageEnView1.Update();
// Apply Hot Iron palette to image (change image)
colorMap := GenerateDicomColorPalette( iectHotIron );
ImageEnView1.Proc.MapGrayToColor( colorMap );
// Apply PET palette to image
colorMap := GenerateDicomColorPalette( iectPET );
ImageEnView1.Proc.MapGrayToColor( colorMap );
// Apply PET 20 Step palette to image
colorMap := GenerateDicomColorPalette( iectPET20Step );
ImageEnView1.Proc.MapGrayToColor( colorMap );
// Apply Hot Metal Blue palette to image
colorMap := GenerateDicomColorPalette( iectHotMetalBlue );
ImageEnView1.Proc.MapGrayToColor( colorMap );
// Display Hot Iron palette in TIEColorPalette
var
colorMap: TIEArrayOfTRGB;
begin
colorMap := GenerateDicomColorPalette( iectHotIron );
ColorPalette1.AssignPalette( colorMap );
end;
// Show colors as inverted (Negative)
var
colorMap: TIEArrayOfTRGB;
begin
colorMap := GenerateDicomColorPalette( iectInverted );
ColorPalette1.AssignPalette( colorMap );
end;
See Also
◼IEPromptForColor◼AssignColorMap◼MapGrayToColor