Rectangle de sélection

Bonjour à toutes et à tous,

J'ai deux applications, la première, qui existe de puis longtemps et une nouvelle que je suis en train de mettre au point.

Dans chacune d'elles, le tracé d'un rectangle de sélection est diffèrent, voir image.Pièce jointe 379813
Sur la partie gauche, c'est mon application existante. On voit les pointillés noirs quand le fond est blanc et blancs quand le fond est noir.

Sur la partie droite, c'est dans mon application en cours. Quand le fond est blanc, le pointillé est à peine visible.

Pourtant :

• Même compilateur IDE 1.2.4 (je viens de recompiler mon application existante) dans les deux cas,
• les images sont celle placées dans un TImage lui même placé dans un TForm. Les TImage et TForm de chaque application ont les mêmes paramètres.
• Mêmes valeurs d'initialisation dans le mouseDown(...) :

Code:

---

1 2 3 4

Brush.Style:= bsClear; Pen.Style:= psDot; Pen.Mode:= pmNotXor; Pen.Color:= clBlack;

---

Voilà, si vous avez une idée de que ce j'ai pu zapper pendant qu'il me reste encore quelques cheveux.

Cordialement.

Pierre

Citation:

---

Envoyé par ChPr

Bonjour à toutes et à tous,

Code:

---

1 2 3 4

Brush.Style:= bsClear; Pen.Style:= psDot; Pen.Mode:= pmNotXor; Pen.Color:= clBlack;

---

Voilà, si vous avez une idée de que ce j'ai pu zapper pendant qu'il me reste encore quelques cheveux.

Cordialement.

Pierre

---

Bonjour Pierre

Bon courage si tu veux refaire ton logiciel de retouche d'image avec les TBitmap de Lazarus. En attendant que je sorte ma bibliothèque, je te conseil vivement de passer à BGRABitmap pour tout ce qui est graphisme avec Lazarus

Sinon pour ton problème lla 2ème couleur des mode Xor/NotXor... est liée à Brush.Color

Code:

---

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

// Remplissage du fond Image.Canvas.Pen.Color:=clBlack; Image.Canvas.Brush.Color := clWhite; Image.Canvas.Brush.Style := bsSolid; Image.Canvas.Rectangle(0,0,Image.Width,Image.Height); Image.Canvas.Pen.Color:=clRed; Image.Canvas.MoveTo(50, 50); Image.Canvas.LineTo(50, 150); Image.Canvas.LineTo(150, 150); Image.Canvas.LineTo(150, 50); Image.Canvas.LineTo(50, 50); {$IFDEF WINDOWS} Image.Canvas.Brush.Color := clGreen; Image.Canvas.FloodFill(55, 55, clWhite, fsSurface); {$ELSE} Image.Canvas.FloodFill(55, 55, clGreen); {$ENDIF} Image.Canvas.Brush.Color := clRed; Image.Canvas.Pen.Color:=clWhite; Image.Canvas.Pen.Mode := pmNotXor; Image.Canvas.Pen.Style := psDot; Image.Canvas.MoveTo(40, 40); Image.Canvas.LineTo(110, 40); Image.Canvas.LineTo(110, 110); Image.Canvas.LineTo(40, 110); Image.Canvas.LineTo(40, 40);

---

PS : cf : Nos dernières discussions avec Naute https://www.developpez.net/forums/d1...sion-expected/

