TabControl mit OwnerDraw klappt nicht unter Vista 64-bit

[semo]

windows vista ultimate sp1

[WalterFr]

Zitat:

Zitat von M. Hassmann

windows vista ultimate sp1

32-Bit oder 64-Bit???

[semo]

64 bit

[WalterFr]

Zitat:

Zitat von M. Hassmann

64 bit

Ich habe inzwischen im Verwandten-, Kollegen-, Bekannten- und Unbekannten-Kreis recherchiert und habe keinen Vista 64-Bit Rechner gefunden, bei dem die Tab-Reiter im OwnerDraw-Fall sichtbar wären.

Ein "Herumspielen" mit dem Kompatibilitäts-Modus hat auch nix gebracht.

Ich versuche jetzt einen Upgrade von Delphi7 Prof. auf ein jüngeres Delphi und hoffe, das das etwas bringt ...

Jedenfalls vielen Dank für eure Bemühungen!!

[WalterFr]

Ich habe das Projekt jetzt mit dem Delphi 2007 RAD Studio compiliert und siehe da,
die Tab-Reiter sind dann auch unter Vista 64-Bit sichtbar.

Ganz offensichtlich existiert da in Delphi 7 (resp. der win32 vcl) ein Bug, der
dazu führt, dass der OnDrawTab unter einem 64-Bit Betriebssystem nicht aufgerufen wird.

[win568]

Hi

Aber was ist nun mit D7. Werde wegen dem Bug nicht das komplette Projekt auf D2007 umstellen.
Gibt es eine Lösung ???

[Bernhard Geyer]

Und was spricht gegen umstellen?

Falls du D2007 hast kannst du ja versuchen im Quellcode zu erkennen was geändert wurde und diese Fixes nach D7 rückportieren.

[win568]

Hi

Hab ich ja versucht. Das Problem ist, dass die Unterschiede im TTabControl marginal sind. Es wurde vieles in TWincontrol und TControl geändert. Und diese wiederrum kann ich nicht nachführen, da das andere Komponenten beeinflußt.

[kopernikus]

Es sind einige kleine Änderungen in der Unit Controls.pas erforderlich

(siehe auch: http://qc.embarcadero.com/wc/qcmain.aspx?d=19859):

Delphi-Quellcode:

procedure TWinControl.WMCompareItem(var Message: TWMCompareItem);
begin
  if not DoControlMsg(Message.CompareItemStruct^.hwndItem, Message) then inherited;
end;

procedure TWinControl.WMDeleteItem(var Message: TWMDeleteItem);
begin
  if not DoControlMsg(Message.DeleteItemStruct^.hwndItem, Message) then inherited;
end;

procedure TWinControl.WMDrawItem(var Message: TWMDrawItem);
begin
  if not DoControlMsg(Message.DrawItemStruct^.hwndItem, Message) then inherited;
end;

procedure TWinControl.WMMeasureItem(var Message: TWMMeasureItem);
begin
  if not DoControlMsg(Message.IDCtl, Message) then inherited;
end;