Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sailor,
18. Nov 2015
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.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sailor,
18. Nov 2015
Hast Du compiliert mit Debug DCUs an?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sailor,
17. Nov 2015
Klappt doch. Setze mal einen Breakpoint in TCustomTabControl.DrawTab von ComCtrls in die Zeile "IF Assigned(FOnDrawTab)".
PROCEDURE TShellForm.PageControlDrawTab(control:TCustomTabControl; tab_index:Integer; CONST rect:TRect; active:Boolean);
BEGIN
WITH PageControl
DO Canvas.TextOut(rect.Left+5,6,Pages.Caption)
END; {OF PROCEDURE TShellForm.PageControlDrawTab}