// 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;