[cypheros]

What is this change for? looks like a debugging test entry.

procedure TsSkinProvider.AC_WMActivate(var Message: TWMActivate);
var
b: boolean;
begin
OldWndProc(TMessage(Message));
Exit;
if (Form <> nil) and Form.Showing then begin
if ListSW = nil then
RefreshFormScrolls(Self, ListSW, False);

if not (csCreating in Form.ControlState) then begin
FLinesCount := -1;
if TMessage(Message).WParamLo = 1 then begin
{$IFNDEF FPC}
if not (csDesigning in SkinData.SkinManager.ComponentState) then
InitMenuItems(SkinData.Skinned); // Update after skinning in run-time
{$ENDIF}
if Assigned(SystemMenu) then
SystemMenu.UpdateItems;

if not CanDrawNCArea then
FCommonData.Updating := False;

b := (Form.BorderStyle = bsNone) and not SystemBlur.Active {Fix bad repaint after popup};
end
else
b := False;

if b then begin
UpdateLayerVisibility(SkinData, Form.Handle);
if HeaderUsed then
SetParentUpdated(Form);
end;
end;
end;
UpdateSlaveFormsList;
end;

[Support]

Yes, this is the error, sorry. The package is updated and re-uploaded today.

[Author]

Posts