Class TColorPalette (unit ColorPalette) |
Inherits from
TComponent
constructor Create( AOwner: TComponent );
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 );
property BadEntries : TStrings
property IdentityPalette : boolean
property ImagePalette : TImage
property PalEntryFlag : TPalEntryFlag
property PaletteEntries : TStrings
property Palette : HPALETTE
property PaletteEntry : TPaletteEntry
bDummy : boolean;
bEntries : boolean;
FBadEntries : TStrings;
FEntries : TStrings;
FFlag : TPalEntryFlag;
FFlag_ : byte;
FImage : TImage;
FPalette : HPALETTE;
nDummy : integer;
pal : TPAL;
constructor Create( AOwner: TComponent );
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 );
property BadEntries : TStrings
property IdentityPalette : boolean
property ImagePalette : TImage
property PalEntryFlag : TPalEntryFlag
property PaletteEntries : TStrings
property Palette : HPALETTE
property PaletteEntry : TPaletteEntry
bDummy : boolean;
bEntries : boolean;
FBadEntries : TStrings;
FEntries : TStrings;
FFlag : TPalEntryFlag;
FFlag_ : byte;
FImage : TImage;
FPalette : HPALETTE;
nDummy : integer;
pal : TPAL;