![]() |
![]() |
![]() |
|
|
uses Image32, Image32_PNG, Image32_vector, Image32_Draw; ... var rec: TRect; path: TPathD; rgr: TRadialGradientRenderer; img: TImage32; begin img := TImage32.Create(256,256); rec := Rect(86,86, 170,170); path := Rectangle(img.Bounds); rgr := TSvgRadialGradientRenderer.Create; rgr.SetParameters(rec, clFuchsia32, $FF3333FF, gfsMirror); 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, esClosed); img.SaveToFile('radial_gradient.png'); rgr.Free; img.Free; end; |
![]() |
Methods |
---|
In TRadialGradientRenderer: |
Initialize |
InsertColorStop |
RenderProc |
SetGradientFillStyle |
SetParameters |
Copyright ©2019 Angus Johnson - Image32 ver. 1.54 - Documentation last updated on 7-November-2020