Pagecontrol com a aba vertical

Delphi

04/12/2008

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 fazer normalmente. Existem alguma particularidade no Delphi 7 ?


Quem puder ajudar agradeço.

Ricardo


Ricardo_ascii

Ricardo_ascii

Curtidas 0

Respostas

Mahdak

Mahdak

04/12/2008

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;



GOSTEI 0
POSTAR