Re: fast drawing in delphi

"Maldona8" <maldona8@xxxxxxxxxxxx> wrote in message
news:43a56b92$1@xxxxxxxxxxxxxxxx

[...]
----+----*----+----*----+----*----+----*----+----*----+----*----+----*----+-
---*
> WInAPI, do you mean something like this? :
>
> Procedure TForm1.Button1Click(Sender: TObject);
> Var
> pntArray : array[0..9] of TPOINT;
> PntCounts : array[0..1] of integer;
> Begin
> PntArray[0] := Point(0, 0);
> PntArray[1] := Point(0, 100);
> PntArray[2] := Point(100, 100);
> PntArray[3] := Point(100, 0);
> PntArray[4] := Point(0, 0);
> PntCounts[0] := 5;
> PntArray[5] := Point(25, 25);
> PntArray[6] := Point(25, 75);
> PntArray[7] := Point(75, 75);
> PntArray[8] := Point(75, 25);
> PntArray[9] := Point(25, 25);
> PntCounts[1] := 5;
> PolyPolygon(Form1.Canvas.Handle, PntArray, PntCounts, 2);
> end;

Yes. BTW, I think MSDN says you don't need to include the last, closing,
line.


> Thanks Marteen!

(Cough)

Groetjes,
Maarten Wiltink


.

Quantcast