Discussion :

[chekkal]

Bonjour à tous,

J'ai un composant Tdbctrlgrid contenant des champs Tdbtext et Tdbedit et je voudrais gérer la couleur d'affichage des champs Tdbtext selon la valeur du champ correspondant. En effet, j'ai des champs qui peuvent avoir des valeurs positives ou négatives et selon la valeur je change la couleur.

[ShaiLeTroll]

Dans OnPaintPanel tu peux en profiter pour changer les couleurs des Controles.
Je l'ai fait il y a très longtemps, dans un projet récent j'ai juste changer la couleur de sélection en mode thème

[chekkal]

Bonjour,

le problème avec onpaintpanel c'est que il change toutes les couleurs des autres lignes(enregistrements).

[ShaiLeTroll]

C'est parce qu'il faut rétablir la couleur à chaque OnPaintPanel, mettre à clWindow ou clRed selon la situation via des fonctions de dessin (DrawRect par exemple) mais pas modifier les propriétés des contrôles
C'est valable si tu dessines dans le panel un indicateur pour montrer le négatif

Sinon, autant redéfinir le WMPaint du TDBEdit directement

[chekkal]

Bonjour,

Franchement j'ai pas compris votre réponse.

Sinon, autant redéfinir le WMPaint du TDBEdit directement

Il ya pas que Tdbedit, il ya aussi des Tlabel, dont la couleur de la font est relative à la valeur d'un champs donné.

[ShaiLeTroll]

Pour les TLabel, ils utilisent la couleur de fond du Panel, donc dessiner le fond durant OnPaintPanel semble opportun
En tout cas, cela fonctionnait dans un module (abandonné)

[ShaiLeTroll]

J'ai bricolé cela dans mon application à bordel,
Tu devrais t'en faire une pour ce genre d'essai isolé, il faut chercher, triturer, comme tu peux voir, il n'y a rien de compliqué

Code dfm :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
object btnFillDBCtrlGrid: TBitBtn
  Left = 32
  Top = 16
  Width = 75
  Height = 25
  Caption = 'Fill'
  TabOrder = 1
  OnClick = btnFillDBCtrlGridClick
end
object DBCtrlGridColor: TDBCtrlGrid
  Left = 0
  Top = 47
  Width = 414
  Height = 520
  Anchors = [akLeft, akTop, akBottom]
  DataSource = DataSourceCtrlGrid
  PanelHeight = 40
  PanelWidth = 397
  TabOrder = 0
  RowCount = 13
  OnPaintPanel = DBCtrlGridColorPaintPanel
  object lblCtrlGridValue: TLabel
    Left = 16
    Top = 16
    Width = 40
    Height = 13
    Caption = 'Valeur : '
  end
  object DBEditCtrlGridValue: TDBEdit
    Left = 62
    Top = 13
    Width = 107
    Height = 21
    DataField = 'VALUE'
    DataSource = DataSourceCtrlGrid
    TabOrder = 0
  end
end

Code dfm :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
object ClientDataSetCtrlGrid: TClientDataSet
  Aggregates = <>
  Params = <>
  Left = 140
  Top = 80
  object ClientDataSetCtrlGridVALUE: TIntegerField
    FieldName = 'VALUE'
  end
end
object DataSourceCtrlGrid: TDataSource
  DataSet = ClientDataSetCtrlGrid
  Left = 200
  Top = 120
end

Code :

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

1
2
3
  private
    FDBEditCtrlGridValueWindowProcOld: TWndMethod;
    procedure DBEditCtrlGridValueWindowProcNew(var Message: TMessage);

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
procedure TZooVCLControlExperimentForm.btnFillDBCtrlGridClick(Sender: TObject);
var
  I: Integer;
begin
  if not Assigned(FDBEditCtrlGridValueWindowProcOld) then
  begin
    FDBEditCtrlGridValueWindowProcOld := DBEditCtrlGridValue.WindowProc;
    DBEditCtrlGridValue.WindowProc := DBEditCtrlGridValueWindowProcNew;
  end;
 
  if not ClientDataSetCtrlGrid.Active then
    ClientDataSetCtrlGrid.CreateDataSet();
  for I := 0 to 9 do
  begin
    ClientDataSetCtrlGrid.Append();
    ClientDataSetCtrlGridVALUE.AsInteger := ClientDataSetCtrlGrid.RecordCount + 1;
    ClientDataSetCtrlGrid.Post();
  end;
end;
 
procedure TZooVCLControlExperimentForm.DBEditCtrlGridValueWindowProcNew(var Message: TMessage);
begin
  if Message.Msg = WM_PAINT then
  begin
    if ClientDataSetCtrlGridVALUE.AsInteger < 10 then
    begin
      if Odd(ClientDataSetCtrlGridVALUE.AsInteger) then
        DBEditCtrlGridValue.Color := clWindow
      else
        DBEditCtrlGridValue.Color := clWebLavenderBlush;
    end
    else
    begin
      if Odd(ClientDataSetCtrlGridVALUE.AsInteger) then
        DBEditCtrlGridValue.Color := clWebAliceBlue
      else
        DBEditCtrlGridValue.Color := clWebPeachPuff;
    end;
  end;
 
  FDBEditCtrlGridValueWindowProcOld(Message);
end;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TZooVCLControlExperimentForm.DBCtrlGridColorPaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);
var
  LRect: TRect;
  Brush: HBrush;
begin
  if Odd(ClientDataSetCtrlGridVALUE.AsInteger) then
  begin
    Brush := CreateSolidBrush(ColorToRGB(clMoneyGreen));
    try
      LRect := Rect(0, 0, DBCtrlGrid.PanelWidth, DBCtrlGrid.PanelHeight);
      FillRect(DBCtrlGrid.Canvas.Handle, LRect, Brush);
    finally
      DeleteObject(Brush);
    end;
  end;
end;

[chekkal]

Bonjour,
ça Marche merci.

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure Tform1.Mybtnwnd(var message:Tmessage);
begin
          If message.msg=WM_PAINT then
          begin
                       if pos('CLASSE',TABLECHAMP.asstring)>0 then dbtext1.font.color:=clred 
                       else  dbtext1.font.color:=clwhite;
          end;
end;