![]() |
![]() |
![]() |
|
|
uses Image32, Image32_PNG, Image32_vector, Image32_Draw; ... var rec: TRect; path: TPathD; rgr: TSvgRadialGradientRenderer; img: TImage32; begin img := TImage32.Create(256,256); rec := Rect(6,6, 250,250); path := Ellipse(rec); rgr := TSvgRadialGradientRenderer.Create; rgr.SetParameters(rec, Point (80, 80), clFuchsia32, $FF3333FF); rgr.InsertColorStop(0.3, clRed32); rgr.InsertColorStop(0.4, clYellow32); rgr.InsertColorStop(0.5, clYellow32); rgr.InsertColorStop(0.7, clLime32); rgr.InsertColorStop(0.8, clAqua32); DrawPolygon(img, path, frEvenOdd, rgr); DrawLine(img, path, 3, clMaroon32, esPolygon); img.SaveToFile('svg_gradient.png'); rgr.Free; img.Free; end; |
![]() |
Methods |
---|
In TSvgRadialGradientRenderer: |
Initialize |
RenderProc |
SetParameters |
In TCustomGradientRenderer: |
InsertColorStop |
Copyright ©2019 Angus Johnson - Image32 ver. 2.22 - Documentation last updated on 3-April-2021