GradientFill

← →
Ricks © (2002-10-20 15:10) [0]

Люди, кто знает как работать с API-шной функцией GradientFill (она , помоему из 2000, XP). Так какие-то Vertex"ы, объясните, пожайлуста.

← →
MBo © (2002-10-21 07:11) [1]

в windows.pas ошибка в объявлении TRIVERTEX, подтому надо это сделать самому:

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;

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