Вверх ↑
Этот топик читают: Гость
Ответов: 16884
Рейтинг: 1237
#16: 2020-05-01 10:19:30 ЛС | профиль | цитата
andrestudio, case работает оптимальней.

   CASE _prop_BackGround of
1: FBackGroundBmp.Canvas.Pen.Color := RGB(0, 0, Gradient);
2: FBackGroundBmp.Canvas.Pen.Color := RGB(0, Gradient, 0);
3: FBackGroundBmp.Canvas.Pen.Color := RGB(Gradient, 0, 0);
END;
карма: 24
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 1700
Рейтинг: 120
#17: 2020-05-01 17:59:04 ЛС | профиль | цитата
andrestudio, правильно я понимаю, что если FBackGroundBmp := NewBitmap(128,128);
то и картинку туда какую нибудь можно впиндюрить?
карма: 5

0
Ответов: 4636
Рейтинг: 510
#18: 2020-05-01 18:41:18 ЛС | профиль | цитата
flint2, да, там 5 режимов. Оптимизатор Tad в пролёте
карма: 6

0
18
Сообщение
...
Прикрепленные файлы
(файлы не залиты)