LazPaint (alpha-blending, antialiasing, filters)

[circular]

Here a new version (1.5) :

• floodfill with tolerance 0 bug fix
• color choice window
• red/blue swap on mac

https://sourceforge.net/projects/lazpaint/files/lazpaint/

[Leledumbo]

I do not understand what could be causing this. There is no modifications about Forms or Menus. I guess it is a problem of directories. The only significative change is that I added custom cursors. If you strip ucursors in the last version, what happens ?

The error comes from cursors.lrs which is used by LCL Forms unit as well (different cursor.lrs, of course). Renaming it to something else should fix it.

[circular]

Ok. I've changed it on subversion. Does it work ?

[DelphiFreak]

Yes, it works now. Thank you.

[circular]

Thank you for the confirmation, I am putting this new version on Sourceforge as a zip file.

[circular]

Hey people !

I've managed to make LazPaint load Paint.NET images. The layers are flattened, because LazPaint cannot edit layered images... yet.

By the way, to do so, I had to write a unit to read binary serialized .Net objects. If someone is interested by this, it's the unit udnetdeserial (Unit DotNet Deserialization).

Image data in Paint.NET files are compressed with gzip, so I used the zstream unit. The file format is a little bit different, so I just skip the 10 bytes of GZip header and use deflate without header (Tdecompressionstream with skipheader option).

As usual, it can be downloaded here (version 1.6) :
https://sourceforge.net/projects/lazpaint/files/lazpaint/

I've added some documentation on Lazarus wiki (in French  ) :
http://wiki.lazarus.freepascal.org/BGRABitmap/fr

[IndianaJones]

@circular, sorry for the late response.
I compiled the last svn wuthout problem except umac unit needs to be replaced like this (cos it gives compiler error.)procedure

CheckSpinEdit(SpinEdit: TSpinEdit);
begin
   {$IFDEF DARWIN}
   SpinEdit.Left:=SpinEdit.Left+3;
   SpinEdit.Top:=SpinEdit.Top+3;
//   SpinEdit.Left += 3;
//   SpinEdit.Top += 3;
   {$ENDIF}
end;

Some modifications can be added:
1. Color windows shows the correct color but pen color(Shape_PenColor) does not.
2. Especially for mac, minimizing the main form doesnt minimize the others (color window, tools window)
3. New window renders wrongly which is attached.

[circular]

Thank you, I will take this into account.

1. Color windows shows the correct color but pen color(Shape_PenColor) does not.

Can you explain a little more ?

[IndianaJones]

Can you explain a little more ?

When you select the red color in 'color window', it reflects to Shape_PenColor as blue.
I hope I can figure it out.

[circular]

I wonder if it was not a mistake to swap red and blue for drawing bitmaps. How do the colorcircle look like ? It should be red on the right, blue on the top left and green on the bottom left.

If it is blue on the right, red on the top left and green on the bottom left then it is not correct.

Maybe the encoding of TColor is different because of Low Endiang/Big Endian.

[IndianaJones]

Here is the screenshot of the colorcircle in mac,it looks like this.

[circular]

Ok, that's not correct. red and blue are swapped.

If you delete the swapping in DataDrawOpaque in BGRAGtkBitmap, what happens ? To do change, remove

Code: Pascal  [Select][+][-]

1. {$IFDEF DARWIN}
2.      RawImage.Description.Init_BPP32_R8G8B8_BIO_TTB(AWidth,AHeight);
3.      SwapRedBlue;
4. {$ELSE}
5.  

and remove

Code: Pascal  [Select][+][-]

1.      {$IFDEF DARWIN}
2.      SwapRedBlue;
3.      {$ENDIF}    
4.  

and the remaining {$ENDIF}

Here is the expected screenshot.

[IndianaJones]

Are you sure about the unit?

[circular]

What do you mean ?

[IndianaJones]

I havent seen a unit like BGRAGtkBitmap in svn 13.
I have searched all the files and there is just an 2 {$IFDEF DARWIN} statement in the umac.pas