Gekippten Text doppel zeichnen !!!

[HolgerCW]

Das habe ich ja ausprobiert:

So:

Delphi-Quellcode:

Canvas.Brush.Style := bssolid;
Canvas.Font.Color  := clBtnHighlight;
Canvas.Font.Name := 'Arial';
Canvas.Font.Size := 8;
Canvas.TextOut(rect.left+17,rect.top+7,Pages[Der_Tabindex].Caption); // <- Ohne das klappt es nicht
TextOutAngle(PageControl.Canvas, rect.left+17, rect.top+7, Pages[Der_Tabindex].Caption, 900);
    
//text in anderer Farbe wieder drüberzeichnen (25 Pixel nach links oben versetzt)
Canvas.Brush.Style := bsclear;
Canvas.Font.Color  := clBtnShadow;
Canvas.Font.Name := 'Arial';
Canvas.Font.Size := 8;
Canvas.TextOut(rect.left+16,rect.top+6,Pages[Der_Tabindex].Caption);
TextOutAngle(PageControl.Canvas, rect.left+16, rect.top+6, Pages[Der_Tabindex].Caption, 900);