XPManifest

[foRaver]

Einen schönen guten Morgen
In Delphi 7 gab es ein schönes Komponent, und zwar: XPManifest.
Leider gibt es in der 8 Version gar nicht mehr? Wie kann man den Komponent in 8 Version wiederherstellen
oder einfach nachmachen?
Danke im Voraus.

MfG, foRaver

[Jens Schumann]

Hallo,
EnableVisualStyles

[foRaver]

Ich hab' eine einfache Lösung gefunden:

{$R WindowsXP.res} aber Danke auf jeden Fall

[CalganX]

Hi,
ähm... Wenn du .NET programmierst solltest du wirklich die Methode verwenden, die Jens dir gegeben hat. Außerdem ist das nicht mehr, als diese eine Resourcenzeile.
Wobei bei der Resource nicht alle Controls geändert werden, wie bei D6 z.B..

Chris

[MathiasSimmack]

Bei einigen muss man noch was einstellen, aber im Grunde werden alle (Win-)Controls geändert.
Aber den Befehl gibt´s auch erst ab .NET-Framework 1.1. Wird zwar idR von Delphi 8 installiert, aber wer evtl. noch mit dem alten VS.NET 2002 rum macht, der wird den Befehl nicht finden.

[foRaver]

Da habt ihr komplett Recht. {$R WindowsXP.res} funkzioniert nur mit einer VCL-Application.
Aber der Code {%DelphiDotNetAssemblyCompiler '$(SystemRoot)\microsoft.net\framework\v1.1.4322\System.dll'} lässt den Interface nicht ändern. Was hab' ich falsch gemacht?

[MathiasSimmack]

Was wolltest du erreichen? Der Eintrag, auf den du dich beziehst, wird doch IMHO von Delphi automatisch angelegt. Also lass die Finger davon. Ich habe eben mal ein .NET-Sample hervor gekramt, da steht in meinem Projektquelltext (*.dpr) folgendes:

Delphi-Quellcode:

[STAThread]
begin

// -->

  Application.EnableVisualStyles;
  Application.DoEvents;

// <--

  Application.Run(TWinForm.Create);
end.

Mehr war nicht notwendig. Bei den Buttons musst du im Objektinspektor noch die Eigenschaft "FlatStyle" auf "System" einstellen. Es könnte sein, dass du das auch noch für ein paar andere Controls machen musst (kann ich dir nicht sagen, weil es schon ´ne Weile her ist, dass ich mit D8 gearbeitet habe). Aber grundsätzlich ist die Sache XP-Stil mit den o.g. zwei zusätzlichen Zeilen erledigt.

[foRaver]

Danke vielmals
Jetzt klappts auch in WindowsForm - Application.

MfG, foRaver

[Robert_G]

Zitat von MathiasSimmack:

Delphi-Quellcode:

// -->

  Application.EnableVisualStyles;
  //Application.DoEvents;

// <--

  Application.Run(TWinForm.Create);
end.

Das DoEvents ist IMHO nicht nötig, da du die Styles vor dem Erzeugen des ersten Forms machst.
Das mit den Buttons ist nervig (ist aber in jeder .Net IDE gleich nervig), in D8 übersieht man es schnell, da D8 die Controls im Designer NICHT im XP-Style anzeigt.

Zitat von MathiasSimmack:

schon ´ne Weile her ist, dass ich mit D8 gearbeitet habe

Glückspilz!

[bigg]

hi,

erstell eine Datei mit dem Dateinamen deines Programms plus der Dateierweiterung *.manifest.
Speichere Sie in deinem Programmordner.

Code:

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0" processorArchitecture="X86" name="name" type="win32"/>
<description></description>
<dependency>
<dependentAssembly>
<assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls"
version="6.0.0.0" processorArchitecture="X86" publicKeyToken="6595b64144ccf1df" language="*"/>
</dependentAssembly>
</dependency>
</assembly>