[UniSoft]

There is a BUG with resize? still didn’t found how to fix 🙁
Here is demo project (compiled exe already have fixed bugs from first post).

alternative link to download example
_https_://mega.nz/file/sCQxmYQB#FPhNycGCdWy_HEKMnwjNNk32nnSDcxcvDET7oPNqF6A

Attachments:

You must be logged in to view attached files.

[UniSoft]

some updates…
this resize shaking happens inside

procedure TsSkinProvider.AC_WMWindowPosChanging(var Message: TWMWindowPosChanging);
begin
  ...
        with WindowPos^ do begin
          if FScreenSnap and Form.Showing then
            CheckNewPosition(X, Y); // <<<<<<< Here

This helps to fix (dont’t know if it is correct)

procedure TsSkinProvider.CheckNewPosition(var X: integer; var Y: integer);
begin
  ...
    // Check for glued forms
    for i := 0 to Length(HookedComponents) - 1 do
      if (HookedComponents is TForm) and (HookedComponents <> Form) and TForm(HookedComponents).Visible and not Linked(TForm(HookedComponents))
      and ((TForm(HookedComponents).HostDockSite = nil) or TForm(HookedComponents).Floating) then
        if CheckWithForm(TForm(HookedComponents)) then
          Break;

[Support]

Hello!
Thank you for the demo and code, I will research and fix it soon.

[UniSoft]

One more BUG with TsButton
I need a button with drop down list,
so I put TsButton on the form and set property sButton1.Style:= bsSplitButton;
everything OK, until I disabled skinning sSkinManager1.Active:=False;
now button painted as a simple push button (sButton1.Style:= bsPushButton) without arrow.
Now I put TButton, and I get opposite effect, ie. if skinning enabled I get bsPushButton,
if skinning disabled I get bsSplitButton.

[UniSoft]

ahh found…
You override property Style, and not change the TButton.Style
fix

procedure TsButton.SetStyle(const Value: TButtonStyle);
begin
  if FStyle <> Value then begin
    FStyle := Value;
    TButton(Self).Style := TCustomButton.TButtonStyle(Value); //// <<< I add this
    FCommonData.Invalidate;
  end;
end;

[Support]

Thank you. Your code was added in the v16.11

[UniSoft]

BUG! This is long time bug…
Try this, and the window’s title became inactive… can’t close, move, etc…

procedure TMainForm.sButton1Click(Sender: TObject);
begin
  SetPPIAnimated(96);
  SetPPIAnimated(96);
end;

Fix:
If the NewPPI value is not changed then the flag [msAnimScaling] will not be removed

procedure SetPPIAnimated(NewPPI: integer);
begin
  //DefaultManager.ManagerState := DefaultManager.ManagerState + [msAnimScaling]; // <<< This line moved down
  if DefaultManager.Options.PixelsPerInch <> NewPPI then begin
    DefaultManager.ManagerState := DefaultManager.ManagerState + [msAnimScaling];
    IterateForms(DefaultManager, AnimaScaleForm, MakeLParam(integer(DefaultManager.Options.ScaleMode = smVCL), NewPPI)); // Start anim threads
    DefaultManager.Options.PixelsPerInch := NewPPI;
  end;
  DefaultManager.Options.ScaleMode := smCustomPPI;
//  DefaultManager.ManagerState := DefaultManager.ManagerState - [msAnimScaling];
end;

[UniSoft]

procedure SetPPIAnimated(NewPPI: integer);
begin
  if DefaultManager.Options.PixelsPerInch <> NewPPI then begin
    DefaultManager.ManagerState := DefaultManager.ManagerState + [msAnimScaling];
    IterateForms(DefaultManager, AnimaScaleForm, MakeLParam(integer(DefaultManager.Options.ScaleMode = smVCL), NewPPI)); // Start anim threads
    DefaultManager.Options.PixelsPerInch := NewPPI;
    DefaultManager.Options.ScaleMode := smCustomPPI;
  end;
end;

[Support]

Thank you, I will change it soon.
Please, start new topics for further new issues.

[Author]

Posts