Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Вниз

Градиент   Найти похожие ветки 

← →
tormoz   (2004-09-26 20:43) [0]

Здравствуйте. Подскажите как сделать градиентную раскраску панели (TPanel).

---

← →
wnew ©   (2004-09-26 20:50) [1]

tormoz   (26.09.04 20:43)

procedure TDatenEin.FormCanvasFill(Sender: TObject);
const
StartColor: array[0..2] of Byte = (100,100,180);
EndColor: array[0..2] of Byte = (40,225,245);

var DeltaRect: Integer;
   FillBereich: TRect;
 Delta: Word;
   i: Integer;
   ActuelColor: array[0..2] of Byte;
begin
ActuelColor[0] := 100;
ActuelColor[1] := 100;
 ActuelColor[2] := 180;
Delta := 50;
DeltaRect := Round((BoundsRect.Bottom - BoundsRect.Top) / Delta);
 FillBereich.Top := ClientRect.Top;
 FillBereich.Left := ClientRect.Left;
 FillBereich.Right := ClientRect.Right;
 FillBereich.Bottom := ClientRect.Bottom;
 for i := 0 to Delta do
 begin
  Canvas.Brush.Color := RGB(ActuelColor[0],ActuelColor[1],ActuelColor[2]);
   Canvas.FillRect(FillBereich);
  FillBereich.Top := FillBereich.Top + DeltaRect;
   if FillBereich.Top >= FillBereich.Bottom then Exit;
   ActuelColor[0] := ActuelColor[0]+Round((EndColor[0]-StartColor[0])/Delta);
   ActuelColor[1] := ActuelColor[1]+Round((EndColor[1]-StartColor[1])/Delta);
   ActuelColor[2] := ActuelColor[2]+Round((EndColor[2]-StartColor[2])/Delta);
 end;
end;


---

← →
tormoz   (2004-09-26 20:55) [2]

Спасибо большое!!!

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.036 c