TShape absolument pas compatible avec Delphi

Version imprimable

03/05/2017, 18h23
Jipété

2 pièce(s) jointe(s)

TShape absolument pas compatible avec Delphi
Bonjour bonjour,

aujourd'hui on continue, dans la série "Lazarus est une catastrophe de non-compatibilité"...

Est-ce lié à Linux ? Je n'en sais rien, j'ai même la flemme de faire les tests sous Windows, vous allez voir il y a tellement peu de code que ça fait peur et pourtant, la catastrophe graphique est inversement proportionnelle à la faible quantité de code.

Qu'on en juge : je suis bêtement parti de cette discussion Delphi, simple comme tout :
Code:

1 2 3 4 5 6 7 var image:TBitmap; begin image := TBitmap.Create; ImageList1.GetBitmap(0,image); Shape1.Brush.Bitmap:=image; end;
en me disant "tiens tiens, on peut mettre une image dans un TShape ? Testons donc", et voilà mon code qui, en fait, tient en une ligne si on fait abstraction du chargement du fichier .bmp :
Code:

1 2 3 if not Ouvrir.Execute then exit; image1.Picture.Bitmap.LoadFromFile(Ouvrir.FileName); shape1.Brush.Bitmap := image1.Picture.Bitmap;
Voilà le résultat : à droite image1, un TImage qui contient l'image du fichier .bmp, et à gauche un grand TShape qui commence à 24 left, 16 top (ne tenez pas compte des chiffres au-dessus) :
Pièce jointe 270910

Si je fais commencer le TShape à 0,0, la première image, celle d'en haut à gauche, est entière, puisqu'elle est plus petite (96 x 96) que le TShape (232 x 240).

La bonne question est : mais pourquoi le TShape se croit-il obligé de dupliquer l'image pour se remplir intégralement ? On dirait du Windows 3.1 en mode mosaïque !

Ensuite je me suis amusé à le redimensionner à 48 x 48 et à en faire trois copies, positionnées côte à côte et avec un léger décalage concernant la hauteur pour les deux derniers :
Code:

1 2 3 4 shape1.Brush.Bitmap := image1.Picture.Bitmap; shape2.Brush.Bitmap := image1.Picture.Bitmap; shape3.Brush.Bitmap := image1.Picture.Bitmap; shape4.Brush.Bitmap := image1.Picture.Bitmap;
Pièce jointe 270914

Je vous passe le test du TShape ayant la même taille que le fichier image, le résultat est le même : le TShape se comporte comme une "fenêtre" ouverte sur la fiche, celle-ci ayant été au préalable remplie en mode mosaïque avec l'image du fichier .bmp.

Alors bien sûr ce genre de gag on ne le détecte pas tout de suite, on se dit qu'on a glissé une erreur dans le code mais là, vu qu'il n'y a qu'une ligne, ça devient difficile...
03/05/2017, 18h58
Andnotor

Citation:

Envoyé par Jipété

La bonne question est : mais pourquoi le TShape se croit-il obligé de dupliquer l'image pour se remplir intégralement ?

La réponse simple serait : parce que tu le lui demandes ;)
La brosse est utilisée par l'OS pour le remplissage de la surface. Elle n'est pas faite pour uniquement "tamponner" à un endroit (il n'y a aucune notion de coordonnées dans l'assignation de la brosse).

Citation:

Envoyé par Jipété

le TShape se comporte comme une "fenêtre" ouverte sur la fiche, celle-ci ayant été au préalable remplie en mode mosaïque avec l'image du fichier .bmp.

C'est ça, la fenêtre n'a qu'un device context, le TShape facilite l'accès à une partie de ce DC.

On a déjà parlé de l'origine de la brosse ici. Tu peux cependant la déplacer par SetBrushOrgEx (Windows tout du moins).
03/05/2017, 19h07
Jipété

Merci pour ton retour.

Fouhhh, c'est pas bien de vieillir, je ne me souvenais absolument pas que j'avais déjà posté quelque chose sur ce sujet.

