From: peters@soderman.pp.se.earth (Peter Söderman)
Subject: Re: Filling with a gradient color...
Date: 08 Oct 1999 00:00:00 GMT
Message-ID: <3802b082.7304858@forums.inprise.com>
Content-Transfer-Encoding: 8bit
References: <7sr9mk$b0q4@forums.borland.com> <7t8g68$vc9@forums.borland.com>
Organization: Another Netscape Collabra Server User
Content-Type: text/plain; charset=ISO-8859-1
Mime-Version: 1.0
Newsgroups: borland.public.delphi.graphics

Hi Thomas,

The function GradientFill is declared in the 'Windows' unit.

function GradientFill(DC: HDC; var pVertex:TTriVertex; dwNumVertex:
DWORD; pMesh: Pointer; dwNumMesh, dwMode: DWORD): BOOL; stdcall;

And here is some sample code:

procedure TForm1.FormPaint(Sender: TObject);
var
   vert: array [0..2] of TRIVERTEX;
   gRect: GRADIENT_RECT;
   gTri: GRADIENT_TRIANGLE;
begin
vert[0].x    := PaintBox1.Left;
vert[0].y    := PaintBox1.Top;
vert[0].Red    := $ff00;
vert[0].Green  := $0000;
vert[0].Blue   := $0000;
vert[0].Alpha  := $0000;

vert[1].x  := PaintBox1.Left + PaintBox1.Width;
vert[1].y  := PaintBox1.Top;
vert[1].Red    := $0000;
vert[1].Green  := $0000;
vert[1].Blue   := $ff00;
vert[1].Alpha  := $0000;

vert[2].x  := PaintBox1.Left + PaintBox1.Width div 2;
vert[2].y  := PaintBox1.Top+PaintBox1.Height;
vert[2].Red    := $0000;
vert[2].Green  := $ff00;
vert[2].Blue   := $0000;
vert[2].Alpha  := $0000;

gRect.UpperLeft  := 0;
gRect.LowerRight := 1;
gTri.Vertex1 := 0;
gTri.Vertex2 := 1;
gTri.Vertex3 := 2;
GradientFill(PaintBox1.Canvas.Handle,vert[0],3,@gTri,1,GRADIENT_FILL_TRIANGLE);
end;


Regards,
/PeterS
---
~~~~~~~~~~~~~~~~~~~~~~~~~~~
Peter Söderman
peters@soderman.pp.se.earth
Remove earth to e-mail
~~~~~~~~~~~~~~~~~~~~~~~~~~~