|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Компонент для ввода цветов градиента
Ищется компонент (100% есть). как называется не знаю. Используется в Photoshop. см на рисунке.
|
#2
|
||||
|
||||
А еще нужно такой чтобы можно было вводить угол! Также наподобие фотошоповского. См. на картинке. просто в ручную такое делать не очень уж и хочется!
|
#3
|
|||
|
|||
Вот как можно самому нарисовать градиент (ширина PaintBox1 = 2x256 для простоты):
Код:
type TForm1 = class(TForm) PaintBox1: TPaintBox; procedure PaintBox1Paint(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.PaintBox1Paint(Sender: TObject); var i: Integer; R: TRect; begin R:= Rect(0, 0, 1, PaintBox1.Height); for i:= 0 to 255 do // сине->красный переход begin PaintBox1.Canvas.Brush.Color:= (($FF - i) shl 16) + (i); PaintBox1.Canvas.FillRect(R); OffsetRect(R, 1, 0); end; for i:= 0 to 255 do // красно->зелёный переход begin PaintBox1.Canvas.Brush.Color:= ($FF - i) + (i shl 8); PaintBox1.Canvas.FillRect(R); OffsetRect(R, 1, 0); end; end; |
#4
|
||||
|
||||
да градиент то я знаю как рисовать! мне нада угол выбрать чтобы под этим углом нарисовал градиент! а чтобы угол вводить хочу такой компонент найти. первый компонент не обязательно а вот угол чтобы ввести нада!
|
#5
|
||||
|
||||
на этом все?
|