Options d'affichage de la StringGridRésolu

Question

Bonjour &#224; tous,

Pour pr&#233;senter des r&#233;sultats j'utilise une StringGrid, et je souhaiterais qu'elle soit la plus discr&#232;te, la plus int&#233;gr&#233;e possible au reste de la feuille. En particulier j'aimerais que la s&#233;lection de cellule ne soit pas possible, pour &#233;viter que la cellule s&#233;lectionn&#233;e s'affiche toujours en bleu. 
J'aimerais aussi interdire &#224; l'utilisateur de se "d&#233;placer" &#224; l'int&#233;rieur du tableau. C'est &#224; dire que j'ai enlev&#233; les scrolls mais il est toujours possible de se d&#233;placer en restant appuy&#233; sur la souris tout en la d&#233;pla&#231;ant.

D'avance merci pour vos r&#233;ponses ;)

cs_Delphiprog · Accepted Answer

Je propose la démarche suivante : 1er étape - Créer une méthode chargée de modifier la cellule sélectionnée. Cette méthode prendra un seul paramètre qui est une référence sur le contrôle grille. Pour que cette méthode soit utilisable le plus largement possible, nous lui passerons une référence sur un TCustomDrawGrid :

procedure TCalcul.HideGridSelection(Grid: TCustomDrawGrid);
var
  R: TGridRect;
begin
  R.TopLeft :=  TGridCoord(Point(-1, -1));
  R.BottomRight := TGridCoord(Point(-1, -1));
  Grid.Selection := R;
 end ;


2ème étape - Créons un squelette de procédure pour l'évènement OnDrawCell du composant grille et ajoutons y un appel à la méthode précédente :

procedure TCalcul.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
//Pour effacer la sélection même quand le contrôle perd le focus
  HideGridSelection(Sender as TStringGrid);
end;

Et hop, ça marche ! Elle est pas belle la vie ?

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient. <

cs_grandvizir · Answer

Options.Editing:=false;
TStringGrid.Enabled:=false;

Autant tout bloquer...

===========
Validez les r&#233;ponses si ok...

ViewVite : HTML

Jubilatthorr · Answer

Merci pour ta r&#233;ponse qui r&#232;gle en partie le probl&#232;me mais au d&#233;marrage la premi&#232;re cellule s'affiche toujours en bleu. Sais-tu comment &#233;viter cela?

cs_grandvizir · Answer

Form1.ActiveControl:=  nil ;

La s&#233;lection vient du fait que le composant fen&#234;tr&#233; est actif... pas actif donc pas de s&#233;lection. Rien ne t'emp&#234;che d'activer un composant de ton choix via la fonction SetFocus.

 =============
Validez les r&#233;ponses si ok...

ViewVite : HTML

Jubilatthorr · Answer

J'ai recopi&#233; ta ligne de code mais j'ai toujours une s&#233;lection en bleu :/
Voici le code:
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Form1.ActiveControl:=nil;
  Application.Run;
end.

Sais-tu s'il est possible de d&#233;sactiver ce seul composant (la TStringGrid) d&#232;s le d&#233;marrage, dans l'inspecteur d'objet par exemple?

Merci de ton aide

cs_grandvizir · Answer

Il ne faut pas coder le ActiveControl &#224; ce niveau. C'est dans l'inspecteur d'objet (F11) qu'il faut r&#233;gler une fois pour toute la focalisation de tel ou tel composant, de mani&#232;re &#224; ce qu'il ne puisse plus &#234;tre activ&#233; (avec Enabled=false). Mais avec Enabled, &#231;a risque de faire tout gris.

Ou alors, en g&#233;rant une interception WM_ActiveControl (un truc dans ce genre) ou un &#233;v&#232;nement OnEnter, tu rediriges la focalisation demand&#233;e. Ainsi, il n'est plus focus&#233;...

D&#233;sol&#233;, mais &#231;a risque de tourner en rond... Alors 

===========
ViewVite : HTML

Jubilatthorr · Answer

Merci Delphiprog!

C'est pas facile mais puissamment efficace! :)

Sait-tu s'il est possible d'appeler ta proc&#233;dure d&#232;s le chargement de la feuille? Le compilateur me r&#233;pond que HideGridSelection est une variable non d&#233;clar&#233;e:

begin


  HideGridSelection(StringGrid1 as TStringGrid);
end.

cs_Delphiprog · Answer

Si tu observes le code ci-dessus :

procedure TCalcul.HideGridSelection(Grid: TCustomDrawGrid);

Tu peux voir que la classe de la fiche se nomme TCalcul et que cette classe possède (au moins) une méthode nommée : HideGridSelection. Il te suffit donc de déclarer une procédure dans la section Public ou Private de la fiche (comme il te plaira) : TCalcul = class (TForm) //... private procedure HideGridSelection(AGrid: TCustomDrawGrid); end; Alors que le curseur est encore dans la déclaration de la classe TCalcul, tu appuies sur Shift+Ctrl+C et Delphi écrira tout seul le squelette de cette méthode. Il ne te reste plus qu'à reproduire le code indiqué. On peut aussi faire un clic droit et sélectionner "Compléter la classe sous le curseur". Note bien que si tu as déjà recopié le code donné dans le précédent post dans la partie implémentation, alors place ton curseur entre le begin et le end de la procédure et appuie également sur Shift+Ctrl+C. Delphi procédera ajoute alors en section Private la déclaration de ta procédure. Magique, non ? Ah, si on pouvait disposer du même confort sous C++Builder...

Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient. <

florenth · Answer

Salut &#224; tous,

Delphiprog, il est inutile de cr&#233;er un membre de classe pour cette
proc&#233;dure que tu nous a post&#233; puisqu'il n'y a aucune r&#233;f&#233;rence aux
objets de la classe TCalcul (dans ton exemple).



Sinon, ton histoire de Shift, Ctrl + C ne marque pas sur les versions personnelles de Delphi (aussi bien 6, 7, 8 que 2005).



@ ++

Florent

Si tu ne te plantes pas ......
tu ne poussera jamais

cs_Delphiprog · Answer

Florenth : tu as tout &#224; fait raison. Ce n'est pas n&#233;cessaire de cr&#233;er une m&#233;thode pour cela dans le cas pr&#233;sent. Mais &#231;a ne nuit pas non plus 

Je suis &#233;tonn&#233; que la combinaison de touches ne fonctionne pas avec Delphi &#233;dition perso. Quand tu fais un clic droit &#224; l'int&#233;rieur de la d&#233;claration d'une classe, vois-tu oui ou non le choix "Compl&#233;ter la classe sous le curseur" dans le menu contextuel ?


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
<

florenth · Answer

J'imagine bien que les clases ne nuisent pas. car .NET est con&#231;u
exclusivement l&#224;-dessus. (je ne programme pas en .NET mais comme D2005
est gratuit et qu'il le propose j'ai essay&#233;).



Non malheusement, je n'ai pas ce sous menu lorsque je clique droit.
Tout comme les options de refactoring tant convoit&#233;s de Delphi 2005 (et
qui semblent tr&#232;s pratiques).



 @ ++ Florent

cs_Delphiprog · Answer

Merci pour cette info. J'ignorais que l'&#233;dition perso ne poss&#233;dait pas cette option si pratique.


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
<

Options d'affichage de la StringGrid

12 réponses

Votre réponse

Discussions similaires