Форум: "Основная";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];
Вниз
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
← →
fridy (2003-06-27 11:10) [3]спасибо
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.10;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c
