Форум: "WinAPI";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
Вниз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;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c