[DrJester]

'Support' wrote:

Code:

TacPaletteColors = (pcMainColor, pcLabelText, pcWebText, pcWebTextHot, pcEditText, pcEditBG,
pcSelectionBG, pcSelectionText, pcSelectionBG_Focused, pcSelectionText_Focused,
pcEditBG_Inverted, pcEditText_Inverted, pcEditBG_OddRow, pcEditBG_EvenRow,
pcEditText_Ok, pcEditText_Warning, pcEditText_Alert, pcEditText_Caution, pcEditText_Bypassed,
pcEditBG_Ok, pcEditBG_Warning, pcEditBG_Alert, pcEditBG_Caution, pcEditBG_Bypassed,
pcEditText_Highlight1, pcEditText_Highlight2, pcEditText_Highlight3,

pcBtnColor1Active, pcBtnColor2Active, pcBtnBorderActive, pcBtnFontActive,
pcBtnColor1Normal, pcBtnColor2Normal, pcBtnBorderNormal, pcBtnFontNormal,
pcBtnColor1Pressed, pcBtnColor2Pressed, pcBtnBorderPressed, pcBtnFontPressed,

pcBorder, pcGrid, pcHintBG, pcHintText);

I hope it helps.

This is what I need! Thanks a lot 🙂

[DrJester]

'TAZ' wrote:

Using what Serge suggested here is something that should help. Add it to the UpdateChartBackImage in the demo he mentioned.

Chart.LeftAxis.Title.Font.Color := GetControlColor(Chart.Parent);

Chart.BottomAxis.Title.Font.Color := GetControlColor(Chart.Parent);

Chart.LeftAxis.LabelsFont.Color := GetControlColor(Chart.Parent);

Chart.BottomAxis.LabelsFont.Color := GetControlColor(Chart.Parent);

Chart.Title.Font.Color := GetControlColor(Chart.Parent);

If you use top and/or right axis, just add them too.

Also I have done this a little differently than the demo and it works perfectly. (smMain is SkinManager)

procedure TfrmMain.UpdateChartBackImage(Chart: TChart);

begin

Chart.Color := smMain.GetGlobalColor;

Chart.LeftAxis.Title.Font.Color := smMain.GetGlobalFontColor;

Chart.BottomAxis.Title.Font.Color := smMain.GetGlobalFontColor;

Chart.LeftAxis.LabelsFont.Color := smMain.GetGlobalFontColor;

Chart.BottomAxis.LabelsFont.Color := smMain.GetGlobalFontColor;

end;

Either way should help.

Thanks a lot for your help! This is how did it, but still, it would be nice to have more than two skin defined colors that look nice together.

[DrJester]

'Support' wrote:

Hello!

You can receive a color of parent control also, using this code:uses sVCLUtils;

…

c := GetControlColor(Chart.Parent);Try it please, and write me if you need another solution.

This (along with GetControlFontColor ) helped to get the colors, thanks!

Although coloring is explicit at run-time, it is still better than to have it white in all skins.

I understand that support of TeeChart is not a well-defined problem due to the huge amount of different colors.

However, it would be good to have more than two colors, that look nice together.

For example, in order to color TeeChart myself, I would need at least three colors: background (GetControlColor), contrast foreground (GetControlFontColor) to show easily readable text), and some less contrast color for axes, grids, and ticks. Some highlighted background would be also nice to have.

What I am talking about, is some kind of color scheme provided by the skin. Is there such a scheme available in the current version?

[DrJester]

'Support' wrote:

Hello!

Look this demo, I hope it helps: http://www.alphaskins.com/sfiles/demos/chartbg.zip

Please, write me if you have any questions, I will be glad to help.

Thanks a lot! This demo implements the effect of a transparent background, which makes it appear to be skinned.

However, the main problem is readability of the Chart content under different skins. What would really help is something like that:

Chart.Color := Skin.Edit.BackgroundColor;

Chart.Font.Color := Skin.Edit.ForegroundColor;

Unfortunately, I've failed to find neither proper sources for these colors in the skin data, nor assigning colors on chart result in its proper functionality (somehow it stops redraw its content).

By the way, is there any particular reason why TeeChart is not supported by AlphaSkins “off-the-shelf”, as a third party component?

[DrJester]

'Support' wrote:

Hello! You are right. I'm sorry, this issue will be solved soon in the new release.

Thanks a lot! And ArcControls along with Meter are great, and looking forward to see more of such controls.

[DrJester]

'Support' wrote:

Hello and thank you for the demo. This issue will be solved in the nearest release.

Thanks a lot! I am looking forward to see the new release 🙂

[DrJester]

Решил попробовать этот компонент и первое, что бросилось в глаза, это отсутствие Action свойства в Item-ах со всеми вытекающими из него “автоматизациями”. Было бы удобно …

[DrJester]

При этом ран-тайм не компилируется в Win32 из-за acZLibEx. И если устанавливать пакет полностью в 32 бита, то при переключении целевой платформы для приложения в 64 бита, компоненты с панели исчезают. То есть и воспользоваться ими в 64-битном приложении (чтобы потом собирать с 64-битной ран-таймой), тоже не получится.

[DrJester]

ОК. Добавил путь с BPL в конфигурацию Win32, и теперь при вызове инсталляции дизайн-тайм пакета ран-тайм успешно находится. Но в процессе его (дизайн-тайм) компиляции получаем следующее сообщение об ошибке:

[DCC Fatal Error] sRegisterIt.pas(7): E2213 Bad packaged unit format: C:UsersPublicDocumentsRAD Studio9.0DcpacntDelphiXE2_x64_R.dcp.sScrollBar – Expected version: 23.0, Windows Unicode(x86) Found version: 23.0, Windows Unicode(x64)

Как видим инсталляция пакета под платформу Win32 ожидает, что и ран-таймы будут Win32 🙁

[DrJester]

DelphiXE2 16.0.4504.48759, Win 7 (64 bit) Build 7601: Service Pack 1)

AlphaControls – Последняя бета (v8.00 , 27.09.2012) : http://www.alphaskins.com/sfiles/acnt_regdelphixe2_x64.zip

Run-time компилируется без проблем. Открываем дизайн-тайм пакет и при попытке вызвать инсталл не находит откомпилированную версию ран-тайма (все пути прописаны). При этом оказывается, что целевой выбрана 32-битная платформа. Добавляем 64-битную – в ней не появляется элемент меню “install”. При попытке просто откомпилировать – ран-тайм находит, но не находит dclstd, dcl31w и т.д. В общем не ставится 🙁

[Author]

Posts