GradientFill

← →
fridy © (2003-06-27 09:21) [0]

Помогите плиз разобраться с применением функции GradientFill:
(пример)

procedure TForm1.Panel1Click(Sender: TObject); var //step:integer; h_dc:HDC; gr:TGradientRect; r:TRect; vrtx:array[0..1]of TTriVertex; begin with form1.Panel1 do begin h_dc:=GetDC(Handle); try r := ClientRect; vrtx[0].x:=r.Left; vrtx[0].y:=r.Top; vrtx[0].Red:=GetRValue(clNavy); vrtx[0].Green:=GetGValue(clNavy); vrtx[0].Blue:=GetBValue(clNavy); vrtx[1].x:=r.Right; vrtx[1].y:=r.Bottom; vrtx[1].Red:=GetRValue(clBlue); vrtx[1].Green:=GetGValue(clBlue); vrtx[1].Blue:=GetBValue(clBlue); gr.UpperLeft:=0; gr.LowerRight:=1; // p3 : 2..313 хоть как-то срабатывает, иначе нет ((( // gr.u=0,gr.l=2,p5=1,p6=1 закрашивает все вертикальным градиентом // gr.u=0,gr.l=1,p5=1,p6=1 закрашивает часть панели лаймом // gr.u=0,gr.l=1,p5=1,p6=0 закрашивает часть панели горизонтально градиентом // пятый параметр? (((( // и почему цвет градиента меняется с лайма на блэк ?!? GradientFill(h_dc,PTriVertex(@vrtx)^,50,@gr,1,1); finally ReleaseDC(handle,h_dc); end;//try..finally end //with end;

направьте где можно про эту функцию почитать
или может кто подскажет, что символизируют собой 3,4,5 параметры

← →
MBo © (2003-06-27 09:41) [1]

type
TRIVERTEXNew = packed record
X,Y:Integer;
R,G,B,Alpha: Word;
end;

procedure TForm1.Button1Click(Sender: TObject);
var v:array [0..1] of TrivertexNew;
m:array[0..1] of integer;
begin
FillChar(v,SizeOf(TriVertexNew)*2,0);
v[1].x:= 100;
v[1].y:= 100;
v[1].B:= $FFFF;
v[0].R:=$FFFF;
v[0].G:=$FFFF;
m[0]:=0;
m[1]:=1;
Gradientfill(image1.canvas.handle,PTriVertex(@v)^, 2,@m, 1,Gradient_Fill_Rect_H);
end;

← →
Семен Сорокин © (2003-06-27 11:06) [2]

http://www.delphimaster.ru/cgi-bin/download.pl?get=1056016449&n=0

спасибо

GradientFill Найти похожие ветки