Discussion :

[Invité]

Bonjour,

Je travaille encore un peu sur les TStringGrids de Lazarus, histoire de voir ce que je peux améliorer au niveau de l'esthétique.

J'aimerais reproduire un effet d'image en arrière plan de ligne quand le pointeur de la souris la survole, par exemple un dégradé de couleur ou un effet de relief au "fond" de la ligne survolée.

Pour l'instant j'en suis là.

Sous Ubuntu 12.04, cela donne ceci en action : video.avi

J'ai intercepté des évènements (LM_MOUSEMOVE et LM_MOUSEWHEEL). Mettre une image dans une cellule : OK [cf la FixedCols ici]... Mais placer une image en fond de cellule et y "coller" dessus le texte que contient la cellule, malgré tous mes efforts, c'est l'échec complet. Est-ce faisable ? Peut-on régler les problèmes de transaparence sous Win et Nux ?

Vous remarquerez sur la vidéo le merveilleux rendu d'Ubuntu 12.04 avec la version de Lazarus de son dépôt (0.9.30.2-2) ... La StringGrid de droite avec ses jolis traits marrons est une TStringGrid d'origine ! Heureusement sous 10.04 ou Debian, avec une version SVN de Lazarus/FPC, c'est correct. Une différence cependant de comportement : sous Windows quand la souris quitte la StringGrid, le fond de la dernière ligne survolée disparaît alors que sous Nux, par défaut avec le même code, le fond reste affiché. Cela se corrige mais il faut tout vérifier.

Cordialement. Gilles

[mick605]

Salut

Je n'ai pas bien compris. Tu cherches a avoir ton texte sur l'image de fond ? Si c'est cela, au moment ou tu dessines ton image de fond avec Draw, fais également un DrawText par dessus.

J'avais travaillé également sur l'esthétique des StringGrid, va voir ici, j'avais rencontré quelques problèmes :
http://www.developpez.net/forums/d11...s-tcustomgrid/

Si ça t’intéresse, je peux te filer ce que j'ai commencé (et abandonné)

Bonne chance

[Invité]

Bonjour,

La première partie est réglée : le problème rencontré était le suivant :


Ici pour que cela soit visible : Canvas.Brush.Color := clGreen;

Code :

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

1
2
3
4
5
6
7
8
if (aCol >0 ) and (aRow >= FixedRows) and (arow = aRowSurvol) then begin
 { Dessin du fond }
 Canvas.Draw(aRect.Left+((aRect.Right-aRect.Left-Form1.Image2.Picture.Bitmap.Width) div 2),
   aRect.Top+((Arect.Bottom-aRect.Top-Form1.Image2.Picture.Bitmap.Height) div 2),Form1.Image2.Picture.Bitmap);
 { Texte }
 DrawText(Canvas.Handle, PChar(sTmp), Length(sTmp), aRect,
           DT_SINGLELINE or DT_VCENTER or DT_LEFT or DT_END_ELLIPSIS);
end;

La question était comment rendre le fond du Texte transparent ? Je cherchais "le Canvas.Brush.Color doit prendre quelle valeur ?" Dans mes rêves, j'aurais aimé qu'une commande Canvas.Brush.Color := clNone corresponde à ce que je cherchais... d'ailleurs je ne comprend pas ce clNone. Il correspond à quel cas qu'une couleur (éventuellement prédéfinie) ne pourrait pas remplacer ?

En réalité, il suffit de rajouter avant de dessiner le texte :

Code :

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

Canvas.Brush.style := bsClear;

Autre question en suspens : Quelle est la bonne méthode pour ajuster la largeur (pas la hauteur) du Bitmap à la taille de la cellule ?

1. Strech --> Non : le rendu est déplorable. De plus je ne veux pas calculer la taille du dessin dans chaque cellule... C'est beaucoup trop long. La fluidité du survol s'en ressent.
2. Créer une image pour chaque colonne par addition d'une bande verticale de 1 pixel (qui serait l'image par défaut) de manière à l'adapter à chaque ColWidth[]... avec une méthode en cas de déplacement ou redimensionnement de la colonne ? Le problème est qu'il faut créer un nombre important de TBitmap si la largeur des colonnes diffères. Une idée serait de créer le plus long (large) et de le découper à la bonne taille... Je dois avouer mes limites en matière de dessin. Je ne veux pas de bibliothèque sophistiquée. C'est jouable de manière simple cette approche ?

