![]() |
![]() |
![]() |
procedure OffsetRect(var rec: TRectD; dx, dy: double); overload;
uses Image32, Image32_PNG; ... var img: TImage32; rec: TRect; pt: TPoint; begin img := TImage32.Create(256, 256); rec := Rect(img.Width - 120, 0, img.Width, 120); pt := MidPoint(rec); DrawPoint(img, PointD(pt), 20, clNavy32); img.GaussianBlur(rec, 48); Windows.OffsetRect(rec, -120, 0); pt := MidPoint(rec); DrawPoint(img, PointD(pt), 20, clNavy32); img.GaussianBlur(rec, 24); rec := Rect(img.Width - 120, img.Height -125, img.Width, img.Height-5); pt := MidPoint(rec); DrawPoint(img, PointD(pt), 20, clNavy32); img.BoxBlur(rec, 12, 3); Windows.OffsetRect(rec, -120, 0); pt := MidPoint(rec); DrawPoint(img, PointD(pt), 20, clNavy32); img.BoxBlur(rec, 6, 3); img.Free;
![]() |
Copyright ©2019 Angus Johnson - Image32 ver. 1.54 - Documentation last updated on 7-November-2020