Pagecontrol com a aba vertical

Question

Ola pessoal,Tenho um pagecontrol e mudei a propriedade Tabposition para tpleft para que as abas fiquem verticais. Quando compilo o programa os captions das abas n�o aparecem.No delphi 5 eu consegui fa...

Mahdak · Answer

pc.OwnerDraw := true; (aqui est� o lance)

e para o neg�cio funcionar...

procedure TForm1.FormShow(Sender: TObject);
begin
pc.Pages[0].Font.Color := clBlack;
end;

procedure TForm1.pcDrawTab(Control: TCustomTabControl; TabIndex: Integer;
  const Rect: TRect; Active: Boolean);
begin
  inherited;
  Control.Canvas.font.Color:=clBlack;
  Control.Canvas.TextOut(Rect.left+5,Rect.top+3,pc.Pages[tabindex].Caption);
end;

F�rum Pagecontrol com a aba vertical #366763