Please email me for the latest beta. You can do it as follows:
// Get the ten most used colors
var
i: Integer;
usedColors : array[1..10] of TColor;
c: TColor;
dd: Double;
begin
Memo1.Clear;
// Reset used color array
for i := Low(usedColors) to High(usedColors) do
usedColors[i] := clNone;
for i := 1 to 10 do
begin
dd := ImageEnView1.Proc.GetDominantColor( c, usedColors );
usedColors[ i ] := c;
Memo1.Lines.Add( format( '%s (%d%%)', [ ColorToHex( c ), Round( dd ) ]));
end;
// Show palette to users
IEPromptForColor( c, usedColors, 10 );
end;
Nigel
Xequte Software
www.imageen.com