GradientFill [WinXP]
Ricks © (2002-10-20 15:10:00)
Люди, кто знает как работать с API-шной функцией GradientFill
(она , помоему из 2000, XP). Так какие-то Vertex"ы, объясните,
пожайлуста.
MBo (2002-10-21 07:11:00) [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;
Наверх 
ЧАТ |
Орешник |
|
