| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Градиентная заливка форм [D6]

maxim2 ©   (2002-10-17 10:14:00) 

Привет всем!
Может кто подскажет как это можно реализовать, или какой-нибудь компонент для этого.

---

Kibitzer   (2002-10-20 13:48:00) [1]

> mukha © (18.10.02 22:12)
> Пример градиентной заливки

Глючит однако. Наверно нужно сделать ещё так:
procedureTForm1.FormResize(Sender: TObject);
begin
FormPaint(Sender);
end;

---

mukha   (2002-10-18 22:12:00) [2]

Пример градиентной заливки
procedure TForm1.FormPaint(Sender: TObject);
var
Row,Ht:Word;
begin
Ht:=(ClientHeight+255) div 256;
for row:=0 to 255 do
with Canvas do
begin
Brush.Color:=RGB(0,0,Row);
FillRect(Rect(0,Row*Ht,clientWidth,(Row+1)*Ht));
end;
end;

---

Yr2   (2002-10-17 14:37:00) [3]

Градиентная заливка - это все хорошо, многие уже знают и используют. А вот кто-нибудь делал компонент, который может нарисовать приблизительно такую же панель, какая отображается вверху ЭТОГО сайта. Уточняю: на темно-синем фоне тонкие горизонтальные линии голубого цвета. TShape в Delpi 5 это делает очень убого. Меня интересует компонент со свойствами, которыми можно задавать шаг, цвет, толщину линий штриховки и т.д. Вариант заполнения панели образцом битмапа прошу не предлагать.
Благодарю,если кто-нибудь подскажет.

---

maxim2   (2002-10-17 12:32:00) [4]

Во! все спасибо получилось

---

Separator   (2002-10-17 12:26:00) [5]

В общем надо сделать так:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure GradientRect (FromRGB, ToRGB: TColor; Canvas: TCanvas);
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ Вставь сюда всю процедуру написаную LongIsland}

procedure TForm1.Button1Click(Sender: TObject);
begin
GradientRect(clRed, clBlue, Canvas);
end;

end.


---

maxim2   (2002-10-17 12:01:00) [6]

> LongIsland
А от куда это вызывать то7

---

LongIsland   (2002-10-17 10:40:00) [7]

procedure TForm1.GradientRect (FromRGB, ToRGB: TColor;Canvas:tcanvas);
var
RGBFrom : array[0..2] of Byte; { from RGB values }
RGBDiff : array[0..2] of integer; { difference of from/to RGB values }
ColorBand : TRect; { color band rectangular coordinates }
I : Integer; { color band index }
R : Byte; { a color band"s R value }
G : Byte; { a color band"s G value }
B : Byte; { a color band"s B value }
begin
{ extract from RGB values}
RGBFrom[0] := GetRValue (ColorToRGB (FromRGB));
RGBFrom[1] := GetGValue (ColorToRGB (FromRGB));
RGBFrom[2] := GetBValue (ColorToRGB (FromRGB));
{ calculate difference of from and to RGB values}
RGBDiff[0] := GetRValue (ColorToRGB (ToRGB)) - RGBFrom[0];
RGBDiff[1] := GetGValue (ColorToRGB (ToRGB)) - RGBFrom[1];
RGBDiff[2] := GetBValue (ColorToRGB (ToRGB)) - RGBFrom[2];

{ set pen sytle and mode}
Canvas.Pen.Style := psSolid;
Canvas.Pen.Mode := pmCopy;

{ set color band"s left and right coordinates}
ColorBand.Left := 0;
ColorBand.Right:= canvas.ClipRect.Right-Canvas.ClipRect.Left;

for I := 0 to $ff do
begin
{ calculate color band"s top and bottom coordinates}
ColorBand.Top := MulDiv (I , canvas.ClipRect.Bottom-Canvas.ClipRect.Top, $100);
ColorBand.Bottom := MulDiv (I + 1,canvas.ClipRect.Bottom-Canvas.ClipRect.Top, $100);
{ calculate color band color}
R := RGBFrom[0] + MulDiv (I, RGBDiff[0], $ff);
G := RGBFrom[1] + MulDiv (I, RGBDiff[1], $ff);
B := RGBFrom[2] + MulDiv (I, RGBDiff[2], $ff);
{ select brush and paint color band}
Canvas.Brush.Color := RGB (R, G, B);
Canvas.FillRect (ColorBand);
end;
end;

Собственно говоря, это из FAQ"а. Не следует им пренебрегать:-)

---

gek   (2002-10-17 10:36:00) [8]

В дополнение к Separator © (17.10.02 10:17)
Там же есть и специальная процедура в vclutils -
procedure GradientFillRect(Canvas: TCanvas; ARect: TRect; StartColor,
EndColor: TColor; Direction: TFillDirection; Colors: Byte);

---

Separator   (2002-10-17 10:17:00) [9]

RxGradientCaption - правдо тока для Caption

---

Наверх