Problème d'affectation de bitmap (:=) et compatibilité Delphi

Bonsoir,

Et oui, encore moi, encore avec un problème tordu !

Tout récemment je découvre sur le forum Delphi quelque chose que je ne connaissais pas, que j'ai voulu tester, et mal m'en a pris, qu'on en juge.

Code:

---

1 2 3 4 5 6 7

var image: TBitmap; begin image := TBitmap.Create; ImageList1.GetBitmap(0, image); Shape1.Brush.Bitmap := image; end;

---

source

C'est la dernière ligne qui m'a titillé les neurones : on peut assigner un TBitmap au Bitmap d'un TShape ? Ah ah !

Et je suis parti d'un TImage et d'un TShape posés sur une fiche, et d'un fichier 128x96x72dpi,
Pièce jointe 258321
(Ceux qui veulent tester récupèrent ce .txt et enlèvent cette extension [rajoutée pour tromper le filtre du forum], ils récupéreront le .bmp)
que j'ai chargé dans le TImage (image1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName); --> image parfaite) puis
shape1.Brush.Bitmap := image1.Picture.Bitmap; et là, catastrophe !
Pièce jointe 258325

à gauche le rendu du TImage, à droite le rendu du TShape, la barre noire est expliquée dessous.

Regardez l'image, très agrandie pour montrer les défauts :
Pièce jointe 258329

à gauche le bord droit du fichier dans le TImage pour bien montrer que le TShape perd un pixel en hauteur, en bas à droite la partie inférieure du même fichier et le TShape perd un pixel en largeur.
Et je ne parle pas du rendu des couleurs, bien en vrac dans le TShape.

Et on est bien d'accord que cette fois, il y a zéro code de mon fait :

Code:

---

1 2	image1.Picture.Bitmap.LoadFromFile(OpenDialog1.FileName); shape1.Brush.Bitmap := image1.Picture.Bitmap;

---

Elle est où, la blague, là ?
Sur quoi puis-je intervenir ?

Ah, un dernier mot :
à gauche Debian8 Laz 1.6.2, à droite XP SP2 Laz 1.6.0, le défaut n'est plus le même qu'avec Laz 1.4 (les couleurs ne sont pas en vrac de la même manière), mais bon, il y a bien un défaut...
Pièce jointe 258330

Bonjour JP,

Il est probablement plus question d'assigner le BitMap que de l'affecter, dans ce cas. Question de propriétés à adapter, sans doutes, dont probablement les fameuses questions de couleurs sur 3 ou 4 octets, dans l'ordre BGR ou RGB, etc.
Que donne un Shape1.Brush.Bitmap.Assign(image) ?

Bonsoir, Yves

Citation:

---

Envoyé par tourlourou

Que donne un Shape1.Brush.Bitmap.Assign(image1) ?

---

cannot assign a TImage to a TBitmap, et Shape1.Brush.Bitmap.Assign(image1.Picture.Bitmap); me donne Access Violation.

EDIT :
Mais ce bitmap du Shape1.Brush me semble bizarre : que je tente Shape1.Brush.Bitmap.PixelFormat := pf24bit; ou Shape1.Brush.Bitmap.SetSize(image1.Width,image1.Height); dans les 2 cas c'est Access Violation sur la ligne concernée. :koi:

Même un simple showmessage(inttostr(shape1.Brush.Bitmap.Width) +' '+ inttostr(shape1.Brush.Bitmap.Height)); se termine en Access Violation...

Ça ne doit pas être aussi simple que la ligne en Delphi le laissait supposer...

Pour éviter la bordure, il faut sans doute mettre la largeur du Pen à zéro.

Concernant le remplissage, et bien le résultat est... correct ;)
Ce qu'il faut savoir est que le point d'origine de la brosse est le coin supérieur gauche de la zone cliente de la fiche et non celui du TShape. En déplaçant la forme, tu constateras un remplissage différent.

