[JM-DG]

To reproduce:

Any new window with no constraints (minHeight or minWidth) & having a border set to bsNone.

If your mouse over the window, it will repaint itself.

[JM-DG]

Update 1: When I comment out the usage of the procedure UpdateLayerVisibility() from sVclUtils.pas all the windows from my project behave correctly (visible).

Update 2:

It seems like the lines causing some of my windows not to draw are the one using the cflags constant in the UpdateLayerVisibility procedure.

Code:

SetWindowPos(Handle, 0, 0, 0, WidthOf(R), HeightOf(R) – 1, cFlags);
SetWindowPos(Handle, 0, 0, 0, WidthOf(R), HeightOf(R) + 1, cFlags);

When passing 0 as flag, the visibility of my windows are ok (but it fucks up positionning).

Code:

SetWindowPos(Handle, 0, 0, 0, WidthOf(R), HeightOf(R) + 1, 0);

Update 3: Yes!!!! Successfully reproduced the problem in a simple demo. Coming soon.

[JM-DG]

'Support' wrote:

Thank you for the project. I have sent a patched file by private message, please try it.

The patch file you sent me seems to have fixed completely the “size” problem. :a7:

I'll try to find some time tonight to pin down the visibility problem remaining.

[JM-DG]

'Support' wrote:

I think, yes, this issue is linked with latest changes.

I need to know how to repeat the issue for fixing it.

Hi!

I was able to reproduce the “Windows positionning, sizes & constraints are now inconsistent at run-time” problem I mentionned.

There's a 1 pixel increase in height every time I restart the application.

Also the constraint 170 does not seem to always stay true: I can resize down to 169 on first launch? When I first launch at => 172 the constraint seems to be back.

It may appear like not much, but in my application it is important that every windows sit tight at 170 + (n * 10) because I have a “snapping system” which makes the problem more apparent.

It was ok last version.

I have attached a simple demo.

As for the visibility problem, I'm still working on making a simple demo with the problem. (It's hard to reproduce on a new application but it happens on my main application every time)

[JM-DG]

'JM-DG' wrote:

No problem, thank you. I will wait for the release. 🙂

Woks perfectly in latest release v.14.18.

[JM-DG]

'Support' wrote:

Here is a changed program, look it please.

Changed code was marked with “// Serge”

I see that you reset the wndproc after each “clear”.

It seems that I also have to do a reset after having removed all items in the list using the remove button.

I noticed that I don't need this reset after the list is emptied if I initialize my custom windowproc before adding items in the list in the FormCreate event.

But when I try it in my real application the behavior changes. Even if I initialize my custom windowproc at the start, I have to do resets every clear.

The behavior seem inconsistant as to why & when we're losing our custom wndproc.

[JM-DG]

'Support' wrote:

Hello

Can you help me to repeat this issue?

I'm trying to make a test-app with such bug, but can't, unfortunately.

I'll try to make a demo with the problem replicated. So far, no success.

Maybe caused by this recent change??: Solved issue with a form disappearing after showing.

[JM-DG]

'Support' wrote:

Hello

The issue with white rectangles should be solved in the v14.17 already

Works like a charm. :a7:

[JM-DG]

No problem, thank you. I will wait for the release. 🙂

[JM-DG]

'Support' wrote:

Thank you for the demo, this issue will be solved in the nearest release.

It doesn't seem to be fixed in version 14.17.

[JM-DG]

'Support' wrote:

Panel is fully transparent if bvNone defined.

Ho ok.

It just seem weird that it had 2 behaviors (as seen in gif). Fully painted when first seen & completely white when repainted.

Ultimately, I would want it filled by a solid color / as first seen in gif.

[JM-DG]

Alright. A little update after a lot of experimenting.

It seems that there is also the problem during runtime except that the first time you see the form with the panels (with bevelOuter property set to bvSpace or bvNone) everything is fine.

However if you hide & unhinde the form, the panels (with bevelOuter property set to bvSpace or bvNone) will be painted white.

[JM-DG]

'Support' wrote:

I will think how this feature may be improved, I hope to do it soon.

How soon is “soon”? No pressure.

I just want to know because I plan on making a release of my player in about a month.

I want to know if I'll be able to have this feature in it.

Thank you. 🙂

[JM-DG]

'Stephane wrote:

It crashes at startup with “Windows cannot access the specified device, path or file. You may not have the appropriate permissions to access the item.”

Mmm, weird. It works fine on my end.

[JM-DG]

Demo 🙂

[JM-DG]

'Support' wrote:

I have added your checking there, but it doesn't work.

It's strange that this code did a trick on your side.

“Assign(Font)” doesn't create a new TFont, this method just assigns font properties like Size, Color, etc..

I will research more your demo.

Huh. Odd. Maybe my “fix” is more a hack which only works in Delphi 7? That's what I'm using.

[JM-DG]

'Support' wrote:

Thank you for the demo. Try the v14.14, this error is fixed there.

Works like a charm. 🙂

[JM-DG]

o/

There seems to still have an issue with the listbox on the latest version: 14.14.

Code:

Canvas.Font.OnChange := nil;

doesn't seem to do the trick 100%.

In the demo I provided, I believe the selected item is supposed to have a black font color (with the graphite skin, at least). See demo in first post.

The selected item seems to lose its color on repaint.

See gif.

However,

Code:

if(Assigned(Canvas.Font) = false) then
Canvas.Font.Assign(Font);

seems to behave correctly.

Also, while doing some other tests, I realised that I was losing my selection color (multiselect) when scrolling down to select more items & a repaint seem to paint back the background.

See gif.

Thank you for your time. 🙂

[JM-DG]

'KSS' wrote:

Yes, I see this problem. I`ll try to fix it.

Alright, great. 🙂

I'ld also like to point out that I I've fixed a code regression (It was working before in previous version, but wasn't working properly on the latest version).

If you assign a onDoubleClick event to the list, it'll get triggered when you simply click on an item.

To fix this, go in the TacListView.MouseUp procedure +/- line 7100.

Replace this section:

Code:

if Assigned(OnClick) and not FDblClicked then
OnClick(Self)
else if Assigned(OnDblClick) then
OnDblClick(Self);

with

Code:

if Assigned(OnClick) and not FDblClicked then
OnClick(Self)
else if Assigned(OnDblClick) and FDblClicked then
OnDblClick(Self);

[JM-DG]

o/ I'm using delphi 7.

I've been using the aceListView in my player for a while.

However, there seems to be a problem with repainting of the items because there is intense flickering of the component when I resize the window (even with the demo).

I already switched the doublebuffered property of the component to true.

What can I do to prevent this?

Thank you.

[Author]

Posts