[passion1]

I am busy converting an existing project to use AlphaSkins.

The existing project is using the regular Delphi TPageControl/TTabsheet.

I have dropped a sSkinManager and sSkinProvider on the Main form and set the SkinName to Aluminium.

Now my main form correctly displays with the Aluminium background but since the TPagecontrol/TTabsheets are not

Alphacontrols, their background is not Aluminium.

How can I get he background of my old TTabsheets to have an Aluminum background?

I have tried to insert an Alphacontrol sPanel onto the Delphi TTabsheet with Align=alClient but I cannot get the sPanel to show the Aluminum background of the main form. Please help.

[passion1]

I forgot to say that I know I am supposed to use Alphacontrol sPagecontrol, but it would be too much work to recreate all the existing Delphi TTabsheets (because they have lots of existing controls which I need for the rest of the project and I do not have not have to display these existing controls)

So I simply want to continue to use regular Delphi TabSheets but use Alphacontrol sPanel to display the Aluminium background. Then I will only display the Delphi Tabsheets that have an Aluminium background.

[CheshireCat]

Hello passion1,

open your form “as text” and replace all TPageControl with TsPageControl and all TTabSheet with TsTabSheet manuell.

[passion1]

Thanks!!

I just read the FAQ's and then came across the Alphaconvert utility that did a perfect job!!!

I only ran into one problem:

after all TPageControls and TTabSheets were converted my project got an “Incompatible types: TsTabsheet and TTabsheet”

compilation error with every statement like:

PageControl1.ActivePage := PageControl1.Pages[10];

For now I have simply commented out those statements but is there a solution?

[CheshireCat]

Maybe this will help:

Code:

procedure TForm1.sButton1Click(Sender: TObject);
begin
sPageControl1.ActivePage := TsTabSheet(sPageControl1.Pages[10]);
end;

[Author]

Posts