[Support]

Hi again
If you send me a project with example then I'll try to find a best solution and problem will be solved I think

[Support]

GetGlobalFontColor returns colors of text in labels and default font color for skin.

Color of buttons font may be different for a different types of buttons (in the Vista skin, for example, Button font is Black but ToolButton font is White)

If you want to receive a color of font for any control you can use this code

  if YourControl.SkinData.Skinned then begin


NormalColor := YourControl.SkinData.SkinManager.gd[YourControl.SkinData.SkinIndex].FontColor[1];


HotColor := YourControl.SkinData.SkinManager.gd[YourControl.SkinData.SkinIndex].HotFontColor[1];


end

[Support]

Thank you for additional information.
Your second form (where skin is selected) must have not a skinning?
If SkinProvider is placed there then I do not see a problem…
In the your application this form haven't TsSkinProvider component too?

[Support]

Hello
Be sure please that SkinManager.SkinningRules.srStdDialogs property is True
If this property is defined but problem is exists still then give me a program with example please…

[Support]

Hello Giuseppe
If you could give me a little demo with this program you can very help me.
Maybe you have already working example with sources?

[Support]

Hi
I'm sorry for delay, I was busy in preparing of the new release.
I'll try to change your demo soon.

[Support]

I think a program with example is very needed there. I'll try to reproduce this problem, but I'm not sure that I know how to do it…

[Support]

Hello
I will make a demo program soon, please wait.

[Support]

Glowing is working only for mouse hovering and leaving.
If controls must have glowing effect always then a special code must be added to the component…

[Support]

Mixture occurs when animating working seems. You can try to disable animation and look…
And thank you for the demo, I'll research it soon.

[Support]

Hello

For retrieving some colors from skin you can use these functions of the TsSkinManager class

   function GetGlobalColor : TColor;


function GetGlobalFontColor : TColor;


function GetActiveEditColor : TColor;


function GetActiveEditFontColor : TColor;


function GetHighLightColor : TColor;


function GetHighLightFontColor : TColor;

[Support]

Теперь я это тоже увидел, зазор вверху появляется когда в системе нестандартная высота заголовка, попробую починить

[Support]

Что-то с версией 6.32 не получается такое получить..
На всякий случай приложил Exe (D2007, AC6.32)

[Support]

Thank you

You must change this line

CODE

buttonsArray[nNumber].SkinData.FSkinManager:=sSkinManager2;

to

CODE

buttonsArray[nNumber].SkinData.SkinManager:=sSkinManager2;

Skinning data will be updated in this case, and problem must be solved.

Also I can suggest you to move this line :

CODE

buttonsArray[nNumber].Parent:=PanelTags;

after “Visible:=True;”. And remove “Visible:=True;” because button is visible already when created.

[Support]

Скорее всего из-за новой винды, на ней пакет еще не тестировался, скоро будет.
Хотя есть люди, что уже работают на ней и от них я не слышал, чтобы так рисовалось.
“Упрощенный стиль”, это значит без полупрозрачностей и всего остального?

[Support]

Это виста или xp?

[Support]

Думаю, чтобы пакет работал нормально с Delphi10Lite, он должен быть на нем скомпилирован, а это вряд ли будет в ближайшее время..

[Support]

А что насчет демки, если оно все еще есть?

[Support]

Спасибо за демку. Нужно попробовать покласть на форму SkinProvider.
Попробую починить работу без провайдера в версии 6.33.

[Support]

I can suggest a solution
When loading from resources is required then may be used Delphi standard dialogs (MessageDlg and others).
When data must be received from system then may be used AlphaControls dialogs (sMessageDlg and others).
Both ways have support of skins.

[Author]

Posts