Необычная линия в Делфи.

[zmey31313]

Как через canvas можно нарисовать линию закрашенную градиентом?

[Alex Cones]

Написать свою процедуру. Градиент -это когда пропорционально координате меняется канал света. Юзаем поиск в разделе "Дельфи" по слову "градиент"

[zmey31313]

Там нет как именно заливать градиентом линию, а так я сколько пытался не получаеться

[_Dmitry]

В новых Дельфях есть функция - GradientFillCanvas
Пример:

uses GraphUtil;
.....................
GradientFillCanvas(Image1.Canvas,clBlue,clWhite,rect(50,50,300,70),gdHorizontal);

Для Delphi 7 разбирайтесь с функцией - GradientFill

[zmey31313]

Каким способом?

[_Dmitry]

Код функции - GradientFillCanvas

type
  TGradientDirection = (gdHorizontal, gdVertical);

procedure GradientFillCanvas(Canvas: TCanvas; StartColor, EndColor: TColor; 
  const ARect: TRect; Direction: TGradientDirection);
const
  cGradientDirections: array[TGradientDirection] of Cardinal = 
  (GRADIENT_FILL_RECT_H, GRADIENT_FILL_RECT_V);
type
  TTriVertex = packed record
    X,Y :LongInt;
    Red,Green,Blue,Alpha: Word;
  end;
var
  Vertexes: array[0..1] of TTriVertex;
  GradientRect: TGradientRect;
begin
  StartColor:=ColorToRGB(StartColor);
  EndColor:=ColorToRGB(EndColor);

  Vertexes[0].X:=ARect.Left;
  Vertexes[0].Y:=ARect.Top;
  Vertexes[0].Red:=GetRValue(StartColor) shl 8;
  Vertexes[0].Blue:=GetBValue(StartColor) shl 8;
  Vertexes[0].Green:=GetGValue(StartColor) shl 8;
  Vertexes[0].Alpha:=0;

  Vertexes[1].X:=ARect.Right;
  Vertexes[1].Y:=ARect.Bottom;
  Vertexes[1].Red:=GetRValue(EndColor) shl 8;
  Vertexes[1].Blue:=GetBValue(EndColor) shl 8;
  Vertexes[1].Green:=GetGValue(EndColor) shl 8;
  Vertexes[1].Alpha:=0;

  GradientRect.UpperLeft:=0;
  GradientRect.LowerRight:=1;

  GradientFill(Canvas.Handle, Windows.PTriVertex(@Vertexes[0])^, 2, 
  @GradientRect, 1, cGradientDirections[Direction]);
end;