[goliathbe]

The cause is line 1399 in sSpeedButton.pas (v9.01)

Code:

procedure TsSpeedButton.ActionChanged(Sender: TObject);
…
Images := TCustomAction(Sender).ActionList.Images;
…
end;

The ImageList of the SpeedButton is set to the Images of the ActionList. In my case, the Images property of the ActionList is empty. Reason: I have two collections of speedbuttons: with 16×16 icons, and with 32×32 icons. Both take their actions from the same actionlist.

Whether I'm at fault here for not splitting my action lists, I don't know…

[goliathbe]

OK, not a problem, I'll continue using the TImageList

[goliathbe]

Thank you very much, it doesn't matter that much to me, but users complain 🙂 as always…

[goliathbe]

The black squares appear, which are probably the areas that still need to be repainted. This is acceptable, but, sometimes these areas remain black partially (in the IDE and in the built application).

[goliathbe]

I've attached a demo project. Resize the form and you should see black squares to the right, sometimes these remain black.

It may have something to do with the TsPageControl.

Thank you for your help

[goliathbe]

I've managed to get it error free (for now) by working around the problem. I'm now using a TsPanel skinned as TOOLBAR, with TsSpeedButton's skinned as TOOLBUTTON. Also using TsPanel's skinned as GRIPH. But only for the top toolbar.

I've also been experiencing a lot of repaint issues, all of which are like this:

http://www.velleman.eu/images/tmp/repaint.png

> The black artifacts, usually after resizing

I'm using version 8.17, fresh reinstall

[goliathbe]

Sorry I took so long to reply but I fell ill with the flu

I've attached the dfm file, it's part of a commercial application used in home automation

[goliathbe]

Thank you very much

(Viva AlphaControls!)

[goliathbe]

Great, thank you! Keep up the good work

[goliathbe]

To temporarily solve the problem with the TsOpenDialog I've changed the following which causes the error:

acSBUtils: line 1141

CODE

if (sw <> nil) and not sw.Destroyed and (sw.SkinData.FOwnerControl <> nil) then begin

to

CODE

if (sw <> nil) and not sw.Destroyed and (sw.SkinData <> nil) and (sw.SkinData.FOwnerControl <> nil) then begin

Since sw.SkinData is nil at some point causing the code to access a member of a non-existant object

[goliathbe]

+ Deleting a TsCoolBar component in Delphi 7 cause repeated access violations, to the point of the Delphi IDE crashing

[goliathbe]

Excellent idea! I just upgraded, and 7.02 fixes the TsCoolBar bug.

The TsOpenDialog bug remains though:
– Drop a TsOpenDialog component
– Run Execute() to show the dialog
– Click the filter combobox so it gets focus
– Click Cancel -> Access Violation

AlphaControls is a wonderful package though, great work by the development team

[goliathbe]

Any feedback on this? Is it a known error? Do i have a corrupt installation?

We're developing a large application 40+ forms/dialogs that serves as configuration software for a home automation system. So a working OpenDialog would be nice.

Also, dropping a TsCoolbar onto a form gives me an access violation (even in a new empty application without skinning).

I'm using the v7.00 beta. Maybe i need to revert to the latest stable release?

[Author]

Posts