Discussion :

[Lung]

Comment modifier la taille du Canvas d'un TImage ?

J'ai retrouvé cette discution http://www.developpez.net/forums/d14...nvas-d-timage/, mais ça ne m'a pas aidé.
Les dimensions du TPicture sont en lecture-seule, et je suppose qu'elles sont le reflet du TBitmap stocké dedans. Mais, dans mon cas, je n'ai pas d'image à charger. Je dessine juste dans son Canvas.

Voici la création du TImage :

Code :

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

1
2
3
4
5
6
7
8
9
   ImageCurseur := TImage.Create(Self);
   ImageCurseur.Parent := PanelMarge;
   ImageCurseur.Height := PanelMarge.Height;
   ImageCurseur.Width := 17;
   ImageCurseur.Align := alLeft;      // <<<
   ImageCurseur.Canvas.Brush.Color := clWindow;
   ImageCurseur.Canvas.FillRect(Rect(0, 0, ImageCurseur.Width, ImageCurseur.Height));
   ImageCurseur.Canvas.Pen.Color := clBlue;
   ...

Et son utilisation :

Code :

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

1
2
3
4
5
6
7
8
   ImageCurseur.Canvas.Brush.Color := clWindow;
   ImageCurseur.Canvas.FillRect(Rect(0, 0, ImageCurseur.Width, ImageCurseur.Height));
   ImageCurseur.Canvas.Brush.Color := clWhite;
   for i:=0 to Pred(_ListeLignes.Count) do
      ImageCurseur.Canvas.FillRect(Rect(0, ((i * HAUTEUR_PORTEE) + INIT_PORTEE - 3), ImageCurseur.Width, (i * HAUTEUR_PORTEE) + HAUTEUR_PORTEE - 3));
   ImageCurseur.Canvas.MoveTo(0, Y);
   ImageCurseur.Canvas.LineTo(ImageCurseur.Width, Y);
   ...

La hauteur de son parent pouvant changer, avec l'alignement à alLeft la hauteur de TImage est bien modifiée.
Mais, même en essayant de le répercuter sur le TBitmap, ça ne change rien :

Code :

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

1
2
   ImageCurseur.Picture.Bitmap.Height :=  ImageCurseur.Height;
   ImageCurseur.Picture.Bitmap.Width :=  ImageCurseur.Width;

Comment modifier la taille du Canvas d'un TImage, sans devoir détruire et recréer le TImage ?

[Paul TOTH]

Comment modifier la taille du Canvas d'un TImage, sans devoir détruire et recréer le TImage ?

c'est simple, un Canvas n'a pas de dimensions c'est comme si tu voulais connaître les dimensions d'un stylo, il n'en a pas, c'est la feuille de papier qui le limite dans son dessin.

le Bitmap de TImage possède des dimensions qui ne sont pas forcément celles du TImage (voir Stretch), donc c'est à toi de redimensionner le bitmap.

[Lung]

c'est simple, un Canvas n'a pas de dimensions c'est comme si tu voulais connaître les dimensions d'un stylo, il n'en a pas, c'est la feuille de papier qui le limite dans son dessin.

Ah, ok.

le Bitmap de TImage possède des dimensions qui ne sont pas forcément celles du TImage (voir Stretch), donc c'est à toi de redimensionner le bitmap.

Comment faire ?
J'ai bêtement essayé ça, mais ça ne change rien (et je ne vois pas comment faire autrement):

Code :

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

1
2
   ImageCurseur.Picture.Bitmap.Height :=  ImageCurseur.Height;
   ImageCurseur.Picture.Bitmap.Width :=  ImageCurseur.Width;

[Paul TOTH]

Pourtant ça fonctionne:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.SetBounds(Image1.Left, Image1.Top, Image1.Width + 10, Image1.Height + 10);
  Image1.Picture.Bitmap.Width := Image1.Width;
  Image1.Picture.Bitmap.Height := Image1.Height;
  Image1.Canvas.TextOut(0, 0, format('%d x %d', [Image1.Width, Image1.Height]));
end;

sauf peut-être si ton TImage contient autre chose qu'un BITMAP

Image1.Canvas retourne le Canvas de Image1.Picture.Bitmap, qui si l'image est vide, est créé automatiquement aux dimensions du TImage.

