Discussion :

[bvsud]

Bonjour à tous

J'ai un TImage dans une form. Je ne sais plus comment faire pour régler la taille de l'image sur la form, ou l'inverse, de telle sorte que l'image remplisse la Form l'affichant. Sans cacher ce qu'il ne faut pas cacher (bouton RETOUR) par exemple.



Dans le fichier DFM, j'ai ceci :

Code :

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

1
2
3
4
5
6
7
8
 
  object Img_Photo_Form: TImage
    Left = 0
    Top = 0
    Width = 639
    Height = 392
    Align = alLeft
    ExplicitHeight = 389

Que faire ? Redimensionner la Form en fonction de la taille de l'image, sans doute ? Cette form doit afficher des images de tailles différentes, donc parfaitement aléatoires. Que dois-je calculer ?

Merci :hello:

[ShaiLeTroll]

TImage.Strech ?
Pour adapter la forme, TForm.AutoSize ?

[bvsud]

Bonjour

Je vérifie ça (autoSize de la form), et je donne le retour. Non, je n'avais pas spécifié Stretch

[gbegreg]

Bonjour,

Comme le dit ShaiLeTroll en mettant la propriété du TImage Strech à true mais également Align à alClient en laissant AutoSize à false.
Ton bouton Retour est il dans un TPanel ? Sinon, il faut placer un TPanel avec Align à AlBottom puis mettre le bouton Retour dans le panel.

Concernant le Stretch, cela permet d'étirer l'image dans toute la zone du TImage. Cependant, cela fait perdre les proportions largeur/hauteur de l'image et la manière de réaliser le "stretch" n'offre pas le meilleur aspect. Si tu utilises la VCL (je connais mieux que Firemonkey), je te conseillerai de charger ton image dans un TBitmap, de déterminer la meilleure orientation de l'image par rapport à la taille de la zone du TImage (=> si la largeur de l'image est > à la hauteur de l'image, alors il faudra afficher l'image en la retaillant pour que sa largeur corresponde à la largeur du TImage et calculer sa hauteur pour qu'elle reste proportionnelle à la nouvelle largeur. Si la hauteur de l'image est > à la largeur de l'image, il faudra afficher l'image en la retaillant pour que sa hauteur corresponde à la hauteur du TImage et calculer sa largeur pour qu'elle reste proportionnelle à la nouvelle hauteur).

De plus, pour améliorer le stretch, je te conseille d'utiliser les méthodes SetStretchBltMode puis StretchBlt fournies dans Windows.pas. Exemple :

Code :

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

1
2
3
 
SetStretchBltMode(image1.Canvas.Handle, HALFTONE);
StretchBlt(image1.Canvas.Handle, OrgX, OrgY, SizeX, SizeY, BMP.Canvas.Handle, 0, 0, BMP.Width, BMP.Height, srcCOPY);

où image1 est le TImage, BMP le TBitmap et les variables OrgX, OrgY, SizeX et SizeY sont les tailles calculées de l'image.

[gbegreg]

Ah et j'ai oublié, voici un site (un peu vieillot) que j'avais trouvé très intéressant sur le traitement d'image avec des exemples et sources pour Delphi : http://www.efg2.com/Lab/index.html

[bvsud]

Merci à vous :hello:

Ca marche.

@gbegreg : très bien, ce site. Et je vais mettre aussi l'alignement de l'image à alClient.

[foetus]

Moi j'ai utilisé ce bout de code en objective-C

On passe en paramètre une image (UIImage c'est un TImage), la largeur et la hauteur maximale (max_picture_width et max_picture_height)

Et dans le code, il y a un redimensionnement à 80% par rapport à la taille max pour faire des marges

Code c :

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
+ (void) resize_picture:(UIImage*) picture save_in:(UIImage**) resized_picture with_width:(float) max_picture_width and_height:(float) max_picture_height {
	if (picture == nil) { return; }
 
	RELEASE( (*resized_picture) );
 
	float new_width = 0.0f, new_height = 0.0f;
	float width  = (picture.size.width  * picture.scale);
	float height = (picture.size.height * picture.scale);
 
	float h_scale = 0.0f, w_scale = 0.0f;
 
	float max_width  = (float) (max_picture_width  * 0.8f);
	float max_height = (float) (max_picture_height * 0.8f);
 
	if ((width < max_width) && (height < max_height)) {
//		(*resized_picture) = [[UIImage alloc] initWithCGImage:picture.CGImage];
 
		if (width > height) {
			new_width = max_width;
			h_scale = (new_width / width);
			new_height = (height * h_scale);
		} else {
			new_height = max_height;
			w_scale = (new_height / height);
			new_width = (width * w_scale);
		}
	} else {
		w_scale = (float) (max_width  / width);
		h_scale = (float) (max_height / height);
 
		if (h_scale < w_scale) {
			new_width  = (h_scale * width);
			new_height = (h_scale * height);
		} else {
			new_width  = (w_scale * width);
			new_height = (w_scale * height);
		}
	}
 
	DLOG( (@"Utils::resize_picture - From (%f, %f) to (%f, %f) [%f]", width, height, new_width, new_height, picture.scale) )
 
	NSAutoreleasePool* imagePool = [[NSAutoreleasePool alloc] init];
 
	CGRect resizedRect = CGRectIntegral( CGRectMake(0, 0, new_width, new_height) );
	CGImageRef imageRef = picture.CGImage;
//	CGContextRef bitmap = CGBitmapContextCreate(nil, new_width, new_height, CGImageGetBitsPerComponent(imageRef),
//												0, CGImageGetColorSpace(imageRef), CGImageGetBitmapInfo(imageRef));
	CGContextRef bitmap = CGBitmapContextCreate(nil, new_width, new_height, 8, 0, CGImageGetColorSpace(imageRef), kCGImageAlphaPremultipliedLast);
 
	CGContextSetInterpolationQuality(bitmap, kCGInterpolationHigh);
	CGContextDrawImage(bitmap, resizedRect, imageRef);
	CGImageRef resizedImageRef = CGBitmapContextCreateImage(bitmap);
 
	(*resized_picture) = [[UIImage alloc] initWithCGImage:resizedImageRef];
 
	/* Clean up */
	CGContextRelease(bitmap);
	CGImageRelease(resizedImageRef);
 
	[imagePool release];
}