Маска тени...

← →
Skier © (2005-02-08 17:57) [0]

Создал свой контрол с тенью, но меня не устраивает маска тени - тень получается слишком светлая

type
TShadowMask = array[0..7] of Word;

//маска тени...
ShadowMask : TShadowMask = ($0055, $00AA, $0055, $00AA, $0055, $00AA, $0055, $00AA);

этим паттерном я заполняю регион...

LPattern := TBitmap.Create;
LPattern.Handle := CreateBitmap(8, 8, 1, 1, @ShadowMask[0]);
//
LCanvas.Brush.Bitmap := LPattern;

и т.д.

Всё классно работает, но как бы масочку потемнее сделать...
Гадать с цветами в массиве больно хлопотно...

Может найдётся здесь добрый человек и присоветует мне что-нибудь
по этому поводу...

← →
Игорь Шевченко © (2005-02-08 18:06) [1]

> но как бы масочку потемнее сделать...

Чем меньше значение цвета, тем он темнее. Не наводит на мысли ?

← →
MBo © (2005-02-08 18:35) [2]

Вот смотри:
$55=01010101b
$AA=10101010b
т.е. у тебя чередуются черные и белые пикселы
(маска монохромная, ведущие нули - для выравнивания строк на 16 бит)

Здесь в каждой строке 4 черных пиксела. Тебе нужно больше черных - сделай соотв. бинарное представление и переведи его в hex, сдвигая каждый следующий байт влево или вправо во избежание верт. полосок.
Учти, что у тебя неизбежно будут возникать узоры.

← →
MBo © (2005-02-08 18:50) [3]

пример для заполнения на 1/4
($0011, $0044, $0022, $0088, $0011, $0044, $0022, $0088);

Маска тени... Найти похожие ветки