search

bgrabitmap / lazpaint

🎨 Cross-platform image editor with raster and vector layers similar to Paint.Net written in Lazarus (Free Pascal)
https://lazpaint.github.io/
GNU General Public License v3.0
401 stars 55 forks source link

fpc 3.1.1 revision 32333 add declaration TPointF #5

Closed ghost closed 8 years ago

ghost commented 8 years ago

It is big problem for var parameters TPointF.Round and function round etc...

ghost commented 8 years ago

My changes: [* geometrytypes.inc ] replace TPointF = packed record x, y: single; end;
by TPointF = Types.TPointF;

[\ BGRADefaultBitmap.pas **] replace round( by system.round(

It is all

ghost commented 8 years ago

for TPointF better is version only for fpc 3.1.1 {$ifdef VER3_1_1 } TPointF = Types.TPointF; {$else} TPointF = packed record x, y: single; end; {$endif}

circular17 commented 8 years ago

fixed in last version of BGRABitmap