[:S.p.a.m.]

Ищется компонент (100% есть). как называется не знаю. Используется в Photoshop. см на рисунке.

[:S.p.a.m.]

А еще нужно такой чтобы можно было вводить угол! Также наподобие фотошоповского. См. на картинке. просто в ручную такое делать не очень уж и хочется!

[AlexSku]

Вот как можно самому нарисовать градиент (ширина 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;

[:S.p.a.m.]

да градиент то я знаю как рисовать! мне нада угол выбрать чтобы под этим углом нарисовал градиент! а чтобы угол вводить хочу такой компонент найти. первый компонент не обязательно а вот угол чтобы ввести нада!

[:S.p.a.m.]

на этом все?