begin process at 2010 02 09 22:19:41
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Delphi

 > 

Archives

 > 

J'AI BESOIN D'AIDE !!!! :O

 > 

colonne d'un advstringgrid


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

colonne d'un advstringgrid

lundi 2 mai 2005 à 09:30:43 | colonne d'un advstringgrid

kalagool

Bonjour à toutes et a tous ,

En cette rentrée des classes une question vient à moi:

Est il possible de rendre certaines colonnes d'un advstringgrid invisible suivant l'état (checked=ture ou checked = false ) d'un checkbox?



Kalagool


lundi 2 mai 2005 à 10:45:11 | Re : colonne d'un advstringgrid

jmp77

Membre Club
Hello,

Alors je n'ai pas trouvé la commande pour masquer une colonne mais tu peux utliser la commande AdvStringGrid1.ColWidths[1] := 0 pour masquer ta colonne.

Exemple : Quand le CheckBox est décoché on masque la colonne 1

Procedure TForm1.CheckBox1Click(Sender : TObject);
begin

   If CheckBox1.Checked then
   begin

   AdvStringGrid1.ColWidths[1] := CheckBox1.Tag;
   end
   else
   begin

   CheckBox1.Tag := AdvStringGrid1.ColWidths[1];
   AdvStringGrid1.ColWidths[1] := 0;
   end;
end;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.
lundi 2 mai 2005 à 12:05:09 | Re : colonne d'un advstringgrid

kalagool



Je vois la technique seulement, cela ne marche pas car en realité j'ai 3 colones.
Si mon checkbox.checked
alors colone 2 a le withd:=0;
sinon colone1a le withd:=0;

mais je ne comprend pas à koi sert le .tag dasn ton exemple, c'est peut etre pour cela.....

tiens moi au courant SVP.....jmp77

kalagool



lundi 2 mai 2005 à 14:22:50 | Re : colonne d'un advstringgrid

jmp77

Membre Club
Re,

Le tag est une propriété incluse dans tous les composants et elle contient un integer. Par defaut au demarrage du prog elles valent toujours 0. Dans mon exemple plutot que de declarer une valeur globale TailleColonne j'ai utiliser le tag du composant checkbox c'est tout.

Alors nouvel exemple appliqué a ton cas :

Procedure TForm1.CheckBox1Click(Sender : TObject);

var
TailleCol : Integer;

