Drawtab will nicht

[Mattze]

Hallo,

also jetzt bin ich kurz vorm Verrücktwerden!

TPageControl, ownerdraw:=true, Drawtab definiert und DrawTab wird trotzdem nicht aufgerufen.

In einem anderen Programm (von mir) geht es problemlos.

Was könnte das sein?

(D7 pro unter Win7 pro 64)

Gruß
Mattze

[TiGü]

Eventhandler ist auch wirklich verlinkt im Objektinspektor?

[Mattze]

Natürlich!

Ich habe mal alles rausgeschmissen, was nicht nötig ist.
Es bleibt das Formular mit einem TPageControl und einem Label (caption gesetzt in drawtab zur Kontrolle).
Lediglich Pagecontrol.ownerdraw:= true gesetzt und OnDrawTab geschrieben.

Nix! Wird gar nicht aufgerufen!

Bei anderen Projekten (Programmen) von mir gab's da noch nie Probleme!
Auch jetzt nicht, wenn die neu compiliert werden!!!

Gruß
Mattze

[baumina]

In der dfm nachschauen, ob OnDrawTab zugewiesen und sonst alles normal und richtig ausschaut, vielleicht hats da ja irgendwelche komischen Sachen drin.

[Mattze]

Hallo baumina,

soweit ich weiß, ist alles richtig. Und trotzdem...
Hier der relevante Ausschnitt aus der dfm:

Delphi-Quellcode:

  object PageControl1: TPageControl
    Left = 8
    Top = 16
    Width = 873
    Height = 513
    ActivePage = TabSheet3
    OwnerDraw = True
    TabOrder = 0
    OnDrawTab = PageControl1DrawTab
    object TabSheet1: TTabSheet
      Caption = 'TabSheet1'
    end
    object TabSheet2: TTabSheet
      Caption = 'TabSheet2'
      ImageIndex = 1
    end
    object TabSheet3: TTabSheet
      Caption = 'TabSheet3'
      ImageIndex = 2
    end
  end

Gruß
Mattze

[Sailor]

Klappt doch. Setze mal einen Breakpoint in TCustomTabControl.DrawTab von ComCtrls in die Zeile "IF Assigned(FOnDrawTab)".

Delphi-Quellcode:

  PROCEDURE TShellForm.PageControlDrawTab(control:TCustomTabControl; tab_index:Integer; CONST rect:TRect; active:Boolean);
   BEGIN
    WITH PageControl
     DO Canvas.TextOut(rect.Left+5,6,Pages[tab_index].Caption)
   END; {OF PROCEDURE TShellForm.PageControlDrawTab}

[Mattze]

Hallo,

klappt doch... nicht!
Der Breakpoint wird bei mir nicht angesprungen.

Ich weiß nicht, warum es bisher ging und nun nicht mehr.
Wenn ich ein älteres Programm neu übersetze, funktioniert es ja auch weiterhin!
("älteres Programm" hört sich gut an. Gemeint ist z. Bsp. ein Programm von vor etwa einem Monat.)

Gruß
Mattze

[Sailor]

Hast Du compiliert mit Debug DCUs an?

[Mattze]

Hallo,

habe ich immer an, solange ich ein Programm entwickle.
Habe auch gerade nochmals nachgeschaut - sicher ist sicher.
Ist an.
Funktioniert trotzdem nicht.

Gruß
Mattze

[Fritzew]

Hast Du Themes aktiviert?

[Sailor]

Wird TCustomTabControl.CNDrawItem in ComCtrls aufgerufen? Diese Routine ruft dann DrawTab auf, ohne Wenn und Aber. Was passiert denn, wenn OwnerDraw auf False steht?
Das Projekt im Anhang kompiliert/funktioniert unter Delphi2010/WinVista.

[Mattze]

Hallo,

wäre durchaus möglich. Dann aber, ohne das ich es weiß.
Ich nutze keine Themes!

Gruß
Mattze

[taaktaak]

Moin,
ich habe in meinen Unterlagen folgenden Hinweis gefunden:

Delphi7 only - WMDrawItem fails under WOW64
e.g. DrawTab() of TPageControl won't works correct
see http://qc.codegear.com/wc/qcmain.aspx?d=19859

>> schau 'mal hier
http://codeverge.com/embarcadero.del...-win64/1068914

.. ob es daran liegt??

[Mattze]

Hallo,

vielen Dank!!!
Genau das war es!

Wer kommt denn auch auf sowas? ;)

Mit der PatchUnit geht alles klar.

Gruß
Mattze