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

[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

[Roland Chastain]

la première lettre passera en majuscule même pour un caractère accentué.

Excellente idée ! Testé avec succès ton code sous Windows.

[winow]

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

merci ThWilliam
j'ai testé ton code et :

1- j'ai bien rajouté l'unité LazUTF8 ( uses LazUTF8; )

2 -sous Ubuntu j'ai rajouté la fonction UTF8LeftStr qui n'a pas l'air
d'exister dans l'unité LazUTF8 sous Lazarus/Ubuntu

Code :

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

1
2
3
4
5
 
function Utf8LeftStr(const AText: String; const ACount: Integer): String;
begin
  Result := Utf8Copy(AText, 1, ACount);
end;

3- Ton code met bien la première lettre en majuscule mais si je clique dans une cellule
ca me met la majuscule sur tous les mots frappés avant.

.

[jurassic pork]

hello,
j'ai repris l'idée de ThWilliam d'utiliser l'événement SetEditText qui se déclenche à chaque changement de texte dans une cellule et effectivement j'ai constaté le problème de la position du curseur d'édition sous linux. Je semble avoir trouvé une solution bestiale (grouik !) : j'utilise l'éditeur de cellule de grille voici le code à essayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.StringGrid1SetEditText(Sender: TObject; ACol, ARow: Integer;
  const Value: string);
var
  S: string;
begin
    if Length(Value) > 0 then
    begin
        S:= Value;
        S:= UTF8UpperCase(UTF8LeftStr(S, 1)) + UTF8Copy(S, 2, Length(S));
       TStringCellEditor(TStringGrid(Sender).Editor).EditText := S;
    end;
end;

P.S : ça ne marche pas sous windows (le curseur d'édition se retrouve en 1ère position) remplacer dans ce cas

Code :

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

 TStringCellEditor(TStringGrid(Sender).Editor).EditText := S;

par

Code :

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

TStringGrid(Sender).Cells[ACol,ARow] := S;

Ami calmant J.P (pas T)