- New port: graphics/lazpaint

LazPaint is an image editor with layers and transparency. It supports the
format OpenRaster so it can interoperate with MyPaint, Gimp and Krita

WWW: http://wiki.freepascal.org/LazPaint

Differential Revision:	https://reviews.freebsd.org/D15241

16 files changed, 213 insertions, 0 deletions

diff --git a/graphics/lazpaint/files/patch-lazpaint_lazpaintmainform.pas b/graphics/lazpaint/files/patch-lazpaint_lazpaintmainform.pas
new file mode 100644
index 000000000000..505e1f62d0e0
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_lazpaintmainform.pas
@@ -0,0 +1,11 @@
+--- lazpaint/lazpaintmainform.pas	2018-04-25 23:51:57.849654000 -0500
++++ lazpaint/lazpaintmainform.pas	2018-04-25 23:52:24.210190000 -0500
+@@ -17,7 +17,7 @@
+ 
+   LazPaintType, UMainFormLayout, UTool, UImage, UImageAction, ULayerAction, UZoom,
+   UImageObservation, UConfig, UScaleDPI, UResourceStrings,
+-  UMenu, uscripting, ubrowseimages, UToolPolygon, UBarUpDown;
++  UMenu, uscripting, ubrowseimages, UToolPolygon, UBarUpDown, LazFileUtils, LazUTF8;
+ 
+ const
+   MinPenWidthValue = 10;
diff --git a/graphics/lazpaint/files/patch-lazpaint_lazpainttype.pas b/graphics/lazpaint/files/patch-lazpaint_lazpainttype.pas
new file mode 100644
index 000000000000..d04705f031ae
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_lazpainttype.pas
@@ -0,0 +1,11 @@
+--- lazpaint/lazpainttype.pas	2018-04-25 23:41:19.922862000 -0500
++++ lazpaint/lazpainttype.pas	2018-04-25 23:41:36.179325000 -0500
+@@ -6,7 +6,7 @@
+ 
+ uses
+   Classes, SysUtils, Inifiles, BGRABitmap, BGRABitmapTypes, uconfig, uimage, utool, Forms, BGRALayers, Graphics, Menus,
+-  uscripting, Dialogs, Controls
++  uscripting, Dialogs, LazUTF8, LazFileUtils, Controls
+   {$IFDEF LINUX}, InterfaceBase{$ENDIF};
+ 
+ const
diff --git a/graphics/lazpaint/files/patch-lazpaint_uadjustcurves.pas b/graphics/lazpaint/files/patch-lazpaint_uadjustcurves.pas
new file mode 100644
index 000000000000..edb43b0d0db5
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_uadjustcurves.pas
@@ -0,0 +1,30 @@
+--- lazpaint/uadjustcurves.pas	2018-04-25 23:53:59.146788000 -0500
++++ lazpaint/uadjustcurves.pas	2018-04-25 23:57:23.786990000 -0500
+@@ -156,8 +156,8 @@
+   begin
+       with CoordToBitmap(i/FNbGrid,i/FNbGrid) do
+       begin
+-        Bitmap.DrawLineAntialias(round(FPoint0.x),round(y),Bitmap.Width,round(y),FGridColor,BGRAPixelTransparent,FTickSize,false);
+-        Bitmap.DrawLineAntialias(round(x),round(FPoint0.y),round(x),0,FGridColor,BGRAPixelTransparent,FTickSize,false);
++        Bitmap.DrawLineAntialias(System.round(FPoint0.x),System.round(y),Bitmap.Width,System.round(y),FGridColor,BGRAPixelTransparent,FTickSize,false);
++        Bitmap.DrawLineAntialias(System.round(x),System.round(FPoint0.y),System.round(x),0,FGridColor,BGRAPixelTransparent,FTickSize,false);
+       end;
+   end;
+   curve := SelectedCurve;
+@@ -515,14 +515,14 @@
+     with GetCoord(0,i/high(labels)) do
+     begin
+       Bitmap.TextOut(x-FTickSize,y-th div 2,labels[i],axesColor,taRightJustify);
+-      Bitmap.DrawLine(round(x),round(y),round(x-FTickSize),round(y),axesColor,False);
++      Bitmap.DrawLine(System.round(x),System.round(y),System.round(x-FTickSize),System.round(y),axesColor,False);
+     end;
+     with GetCoord(i/high(labels),0) do
+     begin
+       if i = 0 then
+         Bitmap.TextOut(x,y+FTickSize,labels[i],axesColor,taLeftJustify) else
+         Bitmap.TextOut(x,y+FTickSize,labels[i],axesColor,taCenter);
+-      Bitmap.DrawLine(round(x),round(y),round(x),round(y+FTickSize),axesColor,False);
++      Bitmap.DrawLine(System.round(x),System.round(y),System.round(x),System.round(y+FTickSize),axesColor,False);
+     end;
+   end;
+   Bitmap.DrawLine(leftMargin, 0, leftMargin, Bitmap.Height - bottomMargin, axesColor, False);
diff --git a/graphics/lazpaint/files/patch-lazpaint_ubrowseimages.pas b/graphics/lazpaint/files/patch-lazpaint_ubrowseimages.pas
new file mode 100644
index 000000000000..72c7cf11c50d
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_ubrowseimages.pas
@@ -0,0 +1,11 @@
+--- lazpaint/ubrowseimages.pas	2018-04-25 23:50:38.459232000 -0500
++++ lazpaint/ubrowseimages.pas	2018-04-25 23:50:47.539703000 -0500
+@@ -7,7 +7,7 @@
+ uses
+   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
+   ComCtrls, ExtCtrls, Buttons, StdCtrls, BGRAVirtualScreen, BGRABitmap,
+-  BGRABitmapTypes, BGRAAnimatedGif, UMySLV, LazPaintType, Masks, LCLType;
++  BGRABitmapTypes, BGRAAnimatedGif, UMySLV, LazPaintType, Masks, LCLType, LazFileUtils;
+ 
+ const
+   MaxIconCacheCount = 512;
diff --git a/graphics/lazpaint/files/patch-lazpaint_ucommandline.pas b/graphics/lazpaint/files/patch-lazpaint_ucommandline.pas
new file mode 100644
index 000000000000..632809159b3c
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_ucommandline.pas
@@ -0,0 +1,11 @@
+--- lazpaint/ucommandline.pas	2018-04-26 00:01:03.521298000 -0500
++++ lazpaint/ucommandline.pas	2018-04-26 00:01:21.335693000 -0500
+@@ -4,7 +4,7 @@
+ 
+ interface
+ 
+-uses classes, LazpaintType, uresourcestrings;
++uses classes, LazpaintType, uresourcestrings, LazUTF8, LazFileUtils;
+ 
+ procedure ProcessCommands(instance: TLazPaintCustomInstance; commandsUTF8: TStringList; out errorEncountered, fileSaved: boolean);
+ function ParamStrUTF8(AIndex: integer): string;
diff --git a/graphics/lazpaint/files/patch-lazpaint_uconfig.pas b/graphics/lazpaint/files/patch-lazpaint_uconfig.pas
new file mode 100644
index 000000000000..6af395b5860e
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_uconfig.pas
@@ -0,0 +1,11 @@
+--- lazpaint/uconfig.pas	2018-04-25 23:39:35.445237000 -0500
++++ lazpaint/uconfig.pas	2018-04-25 23:39:48.185933000 -0500
+@@ -5,7 +5,7 @@
+ interface
+ 
+ uses
+-  Classes, SysUtils, IniFiles, BGRABitmapTypes, Graphics, LCLType, uscripting;
++  Classes, SysUtils, IniFiles, BGRABitmapTypes, Graphics, LCLType, uscripting, LazUTF8, LazUTF8Sysutils, LazFileUtils;
+ 
+ type
+   TLazPaintConfig = class;
diff --git a/graphics/lazpaint/files/patch-lazpaint_ucustomblur.pas b/graphics/lazpaint/files/patch-lazpaint_ucustomblur.pas
new file mode 100644
index 000000000000..41f42d7f4fca
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_ucustomblur.pas
@@ -0,0 +1,11 @@
+--- lazpaint/ucustomblur.pas	2018-04-25 23:58:21.378496000 -0500
++++ lazpaint/ucustomblur.pas	2018-04-25 23:58:39.088932000 -0500
+@@ -7,7 +7,7 @@
+ uses
+   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
+   StdCtrls, ExtCtrls, ExtDlgs,  bgrabitmap, LazPaintType, UScaleDPI,
+-  UResourceStrings, UFilterConnector, UFilterThread, ubrowseimages;
++  UResourceStrings, UFilterConnector, UFilterThread, ubrowseimages, LazFileUtils;
+ 
+ type
+ 
diff --git a/graphics/lazpaint/files/patch-lazpaint_ugraph.pas b/graphics/lazpaint/files/patch-lazpaint_ugraph.pas
new file mode 100644
index 000000000000..e8f8184a16c2
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_ugraph.pas
@@ -0,0 +1,11 @@
+--- lazpaint/ugraph.pas	2018-04-26 00:33:20.456108000 -0500
++++ lazpaint/ugraph.pas	2018-04-26 00:33:27.797858000 -0500
+@@ -6,7 +6,7 @@
+ 
+ uses
+   Classes, SysUtils, bgrabitmap, bgrabitmaptypes, LazPaintType, Graphics, BGRALayers, LCLType,
+-  BCButton;
++  BCButton, LazUTF8;
+ 
+ const FrameDashLength = 4;
+   NicePointMaxRadius = 4;
diff --git a/graphics/lazpaint/files/patch-lazpaint_uimage.pas b/graphics/lazpaint/files/patch-lazpaint_uimage.pas
new file mode 100644
index 000000000000..080b9da29a2d
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_uimage.pas
@@ -0,0 +1,11 @@
+--- lazpaint/uimage.pas	2018-04-25 23:44:24.819000000 -0500
++++ lazpaint/uimage.pas	2018-04-25 23:44:47.194779000 -0500
+@@ -7,7 +7,7 @@
+ uses
+   Classes, SysUtils, BGRABitmap, BGRABitmapTypes, types,
+   UImageState, UStateType, Graphics, BGRALayers, UImageObservation, FPWriteBMP,
+-  UImageType, BGRALzpCommon, UZoom;
++  UImageType, BGRALzpCommon, UZoom, LazUTF8;
+ 
+ const
+   MaxLayersToAdd = 99;
diff --git a/graphics/lazpaint/files/patch-lazpaint_uimagelist.pas b/graphics/lazpaint/files/patch-lazpaint_uimagelist.pas
new file mode 100644
index 000000000000..c59682f468e0
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_uimagelist.pas
@@ -0,0 +1,11 @@
+--- lazpaint/uimagelist.pas	2018-04-25 23:59:46.369724000 -0500
++++ lazpaint/uimagelist.pas	2018-04-26 00:00:08.521184000 -0500
+@@ -7,7 +7,7 @@
+ 
+ uses
+   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
+-  Grids, StdCtrls, Buttons, ComCtrls, ExtCtrls, Menus,
++  Grids, StdCtrls, Buttons, ComCtrls, ExtCtrls, Menus, LazFileUtils,
+   LazPaintType, UResourceStrings, UConfig, BGRAImageList, ubrowseimages;
+ 
+ type
diff --git a/graphics/lazpaint/files/patch-lazpaint_umenu.pas b/graphics/lazpaint/files/patch-lazpaint_umenu.pas
new file mode 100644
index 000000000000..eacee7c85619
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_umenu.pas
@@ -0,0 +1,11 @@
+--- lazpaint/umenu.pas	2018-04-25 23:45:43.826606000 -0500
++++ lazpaint/umenu.pas	2018-04-25 23:46:07.106133000 -0500
+@@ -5,7 +5,7 @@
+ interface
+ 
+ uses
+-  Classes, SysUtils, ActnList, Forms, Menus, UTool, LCLType, ExtCtrls, UConfig;
++  Classes, SysUtils, ActnList, Forms, Menus, UTool, LCLType, ExtCtrls, UConfig, LazUTF8;
+ 
+ type
+ 
diff --git a/graphics/lazpaint/files/patch-lazpaint_umyslv.pas b/graphics/lazpaint/files/patch-lazpaint_umyslv.pas
new file mode 100644
index 000000000000..38f83085baac
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_umyslv.pas
@@ -0,0 +1,11 @@
+--- lazpaint/umyslv.pas	2018-04-25 23:49:08.994450000 -0500
++++ lazpaint/umyslv.pas	2018-04-25 23:49:18.561675000 -0500
+@@ -6,7 +6,7 @@
+ 
+ uses
+   Classes, Types, SysUtils, ComCtrls, ShellCtrls, Controls, Graphics, BGRABitmap,
+-  BGRAVirtualScreen, BGRABitmapTypes, UVolatileScrollBar;
++  BGRAVirtualScreen, BGRABitmapTypes, UVolatileScrollBar, LazFileUtils;
+ 
+ type
+   PMyShellListViewItemData = ^TMyShellListViewItemData;
diff --git a/graphics/lazpaint/files/patch-lazpaint_uobject3d.pas b/graphics/lazpaint/files/patch-lazpaint_uobject3d.pas
new file mode 100644
index 000000000000..e8d47607f686
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_uobject3d.pas
@@ -0,0 +1,11 @@
+--- lazpaint/uobject3d.pas	2018-04-25 23:47:42.778665000 -0500
++++ lazpaint/uobject3d.pas	2018-04-25 23:47:53.371177000 -0500
+@@ -8,7 +8,7 @@
+   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
+   StdCtrls, Spin, ExtCtrls, ComCtrls, BGRAVirtualScreen, BGRAKnob,
+   BGRAImageList, BGRABitmap, BGRAScene3D, LazPaintType, BGRABitmapTypes,
+-  UConfig;
++  UConfig, LazFileUtils;
+ 
+ const
+   AntialiasingLevelWhenFixed = 2;
diff --git a/graphics/lazpaint/files/patch-lazpaint_uonline.pas b/graphics/lazpaint/files/patch-lazpaint_uonline.pas
new file mode 100644
index 000000000000..b55a93213104
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_uonline.pas
@@ -0,0 +1,11 @@
+--- lazpaint/uonline.pas	2018-04-26 00:04:51.587890000 -0500
++++ lazpaint/uonline.pas	2018-04-26 00:05:12.232466000 -0500
+@@ -6,7 +6,7 @@
+ 
+ uses
+   fphttpclient, Classes, SysUtils,
+-  UConfig, LazPaintType;
++  UConfig, LazPaintType, LazFileUtils;
+ 
+ type
+   { THttpGetThread }
diff --git a/graphics/lazpaint/files/patch-lazpaint_utooltext b/graphics/lazpaint/files/patch-lazpaint_utooltext
new file mode 100644
index 000000000000..73920cf21b7e
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_utooltext
@@ -0,0 +1,11 @@
+--- lazpaint/utooltext.pas	2018-04-26 00:06:41.961489000 -0500
++++ lazpaint/utooltext.pas	2018-04-26 00:06:59.416755000 -0500
+@@ -6,7 +6,7 @@
+ 
+ uses
+   Types, Classes, SysUtils, utool, utoolbasic, LCLType, Graphics, BGRABitmap, BGRABitmapTypes, BGRATextFX,
+-  BGRAGradients, ULayerAction;
++  BGRAGradients, ULayerAction, LazUTF8;
+ 
+ type
+ 
diff --git a/graphics/lazpaint/files/patch-lazpaint_utranslation.pas b/graphics/lazpaint/files/patch-lazpaint_utranslation.pas
new file mode 100644
index 000000000000..6d4291ee249f
--- /dev/null
+++ b/graphics/lazpaint/files/patch-lazpaint_utranslation.pas
@@ -0,0 +1,29 @@
+--- lazpaint/utranslation.pas	2018-04-26 00:02:18.729349000 -0500
++++ lazpaint/utranslation.pas	2018-04-26 00:17:20.943460000 -0500
+@@ -8,7 +8,7 @@
+   {$ifdef Darwin}
+   MacOSAll,
+  {$endif}
+-  Classes, SysUtils, UConfig, IniFiles;
++  Classes, SysUtils, UConfig, IniFiles, LazFileUtils, LazUTF8;
+ 
+ {*************** Language ****************}
+ const
+@@ -62,7 +62,7 @@
+       result := GetResourcesPath+'i18n'+PathDelim
+     else
+     {$ENDIF}
+-    result:='i18n'+PathDelim;
++    result:='%%DATADIR%%'+PathDelim+'i18n'+PathDelim;
+   {$ENDIF}
+ end;
+ 
+@@ -76,7 +76,7 @@
+ begin
+   Lang:='';
+   FallbackLang:='';
+-  LCLGetLanguageIDs(Lang,FallbackLang);
++  LazGetLanguageIDs(Lang,FallbackLang);
+   result := FallbackLang;
+ end;
+