Discussion :

[winow]

Bonjour

Comment mettre la première lettre d'une cellule d'un stringgrid en majuscule.
pendant la frappe de la chaîne de caractère de cette cellule

Code :

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

StringGrid1.Cell[1,1] := ' Majuscule ' ;

j'ai recherché un début de solution sur le net mais rien n'y fait ?

merci

[winow]

j'ai fait ce code qui le fait mais est ce bien ?

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Length(StringGrid1.Cells[1,1])<=1 then 
    begin
       StringGrid1.Cells[1,1]:=upcase(StringGrid1.Cells[1,1]);
  end;
end;

[Roland Chastain]

Bonjour !

Je ferais plutôt comme ça :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: char);
begin
  with StringGrid1 do
  begin
    if (Cells[Col, Row] = '') and (Key in ['a'..'z']) then
      Key := UpCase(Key);
  end;
end;

[winow]

bonjour et merci Roland Chastain pour la réponse

le code va bien mais je suis obligé d’écrire deux fois le mot pour
qu'a la deuxième fois la première lettre du mot soit en majuscule ?

fois 1 = grenoble
fois 2 = Grenoble

je suis sous Linux Ubuntu

[Roland Chastain]

C'est curieux, chez moi (Lazarus 1.2.6, Windows 8) ça fonctionne parfaitement. Y aurait-il une différence de comportement entre Windows et Linux ? Ou bien d'une version de Lazarus à l'autre ?

Êtes-vous sûr d'avoir bien retranscrit le code que j'ai posté ? Remarquez bien que j'ai utilisé l'événement OnKeyPress (et non pas OnKeyUp) ?

[winow]

C'est curieux, chez moi (Lazarus 1.2.6, Windows 8) ça fonctionne parfaitement. Y aurait-il une différence de comportement entre Windows et Linux ? Ou bien d'une version de Lazarus à l'autre ?

Êtes-vous sûr d'avoir bien retranscrit le code que j'ai posté ? Remarquez bien que j'ai utilisé l'événement OnKeyPress (et non pas OnKeyUp) ?

oui, j'ai fait un copier/coller du code que tu ma donné que j'ai collé dans OnKeyPress du StringGrid

[Roland Chastain]

Je n'ai pas d'explication.

Voici une autre possibilité. Cette fois la modification se fait au moment où on valide le contenu de la cellule :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.StringGrid1EditingDone(Sender: TObject);
begin
  with StringGrid1 do
    Cells[Col, Row] :=
      UpCase(Copy(Cells[Col, Row], 1, 1)) +
      Copy(Cells[Col, Row], 2, Length(Cells[Col, Row]) - 1);
end;

[winow]

celui la fonctionne parfaitement sous Linux, je vais essayer de l'adapter a mon cas.
merci Roland Chastain

[tourlourou]

Bizarre !
Ce code met en majuscule dès la seconde frappe :

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
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: char);
var
  iCol, iRow: integer;
  Grid: TStringGrid;
  S: string;
begin
  Exit;
  Grid := Sender as TStringGrid;
  iCol := Grid.Col;
  iRow := Grid.Row;
  case Length(Grid.Cells[iCol, iRow]) of
   0 : Key := UpCase(Key);
   1 : begin
         S := Grid.Cells[iCol, iRow];
         Grid.Cells[iCol, iRow] := UpCase(S[1]);
       end;
  else Key := Key;
  end;
end;

On peut aussi utiliser le OnValidateEntry en fin de saisie, qui est déclenché aussi en cas de copier/coller.

[Roland Chastain]

Bonsoir tourlourou !

Merci pour le code. Je ne connaissais pas le coup du Sender as TStringGrid. Bien noté aussi ce que tu dis sur l'événement OnValidateEntry : ça peut servir.

Ce code met en majuscule dès la seconde frappe :

Chez moi, la majuscule apparaît dès la première frappe !

Au fait, tu as laissé traîner un Exit.

Et encore une chose, cette ligne, elle ne sert trop à rien, non ?

Code :

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

else Key := Key;

Encore qu'elle soit satisfaisante pour l'esprit.

[tourlourou]

Bonsoir Roland,

J'ai laissé traîner l'Exit pour avoir fait de nombreux tests afin de comprendre, sous Ubuntu.
Dès la première frappe sous Windows => cellule vide et reconnue comme telle, ce qui n'est pas le cas sous Ubuntu, puisque ne se produit qu'à la deuxième frappe !
Différence étonnante...

J'ai regardé ici et joué avec le OnKeyDown : pas mieux ; avec le texte du InplaceEditor : pas mieux, etc.

