XP Style mit Delphi 6

[Bechti]

Hallo,

habe seit heute Delphi 6 (unter WinXP) und dachte eigentlich, daß meine Programme bereits im XP-Style laufen würden. War nich so.....
Weiß jemand, was ich machen kann, daß meine Programme mit den hübschen WinXP Buttons usw. arbeiten??

Danke und Gruß

[choose]

Schau Dich mal bei Mike Lischke und seiner Lösung XP Theme Manager um...

[Alexander]

Oder wenn du keine Komponente haben willst, dann such hier mal nach Manifest

[MathiasSimmack]

So wie ich das von Chakotay gehört habe, soll der ThemeManager wohl auch gleich noch die Probleme mit älteren Delphi-Versionen beheben (u.a. das List-View-Problem im vsReport-Modus). Wenn das so ist (ich weiß es nicht, ich habe meine Unit gepatcht), dann wäre der ThemeManager die bessere Wahl. :)

[choose]

Das stimmt, Matthias, die Lösung von Mike Lischke bettet nicht nur das Manifest ein sondern patcht darüber hinaus viele VCL-Komponenten (ListView, TabSheet, GroupBox, SpeedButton,...).

@alexander: Es ist keine Komponente auf der Form notwendig: Das Einbinden der Unit ThemeMgr reicht aus.

Edit: Fieser Rechtschraibfehler.

[CalganX]

Hi,
nein. Das stimmt nicht. Ich habe dir, Mathias, in einer Mail auch gesagt, dass es nicht funktioniert hat. Der ThemeManager patcht die Komponenten nicht, sondern subclasst sie. Das ist ein Unterscheid!

Chris

[choose]

Zitat:

Zitat von Chakotay1308

Der ThemeManager patcht die Komponenten nicht, sondern subclasst sie. Das ist ein Unterscheid!

Doppelt richtig ;)

@Matthias: Der ListView-Bug wird selbstverständlich durch SubClassing (hui, ich wusste nicht, dass ihr's so genau nehmt...) bei Mikes Lösung behoben:

Delphi-Quellcode:

procedure TThemeManager.ListviewWindowProc(Control: TControl; 
  var Message: TMessage);
begin
  if not DoControlMessage(Control, Message) then
  begin
    // In opposition to the other window procedures we should 
    // always apply the fix for TListView, regardless of whether 
    // themes are enabled or not.
    if (Message.Msg = LVM_SETCOLUMN) or 
       (Message.Msg = LVM_INSERTCOLUMN) then
    begin
      with PLVColumn(Message.LParam)^ do
      begin
        // Fix TListView report mode bug.
        if iImage = - 1 then
          Mask := Mask and not LVCF_IMAGE;
      end;
    end;
    FListViewList.DispatchMessage(Control, Message);
  end;
end;

@Bechti: Dank dieser Technik musst Du nicht im Besitzt der VCL-Quellen sein und hast gegenüber der einfachen Variante mit der Manifest-Datei Controls im "hübschen" XP-Look, die sonst immer noch "hässlich" aussehen würden.

[CalganX]

Hi,
mag sein. Ich habe noch nie in die Sourcen reingesehen. Allerdings behebt der ThemeManager keineswegs das Problem. Ich habe hier sowohl Source als auch Software (die langsam mal veröffentlicht werden will, @Mathias :mrgreen:) mit der ich das beweisen könnte. ;)

Chris