par contre Image1.Picture.Bitmap retourne toujours un TBitmap, quitte à détruire l'image contenue dans le TImage si ce n'est pas un Bitmap, mais ne force pas ses dimensions.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button1Click(Sender: TObject);
begin
// ici Image1 est vide (lors du premier clic)
  Image1.SetBounds(Image1.Left, Image1.Top, Image1.Width + 10, Image1.Height + 10);
// Picture.Bitmap devient un TBitmap de taille nulle au départ, dont on change la largeur
  Image1.Picture.Bitmap.Width := Image1.Width;
// maintenant on fixe la hauteur du bitmap
  Image1.Picture.Bitmap.Height := Image1.Height;
// Image1.Canvas pointe sur Image1.Picture.Bitmap.Canvas
  Image1.Canvas.TextOut(0, 0, format('%d x %d', [Image1.Width, Image1.Height]));
// le refresh se fait tout seul
end;

[Lung]

Pourtant ça fonctionne:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Image1.SetBounds(Image1.Left, Image1.Top, Image1.Width + 10, Image1.Height + 10);
  Image1.Picture.Bitmap.Width := Image1.Width;
  Image1.Picture.Bitmap.Height := Image1.Height;
  Image1.Canvas.TextOut(0, 0, format('%d x %d', [Image1.Width, Image1.Height]));
end;

sauf peut-être si ton TImage contient autre chose qu'un BITMAP

Image1.Canvas retourne le Canvas de Image1.Picture.Bitmap, qui si l'image est vide, est créé automatiquement aux dimensions du TImage.

Effectivement, ton exemple fonctionne parfaitement bien.
Mais dans mon application, non. L'erreur vient peut-être d'ailleur, mais je ne vois pas d'où.

Mon TImage ne contient pas de bitmap. Il est créé dynamiquement sur un panel dans un TTabSheet, et je dessine dessus un trait et des lettres.
Lorsque je génère dynamiquement le premier onglet, je vois bien le TImage.

Au deuxième onglet, je suis obligé de minimiser et restaurer l'application pour voir le TImage.
Au troisième onglet, je ne vois plus de TImage. Il est forcément créé, mais je ne sais pas s'il est mystérieusement invisible, ou si le Canvas a une taille nulle , ou ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
   // Création.   
   ImageCurseur := TImage.Create(Self as TOngletMusique);
   ImageCurseur.Parent := PanelMarge;
   ImageCurseur.Height := PanelMarge.Height;
   ImageCurseur.Width := 17;
   ImageCurseur.Align := alLeft;
   ImageCurseur.Picture.Bitmap.Height := ImageCurseur.Height;      // << j'ai rajouté ça au cas où, mais ça ne change rien.
   ImageCurseur.Picture.Bitmap.Width := ImageCurseur.Width;      // << j'ai rajouté ça au cas où, mais ça ne change rien.
   ImageCurseur.Canvas.Brush.Color := clWindow;
   ImageCurseur.Canvas.FillRect(Rect(0, 0, ImageCurseur.Width, ImageCurseur.Height));
   ImageCurseur.Canvas.Pen.Color := clBlue;
   ImageCurseur.Canvas.Font.Name := 'Arial';
   ImageCurseur.Canvas.Font.Color := clBlue;
   ImageCurseur.Canvas.Font.Size := 8;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
   // Utilisation.   
   ImageCurseur.Picture.Bitmap.Height := ImageCurseur.Height;      // << Je l'avais déjà ajouté, sans changement.
   ImageCurseur.Picture.Bitmap.Width := ImageCurseur.Width;      // << Je l'avais déjà ajouté, sans changement.
   ImageCurseur.Canvas.Brush.Color := clWindow;
   ImageCurseur.Canvas.FillRect(Rect(0, 0, ImageCurseur.Width, ImageCurseur.Height));
   ImageCurseur.Canvas.Brush.Color := clWhite;
   for i:=0 to Pred(_ListeLignes.Count) do
      ImageCurseur.Canvas.FillRect(Rect(0, ((i * HAUTEUR_PORTEE) + INIT_PORTEE - 3), ImageCurseur.Width, (i * HAUTEUR_PORTEE) + HAUTEUR_PORTEE - 3));
   ImageCurseur.Canvas.MoveTo(0, Y);
   ImageCurseur.Canvas.LineTo(ImageCurseur.Width, Y);
   ...

Je ne vois pas ce qui pourrait causer ce phénomène ...

[Paul TOTH]

panelMarge est créé dynamiquement par onglet également ? si tu lui colles un texte il apparaît bien ?