Comment trouver les contrôles dans un DBCtrlGrid

**Bruno75** · 20/03/2006, 15h37

ControlCount vaut toujours 1
ComponentCount vaut toujours 1

et à chaque fois c'est un DBCtrlPanel.

J'ai besoin d'accéder aux contrôles pour modifier la couleur de la police par exemple.

merci par avances

**LadyWasky** · 20/03/2006, 15h43

Si tu peux attendre demain, je t'envoie des composants (labels, panels) que j'ai créé pour mon boulot et qui te permettent une foultitude de choses au niveau des couleurs (police, fond) et destinés à être utilisés dans un DBCtrlGrid.

**Bruno75** · 20/03/2006, 15h45

je peux attendre demain. d'autant que je m'en resservirai dans le futur

**LadyWasky** · 20/03/2006, 17h16

Je te précise, que le "look" des composant est lui même orienté base de données. Donc la couleur de fond d'un TDBPanel sera déterminée par exemple par un champ enier de la base de données (d'une qui peut être un CalcField, de deux si aucun champ n'est spécifié, j'ai prévu une couleur par défaut...
Le fonctionnement est identique pour la couleur des polices de caractères.
Il y a même un compo spécial pour afficher (pas éditer, mais bon) des Champs "Mémo formatté" (donc RTF) dans le DBCtrlGrid (essayez de faire ça avec un TDBRichEdit standard...)

Voilà, voilà,
A demain

**Bruno75** · 20/03/2006, 18h05

pour plus de précisions. Imaginons que chaque ligne de mon DBCtrlGrid contienne un DBText. Je veux pouvoir donner une couleur différente pour chaque DBText.

Genre

Code :

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

1
2
3
4
5
 
Ligne1.DBText1.Color := clRed
Ligne2.DBText1.Color := clGreen
Ligne3.DBText1.Color := clBlue
...

**LadyWasky** · 20/03/2006, 22h42

Là c'est encore plus simple ! Tu déclares ceci par exemple, et hop

:

Code :

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

1
2
3
4
5
6
7
8
9
 
Const NbreCouleurs=3;
         Couleurs:array[0..NbreCouleurs-1] of TColor=(clRed,clGreen,clblue);
 
//Evènement OnPaintPanel
procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid;  Index: Integer);
begin
  DBText1.Font.Color:=Couleurs[Table1.RecNo mod NbreCouleurs];
end;