Dessiner sur un TImage dans un TTabSheet

Pour dessiner dans un TImage la technique la plus simple reste :

Image1.Canvas.MoveTo(50,50);
Image1.Canvas.LineTo(50,100);

Ok ! jusque la il n'y a pas de probléme, mais quand je créer plusieur TImage a l'éxécution, Comment s'appelle mes différent TImage ?

Parceque franchement je seche, surtout que cela fait 3 jours que j'essaye de dessiner sur mes différent TImages qui sont contenus dans différent TTabSheet, Enfin bref !

Si quelqu'un connait la solution ce serait cool ! Merci a tous

le mieux c'est de creer un tableau puisque l'on connait le nombres d'image requis.

on pourra ainsi nommé ses éléments et ensuite les détruires facilement dans onClose

var
Form1: TForm1;
tableImages:array[1..3]of TImage;
implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
tableImages[1]:=TImage.Create(TabSheet1);
tableImages[1].Parent:=TabSheet1;
tableImages[1].Width:=TabSheet1.Width;
tableImages[1].Height :=TabSheet1.Height;
tableImages[1].Picture.loadfromFile('1.bmp');

tableImages[2]:=TImage.Create(TabSheet2);
tableImages[2].Parent:=TabSheet2;
tableImages[2].Width:=TabSheet2.Width;
tableImages[2].Height :=TabSheet2.Height;
tableImages[2].Picture.loadfromFile('2.bmp');

tableImages[3]:=TImage.Create(TabSheet3);
tableImages[3].Parent:=TabSheet3;
tableImages[3].Width:=TabSheet3.Width;
tableImages[3].Height :=TabSheet3.Height;
tableImages[3].Picture.loadfromFile('3.bmp');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeAndNil(tableImages[1]);
FreeAndNil(tableImages[2]);
FreeAndNil(tableImages[3]);
end;

{les bmp sont dans le même répertoire que le exe}
tu peux aussi leur donné un nom comme ceci:
tableImages[3].Name:='Imagenum1';
mais dans ce cas ci le numéro du tableau réfère à celui du tab alors ?
yve

bon je vais complémenter un peu...

(PageControl1.TabIndex);

renvoi le numéro de la page 0 à ...

ici il aurait fallu écrire
tableImages:array[0..3]of TImage;
pour simplifier

ou augmenter de 1
(PageControl1.TabIndex+1);
pour correspondre au tableau !!!

et de n'importe quel procédure tu pourra
dessiner sur le tab actif

var z:Integer;
begin
z:=PageControl1.TabIndex+1;
with tableImages[z].Canvas do
begin
Pen.Color:=ClRed;
Pen.Width:=3;
MoveTo(50,22);
LineTo(44,100);
end;
end;

yve

Super ! et Merci, je vais essayer ça tout de suite, et bien entendu je vous tient au courant.

Re-Salut si tu est toujour la bien entendu, aprés avoir analyser ton code, je me suis dit que ce ne pourrait pas fonctionner sachant que je peut avoir 50 TTabSheet donc 50 TImage.

Ce que j'ai oublier de préciser c'est que je suis sur une fenêtre MDI Enfant, et qui plus est je peut créer autant de fenêtre MDI contenant des TTabSheet contenant eux même des TImages.

Pour te résumer tout ceci je ne connait pas les nom des TTabSheet ni des fenetre MDI (TForm2), et bien entendus ni des TImage, étant donné que je les créer tous a l'éxécution, mais ceci est une erreur de ma part, car j'aurais du le préciser dans mon premier message. Ou peut être que je dit n'importe quoi sachant que je suis débutant sur Delphi depuis 1 mois a peine.

Enfin bref ! Assez discuter je vais vous fournir le proto sur lequel je suis en train de travailler :

Alors pour commencer nous avons une TForm1 contenant 3 boutons :

- Un Pour créer des TForm2
- Un Pour créer des TTabSheet sur le TPageControl de la Tform2
- Et un autres pour fermer les TTabSheet

Alors voici la procédure de création de TForm2 (Enfant). Cette procédure ne fait rien d'autre que de créer une fenêtre Enfant MDI, Sachant que j'ai un TPageControl contenant un TTabSheet a la conception, le 1er TTabSheet n'a donc pas besoin d'être créer.

procedure TForm1.Button1Click(Sender: TObject); begin Form2:=TForm2.Create(Application); Form2.Caption:=('Dossier n°'+IntToStr(MDIChildCount)); Form2.PageControl1.Pages[0].Caption:='Page n°'+IntToStr(1); Nbr:=1; end;

Maintenant voici la création des nouveau TTabSheet, en faite j'appelle la procédure AddTabSh qui se trouve sur la 2eme Unités.

procedure TForm1.Button2Click(Sender: TObject); begin if (ActiveMDIChild is TForm2) then (ActiveMDIChild as TForm2).AddTabSh('Page n°'); end;

