Discussion :

[anapurna]

salut

ah bin j'avait pas compris ca moi
j'avait cru qu'i voulait un bouton sur chaque onglet et que sur celui-ci
il y ai la croix [X] comme pour une fenetre
et lors du click sur la croix on verifie si il est possible de fermer la fenetre
me serait fourfoyé ?

@+ Phil

PS : pour l'affichage je l'ai en parti resolue
voici un debut pour faire avance le shmilblick

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
procedure GradientFillRect(Canvas: TCanvas; Rect: TRect; BeginClr, EndClr: TColor);
var
  ColorRect     : TRect;
  Height, Width : Integer;
  FromR, FromG, FromB : Integer;
  DiffR, DiffG, DiffB : Integer;
  R, G, B : Byte;
  I             : Integer;
begin
  FromR := GetRValue(BeginClr);
  FromG := GetGValue(BeginClr);
  FromB := GetBValue(BeginClr);
 
  DiffR := GetRValue(EndClr) - FromR;
  DiffG := GetGValue(EndClr) - FromG;
  DiffB := GetBValue(EndClr) - FromB;
 
  Height := Rect.Bottom-Rect.Top;
  Width  := Rect.Right-Rect.Left;
 
  ColorRect.Top:= Rect.Top;
  ColorRect.Bottom := Rect.Bottom;
  for I := 0 to 255 do
  begin
    ColorRect.Left := Rect.Left + Muldv(I  ,Width, 256);
    ColorRect.Right:= Rect.Left + Muldv(I+1,Width, 256);
    R := FromR + Muldv(I, DiffR, 255);
    G := FromG + Muldv(I, DiffG, 255);
    B := FromB + Muldv(I, DiffB, 255);
    Canvas.Brush.Color := RGB(R, G, B);   
    Canvas.FillRect(ColorRect);           
  end;
end;
 
procedure DrawEclTab(GradientFil : boolean;Canvas: TCanvas; R: TRect; S: String; Index : integer; Images : TImageList; TabColordeb,TabColorfin : TColor);
const
    D = 5;
var
  H: HRgn;
  PrevMode  : Integer;
begin
  with Canvas do
  begin
    brush.Color := TabColordeb;
    Pen.Color := clWhite;
    pen.Width := 3;
 
    H := CreateRectRgn(R.Left, R.Top, R.Right, R.Bottom);
    SelectClipRgn(Handle, H);
    RoundRect(R.Left, R.Top, R.Right, R.Bottom + 50, D, D);
    SelectClipRgn(Handle, 0);
    DeleteObject(H);
 
    Pen.Color := clgray;
    OffsetRect(R, 1, 1);
    H := CreateRectRgn(R.Right -D div 2, R.Top, R.Right, R.Bottom);
    SelectClipRgn(Handle, H);
    RoundRect(R.Left, R.Top, R.Right, R.Bottom + 50, D, D);
    SelectClipRgn(Handle, 0);
    DeleteObject(H);
    InflateRect(R, -2, -2);
    if GradientFil Then
      GradientFillRect(Canvas,R,TabColordeb,TabColorFin);
    PrevMode := SetBkMode(handle, TRANSPARENT);
    DrawText(handle,Pchar(S),Length(S),R,DT_CENTER or DT_VCENTER or DT_SINGLELINE);
    SetBkMode(handle, PrevMode);
    if assigned(Images) Then
      Images.Draw(Canvas,R.Left + 4,R.Top,Index);
  end;
end;

[LadyWasky]

salut

ah bin j'avait pas compris ca moi
j'avait cru qu'i voulait un bouton sur chaque onglet et que sur celui-ci
il y ai la croix [X] comme pour une fenetre
et lors du click sur la croix on verifie si il est possible de fermer la fenetre
me serait fourfoyé ?

Non, non, c'est toi qui as surement raison
Cependant, mon "truc" devrait pouvoir marcher aussi dans ce cas

Clic sur le bouton -- et hop ! --> ClosePage

[Pedro]

Salut

ah bin j'avait pas compris ca moi
j'avait cru qu'i voulait un bouton sur chaque onglet et que sur celui-ci
il y ai la croix [X] comme pour une fenetre
et lors du click sur la croix on verifie si il est possible de fermer la fenetre
me serait fourfoyé ?

Pas du tout . En fait, l'interêt de créer un tel évènement pour un TPageControl est de pouvoir l'utiliser pour remplacer une application MDI.
Chaque onglet représente les fichiers ouverts. Si on tente d'en fermer un et qu'il a été modifié, OnCanClose permettra d'afficher le messages "Voulez-vous enregistrer les modifications Oui/Non/Annuler".
@waskol: si on surcharge toutes les méthodes (en interceptant les messages windows en surchargeant WndProc par exemple: les évènements sont TCM_INSERTITEM, TCM_DELETEITEM et TCM_DELATEALLITEMS) on peut détruire des pages "à la main"
Effectivement, j'avais bien pensé à une méthode "gentille" qui ferait ça mais je trouve que ça fait "bricolage"...