Discussion :

[istam3]

Bonjour, y-a-t-il une solution permettant d'insérer/d'afficher un bouton dans un onglet d'un TPageControl ?
Le but est de faire un peu comme dans Firefox, c'est à dire avoir un bouton à droite dans l'onglet pour fermer la page et l'onglet actif.
J'ai déjà codé une partie de l'affichage juste pour me familiariser aux possibilités données par l'événement OnDrawTab, parce que je pense que ce que j'ai fait ne sert à rien, puisqu'il faut aussi pouvoir récupérer l'événement sur le clic.

[ShaiLeTroll]

Voir si dans les composants DevExpress, Jedi, ou TMS si un tel control existe pas déjà !

Sinon, tu peux très bien dessiner le bouton dans le tab, et capturé le click par OnMouseDown et OnMouseUp, et avec un calcul un peu savant, tu dois pouvoir savoir si il y a un bouton en dessous ou pas !

Sinon, voir si tu peux créer des TBitBtn à la volée, et réussir à la positionner correctement !

[istam3]

Merci Mr Le Troll de cette rapide réponse.
Je ne connais pas les compos DevExpress.
Je n'ai pas trouvé dans les compos Jedi (bien sûr il y a un JvPageControl, mais qui à priori ne permet pas l'affichage d'un bouton), et je n'ai que la suite TMS GridPack donc pas de contrôle correspondant au PageControl (question subsidiaire au cas où quelqu'un aurait la réponse - je n'ai pas encore cherché, manque de temps - j'ai voulu aussi installé la suite Smooth Controls de TMS fournie gratuitement mais quand je dépose un composant sur une fiche j'ai un conflit avec le fichier AdvStyleIF ; y a t-il un moyen de faire cohabiter le TMS GridPack avec licence et le TMS Smooth Controls sans licence).

Cependant il n'y a effectivement pas besoin d'un autre composant pour faire ça, dessiner le bouton est finalement très facile.

Sinon, tu peux très bien dessiner le bouton dans le tab, et capturé le click par OnMouseDown et OnMouseUp, et avec un calcul un peu savant, tu dois pouvoir savoir si il y a un bouton en dessous ou pas !

et il n'y a pas besoin de calcul savant à faire, mon code ci-dessous fonctionne très bien

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
//**********************************************************************************************************************
//  Dessine le bouton fermer dans l'onglet actif
procedure TMainApplicationFramework.PageControlDrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect;
  Active: Boolean);
var
  aRect: TRect;
  aBmp: TBitmap;
begin
  if Active then
  begin
    aBmp:= TBitmap.Create;
    aBmp.LoadFromFile('C:\-Images-\imgButtons\close3.bmp');
 
    aRect.Left  := Rect.Right - 5 - aBmp.Width;                        //Placement à droite avec marge de 5px
    aRect.Top   := ( ( Rect.Bottom - Rect.Top ) - aBmp.Height ) div 2; //Centrage en hauteur dans l'onglet
    aRect.Right := aRect.Left + aBmp.Width;
    aRect.Bottom:= aRect.Top + aBmp.Height;
 
    Control.Canvas.CopyRect( aRect, aBmp.Canvas, aBmp.Canvas.ClipRect);
    FLastTabCloseButtonRect:= aRect;
  end;
end;
 
//**********************************************************************************************************************
//  Change le curseur si on passe sur le bouton
procedure TMainApplicationFramework.PageControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if (FLastTabCloseButtonRect.Top < Y) and ( Y < FLastTabCloseButtonRect.Bottom )
    and (FLastTabCloseButtonRect.Left < X) and ( X < FLastTabCloseButtonRect.Right ) then
  begin
    Screen.Cursor:= crHandPoint;
  end else
    Screen.Cursor:= crDefault;;
end;
 
//**********************************************************************************************************************
//  Ferme l'onglet si le clic a eu lieu sur le bouton
procedure TMainApplicationFramework.PageControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  if (FLastTabCloseButtonRect.Top < Y) and ( Y < FLastTabCloseButtonRect.Bottom )
    and (FLastTabCloseButtonRect.Left < X) and ( X < FLastTabCloseButtonRect.Right ) then
  begin
    ActionCloseActiveTab.Execute;
  end;
end;

ce qui me gêne maintenant c'est qu'avec l'OwnerDraw à true le reste de l'onglet n'est plus dessiné comme avant, il est vide, plus d'image, plus de caption, j'ai essayé d'ajouter un inherited dans PageControlDrawTab mais ça donne rien, y a-t-il un moyen pour que les onglets soient dessiner comme si OwnerDraw était à false, puis de surcharger l'onglet actif en ajoutant mon image ? Ou bien je suis obligé avec l'OwnerDraw à true de m'occuper moi-même de tout dessiner ?

[ShaiLeTroll]

Je pense que tu es obligé de te taper tout le dessin !
J'ai tenté, une fois ce genre de chose (colorier le Tab d'un TabControl), il faut tout dessiner pour que cela stable et joli !

En même c'est juste un DrawText ou un CopyRect, ça va pas être bien compliqué par rapport au dessin de ton bouton !

[istam3]

Merci beaucoup.
Je vais donc me retaper le dessin complet des onglets mais ça devrait aller.