How can I apply a vcl style to a TPanel? - delphi

I can change the appearance of VCL buttons by using the bit map stile designer with specifying a bitmap to [Objects]-[Button]-[Face]-[Bitmap].
So I tried to change the VCL panel's appearance in the same way with [Objects]-[Panel]-[Frame]-[Bitmap] and [Objects]-[Panel]-[FrameNoCaption]-[Bitmap].
The test dialog shows that buttons are rendered in an expected way, but panels are not.
How can I apply a VCL style to a TPanel?

Related

Customizing Toolbar background gradient color when VCL Themes are enabled

I want Toolbar to show custom gradient color that I set at design time when VCL Themes are enabled.
I have used a TToolbar component and I have applied VCL themes to my project. As a result the Toolbar is not showing the gradient color which I have set, but it shows the theme color.
Disable seClient in the StyleElements property of the Toolbar.

Delphi Statictext font colour change without styles

I'm wanting to change my StaticText font colour from black to clBlue. How can I go about this?
Currently I'm doing
StaticText.Font.Color := clBlue;
but that is making no difference to the colour.
What can I do? Thanks!
The TStaticText control is a wrapper around the Win32 STATIC control. When themes are enabled, the system ignores the font color that is specified, and uses the color specified by the theme. Other standard system controls behave in this manner too.
If you want to be able to specify the color of the text, you will need to use a different control. For instance, TLabel.
Set the static text Transparent property to False

How to scroll a TTabSheet

I'd like to scroll an individual TabSheet within a PageControl if the height of the sheet becomes less than a value.
If I put a ScrollBox on the TabSheet, the themed background of the TabSheet is not painted (it's overwritten by the single color background of the scrollbox).
I've been trying to find / create a transparent scrollbox component with no luck. Any other ideas?
I'm using Delphi 7.
Thanks!
To answer my own question, TMS has a transparent scrollbox component called "TAdvScrollBox" that works with themed tabsheets too:
http://www.tmssoftware.com/site/asb.asp
Maybe this will help somebody:
There is a small bug with the component that turns the ParentCtl3d property to false causing ListViews to be rendered with a black border instead of a 3d one. It's easy to fix by setting ParentCtl3d to true programmatically on FormCreate.

Change a style element across all components in Firemonkey

I am modifying the Dark Firemonkey style in XE6 which has a light orange glow around each component. I can individually change the color of the glow manually in each component type but its tedious as there are many different types of components, buttons, edit boxes etc. Is there any way to change the color of the glow in all components simultaneously in the style editor (other than programmatically)?
I am using XE6. The screen shot below shows the glow around the memo box.

VCL Styles possible bug with drawing scrollbars

I have a pagecontrol in the center of my main form (form1 in my image), and I want to open other forms docked into the pagecontrol. Because I have many controls on my child form, I need both vertical and horizontal scrollbars (on the child form I have active scrollbars option active), but here is the catch: when I use VCL Styles, my scrollbars aren't drawing as they should be and they are unusable. Is this some kind of a bug of VCL Styles?
The scrollbars (TControlScrollBar) used by the TForm doesn't support the Vcl Styles (you must report this to the QC page), if you want fix that you must override that control and paint the scrollbars using the Vcl styles methods, but that will requiere a lot of work, as simple workround you can use the TScrollBar component (in your form) which properly supports the vcl styles.

Resources