Première lettre d'une cellule d'un StringGrid en majuscule

Version imprimable

Voir 40 message(s) de cette discussion en une page

21/02/2015, 09h52
winow

Première lettre d'une cellule d'un StringGrid en majuscule

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:

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

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

merci

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

Code:

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;

Bonjour !

Je ferais plutôt comme ça :

Code:

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;

21/02/2015, 12h31
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
21/02/2015, 13h20
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 ? :roll:

Ê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) ?
21/02/2015, 13h35
winow

Citation:

Envoyé par 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 ? :roll:

Ê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 :(

Je n'ai pas d'explication. :roll:

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

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;

21/02/2015, 17h08
winow

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

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

Code:

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.

21/02/2015, 18h32
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.

Citation:

Envoyé par tourlourou

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:

else Key := Key;

Encore qu'elle soit satisfaisante pour l'esprit. ;)
21/02/2015, 19h00
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...
21/02/2015, 20h45
winow

merci Tourlourou

pareil pour moi, a la deuxième frappe la majuscule est prise en compte, bizarre quand même.
21/02/2015, 21h01
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.

Bonsoir,

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

Code:

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

Citation:
Envoyé par ThWilliam
Bonsoir,

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

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)

Salut,

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

Citation:

Envoyé par winow

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

Code:

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:

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;

22/02/2015, 07h50
Roland Chastain

Sous Windows également, la version corrigée du code fonctionne bien.
22/02/2015, 12h14
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...

Citation:
Envoyé par Jipété
Salut,

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

Un peu optimisé :
Code:

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.

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:

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

Voir 40 message(s) de cette discussion en une page