Pagecontrol mit Tabposition Left erzeugt leere Tabs

[Markus70]

Hallo,

ich habe eine Applikation von Delphi 2009 auf Delphi XE3 umgestellt.
Darin gibt es ein Form mit einer Pagecontrol, TabPosition left.
Warum werden mir unter Win XP die beiden Tabs als leere Felder angezeigt, unter Win 7 jedoch korrekt?

Gruß
Markus

[Helmi]

Hallo,

kann es vielleicht damit zu tun haben?

Zitat von Hilfe:

Wenn die Eigenschaft TabPosition auf tpLeft oder tpRight gesetzt ist, muss wegen einer Einschränkung in dem Windows-Standardsteuerelement die Schriftart eine TrueType-Schrift sein. Andernfalls könnte der Text in dem Register inkorrekt dargestellt werden.

[Markus70]

nein, damit hat es leider nichts zu tun.

Ich habe mal ein Beispiel bereitgestellt. Vielleicht hilft das weiter...

[Markus70]

...hat denn keiner eine Idee?

[Bummi]

Wenn Du die Laufzeitthemes abschaltest funktioniert es ...

etwas erträglicher wird es wenn Du ein XP-Manifest verwendest... z.B.

Code:

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  <assemblyIdentity
     type="win32"
    name="DelphiApplication"
    version="1.0.0.0" 
     processorArchitecture="*"/>
  <dependency>
    <dependentAssembly>
      <assemblyIdentity
        type="win32"
        name="Microsoft.Windows.Common-Controls"
        version="6.0.0.0"
        publicKeyToken="6595b64144ccf1df"
        language="*"
        processorArchitecture="*"/>
    </dependentAssembly>
  </dependency>
</assembly>

[Markus70]

Wenn ich die Laufzeitthemes umstelle dann verwendet er auf Win 7 aber auch den alten Style. Und das soller ja gerade nicht.

Wenn ich mich jetzt an so ein Manifest wage, unterscheidet das dann, ob es eine Win 7 Maschine oder XP/Vista ist?

Muß ich beim Erstellen von so einem Manifest irgendwas beachten? - Da hab ich ja noch nie was mit zu gehabt

[Bummi]

Eine Option wäre neben <DeinProgramm.Exe> ab Vista aufwärts eine Datei <DeinProgramm.Exe.manifest> zu legen und ohne Laufzeitthemes zu kompilieren. Der Inhalt der Datei entspräche meinem letzen Post.

[Markus70]

hmm, seltsam.
wenn ich das Projekt ohne Laufzeitthemes kompiliere, habe ich unter Win 7 und unter Win XP den alten Style.
Wenn ich nun das Manifest in den Ordner lege, dann bleibt auf Win 7 der alte Style und auf Win XP hab ich den neuen, der dann wieder leere Tabs zeigt...

Warum kann ich nicht einfach nur dieses eine Pagecontrol im alten Style anzeigen lassen, wenn das Betriebssystem XP oder kleiner ist?

[Bummi]

Doch das geht, Du müsstest Dir nur noch hier im Forum eine der Routinen zur Erkennung des Betriebssytems suchen...

Delphi-Quellcode:

uses uxTheme;

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowTheme(PageControl1.Handle,'','');
end;