after I selected a rectangle area I want to move it inside the picture.
When I click on the "Move selection" toolbar icon always a popup appears:

"Do you want to retrieve selected area?"

How can I suppress this popup (and always assume YES at this moment)?

From forum: https://forum.lazarus.freepascal.org/index.php/topic,37778.0.html

Lazarus Win32.

If you have svg file with Style Attribute like this:
style="fill:none;fill-rule:evenodd;stroke:#000000;stroke-width:0.73382717px;stroke-linecap:butt;stroke-linejoin:miter;stroke-opacity:1"

You got always black, full opaque elements because of

1. When you call for example:
   val(AttributeOrStyle['fill-opacity'], result, errPos);

2. In AttributeOrStyle['fill-opacity'] you got '1.00;' (with semicolon), so, you got non zero error code and default value as the consequence.

Error in
procedure TSVGElement.LocateStyleDeclaration(AText: string; AProperty: string; out AStartPos,
AColonPos, AValueLength: integer);

I think AValueLength has wrong value.

Thank you for you lib!

I checked your software. It is small and I like it. But there are two important improvements I suggest.

1. When we play with text we should see the font style we are working with. Not by clicking a button.
2. The text direction button as in Microsoft Word is also important to work with complext fonts.

env: lazarus 1.8.4 +win10+64bit

there are lots of error:

1. Error: Found declaration: SysToUTF8 , SysToUTF16,FileExistUTF8

after add the uses : LAZUtils, LazUTF8,LazFileUtils, to the error units, it seems ok,

2. the math round() function in uadjustcurves.pas confict with the types.pp
   Error: Found declaration: Round:;--

so, I changed the round() to ceil(), it finally worked.

3. LCLGetLanguageIDs(）not found
   utranslation.pas(79,3) Error: Identifier not found "LCLGetLanguageIDs"

so I commented(disabled) it with //LCLGetLanguageIDs()

Finally, it worked.

Terrific software! I would like to suggest minor modifications to support high DPI on Debian systems.

On Debian, the function
ScreenInfo.PixelsPerInchX
always returns 96, regardless of how the user has set the application scaling. The code below can detect the GUI scaling for Debian. Perhaps this could run just once during the initialization of uscaledpi.pas, so Linux systems could use this value if it is not 1.0. It would also be great if we could provide a unified solution on the excellent High DPI - Lazarus Wiki

function getFontScale: single; var AProcess: TProcess; Exe: String; AStringList: TStringList; begin result := 1.0; Exe := FindDefaultExecutablePath('gsettings'); if length(Exe) < 1 then exit; if not FileExists(Exe) then exit; AProcess := TProcess.Create(nil); AProcess.Executable:=Exe; AProcess.Parameters.Add('get'); AProcess.Parameters.Add('org.gnome.desktop.interface'); AProcess.Parameters.Add('text-scaling-factor'); AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes]; AProcess.Execute; if (AProcess.ExitCode = 0) then begin AStringList := TStringList.Create; AStringList.LoadFromStream(AProcess.Output); if AStringList.Count > 0 then result := strtofloatdef(AStringList.Strings[0], 1.0); AStringList.Free; end; AProcess.Free; end; {$ELSE} function getFontScale: single; begin result := 1.0; end; {$ENDIF}

right-click with pen was suggested, though it is now used to have a secondary color

using some modifier so that it is not zoomed

• drop shadow
• stroke around
• fast blur (box blur?)
• color/gradient overlay

LazPaint 7.0.5 is unable to duplicate a layer. When I press the appropriate button the "Index out of bounds" message pops up.

Is there a license? Could you please add a license? Or this is not an open source app?

In releases there is a linux32 build - any possibility of a linux64 one?

I have updated BgraUtf8.pas to clear the deprecated messages dealing with methods that make use of FileUtil.pas and LCLProc.pp. The Lazarus 1.5/FPC 3.0+ version have added significantly to the use of UNICODE, UTF8, UTF16 support thoughout the units. The result is that the existing file BgraUtf8.pas creates warnings concerning deprecated methods. My effort has been to make changes to the preferred methods found in LazUTF8 and LazFileUtils.

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

