Discussion :

[Jipété]

Bonjour,

au début j'étudiais .../Lazarus/Version/examples/canvas_test et comme il y a aucune explication et que l'aide est anorexique, j'ai appliqué ma méthode : je réduis à l'essentiel (juste la fiche frmDraw), et je modifie des valeurs, une à la fois, pour voir où et comment ça agit, et j'en tire les conclusions qui vont bien.

Sauf que là, j'ai bien crû ma dernière heure arrivée, jusqu'à ce que je décide de tout reprendre à zéro pour juste bêtement dessiner un carré avec deux couleurs, et je vous laisse admirer le résultat un superbe trait noir non demandé, entre les deux zones colorées :


Moi, je m'attendais vraiment à ce qu'après avoir posé un grand bout rouge, la pose d'un grand bout jaune par-dessus le rouge le recouvre sans espace, mais non...

L'enregistrement du bmp (bmp.SaveToFile('chemin/fichier');) présentant le même défaut, j'en conclus que la blague doit se cacher dans la fonction Rectangle, sous Linux (1.4 -- oui, je sais) comme sous XP (1.8.2).

Utiliser ça LCLIntf.Rectangle(FHandle, X1, Y1, X2-1, Y2-1); dans canvas.inc ayant généré un trait noir à droite et un autre en bas, je teste avec LCLIntf.Rectangle(FHandle, X1+1, Y1+1, X2, Y2); mais là ça me met un trait noir à gauche et un autre en haut, mais dans les deux cas le trait entre les deux couleurs est présent.

La blague doit donc être bien cachée, quelque part dans le code des widgetsets...

Au fait, vous avez tous remarqué ces -1 dans mes appels à Canvas.Rectangle, c'est pour éliminer les traits noirs à gauche et en haut, qui apparaissent avec le classique Rectangle(0,0,x,y), et le fait de faire LCLIntf.Rectangle(FHandle, X1-1, Y1-1, X2, Y2); permet de revenir à 0,0, mais je vais conserver -1 dans l'IHM, je n'aime pas trifouiller dans les sources, car après, quand on travaille avec des codes venus d'ailleurs, si ça foire on ne sait plus pourquoi.


Dernière minute : j'arrive à m'affranchir de ce trait noir en passant par

Code :

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

1
2
3
4
5
  Bmp.Canvas.Pen.Color := clRed; // il semblerait que l'utilisation de .Pen à la place de .Brush
  // impacte le rendu de .Rectangle qui n'a plus besoin des -1
  Bmp.Canvas.Rectangle(0, 0, 149, 149); // 149 pour voir l'effet d'un débordement en bas et à droite --> pas d'effet
  Bmp.Canvas.Brush.Color := clYellow;
  Bmp.Canvas.FillRect(Rect(13, 0, 149, 149));

Il me reste à étudier et comprendre

Code :

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

1
2
Bmp.Canvas.Brush.Color := clBlue;
Bmp.Canvas.Pen.Width := 8;

rajoutés avant les 4 lignes ci-dessus, et dont voici l'action :


De ces mesures je déduis que Pen.Width dessine une bordure de Width div 2, comportement absolument pas documenté dans l'aide, mais confirmé par le fait que Pen.Height n'existe pas.

Anecdote : en jouant avec la complétion, j'ai découvert TJoinStyle et là, F1 c'est typique de l'aide dans le monde informatique :

The join style can be: Round, Bevel and Miter.
When style is Round then line joins are round.
When style is Bevel then line joins are beveled.
When style is Miter then line joins are mitered.

C'est tout.
Et bien sûr tout le monde sait ce qui se cache sous le mot Miter que je rencontre pour la première fois de ma vie...

[mm_71]

Et bien sûr tout le monde sait ce qui se cache sous le mot Miter que je rencontre pour la première fois de ma vie...

Miter: Guide ou point de contact.
Mitered: Assemblé ou taillé ou encore biseauté.
Ça doit déterminer la manière dont sont joints les différents rectangles ?

[Jipété]

Ça doit déterminer la manière dont sont joints les différents rectangles ?

Sans doute, mais j'ai bien noté ce point comme "anecdotique" et caractéristique de la qualité de l'aide dans le monde informatique, très proche du zéro absolu, vous en conviendrez.

Je ferai des tests quand j'aurai besoin d'assembler des morceaux de couleurs diverses et variées, déjà il y a du sport avec Canvas.BrushCopy fortement utilisé dans le projet d'exemple dont j'ai parlé et où là aussi l'aide est égale à elle-même, résultat il faut impérativement tester, tester et encore tester.

