Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Плохое поведение градиента в Delphi [D7, WinME, WinXP]

Агент Х-СОМ © (2005-06-04 21:22:00)
Здравствуйте, столкнулся я на днях с одной проблемой, и сечас попробую ее изложить.

Мне надо было создать градиентную панель. Для реализации задачи я решил создать компонент-наследник TPaintBox, создав ему дополнительные свойства BeginColor, EndColor, Direction, NumOfColors. NumOfColors изначально был не более 255. Быстернько наваяв компонент своим алгоритмом, я вставил его на форму и получил, так сказать, не совсем то, что хотел: вместо плавного градиента, к которому я счтремился я получил градиент ребристый, в котором цвета переходят не плавно, а как-то блоками (бывает, что попадаются не те оттенки цвета). Я попробовал увеличить NumOfColors - не помогло. Чужие алгоритмы выдавали примерно тот же результат.

Тогда я попробовал нарисовать панельку в фотошопе и поместь бмпэху в стандартный Image. Как ни странно, бмпэха в имэйдже выглядела примерно также. Странно, ведь компонент TImage корректно отображают всю 24-битную палитру. Таким же образом рисунок отображает Paint, но ACDSee видит все корректно. При этом градиент, созданный моим алгоритм (уже смешанным с чужими алгоритмами) сохраняется в таком же кривом формате.

Вопрос в следующем: что энто за ботва и как с ней бороться? Ведь ребристый градиент - энто как-то не серьезно.

З.Ы. суть алгоритма в том, что сначала заполняется массив промежуточных цветов, а потом рисуются линии на Канвасе.
Вот каким образом идет заполнение массива:
procedure TGradientBox.CalColor; var BeginRGB: array[0..2] of Byte; RGBDifference: array[0..2] of Integer; i: Integer; R, G, B: Byte; startRGB, RGBDiff : integer; begin BeginRGB[0] := GetRValue(ColorToRGB(FBeginColor)); BeginRGB[1] := GetGValue(ColorToRGB(FBeginColor)); BeginRGB[2] := GetBValue(ColorToRGB(FBeginColor)); RGBDifference[0] := GetRValue(ColorToRGB(FEndColor)) - BeginRGB[0]; RGBDifference[1] := GetGValue(ColorToRGB(FEndColor)) - BeginRGB[1]; RGBDifference[2] := GetBValue(ColorToRGB(FEndColor)) - BeginRGB[2]; for i := 0 to NbCouleursMax do begin R := BeginRGB[0] + MulDiv(i, RGBDifference[0], FNumberOfColors - 1); G := BeginRGB[1] + MulDiv(i, RGBDifference[1], FNumberOfColors - 1); B := BeginRGB[2] + MulDiv(i, RGBDifference[2], FNumberOfColors - 1); Colors[i] := RGB(R, G, B); end; end;

Агент Х-СОМ (2005-06-06 18:20:00) [1]

> То есть? Если я возьму gdiplus.dll из-под ХР и перенесу
> на 98+, то её можно будет использовать?

Как я понимаю, то еси взять библиотеку и поместить ее вместе с прогой (или заменить в системной папке), то библиотека обработается корректно

Чапаев (2005-06-06 10:46:00) [2]
> GdiPlus.dll поставляется с WinXP, но данная библиотека будет работать и под Win98.
То есть? Если я возьму gdiplus.dll из-под ХР и перенесу на 98+, то её можно будет использовать?

Агент Х-СОМ (2005-06-05 21:30:00) [3]
Большое спасибо за совет - попробую этот вариант

Sun bittern (2005-06-04 21:29:00) [4]
Можешь использовать готовую реализацию от MS - Gdi Plus

GdiPlus.dll поставляется с WinXP, но данная библиотека будет работать и под Win98. Заголовочный файл к библиотеке можешь найти на DelphiGFX. Примеры можно найти в MSDN или в инете.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »