[Lasse]

This is Delphi 11 Alexandria issue. Your demo works fine from executable but when I build it with Alexandria, it does not. You can get both errors for example when you open your mega demo and click “Internal skins editor” button.

• This reply was modified 4 years, 5 months ago by Lasse.

[Lasse]

I will try to find time to create demo for the first issue. The second issue is quite simple.

[Lasse]

BorderStyle = bsToolWindow is causing white border (see attachment).

Attachments:

You must be logged in to view attached files.

[Lasse]

Oh, sorry about that. It is my own control. Yes, you can remove it.

[Lasse]

You can make project files easily by yourself while waiting for official files.

Here you are (see attachment). No warnings, hints, or errors.

I created dozen project files today for Alexandria at work and I saw only minor changes in stream class parameters.

Attachments:

You must be logged in to view attached files.

[Lasse]

Try combo box item lists with these new skins. Both are not highlighting the row when the mouse is over…

[Lasse]

Btw. another weird issue with this skin is that in a combo box the last item is not highlighted when the mouse is over.

[Lasse]

All other skins are fine. And that Windows 11 Dark skin is also fine after that fix. Not necessarily fixed correct thou… but I see similar settings in other dark skins.

[Lasse]

I fixed this by changing Edit controls > EDIT values like this (see attachment)… No idea, if it is correct but looks ok now.

Attachments:

You must be logged in to view attached files.

[Lasse]

ComboBox.Clear and ComboBox.Items.Clear are two different things.

[Lasse]

I was able to fix this for now like this:

procedure TacItemsPopupForm.UpdateControls;
...
  procedure AddItem(const ACaption: string);
 ...
      Flat := False; // True; Lasse

You will see why. It will crash here:

procedure TCustomSpeedButton.UpdateTracking;
var
  P: TPoint;
begin
  if FFlat then

Of course this is just a temporary solution.

• This reply was modified 4 years, 11 months ago by Lasse.

[Lasse]

I had exactly same issue and fixed it like this in acPopupController.pas:

procedure TsPopupController.AnimShowPopup(AForm: TForm; wTime: word = 0; BlendValue: byte = MaxByte);
…
h := HWND_TOPMOST; //TopWndAfter; Lasse

[Lasse]

Did you check it? This is still an issue in v.15.15. Tried in Delphi 10.3.3 this time…

• This reply was modified 5 years, 6 months ago by Lasse.

[Lasse]

I found the reason which UI element is causing this in my application. It happens when I have a title bar items aligned right and the style is bsMenu. But I still can’t repeat this in your demo.

So, I ended up to fix this:

procedure CopyByMask32(R1, R2: TRect; const Bmp1, Bmp2: TBitmap; const CI: TCacheInfo; const MaskData: TsMaskData);
...
CacheBMP := Bmp.ScanLine[R1.Top + PosY + Y];
=>
CacheBMP := Bmp.ScanLine[Max(R1.Top + PosY + Y, 0)]; // Lasse

[Lasse]

Well, this is weird. I can’t repeat it in your demo using TsSkinSelector but in my own program I can. I have tried all skins and that is the only skin causing that error. I will try to figure out why.

[Lasse]

Don’t remember exactly but I had to put a comment here:

procedure TsAlphaHints.OnCheckTimer(Sender: TObject);
begin
...
    // Lasse Application.HintPause := Manager.FOldHintPause;

Otherwise I could not change it.

[Lasse]

It is perfect now.

[Lasse]

Yeah, we are using MadExcept in our commercial products. I’ve been just lazy to add it for hobby projects.

[Lasse]

Finally had time to see what is the cause. Changes in acgpBlur procedure in acgpUtils.pas unit are causing the slowness.

I reverted that procedure to v15.12 and everything is fine now.

• This reply was modified 5 years, 6 months ago by Lasse.

[Lasse]

No, I don’t use lightning effect. It didn’t work well last time I tried it. But I will try to find time (at weekend) to find the reason for this slowness. I remember seeing some suspicious code while I was merging the version but I will see…

[Author]

Posts