Et Maintenant voici la procédure qui le plus gros du travail, c'est a dire la création de TTabSheet et de TImage a l'éxécution. Comme on peut voir j'ai limiter le nombre de TTabSheet a 50. La constante passez en parametre a la procedure n'est autre que le nom du TTabSheet.

procedure TForm2.AddTabSh(const F:String); begin if Nbr < 50 then begin TTabSheet.Create(PageControl1).PageControl:=PageControl1; Nbr:=PageControl1.PageCount; PageControl1.Pages[Nbr-1].Caption:=F+IntToStr(Nbr); PIndex:=PageControl1.ActivePageIndex+1; if Nbr-PIndex <> 0 then PageControl1.ActivePageIndex:=Nbr-1; TabSh:=PageControl1.ActivePage; Image1:=TImage.Create(TabSh); with Image1 do begin Parent:=TabSh; Align:=alClient; end; Act:=PageControl1.TabIndex+1; end; end;

Maintenant j'ai la procédure pour dessiner sur le TImage du TTabSheet actif, qui ne fonctionne pas bien entendus.

procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Image1.Canvas.Create; Image1.Canvas.LineTo(x,y); end;

Par souci de clarté je me suis dit qu'il serait bien de fournir tout le prototype tant qu'a faire, et vus qu'il reste seulement 2 procédure autant vous les montrez, ce sont les procédure de suppression de TTabSheet, ici j'actualise seulement la variable qui tient a jour la position du TTabSheet Actif.

procedure TForm2.PageControl1Change(Sender: TObject); begin Act:=PageControl1.TabIndex+1; end;

Une autre variable va me servir, c'est Nbr qui est le nombre de TTabSheet contenus dans TPageControl, celle ci est actualiser dans la procedure de création de TTabSheet. L'interêt est que quand on supprime un TTabSheet, et même au millieu, tous les autres se renomme automatiquement. Bien entendu le dernier TTabSheet ne peut être supprimer.

procedure TForm1.Button3Click(Sender: TObject); var Z: Integer; begin if (ActiveMDIChild is TForm2) then with (ActiveMDIChild as TForm2).PageControl1 do begin if Nbr>1 then begin ActivePage.Free; Nbr:=PageCount; Act:=TabIndex+1; for Z:=Act to Nbr do Pages[Z-1].Caption:='Page n°'+IntToStr(Z); end; end; end;

Quand je créer un 2eme TTabSheet je ne peut plus dessiner, en clair c'est le bordel !

Je suis sur qui doit avoir plus simples, mais étant que je suis débutant je ne connait pas toutes les ficelles, alors excuser moi pour ce brouillon !

Et puis sinon Merci !

ok, que se passe-t-il à la fin ?
tu ne dois pas oublier de liberer les ressources

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
x:Integer;
begin
for x:=0 to PageControl1.PageCount-1 do
begin
//On libère le Timage du TTabSheet
//On libère le TTabSheet du TPageControl
end;
end;

yve

Re-Bonjour monsieur yve !

En clair entre mon dernier message et celui la je dormais, et je n'est donc pas pu lire ton message, et je t'avourais que je ne comprend pas trop ton message, j'espere donc que tu lira le miens.

Sinon si c'est pour la fermeture de TForm1, je pensais que les ressource était liberer des que l'on cliquait sur la croix en haut a droite, sinon je sais pas !

Salut

Tu peut egalement passer par un pointeur, ce qui permet une plus grande souplesse d'utilisation

Il faut savoir que le "nom" d'un controle n'est autre qu'un pointeur vers le controle proprement dit

On peut donc assigner un controle a un pointeur du meme type
par exemple, si j'ai une image TImage1 sur ma Form, je peux l'utiliser et y acceder par un autre nom
il suffit pour cela de declarer une variable de type Timage

Var MonImage : TImage;

Procedure TrucBidule(Sender : TObject)
Begin
MonImage := (Sender as TImage) //on assigne le SEnder a la variable MonImage (il faut bien sur que le Sender soit toujours un TImage)

MonImage.Canvas.LineTo(x,y)
MonImage.Width := MonImage.Width div 2
MonImage.Picture.LoadFromFile('CheminDuFichier');
etc...
end;


de cette maniere, tu peut par exemple recuperer l'image assosiée au TabSheet actif sur l'evenement OnShow des TabSheet ou OnChange du TabControl, soit par le nom, soit par lien de parenté (boucle For jusqu'a ComponentCount - 1 et tu teste Components[i] pour savoir si c'est un TImage, etc...) mais c'est moins propre, et utiliser une variable pour faire des actions specifiques sur l'image quand se produisent des evenements particuliers (appui sur un bouton, changement de contenu d'un TEdit, etc...)


Voila, une p'tite astuce pour se faciliter la vie ;)


SaiB