Class TColorPalette (unit ColorPalette)

Inherits from

TComponent

Constructors


constructor Create( AOwner: TComponent );



Functions

procedure Assign( Source: TPersistent );


destructor Destroy;

Fill the rest of the entries with grayscale

procedure Refresh;


function GetPaletteEntry( n: byte ): TPaletteEntry;


function IsIdentityPalette: boolean;

************************************************** Check the middle 236 colors against the first 10 system colors.

procedure Loaded;


procedure SetBadEntry( str: TStrings );


procedure SetEntries( str: TStrings );

************************************************** The user has modified the string list!

procedure SetFlag( f: TPalEntryFlag );


procedure SetImage( im: TImage );

************************************************** Set the palette entries based on the TImage component

procedure SetPaletteEntry( n: byte; pal: TPaletteEntry );


procedure PaletteEntriesToStrings;


procedure SetPaletteHandle( bStoreStrings: boolean );


Properties

property BadEntries : TStrings


property IdentityPalette : boolean


property ImagePalette : TImage


property PalEntryFlag : TPalEntryFlag


property PaletteEntries : TStrings


property Palette : HPALETTE


property PaletteEntry : TPaletteEntry


Events

Variables

bDummy : boolean;


bEntries : boolean;


FBadEntries : TStrings;


FEntries : TStrings;


FFlag : TPalEntryFlag;


FFlag_ : byte;


FImage : TImage;


FPalette : HPALETTE;


nDummy : integer;


pal : TPAL;



Constructors


constructor Create( AOwner: TComponent );


Functions


procedure Assign( Source: TPersistent );


destructor Destroy;

Fill the rest of the entries with grayscale


procedure Refresh;


function GetPaletteEntry( n: byte ): TPaletteEntry;


function IsIdentityPalette: boolean;

************************************************** Check the middle 236 colors against the first 10 system colors.


procedure Loaded;


procedure SetBadEntry( str: TStrings );


procedure SetEntries( str: TStrings );

************************************************** The user has modified the string list!


procedure SetFlag( f: TPalEntryFlag );


procedure SetImage( im: TImage );

************************************************** Set the palette entries based on the TImage component


procedure SetPaletteEntry( n: byte; pal: TPaletteEntry );


procedure PaletteEntriesToStrings;


procedure SetPaletteHandle( bStoreStrings: boolean );


Properties


property BadEntries : TStrings


property IdentityPalette : boolean


property ImagePalette : TImage


property PalEntryFlag : TPalEntryFlag


property PaletteEntries : TStrings


property Palette : HPALETTE


property PaletteEntry : TPaletteEntry


Events


Variables


bDummy : boolean;


bEntries : boolean;


FBadEntries : TStrings;


FEntries : TStrings;


FFlag : TPalEntryFlag;


FFlag_ : byte;


FImage : TImage;


FPalette : HPALETTE;


nDummy : integer;


pal : TPAL;