[drakorg]

Looking deeper into it we've found that GetProp actually does return a value, and that it is casted to a TacScrollBar and returned successfully.

The problem appears one level up when it tries to access a property of that TacScrollBar object:

Code:

function Ac_GetScrollBarFromHwnd(const Handle: hwnd; const nBar: word): TacScrollBar;
var
sw: TacScrollWnd;
begin
Result := nil;
sw := Ac_GetScrollWndFromHwnd(Handle); // this one returns a value (apparently not a valid one)
if Assigned(sw) then // it IS assigned
case nBar of
SB_HORZ: Result := sw.sbarHorz; // however, it crashes when trying to access the TacScrollWnd object.
SB_VERT: Result := sw.sbarVert
end;
end;

Again, this only happens with FastMM FullDebugMode enabled on WIN64 platform. All other cases it works fine.

[drakorg]

[attachment=7899:screenshot.1474840894.jpg]

'drakorg' wrote:

We are having trouble starting our application in Debug/WIN64 with FastMM4 FullDebugMode enabled, it raises an AV on this line of code:

Code:

function Ac_GetScrollWndFromHwnd(const AHandle: hwnd): TacScrollWnd;
begin
Result := TacScrollWnd(GetProp(AHandle, acPropStr));
end;

If we turn off FullDebugMode, it works.

If we switch to WIN32, even keeping FullDebugMode, it works.

AlphaControls is built from full sources packages, v11.16.

Do you have any idea what might be going on? We've never had any trouble with FastMM before, although we've never used the 64 bit version of the FullDebugMode dll before also.

Attached is a screenshot of the IDE, where you can see the call stack. That call is part of the creation of the main form, to give you some context, but please feel free to ask for more information if you need to.

Thank you.

Eduardo

[drakorg]

'drakorg' wrote:

Hi, I've been trying to install the latest version of alphaskins (I'm a registered user) to no avail.

This issue happens to me every time with every new version, I have to spend a day or so fighting with the installation until it gets working, and I'm able to build the BPL.

My question is:

1) Why do you deliver a .zip file with a full project, that references source files that are not present? Can't you just build the BPL yourselves and ship it along with the DCU's? If you don't have the source files (because of your license), why on earth would I want a “project” full of non-existent sources (you double click and get disgusting “file not found” errors). Just ship the bpls along with the dcus and ill be more than happy with it.

2) Are these DCU's, compiled in release or debug mode?

3) I've just installed Delphi Berlin (10.1) but can't make the dcu's to work. Are the dcu's/bpls meant for Seatlle compatible with Berlin?

4) Do I need to wait until Berlin support is handled?

Thanks,

Eduardo

Hi, any news on this subject?

I'm not able to build the BPLs in Delphi 10.1 Berlin.

Am I the only one having problems with this?

It builds correctly in 10.0 Seattle.

Thanks

[drakorg]

'Support' wrote:

Hello! try to add this code after all changes:

Code:

UpdateSkinCaption(sSkinProvider1);

Menu is not updated automatically, I will think how to do it better.

Hi, this solved the issue.

It would seem as it's taking a little more time to refresh than before (when this explicit call was not needed), but it works.

Thank you.

Eduardo

[Author]

Posts