BGRA Controls FX v0.1.6.1

[lainz]

New package!

Download: https://github.com/bgrabitmap/bgracontrolsfx/releases

BGRA Controls FX is a set of OpenGL Controls for Lazarus. It works with BGRAOpenGL. The controls are hybrid, so you can place them in FXContainer to get hardware acceleration or place them in a normal form to draw them with normal canvas.

Available controls:
* FXContainer
* FXButton
* FXNativeButton
* FXMaterialButton
* FXProgressBar
* FXRadialProgressBar

Available tests:
* test_hybrid
* test_multi_containers
* test_panel
* test_receive_and_lock_paint

[circular]

Nice! Beautiful color themes

I would suggest a little change to avoid invalidating twice:

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

1. procedure TFXGraphicControl.FXInvalidate;
2. begin
3.   if (csDesigning in ComponentState) then
4.     Invalidate else
5.   begin
6.     if Parent is TFXContainer then
7.     begin
8.       if TFXContainer(Parent).ReceivePaintFrom = nil then
9.         Parent.Invalidate;
10.     end
11.     else
12.       Invalidate;
13.   end;
14. end;

Also to make FXDraw virtual so that it would be possible to add some OpenGL extra rendering:

Code: [Select]

procedure FXDraw; virtual;
What I would also suggest is to use OpenGL ability to colorize. When doing BGLCanvas.PutImage, you can specify a color that will multiply the image. So in principle what you can do is to prepare a shape of a button in white, and then when the color changes, to draw it in the specified color without having to redraw the shape.

One need to take into account that the text may have another color, or that it would still need to be white and not colorised. So a way to do that would be to have layers instead of only one FBGRA. Basically you need a list of records with FBGRA, FTexture and FColor for each of the layers.

[lainz]

Thanks I will add the code for invalidate.

I get what you say. I must try that.

Edit: I've applied some of the suggestions you did, but it doesn't works anymore using a Record. Seems that's a problem accessing the Textrure from the record. I get a SIGSEGV. But this works in the normal canvas, so it's a problem with the texture, also If I remove the line that draws the texture it runs fine, but of course it displays nothing.

[circular]

I think it comes from the fact that TFXLayer is a record and that it contains an interface variable FTexture. I suppose the problem is because of copying the content of the record. The reference count of the interface must be incremented/decremented each time the record is copied but in some cases it doesn't work.

So simply change TFXLayer to a class and that should be fine.

Some remark about the color. The neutral color when you do PutImage(..., Color) is white, because it has all its value to 1 so it doesn't change anything. So just initialise it to BGRAWhite and then you don't need to test its value, because PutImage with a white color will do exactly the same as PutImage without colorising.

When drawing on a regular canvas, of course you don't have Draw with color. This time you need to check if it is white because it will take some time to colorise it. To apply the color, create another bitmap and go through all pixels.

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

1. psource := Source.Data;
2. pdest := Dest.Data;
3. ec := GammaExpansion(c); //c is the color to apply
4. for n := source.NbPixels-1 downto 0 do
5. begin
6.   pdest^.red := GammaCompressionTab[((GammaExpansionTab[psource^.red]*ec.red+65535) shr 16)];
7.   pdest^.green := GammaCompressionTab[((GammaExpansionTab[psource^.green]*ec.green+65535) shr 16)];
8.   pdest^.blue := GammaCompressionTab[((GammaExpansionTab[psource^.blue]*ec.blue+65535) shr 16)];
9.   //pdest^.alpha := (pdest^.alpha*ec.alpha+255) shr 16;
10.   pdest^.alpha := (psource^.alpha*ec.alpha+255) shr 16;
11.   inc(pdest);
12.   inc(psource);
13. end;

[lainz]

Thanks now it's working.

About colorize, i'm adding it.

Edit: Done! Now it is very usable anyone can contribute controls from now or make their own controls because everything is working well.

I'm releasing the version 0.1.2 now, these are all changes from previous versions:

0.1.1:

Added new control FXNativeButton
A lot of fixes

0.1.2:

Added FXLayers support
Improved painting
Fix for resizing controls
Fix in FXNativeButton under Linux
Fix for buttons mouse click

Edit2: I've added the proper credits and more fixes on git, I missed the alpha value that was not colorizing well and updated the FXNativeButton, so now you can get a native button plus a color of your choice.

[circular]

Ah sorry I made a mistake in the alpha value. I corrected it.

[lainz]

Thankyou!

[LuizAmérico]

Nice work. Will try ASAP.

I suggest renaming FXMaterialDesignButton to FXMaterialButton since is simpler, smaller and, at same time, makes clear its meaning.

Also for consistency, is FXNativeButton not FXNativeDesignButton

[lainz]

Thanks. I will keep the naming for now. And for FXNativeButton is already that name.

[LuizAmérico]

As for the native button name i mean that for consistency, keeping  the "Design" suffix, it should be FXNativeDesignButton, i.e.:

FXMaterialDesignButton and FXNativeDesignButton

or

FXMaterialButton and FXNativeButton

[lainz]

I get it. I get that result in naming because by default the only material design colored control was the button with the ripple effect. The other was a normal button and a normal native button. Then i added the color kind property to use material design colors in both.

[circular]

Yeah it is difficult to change a name after its published because people might have started using it. In this case, though it has been there for a few days, so a change could be ok.

[lainz]

Done. Now it's FXMaterialButton, FXButton, FXNativeButton and FXContainer.

I found that FXNativeButton doesn't works in Linux, it crashes somewhere and I can't find why.

[lainz]

There are a lot of releases very often, is that I can't stop finding bugs, hope is because is a really new package 

v0.1.5
* Added FXBaseButton class (Now you can create new buttons easily with this)
* Fixes in buttons (Font, AutoSize..)
* Fixes in shadow for FXMaterialButton
* Using FPGObjectList instead of FPGList to free automatically FXLayers objects

FXNativeButton still keeps crashing under Linux, but I don't have Lazarus + FPC trunk to test, only 1.6 + 3.0

[circular]

I guess what matters most is that someone is taking care of the package.