LazPaint (alpha-blending, antialiasing, filters)

[IndianaJones]

Here is the mac render screenshot. (Mac OS X 10.5.
1. Crosshair is disappear in the image drawing zone.
2. Something wrong with the OnPaint event, cos drawing on the canvas nothing happens after changing the form size it appears.
3. Zoom in and out arent working.
4. Close can be added to the File menu.
I havent tested all of the things but some of the problem mentioned above.
Here are some opinions about the application.
1. Tools form should be closed and visibility of Tools can be add to the Edit menu or something else.
2. Information of the x, y points and other related things can be shown at the StatusBar (TStatusBar)
Thanks, great job by the way.

P.S. Here I compiled on the Ubuntu 10.10 and crosshair is so slow.

[circular]

Here is the mac render screenshot. (Mac OS X 10.5.

Thanks.

1. Crosshair is disappear in the image drawing zone.
P.S. Here I compiled on the Ubuntu 10.10 and crosshair is so slow.

Ok so I should give up with this way of doing the crosshair. I can use a normal cursor, but I do not know how to redefine it. There is a standard crosshair cursor, but it is using inverted pixels, so it is not visible on gray (127 xor 255 = 128). I would like to use a cross hair with black and white. Problem is how to embed it into the exe file and use it inside the application.

2. Something wrong with the OnPaint event, cos drawing on the canvas nothing happens after changing the form size it appears.

Do you mean that while you are drawing, you do not see anything, and the drawing shows up only after you resize the form ? If so, then it explains why you don't see the crosshair. It is painted in the picture like a standard drawing. But I don't understand why this happens.

3. Zoom in and out arent working.

I suppose it's the same problem. Maybe it is because direct drawing on Canvas is not possible. In this case, I should put a Repaint even each time the image is drawn.

4. Close can be added to the File menu.

Ok.

1. Tools form should be closed and visibility of Tools can be add to the Edit menu or something else.

I do not understand. How could the user choose the current tool ? The toolbox is the most convenient way.

2. Information of the x, y points and other related things can be shown at the StatusBar (TStatusBar)

Good idea.

Thanks, great job by the way.

Thank you, but I wonder what you have seen if it's not painted when you draw...

[circular]

IndianaJones, here is a new version (1.3b) designed to fix the problems you've mentionned. Can you give it a try ?

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

[IndianaJones]

For the first question;
1. create the icon using any icon editor, painter...
2. convert ico file with using lazres. (resource file) which is in the /lazarus/tools directory.
3. http://wiki.lazarus.freepascal.org/Lazarus_Resources for the usage of the lazres.
4. add the lrs file to the initialization section.
5. try the following code.

Code: [Select]

var
  ico : TPicture;
begin
  ico:= TPicture.Create;
  ico.LoadFromLazarusResource('wi0126-32');
  Screen.Cursors[5] := ico.Icon.Handle;
//  Screen.Cursor:=5;
  Form1.Cursor:=5;
6. 'wi0126-32' is my icon file name in the resource file.
 
2. Right
3. Right

I do not understand. How could the user choose the current tool ? The toolbox is the most convenient way.

I mean just add in the menu (shortcut) to close and open the tool window.

Thank you, but I wonder what you have seen if it's not painted when you draw...

Things can be improved man.

So the last thing, I am going to test the new version later. (here four oclock in the morning) 
Thanks.

[circular]

Thanks for these explanations. It seems works on Win64. 

I mean just add in the menu (shortcut) to close and open the tool window.

Ok.

Thank you, but I wonder what you have seen if it's not painted when you draw...

Things can be improved man.

I hope so. 

So the last thing, I am going to test the new version later. (here four oclock in the morning) 

How come ? That's very late. 

[IndianaJones]

@circular, it works perfetto, congratulations.
Here is some modifications:
1. Clear the area can be added.
2. There is something wrong with the pen color. For example, when I select the pen color to blue(255) and drawing a rectangle which is red(?).
3. Color Dialog can be open like Tools menu, as attached image.
4. Minimizing the application to maximization doesnt work.
5. Floodfill doesnt work well. (sometimes it fills sometimes doesnt)
I will add some other related modifications later.
Thanks.

[circular]

1. Clear the area can be added.

What do you mean ? Clear the whole bitmap, or clear the selected area ?
To clear the bitmap, you can do File>New, and to clear an area, select and Edit>Cut.

2. There is something wrong with the pen color. For example, when I select the pen color to blue(255) and drawing a rectangle which is red(?).

It is possible that red and blue channels are swapped. In this case :
blue becomes red
green stays green
red becomes blue
yellow becomes cyan
white stays white

Is it the case ?

3. Color Dialog can be open like Tools menu, as attached image.

You mean a permanent window to choose a color ? Good idea.

4. Minimizing the application to maximization doesnt work.

What happens ?

5. Floodfill doesnt work well. (sometimes it fills sometimes doesnt)

Strange. Because of the selection ?

Thanks.

Thank you too.

[circular]

Here is a new version (1.4) with :

• gamma expansion/compression in BGRABitmap : better gradient and better blend
• empty selection rotation
• coordinates
• custom cursors

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

[Blaazen]

Some (probably platform specific) problem here. Linux + KDE (Qt 4.7.1).

Version: 1.4 - ../../../../Lazarus_Qt/lazarus/lcl/menus.pp(454,1) Fatal: Can't find unit Forms used by Menus
   (error on compilig)

Version: 1.3 - when resizing Form or when Save menu item selected from mainMenu then SIGSEGV + Can't find "image/qimage.cpp"
   this version run (problem with crosshair cursor is probably repaired in 1.4)

I don't now why because I use MainMenu, SaveDialog, resizing etc. in my App. and I never saw these bugs before.

[IndianaJones]

1.

What do you mean ? Clear the whole bitmap, or clear the selected area ?

Adding an shortcut to clear the bitmap, and a new for appear for the transparency of the cleared bitmap. (opacity, solid)

2.

Is it the case.

Yes, it is the case.

3.

You mean a permanent window to choose a color ? Good idea.

Yep

4.

What happens ?

After minimazing the application, it doesnt come up to the screen again.

5.

Strange. Because of the selection ?

No, I think the problem is related with the Tolerance, if the tolerance is bigger than 100, the problem occurs, below it works perfectly.

New cases:
1. Tolerance 0 gives 'Division by zero'
2. In the New window, have a look at the Cancel button.

Thanks.

[IndianaJones]

I confirm the problem which is reported by Blaazen.

../../lazarus/lcl/menus.pp(454,1) Fatal: Can't find unit Forms used by Menus

[circular]

Some (probably platform specific) problem here. Linux + KDE (Qt 4.7.1).

Version: 1.4 - ../../../../Lazarus_Qt/lazarus/lcl/menus.pp(454,1) Fatal: Can't find unit Forms used by Menus
   (error on compilig)

Version: 1.3 - when resizing Form or when Save menu item selected from mainMenu then SIGSEGV + Can't find "image/qimage.cpp"
   this version run (problem with crosshair cursor is probably repaired in 1.4)

I don't now why because I use MainMenu, SaveDialog, resizing etc. in my App. and I never saw these bugs before.

I have no idea what to do about it. Maybe the unit clauses are different with Qt.

By the way, BGRABitmap may not work on Qt, there is only the right code for Windows and Gtk. It would be interesting to test it, and maybe add some specific directives and functions to ensure BGRA drawing.

1.

What do you mean ? Clear the whole bitmap, or clear the selected area ?

Adding an shortcut to clear the bitmap, and a new for appear for the transparency of the cleared bitmap. (opacity, solid)

I do not understand.

Yes, it is the case.

So there is a Red/Blue inversion. Can you try to replace the following function :

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

1. procedure TBGRAGtkBitmap.DataDrawOpaque(ACanvas: TCanvas; Rect: TRect;
2.   AData: Pointer; ALineOrder: TRawImageLineOrder; AWidth, AHeight: integer);
3. var Temp: TBitmap; RawImage: TRawImage; BitmapHandle, MaskHandle: HBitmap; CreateSuccess: Boolean;
4. begin
5.      if (AHeight=0) or (AWidth = 0) then exit;
6.  
7.      RawImage.Init;
8.      {$IFDEF DARWIN}
9.      RawImage.Description.Init_BPP32_R8G8B8_BIO_TTB(AWidth,AHeight);
10.      SwapRedBlue;
11.      {$ELSE}
12.      RawImage.Description.Init_BPP32_B8G8R8_BIO_TTB(AWidth,AHeight);
13.      {$ENDIF}
14.      RawImage.Description.LineOrder:= ALineOrder;
15.      RawImage.Description.LineEnd := rileDWordBoundary;
16.      RawImage.Data:= PByte(AData);
17.      RawImage.DataSize:= AWidth*AHeight*Sizeof(TBGRAPixel);
18.      CreateSuccess := RawImage_CreateBitmaps(RawImage, BitmapHandle, MaskHandle, false);
19.      {$IFDEF DARWIN}
20.      SwapRedBlue;
21.      {$ENDIF}
22.      if not CreateSuccess then
23.        raise FPImageException.Create('Failed to create bitmap handle');
24.      Temp := TBitmap.Create;
25.      Temp.Handle := BitmapHandle;
26.      Temp.MaskHandle := MaskHandle;
27.      ACanvas.StretchDraw(Rect,Temp);
28.      Temp.Free;
29. end;  

What happens ?

After minimazing the application, it doesnt come up to the screen again.

What happens if you try to debug it at this precise moment ?

No, I think the problem is related with the Tolerance, if the tolerance is bigger than 100, the problem occurs, below it works perfectly.

Ok. I think it is not a bug. The progressive floodfill has a transparency. When tolerance is big, many pixels are filled but with transparency so you may not notice it, all you see is that it paints multiple parts at the same time.

1. Tolerance 0 gives 'Division by zero'

Ok. I got this problem too. I'm fixing it.

2. In the New window, have a look at the Cancel button.

There is no problem here with this button.

[Sternas Stefanos]

BGRABitmap working OK
and to Windows Mobile 6.5.3 WVGA (800x480)

[DelphiFreak]

Hello,

I suddenly can not compile the project anymore. LazPaint revision 10.

Always get: E:\lazarus\lcl\menus.pp(454,1) Fatal: Can't find unit Forms used by Menus

Lazarus 0.9.31 r29477 FPC 2.4.3 i386-win32-win32/win64

Just tested. revision 7 compiled. revision 8 does not.

[circular]

Hello,

I suddenly can not compile the project anymore. LazPaint revision 10.

Always get: E:\lazarus\lcl\menus.pp(454,1) Fatal: Can't find unit Forms used by Menus

Lazarus 0.9.31 r29477 FPC 2.4.3 i386-win32-win32/win64

Just tested. revision 7 compiled. revision 8 does not.

Ok. How can I know the differences between revision 7 and revision 8 ?

Note : I'm using TortoiseSVN.

EDIT : I found how to compare revisions. I'm looking for a significative difference.

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 ?