![]() |
![]() |
![]() |
procedure DrawInvertedLine(img: TImage32; const line: TPathD; lineWidth: double; endStyle: TEndStyle; joinStyle: TJoinStyle = jsAuto); overload;
procedure DrawInvertedLine(img: TImage32; const lines: TPathsD; lineWidth: double; endStyle: TEndStyle; joinStyle: TJoinStyle = jsAuto); overload;
Example |
uses Image32, Image32_PNG, Image32_vector, Image32_Draw; ... var img: TImage32; path: TPathD; rec: TRect; begin img := TImage32.Create(256,256); rec := img.Bounds; rec.Right := rec.Right div 4; path := Rectangle(rec); //draw a multicolored background DrawPolygon(img, path, frEvenOdd, clRed32); path := OffsetPath(path, rec.Width, 0); DrawPolygon(img, path, frEvenOdd, clYellow32); path := OffsetPath(path, rec.Width, 0); DrawPolygon(img, path, frEvenOdd, clLime32); path := OffsetPath(path, rec.Width, 0); DrawPolygon(img, path, frEvenOdd, clBlue32); //draw a color inverted ellipse path := Ellipse(RectD(30,30,226,226)); DrawInvertedLine(img, path, 20, esClosed); img.SaveToFile('inverted.png'); img.Free; end; |
![]() |
Copyright ©2019 Angus Johnson - Image32 ver. 1.54 - Documentation last updated on 7-November-2020