Discussion :

[XeGregory]

Bonjour,

J'ai un point d'un pixel qui clignote en haut à gauche quand je sélectionne une cellule.

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 TForm1.MyGridDrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (ActiveColor) and (VarToStr(Column.Field.Value) = 'Gregory' then
  begin
     TDBGrid(Sender).Canvas.Brush.Color := $008882FF;
     TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;
 
procedure TForm1.button1Click(Sender: TObject);
begin
   MyGrid.Options := [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTitleClick];
   ActiveColor := True;
   MyGrid.Refresh;
end;

Merci.

[XeGregory]

1: Je bloque le DBGrid, il n'a plus le focus.
2: J'actualise le DBGrid.
3: Je débloque le DBGrid.

c'est magique le point disparait , mais ça me dit pas pour quoi , Auriez vous une petite idée ?

Code :

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

1
2
3
MyGrid.Enabled := False;
MyGrid.Refresh;
MyGrid.Enabled := True;

Merci

[XeGregory]

Une petite question qui me tracasse, pourquoi le DBGrid ne se met pas à jour automatiquement (DrawColumnCell).

Merci

[XeGregory]

Je viens de remarquer que le point apparaît lorsque le DBGrid / TStringGrid n'a plus le focus, si je clique sur la MainMenu, le point apparaît en clignotant dans la cellule sélectionné.

Pourtant DBGrid / TStringGrid n'est pas en mode édition, le clignotement du point à la même cadence qu’un curseur qui clignote.



Merci.

[cantador]

Bonjour XeGregory,
merci de préciser tes OS et EDI.
@+

[cantador]

deux erreurs dans ton code :

il manque une parenthèse :

Code :

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

1
2
if (ActiveColor) and (VarToStr(Column.Field.Value) = 'Gregory') then

et l'option dgTitleClick n'existe pas du moins sous D7..
c'est pour cette raison, qu'il est important de préciser son environnement de développement.

avec ces corrections, ton code fonctionne correctement sans clignotement
@+

[ShaiLeTroll]

Avec la parenthèse, il compile surtout

Tu as le même problème avec un TDBGrid et un TStringGrid ?
Très étrange, ces deux grilles ont un comportement assez différent, on a rarement les mêmes problèmes sur les deux

Sinon, bien lourd le VarToStr, le AsString fait très bien le travail

Code :

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

1
2
3
4
5
  if ActiveColor and (Column.Field.AsString = 'Gregory') then
  begin
     TDBGrid(Sender).Canvas.Brush.Color := $008882FF;
     TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;

Sinon, j'évite le DefaultDrawColumnCell du DBGrid quand je veux redessiner une cellule colorée, il t'ajoute des éléments indésirables dans certains cas.

Code :

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

TDBGrid(Sender).DrawTextWithBackgroundColor($008882FF, Rect, Column, State);

DrawTextWithBackgroundColor n'existe pas dans un TDBGrid mais j'ai un class helper, j'ai fourni l'unité complète que je traine depuis D7 et que j'ai maintenu depuis presque une douzaine d'année au fil des versions.

Code :

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

1
2
3
4
5
6
7
8
9
 
  TDBGridSliteHelper = class helper for TDBGrid
  public
    ...
    procedure DrawCheckBox(const Rect: TRect; Checked: Boolean; AEnabled: Boolean = True; ABackgroundColor: TColor = clNone);
    procedure DrawEllipsisButton(const Rect: TRect; ABackgroundColor: TColor = clNone; AColumn: TColumn = nil; State: TGridDrawState = []);
    procedure DrawTextWithBackgroundColor(ABackgroundColor: TColor; const Rect: TRect; Column: TColumn; State: TGridDrawState);
    ...
  end;

Code :

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

1
2
3
4
5
6
7
8
9
10
//------------------------------------------------------------------------------
procedure TDBGridSliteHelper.DrawTextWithBackgroundColor(ABackgroundColor: TColor; const Rect: TRect; Column: TColumn; State: TGridDrawState);
begin
  with TDBGridSLTAssistant.Create(Self) do
  try
    DrawTextWithBackgroundColor(ABackgroundColor, Rect, Column, State);
  finally
    Free();
  end;
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
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
43
44
//------------------------------------------------------------------------------
procedure TDBGridSLTAssistant.DrawTextWithBackgroundColor(ABackgroundColor: TColor; const ARect: TRect; AColumn: TColumn; AState: TGridDrawState);
var
  vText: string;
  vRect: TRect;
begin
  with DBGrid.Canvas do
  begin
    //  Force un fond opaque pour cacher le texte !
    Brush.Style := bsSolid;
    Brush.Color := ColorToRGB(ABackgroundColor);
    FillRect(ARect);
 
    // TextRect encapsule DraxTextEx et est aussi pénible avec ses paramètres in-out !
    vRect := ARect;
    if Assigned(AColumn.Field) then
      vText := AColumn.Field.DisplayText;
    Font.Color := TCanvasSLTAssistant.GetConstratedColor(ABackgroundColor); // Couleur de luminosité inverse : Contraste garanti pour les couleurs claires ou foncées
 
    // Gestion de l'Alignment corrigé selon de Vcl.DBGrids.WriteText
    // DT_CENTER Centers text horizontally in the rectangle.
    // DT_VCENTER Centers text vertically. This value is used only with the DT_SINGLELINE value.
    if AColumn.Alignment = taLeftJustify then
      TextRect(vRect, vRect.Left + 3, vRect.Top + 2, vText)
    else if AColumn.Alignment = taCenter then
      TextRect(vRect, vText, [tfCenter, tfSingleLine, tfVerticalCenter])
    else
    begin
      vRect.Right := vRect.Right - 3;
      TextRect(vRect, vText, [tfRight, tfSingleLine, tfVerticalCenter]);
    end;
 
    if (gdRowSelected in AState) or ((dgRowSelect in DBGrid.Options) and (gdSelected in AState)) then
    begin
      // Pour ne pas dessiner les bords de focus entre les colonnes (inspiré des tricheries dans TCustomGrid.DrawCellHighlight)
      vRect := ARect;
      InflateRect(vRect, 1, 0);
      DrawFocusRect(vRect);
    end
    else
      if gdSelected in AState then
        DrawFocusRect(vRect);
  end;
end;

je me demande si ton petit carré n'est pas un rescapé du bords de focus

[cantador]

je glisse une solution avec le TcxGrid :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.cxGrid1DBTableView1CustomDrawCell(
  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
  if (ActiveColor) and (AviewInfo.Text = 'Gregory') then
    ACanvas.Brush.Color := $008882FF;
end;