TPageControl change color
lazarus / 10-Designer

----------------------------------------------------------------------
tasca · 2009-07-31 19:48

Hi, how to change the color of TPageControl?

pgct.color := clNavy; // nothing

TTabShett equal.

----------------------------------------------------------------------
Nicola Gorlandi · 2009-08-03 11:16

Have you tried something like

      Pagecontrol1.Pages.Brush.Color := clNavy;

----------------------------------------------------------------------
tasca · 2009-08-03 18:38

Hi Nicola,
niente

The problem is "applicationname.exe.manifest", without it works.

see "applicationName.exe.manifest"
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<!-- Copyright (c) Microsoft Corporation -->
<assembly xmlns="urn:schemas-microsoft-com:asm.v1"
manifestVersion="1.0">
<assemblyIdentity
    name="myprog"
    processorArchitecture="x86"
    version="5.1.0.0"
    type="win32"/>
<description>Windows Shell</description>
<dependency>
    <dependentAssembly>
        <assemblyIdentity
            type="win32"
            name="Microsoft.Windows.Common-Controls"
            version="6.0.0.0"
            processorArchitecture="*"
            publicKeyToken="6595b64144ccf1df"
            language="*"
        />
    </dependentAssembly>
</dependency>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">
    <security>
        <requestedPrivileges>
            <requestedExecutionLevel level="asInvoker"
uiAccess="false"/>
        </requestedPrivileges>
    </security>
</trustInfo>
</assembly>

On linux this ok.

suggestions?

----------------------------------------------------------------------
Nicola Gorlandi · 2009-08-04 11:11

No, It's seem an error. In Delphi everything work's fine (with or
without manifest). In Lazarus don't exist the event PageControl
DrawTab for redrawing the tab too. I think that this behavoiur is not
correct, make a new issue on Bug tracker...