[jmercader]

Hello,

I’m using the last version of AlphaSkins (v17.10).

I’m developing a kiosk application and I want to disable the possibility to move a maximized form. In the actual situation when an user presses the right mouse button and moves the title caption the window becomes in a normal state and the user can access the desktop.

I’ve investigated the code and I can see that this behaviour has been done expressly.

In sSkinProvider.pas

procedure TacBorderForm.BorderProc(var Message: TMessage);
…

HTCAPTION:
if FOwner is TsSkinProvider then
if not IsZoomed(OwnerHandle) then begin
if SkinData.SkinManager.AnimEffects.BlendOnMoving.Active and
not IsIconic(OwnerHandle) and not (AeroIsEnabled and
((SkinData.SkinManager.AnimEffects.BlendOnMoving.BlendValue = MaxByte) or
not TsSkinProvider(FOwner).AllowBlendOnMoving){ AlphaMoving is not required then begin} ) then begin
StartBlendOnMoving(TsSkinProvider(FOwner));
Exit;
end;
end
else begin // Emulation of Aero behaviour
MaxMoving := True; <============= True: can Move; False: can’t move
LastMousePos := acMousePos;
Exit;
end
else
if SkinData.SkinManager.AnimEffects.BlendOnMoving.Active then begin
StartBlendOnMovingDlg(TacDialogWnd(FOwner));
Exit;
end;

The problem is that I can’t override this behaviour, without changing the AlphaControls source code.

So I’m asking for possibility to change this action; maybe with a new property in sSkinProvider component or anything that I can change.

Best Regards,

Jordi.

Attachments:

You must be logged in to view attached files.

[Author]

Posts