An alpha mask feature where you can apply one layer as a mask to another layer would be greatly appreciated -- that and more filters in line with what Paint.NET has and this becomes the sanest, most user friendly image editor available on Linux.

does not change the current filename
has different directory

Pascal or Python

there is have lclstrconsts.zh_CN.po but not lazpaint.zh-CN.po
can't use zh-cn language
need help

keep vector information of selection mask

Grouping items of the toolbar to save space on the docked toolbar.

When the image list is empty and you scroll-up an error is shown.

It converts to "true color" and then save as "best" 256 color palette.

Here an same image edited and saved with four graphic editors (Paint, Paint Shop Pro 4, PictBear and Lazpaint) to check the difference.

edit: sorry, I will try explain better the problem.

I'm noticed are several image editor saving wrong colors indexes. And only a few do it properly.
Unfortunately LazPaint is one making this wrong.

The number is indicating color index
I will say the color index in this order:
top right square, bottom right square, top left square, bottom left square, center (pink)

This is the original image
https://s6.postimg.org/4cjwgv6up/original_index.png
The color index is: 1, 2, 3, 4, 0 - as indicates the image, of course :P

Now, we will modify and save the image in these programs:
LazPaint, RealWorld Paint, PictBear, Paint Shop Pro 4.

The image edited with LazPaint:
https://s6.postimg.org/slefetwmp/image_Laz_Paint.png
The color index now is: 4, 1, 3, 0, 2 - wrong index

The image edited with RWPaint:
https://s6.postimg.org/6v5lhjskx/image_RWPaint.png
The color index now is: 1, 4, 2, 3, 0 - wrong index

The image edited with PictBear:
https://s6.postimg.org/v06az9cvl/image_Pict_Bear.png
The color index now is: 1, 2, 3, 4, 0 - correct index

The image edited with Paint Shop Pro 4:
https://s6.postimg.org/pq1c7ysmp/image_Paint_Shot_PPro4.png
The color index now is: 1, 2, 3, 4, 0 - correct index

Note: You can view the color index with Paint Shop Pro 4 using the color selector tool
example: https://s6.postimg.org/nb9gnjcdt/psp4_colors.gif

From forum: https://forum.lazarus.freepascal.org/index.php/topic,38074.0.html

Insert point on segment
Add sub polygon
Close when clicking again first point

After some editing I have too much colors in pic (i didnt want it),
and now I cannot save pic as BMP 16 color or 256 color. It allows only 24bit.
Pls, ALWAYS enable them, so I can save pic with downsample to 256 colors.

Error message

Just found your lazpaint and I was wondering if lazpaint could ever be on android and the windows app store? I see lazpaint becoming a open source alternative to Adobe Photoshop Sketch and Sketchable https://www.youtube.com/watch?v=qGBY_eP-s0w https://www.youtube.com/watch?v=40t1Ou9rnKM Wishing lazpaint lots of luck and long life.

Right click to rotate or shear shape

umultiimage.pas(74,30) Error: Only static methods and static variables can be referenced through an object type

Move closer to make LazPaint as official debian package sometime in the future. So then installation would be as simple as "apt install lazpaint". Also upgrades would be automatic.

Not using a texture to represent a solid color

folders that can contain layers like embedded LZP file

Space is assigned to Hand mode

TBGRABitmap.TextRec result (the forth line of the image attached) Should be as the TCanvas.TextRec result (the third line of the image attached).

and here is the code I used:

procedure TForm1.FormPaint(Sender: TObject);
var
  image: TBGRABitmap;
  TS: TTextStyle;
