[Stephane Senecal]

I noticed that the blur is not even the same one than the one from Fluent UI apps as Settings on Windows 10.
The blur on Fluent UI app is more pronounced. So it should not even be called Acrylic.
In the windows api, it is called Blur Behind. It’s a bit dull as a name. Maybe “SystemBlur” would be good.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

Maybe the name “Acrylic” would be better. As HeDiBo said, Fluent UI is a lot more than just blurred backgrounds.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

I have an idea, but it’s a bit weird.
From the black and white mask in the master.bmp file, we could use only the red channel for alpha and the green or blue channel as a mask for what part can be affected by the lighting effect. They use this technique in 3D programming for bump mapping.
Let me know what you think.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

Do I understand correctly that you use the pink part as a mask where not to paint highlights?

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

I don’t think the problem is the age of the skins, but all the skins that have buttons with rounded corners.
I had an idea, but i’m not sure of its feasibility.
It would be to find the edge of all the fully opaque pixels and everything that is outside of those boundaries would not be affected by the lighting effect.
This method would not work on buttons that do not have any fully opaque pixels.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

I’m talking about the use of HDF_SORTDOWN = $0200 and HDF_SORTUP = $0400 in the procedure TsCustomListView.ColumnSkinPaint.

But I just realized that this feature is not available through de VCL. It must be called directly using the win32 api.

Sample code I found on the Internet

procedure TForm1.sListView1ColumnClick(Sender: TObject; Column: TListColumn);
const
  HDF_SORTDOWN = $0200;
  HDF_SORTUP   = $0400;
var
  Header: HWND;
  Item: THDItem;
begin
  Header := ListView_GetHeader(TWinControl(Sender).Handle);
  ZeroMemory(@Item, SizeOf(Item));
  Item.Mask := HDI_FORMAT;
  Header_GetItem(Header, Column.Index, Item);
  Item.fmt := Item.fmt and not (HDF_SORTUP or HDF_SORTDOWN);//remove both flags
  Item.fmt := Item.fmt or HDF_SORTUP;//include the sort ascending flag
  Header_SetItem(Header, Column.Index, Item);
end;

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

Are you on Windows 10

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

Weird, I downloaded ASkinEditor version 14 and the skins were in the zip under the folder Skins.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

On this page (http://www.alphaskins.com/dwnld.php), in the second section, download ASkinEditor version 14.37. It comes with all skins for Alpha Skins v14.37.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

I think it’s the blurred background

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

Adding support for APNG (Animated PNG) would be nice, but it might be a lot of job, I don’t know.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

Thanks, but I have nothing to do with that.
You should thank AlphaSkins support (I don’t know his/her name).

In case you though I was part of AlphaSkins’ staff, I am not.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

Is this still on the todo list? It’s been more than 3 years.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

Like that?

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

To AlphaSkins: Could it be possible to use a png as a mask and colorize it with any color?

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

Not the easiest way, but you could trace your PNGs into SVGs using, for example, Inkscape and then convert those into font glyphs with an online tool for example.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

I should have ask what version of Delphi are you using at the same time. 😐

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

What version of Alpha Skins are you using

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

11 * 120 = 1320
1320 / 96 = 13.75
Round(13.75) = 14

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Stephane Senecal]

I forgot about the highlight. This suggestion would not fix that problem.

Stephane Senecal
CIS Group
Delphi programmer since 2001

[Author]

Posts