Pour illustrer, à gauche la forme seule et à droite en appliquant la même brosse au Paint de la fiche :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm7.FormCreate(Sender: TObject); begin Bitmap := TBitmap.Create; Bitmap.LoadFromFile('D:\aec_128x96x72.bmp');   Shape1.Brush.Bitmap := Bitmap; end;   procedure TForm7.FormPaint(Sender: TObject); begin Canvas.Brush.Bitmap := Bitmap; Canvas.FillRect(ClientRect); end;

---

Pièce jointe 258440

Et en déplaçant la forme, toujours la même origine, le remplissage semble décalé :

Pièce jointe 258442

Bonjour Jipété,

Ah là là, dans quelle galère tu es allé te fourrer ;)...

Déjà, avec Delphi, on obtient aussi quelque chose de très vilain (pour l'excellente raison donnée par Andnotor) :

Pièce jointe 258447

[Delphi 10.2 - à gauche TImage, à droite TShape]

Ensuite, lors de la création de TShape, la brosse Brush est fixée à nil. Autant dire que tenter d'accéder au bitmap associé conduit à des erreurs :aie:. Une ligne comme celle-ci suffit pour déclencher une erreur à l'exécution :

Code:

---

W := shape1.Brush.Bitmap.Width;

---

Surtout, quelle étrange idée que de vouloir manipuler le Bitmap d'un composant qui sert à dessiner des formes :weird:. C'est tout ce qu'on lui demande et il le fait très bien, non ? Demande-t-on à un réfrigérateur de servir de chauffage ? Il chauffe, oui, mais c'est pour produire du froid, et il remplit bien cette tâche en temps normal... Vouloir faire dessiner directement à TShape des surfaces peintes selon un modèle de bitmap , sans dériver un composant enfant ou sans partir de TControlGraphic, est une idée que j'oublierais vite, mais bon, c'est un point de vue sans doute personnel...

Salutations, gentlemen,

Citation:

---

Envoyé par gvasseur58

Surtout, quelle étrange idée que de vouloir manipuler le Bitmap d'un composant qui sert à dessiner des formes :weird:.

---

C'est pas moi, m'sieur, c'est l'autre ! (comme expliqué hier, et j'ai cité ma source dénoncé le coupable :mouarf:)

Citation:

---

Envoyé par Andnotor

Pour éviter la bordure, il faut sans doute mettre la largeur du Pen à zéro.

---

Refusé par Lazarus, qui me repasse la propriété à 1. Ce que j'avais fait, c'est Style à psClear.

Citation:

---

Envoyé par Andnotor

Ce qu'il faut savoir est que le point d'origine de la brosse est le coin supérieur gauche de la zone cliente de la fiche et non celui du TShape. En déplaçant la forme, tu constateras un remplissage différent.

---

Bah non, d'ailleurs tu te contredis : si c'est lié à la zone cliente, n'importe où que soit la fiche, son origine sera toujours 0,0 par rapport à la fiche.
La preuve : en diagonale 3 positions différentes de la MainForm, et on voit bien que le TShape à droite est toujours rempli de la même manière.
Pièce jointe 258477

Alors j'ai changé mon fusil d'épaule et j'ai positionné le TShape en 0,0, justement (image dans l'angle en bas à gauche) et le TImage en bas à droite, et effectivement le rendu semble correct (je ne me suis pas penché sur la perte d'un pixel en hauteur et en largeur, pas le temps, là...)

Bon, Gilles a tout dit, il vaut mieux laisser tomber, bizarre que le post en Delphi n'ait pas soulevé plus de débats...

Citation:

---

Envoyé par Jipété

Bah non, d'ailleurs tu te contredis : si c'est lié à la zone cliente, n'importe où que soit la fiche, son origine sera toujours 0,0 par rapport à la fiche.

---

Pour une fois que je parlais français (forme = shape, fiche = form) :mrgreen:

Citation:

---

Envoyé par Andnotor

Pour une fois que je parlais français (forme = shape, fiche = form) :mrgreen:

---

Toutes mes excuses, j'ai effectivement traduit forme par form, ok ok, je mérite des baffes :P