begin
  image := TBGRABitmap.Create(ClientWidth, ClientHeight);
  image.FontName := Font.Name;
  image.FontHeight := Font.Height;
  TS.Opaque := False;

  TS.RightToLeft := False;
  Canvas.TextRect(Rect(5, 5, 250, 20), 5, 5, 'TCanvas With RightToLeft := False', TS);
  Canvas.TextRect(Rect(250, 5, 500, 20), 250, 5, 'أب+', TS);

  image.TextRect(Rect(5, 20, 250, 35), 5, 20, 'TBGRABitmap With RightToLeft := False', TS, BGRA(0,0,0));
  image.TextRect(Rect(250, 20, 500, 35), 250, 20, 'أب+', TS, BGRA(0,0,0));
  image.Draw(Canvas, 0, 0, False);

  TS.RightToLeft := True;
  Canvas.TextRect(Rect(5, 35, 250, 50), 5, 35, 'TCanvas With RightToLeft := True', TS);
  Canvas.TextRect(Rect(250, 35, 500, 50), 250, 35, 'أب+', TS);

  image.TextRect(Rect(5, 50, 250, 65), 5, 50, 'TBGRABitmap With RightToLeft := True', TS, BGRA(0,0,0));
  image.TextRect(Rect(250, 50, 500, 65), 250, 50, 'أب+', TS, BGRA(0,0,0));
  image.Draw(Canvas, 0, 0, False);

  image.Free;
end;

If I translated all correctly, is still missing the new menu entry File > Remember save format. That's not in the po file.

[BGRABitmap issue]
From the forum
https://forum.lazarus.freepascal.org/index.php/topic,12037.msg335467.html#msg335467

Please fix an issue with the linear gradients of svg, which seems to be not painted, but it's only a size issue.

The issue is in "TSVGElementWithGradient.CreateCanvasLinearGradient(...)" and this code...

    p1.x:= Units.ConvertWidth(g.x1,AUnit,w).value;
    p1.y:= Units.ConvertHeight(g.y1,AUnit,h).value;
    p2.x:= Units.ConvertWidth(g.x1,AUnit,w).value;
    p2.y:= Units.ConvertHeight(g.y1,AUnit,h).value;

...should be...

    p1.x:= Units.ConvertWidth(g.x1,AUnit,w).value;
    p1.y:= Units.ConvertHeight(g.y1,AUnit,h).value;
    p2.x:= Units.ConvertWidth(g.x2,AUnit,w).value;  <- change here
    p2.y:= Units.ConvertHeight(g.y2,AUnit,h).value;  <- change here

After these changes the linear gradients will be painted as expected.

Layer repeats itself or is misaligned

Cannot change font

I was wondering why sometimes I cannot select multiple images from a directory and at other times I can. I think I found the cause. If I open LazPaint with no image, I can select multiple images in the file selection dialog, however, if I launched LazPaint with a commandline image, I can only select a single image in the file selection dialog.

I work very often visually with mouse and toolbars.
Therefore I would appreciate to have customized toolbar(s) left and top which offer e.g. icons for crop to selection, undo, contrast, rotate.
Pleae add this in the next release
Thank you
Peter

Hi, I finally have the Mac. BGRABitmap, BGRAControls, MaterialDesign, all compiled fine.

When I try to compile LazPaint the first problem I found is this:
if (Clipboard.Formats[i] = PredefinedClipboardFormat(pcfDelphiBitmap)) or

In the clipboard unit.

Maybe you want to install Lazarus trunk on Linux to test as well, is a change on the LCLType unit.

I'm using fpcupdeluxe to install, nothing else works on Mac, but Lazarus trunk and FPC trunk 64 bit.

        {$hints off}
        ec.red := (ec.red*($FFFF-gray)+level*gray) shr 16;
        ec.green := (ec.green*($FFFF-gray)+level*gray) shr 16;
        ec.blue := (ec.blue*($FFFF-gray)+level*gray) shr 16;
        {$hints on} 

Hi, this happens when I run LazPaint 'Debug' 32 bit, compiled with Lazarus Trunk and FPC Trunk. When compiled in 'Debug' 64 bit it works fine.

I don't know if is still a good idea to mantain 32 bit Windows, since only really old PC still uses 32 bit.