Cordialement. Gilles

[tourlourou]

Canvas.DrawRect (ou CopyRect ?) à partir d'un BitMap de largeur supérieure à la plus large colonne, mais ça oblige à connaître hauteur et largeur de la cellule...

[mick605]

Je ne comprends pas non plus le problème.

Pour ma part, j'utilisais un StretchDraw qui rendait très bien. Tout était fluide, le rendu donnait bien, donc tout allait bien.

Code :

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

Canvas.StretchDraw(CellRect(ACol, ARow), BmpSelect);

Ou BmpSelect était un bitmap contenant le dégradé, de largeur 1pixel, et d'une hauteur supérieure a la hauteur max d'une ligne.

Le résultat était très bien, très fluide, je m'en servais pour une surbrillance des cellules au survol de la souris. Je suis sous D2005 et Windows Seven. Regarde aussi du coté de DoubleBuffered.

Pour ta remarque, clNone est, je pense, une couleur définie par le système pour je ne sais quelle raison. Il ne s'agit pas d'une couleur de transparence, mais d'une vraie couleur donc.

[Invité]

Bonjour mick605,

J'ai lu la discussion à laquelle vous faites références. Je dois dire que cela ma dépasse complètement.

Ok j'ai adopté votre méthode. Le DrawStrech fonctionne effectivement bien pour l'allongement horizontal. Le résultat est moins satisfaisant pour l'étirement vertical, mais là, même en "découpant", je n'ai pas d'autre solution (sauf à mettre une image d'une hauteur très importante...). Enfin, ceci est moins important. En effet, cela semble rester fluide... J'essayerai avec un RowCount significatif.

Par contre je rencontre un autre problème que j'aurais aimé simplifier :
Code actuel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 if (aCol >0 ) and (aRow >= FixedRows) and (arow = aRowSurvol) then begin
   { Dessin du fond }
   Canvas.StretchDraw(CellRect(ACol, ARow), Form1.Image2.Picture.Bitmap);
   //Canvas.Draw(aRect.Left+((aRect.Right-aRect.Left-Form1.Image2.Picture.Bitmap.Width) div 2),
   //  aRect.Top+((Arect.Bottom-aRect.Top-Form1.Image2.Picture.Bitmap.Height) div 2),Form1.Image2.Picture.Bitmap);
 
    { Texte }
    Canvas.Brush.style := bsClear;    //Après l'image si usage de TextOut
 
    //Déplacement
    InflateRect(aRect, -3, 0);    {Décalage abscisse du texte}
    aRect.Right:= aRect.Right -3; {Nécessaire  pour centrage et align. droite}
    if  Columns[aCol-1].Alignment <> taCenter then
        DrawText(Canvas.Handle, PChar(sTmp), Length(sTmp), aRect,
          DT_SINGLELINE or DT_VCENTER or DT_LEFT or DT_END_ELLIPSIS)
    else
        DrawText(Canvas.Handle, PChar(sTmp), Length(sTmp), aRect,
          DT_SINGLELINE or DT_VCENTER or DT_CENTER or DT_END_ELLIPSIS)
 
   //Canvas.TextStyle -> Default TextStyle of TextRect not TextOut... donc
 end;

Résultat :


Il existe un décalage horizontal entre l'affichage par défaut et le Drawtext... Savez-vous à quelle variable implantée dans le code de Lazarus il correspond ?

Rq : valable également pour Canvas.TextOut(aRect.Left +3,aRect.Top +2,sTmp);
Mais avec TextOut il faut régler en plus le problème de l'ordonnée notammant pour le centrage vertical.

=> Donc pour l'instant adoption de DrawText qui me semble plus simple.

Cordialement. Gilles