Bientôt un compte-rendu...

[M.Dlb]

Hello,

Je n'utilise pas Lazarus, mais mon expérience sous Delphi (qui doit être similaire) est qu'un rectangle a une couleur de remplissage (maitrisée par Brush) et une bordure (maitrisée par Pen). Si on veut un rectangle avec une bordure et un remplissage de même couleur, il faut positionner la même couleur pour Brush et Pen (ou éventuellement mettre Pen.Style à "clear" pour ne pas dessiner de bordure, mais à tester).

[Jipété]

Yop !

[...] (ou éventuellement mettre Pen.Style à "clear" pour ne pas dessiner de bordure, mais à tester).

Testé et validé !

Bon sang mais c'est bien sûr ! J'avais complètement zappé ce point, dans la mesure où j'étais dans un dossier d'exemple portant le nom canvas_test, je le rappelle, et que cet aspect primordial des choses dans la rubrique "Draw" a été complètement passé sous silence par les auteurs !

Plus besoin du FillRect :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  Bmp.Canvas.Pen.Style:=psClear; // M.Dlb /!\ /!\ /!\ +1 
  Bmp.Canvas.Brush.Color := clRed;
  Bmp.Canvas.Rectangle(0, 0, 150, 150); // test de débordement, sans action néfaste
  Bmp.Canvas.Brush.Color := clYellow;
  Bmp.Canvas.Rectangle(13, 0, 150, 150);// recouvre le rouge à partir de 13
  Bmp.Canvas.Brush.Color := clBlue;
  Bmp.Canvas.Rectangle(5, 10, 30, 20);
  Bmp.Canvas.Brush.Color := clMoneyGreen;
  Bmp.Canvas.Rectangle(25, 15,  3, 25); // rect commence à 25 et finit à  3 donc 21 d'occupation
  Bmp.Canvas.Rectangle(25, 30,  3, 35); // rect commence à 25 et finit à  3 donc 21 d'occupation
  Bmp.Canvas.Rectangle( 3, 40, 25, 45); // rect commence à  3 et finit à 25 donc 21 d'occupation
  Canvas.Draw(10,40, Bmp); Exit;

(très beaucoup zoomé, lol !)
C'était bien un problème d'utilisation erronée par lacune de documentation.

Soyons honnête : on en trouve un bout avec le bouton Show Pens Dialog. Je ne suis pas encore allé voir le code, je constate juste qu'il y a deux styles intéressants, psClear et psInsideFrame [EDIT : pas sous XP où la bordure est présente] qui pourraient faire le même boulot, regardez la colonne de gauche dans l'image ci-dessous, sauf que si j'utilise la seconde option avec le code ci-dessus je me retrouve avec une demi-bordure pour le grand bitmap et des bordures complètes pour les petits alors que sur l'exemple il n'y en a pas.


Et un truc trouant : Width à 0 ou à 1, Linux comme XP, a le même résultat,
Quant au Miter, on a l'explication. Tout ça aurait dû être intégré à l'aide sous forme d'images.

Encore un truc à étudier...

[Jipété]

[...] deux styles intéressants, psClear et psInsideFrame [EDIT : pas sous XP où la bordure est présente] qui pourraient faire le même boulot, regardez la colonne de gauche dans l'image ci-dessous, sauf que si j'utilise la seconde option avec le code ci-dessus je me retrouve avec une demi-bordure pour le grand bitmap et des bordures complètes pour les petits alors que sur l'exemple il n'y en a pas.

Pour régler ce problème de bordures non présentes sous Linux, il faut les faire afficher éviter qu'elles soient masquées :
dans pentest.pas,

Code :

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

1
2
3
4
    {$IFNDEF LINUX} // ! \
    MyBitmap.Canvas.Brush.Style := bsClear;
    {$ENDIF}        // ! \
    MyBitmap.Canvas.Pen.Color := clBlack;

Résultat :

C'est mieux, non ?

Et une précision à propos du nom de cette possibilité : InsideFrame en haut à gauche par-dessus le dessin, et OutsideFrame en bas à droite après le dessin s'il y a la place :


À noter que l'application de cette bordure est effectuée à chaque appel de dessin par Canvas.Rectangle(l,t,r,b), d'où le retour du trait vertical au début de la zone jaune,