Hallo allemaal,
Kan iemand me uitleggen waarom Image.EllipseAntialias(...) en Panel1.Canvas.Ellipse(...) verschillende resultaten geeft?
Met een vriendelijke groet, Frans
Code:
procedure TForm1.Ellips(Sender: TObject);
var
image,tex: TBGRABitmap;
c: TBGRAPixel;
x,y,rx,ry: LongInt;
begin
image := TBGRABitmap.Create(Width,Height,ColorToBGRA(ColorToRGB(clBtnFace)));
c := clred;//ColorToBGRA(ColorToRGB(clWindowText));
//ellipse coordinates
x := 0;
y := 0;
rx := 100;
ry := 100;
Image.EllipseAntialias(x,y,rx,ry,c,1); // Rx is de Straal
Image.Draw(Canvas,0,0,False);
Image.Free;
Panel1.Canvas.Ellipse(X,Y,Rx,Ry); // Rx is de Diameter
end;
Bookmarks