Drawtab will nicht

[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