Discussion :

[foufar2009]

Bonsoir à tous J'ai une simple question à poser est ce que on peut réaliser ça à l'aide du delphi6



Voilà que j'ai arriver à faire



j'arrive pas à faire rotation du texte TabSheet1.

peut on faire ça? aidez moi, Svp et merci

[delaio]

bonjour,

il n'est pas possible, de mémoire, de faire cela avec un page control. par contre, il est possible d'obtenir ce type de résultat avec d'autres composants sous delphi 6.

il faudrait regarder du côté des composants JV (gratuits) car plus de choix.


del.

[jaffael]

Bonjour, comme le dit delaio, ce que tu veux faire n'est pas possible avec un PageControl, je ne crois pas que celui de la JVCL non plus, à partir du moment où tu mets les tabs à gauche le texte s'oriente de bas en haut.
Le plus simple est d'avoir un panel à gauche contenant d'autres panels (qui seront des tabs) et un panel gauche contenant des pages (ou encore d'autres panel en alClient), mais il faut que tu géres toi-même les clics sur les panels-tabs pour changer le visible de tes pages-panels.

[Andry]

Il y a un composant payant qui peut faire ça : TcxPageControl de Developper Express mais bon c'est payant.

[ShaiLeTroll]

C'est finalement, proche d'une OutLookBar ... voir JVCL, ...

[anapurna]

salut


rien de plus simple
tu publie des propriétés qui ce trouver en protected

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
type
  TPageControl = class(ComCtrls.TPageControl)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    { Published declarations }
    property TabHeight;
    property TabWidth;
  end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.OwnerDraw := True; 
  PageControl1.TabPosition := tpLeft;
  PageControl1.TabHeight := 60;
  PageControl1.TabWidth := 60;
end;
 
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
var
  TabText: string;
  P: TPageControl;
  OutRect : TRect;
begin
 p :=   Control as TPageControl ;
 
 TabText := TPageControl(P).Tabs[TabIndex];
// TabText :=  P.Pages[TabIndex].Caption;
 OutRect := Rect;
 InflateRect (OutRect, -3, -3);
 OutRect.Left := OutRect.Left + 3;
 if Active Then
 begin
   P.Canvas.Font.Color := clred ;
 end
 else
 begin
   P.Canvas.Font.Color := clBlack;
 end;
 DrawText (Control.Canvas.Handle,
    PChar (ExtractFileName (TabText)),
    Length (ExtractFileName (TabText)),
    OutRect, dt_Left or dt_SingleLine or dt_VCenter);
end;

@+ Phil

[foufar2009]

Thanks anapurna, votre code marche très bien, c'est ça que j'ai voulu faire, merci indéfiniment,