[wesson]

There is a potential bug in TAcStatusBarWnd.AcWndProc leading to an access violation.

When the message is CM_RECREATEWND, after calling the inherited message procedure, SkinData is no longer available (freed), so any attempt to read SkinData.Skinned result in an access violation.

It's currently catched by a try .. except block , but it is very ugly – and may corrupt memory.

So, here is a proposal, checking first which message, and then SkinData property

File acSBUtils.pas, line 9975

Replace this portion

Code:

– if (SkinData <> nil) and SkinData.Skinned then case Message.Msg of
– WM_SIZE : begin
– RedrawWindow(CtrlHandle, nil, 0, RDW_INVALIDATE or RDW_ERASE);
– Exit;
– end;
– end;

by this portion

Code:

+ if (Message.Msg = WM_SIZE) and (SkinData <> nil) and SkinData.Skinned then begin
+ RedrawWindow(CtrlHandle, nil, 0, RDW_INVALIDATE or RDW_ERASE);
+ end;

[Support]

Thank you for the message, this code will be changed in the v8.35

[Author]

Posts