Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.02;
Скачать: CL | DM;

Вниз

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 вся ветка

Текущий архив: 2002.12.02;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.016 c
1-4397
Ag2002
2002-11-20 18:22
2002.12.02
запуск


6-4550
Alex_ustasu
2002-10-03 17:19
2002.12.02
ClientSocket не видит ServerSocket, если указан Service


3-4254
dias
2002-11-14 19:23
2002.12.02
Мастера подскажите


7-4652
sancho
2002-09-23 22:01
2002.12.02
реестр


14-4564
Anatoly Podgoretsky
2002-11-11 07:44
2002.12.02
Именинники 11 ноября