Résultat sous Windows (car sous Linux cela risque d'être différent :aie:)

Pièce jointe 379825


PS : Des cheveux j'en ai déjà plus, le peu qu'il me restait je l' ai perdu avec le graphisme sous Lazarus :ptdr:

Jérôme

Citation:

---

Envoyé par BeanzMaster

... Bon courage si tu veux refaire ton logiciel de retouche d'image avec les TBitmap de Lazarus. ...

---

La version à laquelle je compare ce que je suis en train de créer, est une version faite avec Lazarus et qui, si mes souvenirs sont exacts, fonctionne correctement sous Linux ( sinon, pourquoi l'aurais-je faite !).

Citation:

---

Envoyé par BeanzMaster

... Sinon pour ton problème lla 2ème couleur des mode Xor/NotXor... est liée à Brush.Color ...

---

Je viens d'essayer avec différentes couleurs de Brush .. sans aucune action.

Par contre, je tiens peut-être une piste.

Il semble que la partie noire du rectangle de sélection soit liée à la source de l'image. En effet, si je charge une image à partir d'un fichier, tout se passe bien comme dans mon logiciel de traitement d'image. Par contre, si l'image vient d'une copie d'écran c'est là que ça ne va plus :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

function GetScreenshot: TBitmap; // fonction que tu m'as proposée et qui copie bien l'écran var screenDC: HDC; begin screenDC:= GetDC(0); try Result:= TBitmap.Create; Result.LoadFromDevice(screenDC); finally ReleaseDC(0, screenDC); end; end;   procedure TAffImg.FormShow(Sender: TObject); var Bmp: TBitmap; begin Bmp:= TBitmap.Create; Bmp.LoadFromFile('C:\Image_Test.bmp'); // avec cette ligne, ça fonctionne. Bmp.Assign(GetScreenshot); // avec celle-ci, ça ne fonctionne plus ! GetScreenShot.Free; ImgSrc.Picture.Assign(Bmp); Bmp.Free; end;

---

Que faut-il faire subir à la copie d'écran pour qu'lle se comporte comme une image enregistrée ?

Cordialement.

Pierre

Citation:

---

Envoyé par ChPr

... Que faut-il faire subir à la copie d'écran pour qu'elle se comporte comme une image enregistrée ? ...

---

Je me réponds. En fait, le bitmap issu de la copie d'écran est au format 32 bits. Dans mon application de traitement d'image, je me suis aperçu qu'au chargement d'un fichier, il imposait au bitmap un format 24 bit.

J'ai donc, au passage, transformé le format de ma copie d'écran en 24 bits ... et ça marche :)

Et sous Linux aussi :)

Cordialement.

Pierre

Bonjour

Citation:

---

Envoyé par ChPr

La version à laquelle je compare ce que je suis en train de créer, est une version faite avec Lazarus et qui, si mes souvenirs sont exacts, fonctionne correctement sous Linux ( sinon, pourquoi l'aurais-je faite !).

---

Heu :cristal:

Citation:

---

Envoyé par ChPr

Bonjour à toutes et à tous,

J'ai deux applications, la première, qui existe de puis longtemps et une nouvelle que je suis en train de mettre au point.

---

Ton application dont tu fais référence ici est écrite en Delphi :weird:

Citation:

---

Envoyé par ChPr

Je me réponds. En fait, le bitmap issu de la copie d'écran est au format 32 bits. Dans mon application de traitement d'image, je me suis aperçu qu'au chargement d'un fichier, il imposait au bitmap un format 24 bit.

J'ai donc, au passage, transformé le format de ma copie d'écran en 24 bits ... et ça marche :)

Et sous Linux aussi :)

---

Ne trouve tu pas dommage que de pouvoir travailler que sur des images 24 bits ? et de ne pas pouvoir prendre en charge la transparence ?

Bon dimanche

Citation:

---

Envoyé par BeanzMaster

... Ton application dont tu fais référence ici est écrite en Delphi :weird ...

---

Oui, c'est vrai, celle qui est sur mon site est écrite en Delphi, mais cela fait belle lurette que je l'ai transposée en Lazarus et c'est à cette dernière que je fais référence pour mes comparaisons.

Citation:

---

Envoyé par BeanzMaster

... Ne trouve tu pas dommage que de pouvoir travailler que sur des images 24 bits ? et de ne pas pouvoir prendre en charge la transparence ? ...

---

Tu as raison. mais je perds la visualisation de mon rectangle de sélection. C'est mineur, c'est vrai, mais faire une sélection sans voir ce qui est sélectionné !

Par ailleurs, de tous les logiciels que j'ai utilisés pour me faire des cartes, ils m'ont tous sorti des bmp 24 bits et il n'y a pas beaucoup (que je connaisse) de fichiers pour GPS qui utilisent la transparence (le *.kmz : oui, mais c'est très lent)

Mais je me mets ça sous le coude.

Cordialement.

Pierre