Le plus beau (ou énervant), c'est que si on récupère le contenu dans une chaîne locale, elle apparaît bien vide en débogage, mais ça ne fonctionne pas comme ça devrait... Comme si l'éditeur ne tenait pas compte du caractère modifié par l'événement OnKeyPress (vérifié dans le OnKeyDown en affectant une constante : au total, la saisie n'est pas faite : ni celle frappée, ni le caractère modifié !).

Bref, comportement attristant tant qu'on ne tient pas l'explication...

[winow]

merci Tourlourou

pareil pour moi, a la deuxième frappe la majuscule est prise en compte, bizarre quand même.

[winow]

j'ai modifié les option du stringgrid et avec le code de Tourlourou
maintenant la majuscule est prise en compte dès la première frappe.

par contre je sais pas laquelle car maintenant n'importe quoi que je fasse dans les options
pour voir ce qui a décoincé le truc, la saisie affiche direct la majuscule a la première frappe ???

mes options sont :
goAlwaysShowEditor, goAutoAddRows, goColMoving, goColSizing,
goEditing, goRowMoving, goSelectionActive, goTabs.

[ThWilliam]

Bonsoir,

et avec l'événement OnSetEditText, cela marche-t-il sous Linux ? du genre...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
var
  S: string;
begin
    if Length(Value) > 0 then
    begin
        S:= StringGrid1.Cells[ACol,ARow];
        S[1]:= UpCase(S[1]);
        StringGrid1.Cells[ACol,ARow]:= S;
    end;
end;

Cordialement
Thierry

Edit: pas vu le dernier message

[winow]

Bonsoir,

et avec l'événement OnSetEditText, cela marche-t-il sous Linux ? du genre...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
var
  S: string;
begin
    if Length(Value) > 0 then
    begin
        S:= StringGrid1.Cells[ACol,ARow];
        S[1]:= UpCase(S[1]);
        StringGrid1.Cells[ACol,ARow]:= S;
    end;
end;

Cordialement
Thierry

Edit: pas vu le dernier message

oui ca fonctionne mais le curseur est toujours placé un caractère avant le dernier caractère,
c'est a dire :
frappe 1 = D
frappe 2 = D.d
frappe 3 = Dd.d
frappe 4 = Ddd.d etc...
(le point représente le curseur de souris)

[Jipété]

Salut,

sous Linux ce code (ton premier) fonctionne très bien :

j'ai fait ce code qui le fait mais est-ce bien ?

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Length(StringGrid1.Cells[1,1])<=1 then 
    begin
       StringGrid1.Cells[1,1]:=upcase(StringGrid1.Cells[1,1]);
  end;
end;

Un peu optimisé :

Code :

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

1
2
3
4
5
6
procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with StringGrid1 do
    if Length(Cells[Col,Row]) = 1 then Cells[Col,Row] := upcase(Cells[Col,Row]);
end;

[Roland Chastain]

Sous Windows également, la version corrigée du code fonctionne bien.

[tourlourou]

Pas testé, mais ce qui n'est pas satisfaisant, c'est que le paramètre Key est en var, mais sans effet si on le change...

[winow]

Salut,

sous Linux ce code (ton premier) fonctionne très bien :


Un peu optimisé :

Code :

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

1
2
3
4
5
6
procedure TForm1.StringGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with StringGrid1 do
    if Length(Cells[Col,Row]) = 1 then Cells[Col,Row] := upcase(Cells[Col,Row]);
end;

Avec Ubuntu/Lazarus :
mon code ne met que la majuscule que sur la cellule 1,1
Ton code met la majuscule sur toutes les cellules avec ubuntu/lazarus.

[ThWilliam]

Bonsoir,

Je pense que la meilleure solution pour toi est de modifier le texte à la sortie de la cellule (comme Roland l'a d'ailleurs suggéré).
La solution avec KeyUp fonctionne mais à condition que la longueur du texte soit = 1.
Donc tu n'auras plus la première lettre en majuscule si :
- l'utilisateur repositionne le curseur au début pour modifier la première lettre.
- l'utilisateur fait un coller.

Teste ceci sous Linux.
Remarque : j'ai adapté la mise en majuscule convenant à l'UTF8 (L'unité LazUTF8 est à déclarer): la première lettre passera en majuscule même pour un caractère accentué.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.StringGrid1EditingDone(Sender: TObject);
var
  S: string;
begin
   with StringGrid1 do S:= Cells[Col, Row];
   if Length(S) > 0 then
   begin
       S:= UTF8UpperCase(UTF8LeftStr(S, 1)) + UTF8Copy(S, 2, Length(S));
       with StringGrid1 do Cells[Col, Row]:= S;
   end;
end;

Cordialement
Thierry