begin

   If CheckBox1.Checked then
   begin

   {Affichage de la colonne 1}

      {Pour le premier passage car le tag vaut 0 au demarrage de l'appli}

      If CheckBox1.Tag = 0 then CheckBox1.Tag := TabEntriesDatas.ColWidths[1];

   TailleCol := TabEntriesDatas.ColWidths[2];
   TabEntriesDatas.ColWidths[1] := CheckBox1.Tag;
   TabEntriesDatas.ColWidths[2] := 0;

      {On sauvegarde la taille de la colonne dans le tag}
      If TailleCol > 0 then CheckBox1.Tag := TailleCol;
   end
   else
   begin

   {Affichage de la colonne 2}

      {Pour le premier passage car le tag vaut 0 au demarrage de l'appli}

      If CheckBox1.Tag = 0 then CheckBox1.Tag := TabEntriesDatas.ColWidths[2];

   TailleCol := TabEntriesDatas.ColWidths[1];
   TabEntriesDatas.ColWidths[1] := 0;
   TabEntriesDatas.ColWidths[2] := CheckBox1.Tag;

      {On sauvegarde la taille de la colonne dans le tag}
      If TailleCol > 0 then CheckBox1.Tag := TailleCol;
   end;

Sinon avec 2 variables globales :
TailleCol1,TailleCol2 : Integer;

Au demarrage de l'appli tu fais :
TailleCol1 := TabEntriesDatas.ColWidths[1];
TailleCol2 := TabEntriesDatas.ColWidths[2];

Puis dans l'evenement OnClick du checkBox :
Procedure TForm1.CheckBox1Click(Sender : TObject);
begin

   If CheckBox1.Checked then
   begin

   {Affichage de la colonne 1}
   TabEntriesDatas.ColWidths[1] := TailleCol1;
   TabEntriesDatas.ColWidths[2] := 0;
   end
   else
   begin

   {Affichage de la colonne 2}
   TabEntriesDatas.ColWidths[1] := 0;
   TabEntriesDatas.ColWidths[2] := TailleCol2;
   end;

Voila je te laisse choisir ta solution.

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.
lundi 2 mai 2005 à 15:13:48 | Re : colonne d'un advstringgrid

jmp77

Membre Club
Re,

C'est bon arretes tout j'ai trouvé la propriété pour masquer une colonne puis la faire apparaitre :

Procedure TForm1.CheckBox1Click(Sender : TObject);
begin

   If CheckBox1.Checked then
   begin

   {Affichage de la colonne 1}
   TabEntriesDatas.UnHideColumn(1);
   TabEntriesDatas.HideColumn(2);
   end
   else
   begin

   {Affichage de la colonne 2}
  
TabEntriesDatas.HideColumn(1);
   TabEntriesDatas.UnHideColumn(2);
   end;

Bonne prog,
JMP77.

N'oubliez pas de cliquer sur réponse acceptée.
lundi 2 mai 2005 à 15:25:13 | Merci

kalagool

Je te remercie Jmp77,

mais g reussit une methode qui foctionne bien grace a toi ...
mais je vais travailler son celle de ton dernier message.....

En plus mon stage en entreprise finit mercredi alors je vais arreter d'innonder le forum de question plus ou moins pertinente....

cordialment

Kalagool....




Cette discussion est classée dans : colonne, checked, advstringgrid


Répondre à ce message

Sujets en rapport avec ce message

Reconnaître un item dans une listbox ? [ par finipe ] Bonjour à tous !J'ai besoin d'aide je me trouve bloqué (à nouveau devrais-je dire...)J'expose mon problème : j'ai une listbox dans laquelle s'ajoute d Trier en cliquant sur le titre de la colonne on Grid [ par MasterJ ] Bonjour Programmeur(se) de Delphi,Je voudrais savoir s'il est possible de trier un TDBGrid seulement en cliquant sur le title de la column. Aussi, es Access / SQL / Delphi [ par minipod ] Salut et merci !En fait, j'ai 2 RichEdit sur ma forme. Dans ma table 'dico' (base access) j'ai 2 colonnes. Je voudrai rentrer un mot dans le RichEdit1 DBGrid Tri sur click [ par Enigme ] Question:Je clique sur le titre d'une colonne d'un dbgrid et je veux qu'il me tri les données de manières ascendante au premier click, descendante au savoir quelle colonne a été cliquée [ par kurt ] Voilà, j'aimerais faire qqc lorsque l'on clique sur le titre de ma colonne, en fonction de ce dernier, mais je ne sais pas comment récupérer le nom du savori si une colonne existe [ par vagabon ] Bonjour,Comment savoir si une colonne existe sur une table et la rajouter si elle n'existe pas ? Par exemple en cas d'évolution du modèle de données ? Comment ajuster la taille d'une colonne d'un DBLookupComboBox (MultiColonnes) [ par Antichoc ] Salut, j'utilise une DBLookupComboBox dans laquelle j'affiche 3 champs de m atable (nom, prénom, date de naissance).J'ai deux soucis :Le premier est q Centrer entete colonne [ par ktsld ] Bonjour,Pouvez-vous me dire comment faire pour centrer uniquement l'entete des colonnes dans un dbgrid.Merci. Deplacement de colonnes dans un TstringGrid [ par Suic1de ] Bonjour, je voudrais qu'on m'explique en details comment, avec un seul TstringGrid, deplacer le contenu d'un colonne vers un autre avec la souris.Pour ShellListView-->Ajouter des colonnes ? [ par NESTORORG ] NestorQuelqu'un pourrait-il me dire comment ajouter des colonnes à une shelllist view ?Je souhaiterai afficher le nom des fichiers (facile ca se fait


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,312 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales