Discussion :

[marsupilami34]

Bonjour,

Je réalise une application contenant un TStringGrid.
En fouillant dans le web, je n'ai malheureusement pas trouvé de propriété Multi select.

Du coup, ce que j'ai fait, c'est que j'ai créé un trabeau de boolean qui indique si la ligne doit etre soulignée ou non.

Par contre c'est là où je bloque.

J'ai testé avec le StringGrid1DrawCell, mais je n'arrive pas à ce que je veux.

Avec le code ci-dessous, j'ai tout mon stringgrid de couleur grise

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
22
23
24
25
26
 
procedure TFrmAffectationBoites.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var st:String;
      dx,dy:Integer;
      i:Integer;
begin
 
  with StringGrid1.Canvas do // Avec le canevas de ton stringgrid
 
  begin
    for i:= 0 to Length(bCellule)-1 do
    begin
      if bCellule[i]=true then
      begin
        Font.Color:=clwhite;
        Brush.Color:=clInfoBK;
      end
      else
      begin
        Font.Color:=clNavy;
        Brush.Color:=clSilver;
      end;
           FillRect(Rect);
     TextOut(Rect.Left+Dx,Rect.Top+Dy,St);
    end;

Quelq'un aurait-il la solution à mon probleme

Merci d'avance pour votre aide

Cdlt,

Marsup

[marsupilami34]

Je viens de tester ce code là

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
22
23
24
25
26
27
28
29
30
 
 
with StringGrid1.Canvas do // Avec le canevas de ton stringgrid
 
  begin
     st:=StringGrid1.Cells[Acol,ARow];
     dx:=(Rect.Right-(Rect.Left+TextExtent(St).Cx)) Div 2;       // Centrer Horizontalement le texte ds Rect
     dy:=(Rect.Bottom-(Rect.Top+TextExtent(St).Cy)) Div 2;   // Centrer Verticalement le texte ds Rect
     If ACol>0 then //  Les colonnes autres que la 1ere seront de couleur jaune et les textes Blues
     begin
        if ARow>0 then
        begin
           if bcellule[ARow]=true then
             begin
               Font.Color:=clWhite;  //Couleur du texte Bleue
               Brush.Color:=clNavy;  //Couleur de fond Jaune
             end
           else
           begin
               Font.Color:=clBlack;  //Couleur du texte Bleue
               Brush.Color:=clWhite;  //Couleur de fond Jaune
           end;
        end;
 
     end;
 
 
 
     FillRect(Rect);
     TextOut(Rect.Left+Dx,Rect.Top+Dy,St);

Le probleme c'est ca fonctionne pour la cellule cliquée et non sur la ligne entière :-(

[ShaiLeTroll]

Déjà peut-être commencé par ajouter goRowSelect aux options

Ensuite Selection est TGridRect et ne peut que gérer une sélection continue

Je te recommande un ajout de TCheckBox dessiné manuellement pour gérer une sélection discontinue


Si je retrouve ça, j'ai fait les deux méthodes de sélection sur un TStringGrid VCL, en Selection sous D3 et en TCheckBox en XE2

Voir : https://www.developpez.net/forums/d1...d/#post6026128

[SergioMaster]

Il n'est pas indiqué s'il s'agit de VCL ou FMX ?
Pour mes besoins, je l'ai fait en FMX
https://www.developpez.net/forums/bl...presse-papier/
il y a aussi quelques discussions dans le forum
https://www.developpez.net/forums/d2...mx-selections/

[Andnotor]

Le problème c'est ca fonctionne pour la cellule cliquée et non sur la ligne entière :-(

Il manque un StringGrid1.Invalidate après le clic.

Et pas besoin de calcul pour l'alignement du texte.

Code :

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

1
2
var s := StringGrid1.Cells[aCol,aRow];
StringGrid1.Canvas.TextRect(Rect, s, [tfSingleLine, tfCenter, tfVerticalCenter]);

[marsupilami34]

Bonjour et merci à tous.

J'arrive à mes fins effectivement en passant par le invalidate

Cdlt,

Marsup