[UniSoft]

Start to crash FormCharListEditor…
inside TFormCharListEditor.FormShow()
exactly here: (reason: acFontStoreList = nil)

    for i := 0 to acFontStoreList.Count - 1 do
      for j := 0 to TsFontStore(acFontStoreList).Fonts.Count - 1 do
        sListBox2.Items.Add(TsFontStore(acFontStoreList).Fonts[j].FontName);

I’ve solved by adding a sanity check:
if acFontStoreList <> nil then …

There is also a small issue in painting of TsRichEdit while animation (for example switch PageControl).
Paint procedure don’t take in account the value of field BorderWidth,
therefore can see a blinking border at left an top while animation.

—
It would be nice to have some simple set of colors in skins…
For example to implement some simple highlighting in sRichEdit (useful as well for Labels, etc) according to the skin.

[Support]

Hello
Thank you for the message. This error is known and will be fixed in the nearest release.

Some custom colors you can find in the sConst.pas unit. Like this:

  clSystemColor        = TColor($FF000000);
  slMainColor          = TColor($F1000001);
  slBtnRed             = TColor(clSystemColor or 10395391);
  slBtnRedActive       = TColor(clSystemColor or 8290047);
  slBtnRedText         = TColor(clSystemColor or $0000B4);
  ...

Also, you can use the acColorToRGB function for converting of standard system colors to the current skin colors. Example:

  cEditColor := acColorToRGB(clWindow);
  cMainColor := acColorToRGB(clBtnFace);
  cSkinRedButton := acColorToRGB(slBtnRed);

acColorToRGB function is declared in the sVCLUtils.pas unit

Also, you can use the TsSkinManager.Palette array: http://www.alphaskins.com/randtip.php?num=14

[UniSoft]

There is one more issue…
Access to sSkinManager1.Palette in sSkinManager1Deactivate() will crash application on close.

procedure TMainForm.sSkinManager1Deactivate(Sender: TObject);
begin
  sColorSelect10.ColorValue := sSkinManager1.Palette[pcMainColor]; // here will crash on app close
end;

[Support]

Hello! Sorry for a delay.
Which AlphaControls package version do you use? I was trying to repeat it in tests but can’t get the error.
Can you help with a demo, please?

[Support]

You have replied in this topic? I don’t see your message.

[UniSoft]

Yes, replied here. But forum deletes post.
Probably because of I posted the links to mega.nz with project included compiled exe.
—
using 15.05.
Just tried create new project (attached), get error on close

There is also some bug with resize of TsEdit (design time only)
when it placed on top of TsGroupBox and have anchors akLeft, akRight, and VerticalAlignment = taVerticalCenter (or taAlignBottom).

There is one more crash:
run askindemo.exe, click TsBitBtn “Change scaling”, select “Custom PixelsPerInch”,
get error in loop.
Error rises inside sThirdParty.pas in proc GetCommonData inside DrawBtnGlyph;

    if (DrawData.CurrentState = 0) and
         (SkinData.FOwnerControl.Parent <> nil) and
           (SkinData.SkinManager <> nil) and SkinData.SkinManager.IsValidSkinIndex(SkinData.SkinIndex) and
             <strong>(SkinData.CommonSkinData.gd <> nil) and // <<< I add this line to not crash</strong>
               (SkinData.CommonSkinData.gd[SkinData.SkinIndex].Props[0].Transparency = 100) then... 

Found one more bug…
Popup window not closing.
run askindemo.exe, click Change scaling, it shows popup window, now you can click tabs but popup window not hides.

• This reply was modified 4 years, 6 months ago by UniSoft.

Attachments:

You must be logged in to view attached files.

[UniSoft]

here you can see the gif

[Support]

Thank you for the demo.
The issue with resizing will be fixed in the nearest release.

For solving of problem in the OnDeactivate event you should add such checking:

if sColorSelect1 <> nil then

Because the control is destroyed already at this moment.

[Author]

Posts