Écoute, puisque tu as des droits de modo, supprime celui-ci.
04/05/2017, 08h34
gvasseur58

Citation:

Envoyé par Jipété

Écoute, puisque tu as des droits de modo, supprime celui-ci.

Ce n'est peut-être pas nécessaire d'en arriver à cette extrémité, car la discussion pourra malgré tout intéresser quelqu'un rencontrant le problème avec TShape.
Je me permets une remarque tout de même : pourquoi vouloir absolument faire faire à un composant ce pour quoi il n'est pas fait ? :weird:. Comme son nom l'indique, TShape est conçu pour dessiner des formes. Qui plus est, il est spécialisé dans le dessin d'une série de formes prédéfinies de type TShapeType (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle, stSquaredDiamond, stDiamond). Alors, je pense qu'il ne faut a priori pas lui demander, même si un bout de code ancien traîne dans ce sens, de peindre quelque chose. Si tel est ton objectif, la meilleure des pratiques est de créer un descendant de la classe et non de rentrer en force dans la classe par une porte dérobée ;).
04/05/2017, 09h56
Jipété

1 pièce(s) jointe(s)
Salut, Gilles,

Citation:

Envoyé par gvasseur58

Je me permets une remarque tout de même : pourquoi vouloir absolument faire faire à un composant ce pour quoi il n'est pas fait ? :weird:.

C'est pas moi, m'sieur, c'est pas moi, c'est l'autre, dans le forum à côté :mrgreen:

Citation:

Envoyé par gvasseur58

Alors, je pense qu'il ne faut a priori pas lui demander, même si un bout de code ancien traîne dans ce sens, de peindre quelque chose.

Ah ben vi, un bout de code ancien des 26 et 27 mars... 2017 ! Même pas 2 mois !

Citation:

Envoyé par gvasseur58

Si tel est ton objectif, la meilleure des pratiques est de créer un descendant de la classe et non de rentrer en force dans la classe par une porte dérobée ;).

Bah nan, mon objectif était de voir si ces trois lignes en Delphi pouvaient être transposées en Lazarus, et pas plus.

Mais ce que je retiens de cette histoire, c'est que j'avais complètement zappé mon premier post sur ce sujet, remonté par Andnotor.
C'est grave, docteur ?
Faut dire aussi que l'autre fil m'a accaparé l'attention à 110 % et à 100 % du temps...

(et maintenant, j'essaye de comprendre comment et pourquoi un module de resampling utilisé par DoubleCmd travaille très bien avec des bitmaps chargés en amont par des images contenues dans des fichiers Jpeg et très mal avec des bitmaps chargés par des images contenues dans des fichiers Bitmap
:koi:
Allez, juste pour rire, et pour le plaisir de croiser Lena :
Pièce jointe 271115

à gauche un bout de l'original .bmp, 800x600, à droite après le resample à 80 % : vous avec noté les différences dans la zone grise en bas à droite ?
Mais pourquoi cette zone est impactée et pas le reste ?
Je vous fais grâce de la copie d'écran mais si je pars de la même source sauf que c'est un .jpg, les couleurs à droite sont parfaites : à y perdre le peu de latin qui me reste...

EDIT :
pour faire court et simple, pour générer cette image à droite, j'utilise Stretch(src, dst, ResampleFilters[5].Filter, ResampleFilters[5].Width); avec src et dst qui sont 2 TBitmap créés au début du clic sur le Button, src.LoadFromFile(fic.bmp);, rien que du classique, et je récupère les gris en vrac, comme on peut le voir.

J'ai tenté un truc de malade, de débile profond, deux instructions qui ne servent à rien, à première vue, et des fois ça paye :
Code:

1 2 3 4 5 6 7 var t: TLazIntfImage; begin ... t := src.CreateIntfImage; // ajout src.LoadFromIntfImage(t); // ajout Stretch(src, dst, ResampleFilters[5].Filter, ResampleFilters[5].Width);
et c'est tout bon !
Enfin, pour l'image avec Lena et les gris en vrac qui redeviennent sympathiques -- va falloir tester plus profond...
)