[sereja-korjik]

Здравствуйте, Форумчане! Возник такой вопрос, связанный с цветом. Задача такова: У меня есть список нескольких разных цветов, допустим их 10. Каждый называется по своему. И есть диалог выбора цвета, после выбора которого программа должна сравнить этот выбранный в диалоге цвет с цветами из того списка цветов, и выдать мне более похожий из этих десяти.
Заранее спасибо за размышления по теме!

[M.A.D.M.A.N.]

Код:

{$EXTERNALSYM GetRValue}
function GetRValue(rgb: DWORD): Byte; inline;
{$EXTERNALSYM GetGValue}
function GetGValue(rgb: DWORD): Byte; inline;
{$EXTERNALSYM GetBValue}
function GetBValue(rgb: DWORD): Byte; inline;

[NumLock]

в диалоге выбора цвета дать возможность выбора только одного из твоих 10 цветов.

[sereja-korjik]

Суть в другом. Я выбираю Совершенно Любой Цвет в диалоге, и потом идет сравнение, в котором находится самый близкий к выбранному из диалога из всех этих 10 цветов.

[NumLock]

я понял в чем суть. не ясно одно: зачем выбирать цвет из всей палитры, если потом этот цвет приведется к одному из 10 заранее определеных. намного проще сразу выбрать 1 из 10.

[sereja-korjik]

Цветов будет не 10, а очень очень много, разные оттенки и насыщенности. Будет как цветовая таблица. Но число этих цветов будет ограничено. А выбранный цвет в диалоге - его надо сравнить с этой цветовой таблицей, и выбрать наиболее нужный.. т.к точно такого же там не будет, нужно искать приближенный, чтобы визуально было похоже

[Страдалецъ]

критерием похожести что является? Расположение двух цветов на некоем промежутке? Скажем в вашем случае 1 и 10 непохожи а 3 и 4 похожи?

[Aristarh Dark]

Меня этот вопрос тоже немного интересует.
А критерий похожести:
Розовый похож на красный
Оранжевый на желтый
Сиреневый на голубой
и т.п.

[AlexSku]

Для формата RGB можно искать минимум (R1-R2)^2 + (G1-G2)^2 + (B1-B2)^2. Но существуют и другие форматы, например, HSV (яркость, которая в цвете не участвует, и два цветоразностных сигнала).

Добавка. Прошу прощения, написал HSV, а стал описывать YUV, короче, способов кодировки цвета (кадр, изображение) пруд пруди.

[NumLock]

а чем способ MS (GetNearestPaletteIndex) не подходит?

GetNearestPaletteIndex Function
The GetNearestPaletteIndex function retrieves the index for the entry in the specified logical palette most closely matching a specified color value.

Syntax

UINT GetNearestPaletteIndex(
__in HPALETTE hpal,
__in COLORREF crColor
);

Parameters

hpal [in]
A handle to a logical palette.

crColor [in]
A color to be matched. To create a COLORREF color value, use the RGB macro.

Return Value

If the function succeeds, the return value is the index of an entry in a logical palette.

If the function fails, the return value is CLR_INVALID.

http://msdn.microsoft.com/en-us/libr...03(VS.85).aspx

function GetNearestPaletteIndex(p1: HPALETTE; p2: COLORREF): UINT; stdcall;

Получает ближайший совпадающий с Color цвет в логической палитpе.

функция:

Код:

function GetNearestColorFromEntries(const Entries: array of DWORD;
  const AColor: DWORD): DWORD;
var
  LogPalette: TMaxLogPalette;
  APalette: HPALETTE;
  crColor: Cardinal;
begin
  LogPalette.palVersion:=$300;
  LogPalette.palNumEntries:=High(Entries)-Low(Entries)+1;
  Move(Entries, LogPalette.palPalEntry[0],
    SizeOf(DWORD)*LogPalette.palNumEntries);
  APalette:=CreatePalette(PLogPalette(@LogPalette)^);
  crColor:=GetNearestPaletteIndex(APalette, AColor);
  DeleteObject(APalette);
  if crColor<>CLR_INVALID then
    Result:=RGB(LogPalette.palPalEntry[crColor].peRed,
      LogPalette.palPalEntry[crColor].peGreen,
      LogPalette.palPalEntry[crColor].peBlue)
  else Result:=AColor;
end;

использование:

Код:

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Panel2: TPanel;
    Edit2: TEdit;

Код:

var
  c: DWORD;
begin
  c:=$20c0c0;
  Panel1.Color:=c;
  Edit1.Text:=IntToHex(c, 8);
  c:=GetNearestColorFromEntries([$000000, $0000ff, $00ff00, $ff0000, $00ffff, $ff00ff, $ffff00, $ffffff], c);
  Panel2.Color:=c;
  Edit2.Text:=IntToHex(c, 8);
end;

Код:

const
  Pal16: array [0..15] of DWORD =
    (clBlack, clMaroon, clGreen, clOlive, clNavy, clPurple, clTeal, clDkGray,
     clLtGray, clRed, clLime, clYellow, clBlue, clFuchsia, clAqua, clWhite);

var
  c: DWORD;
begin
  c:=$604020;
  Panel1.Color:=c;
  Edit1.Text:=IntToHex(c, 8);
  c:=GetNearestColorFromEntries(Pal16, c);
  Panel2.Color:=c;
  Edit2.Text:=IntToHex(c, 8);
end;

Код:

var
  Entries: array of DWORD;
  i: Integer;
  c: DWORD;
begin
  c:=$604020;
  Panel1.Color:=c;
  Edit1.Text:=IntToHex(c, 8);
  SetLength(Entries, 256);
  for i:=0 to 255 do Entries[i]:=i;
  c:=GetNearestColorFromEntries(Entries, c);
  Panel2.Color:=c;
  Edit2.Text:=IntToHex(c, 8);
end;

[Physicist]

Сообщение от Aristarh Dark

Меня этот вопрос тоже немного интересует.
...

Похоже, речь идёт о конвертации картинки в схему для вышивания бисером:
http://www.delphisources.ru/forum/sh...ad.php?t=17909

[Страдалецъ]

Кстати да, вполне возможно что не только бисером но и вышивание гладью. Там тоже ограниченное количество цветов, но там другая сложность - разные цветовые схемы со своим порядком цветов и нумерацией.

[sereja-korjik]

Огромное спасибо за помощь! Функция GetNearestPaletteIndex помогла

[sereja-korjik]

Сообщение от NumLock

а чем способ MS (GetNearestPaletteIndex) не подходит?

как я понял, тут не получится вбить массив, в котором 500 элементов.. ошибка. что-то в Move.

[NumLock]

потому что TMaxLogPalette определена в Windows как:

Код:

  TMaxLogPalette = packed record
    palVersion: Word;
    palNumEntries: Word;
    palPalEntry: array [Byte] of TPaletteEntry;
  end;

т.е. макс. 256 цветов. но можно ее переопределить на 65536, к примеру, цветов:

Код:

type
  PMaxLogPalette = ^TMaxLogPalette;
  TMaxLogPalette = packed record
    palVersion: Word;
    palNumEntries: Word;
    palPalEntry: array [Word] of TPaletteEntry;
  end;