title: Make owner-drawn TPageControl tabs look nicer, like without owner-draw
body: <p>I use Delphi7, PageControl with owner-draw. I can't get so plain and nice look of tabs, as I see on not-owner-drawn PageControls. What's bad: 
  when using owner-draw, I can't draw on "entire" tab header area, small 1-2px frame around tab header is painted by OS.</p>
  
  <p>1) Delphi not owner-draw, look is OK too (XPMan used):</p>
  
  <p><img src="https://i.stack.imgur.com/RT2li.png" alt="delphi sys"></p>
  
  <p>2) Delphi owner-draw, you see not entire tab header can be colored (XPMan used):</p>
  
  <p><img src="https://i.stack.imgur.com/OirkI.png" alt="delphi owner draw"></p>
  
  <p>I draw current tab with blue and others with white, here. Only example.
  Code:</p>
  
  <pre><code>procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
    TabIndex: Integer; const Rect: TRect; Active: Boolean);
  var
    c: TCanvas;
  begin
    c:= (Control as TPageControl).Canvas;
    if Active then
      c.Brush.Color:= clBlue
    else
      c.Brush.Color:= clWhite;
    c.FillRect(Rect);    
  end;
  </code></pre>
  
  <p>2b) Delphi owner-draw in real app (XPMan used):</p>
  
  <p><img src="https://i.stack.imgur.com/xSlP2.png" alt="delphi real app"></p>
  
  <p>Why do i need to use owner-draw? Simple. To draw X button on tab headers, to paint upper-line with custom color, to paint icons from imagelists.</p>
  
  <p>I'm looking for a way to <strong>paint ENTIRE rect of tab headers</strong>, not decreased rect which is given to PageControl owner-draw events. I tried to increase the rect given by owner-draw events, but this doesn't help, OS repaints this thin 1-2px frame around tab headers anyway.</p>