Discussion :

[Jipété]

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 :

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

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,
aec_128x96x72.bmp.txt
(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 !


à 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 :


à 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 :

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

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...

[tourlourou]

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) ?

[Jipété]

Bonsoir, Yves

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.

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...

[Andnotor]

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 :

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

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;

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

[Jipété]

Salutations, gentlemen,

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

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

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.

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.


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...

[Andnotor]

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)

[gvasseur58]

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) :



[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 . Une ligne comme celle-ci suffit pour déclencher une erreur à l'exécution :

Code :

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

W := shape1.Brush.Bitmap.Width;

Surtout, quelle étrange idée que de vouloir manipuler le Bitmap d'un composant qui sert à dessiner des formes . 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...