Discussion :

[SergioMaster]

Trés satisfaisant jusqu'à présent , voilà que maintenant en voulant aller plus loin je bute sur deux problèmes avec cet excellent composant, j'aimerais savoir si l'un de vous à déjà eu, réglé ce problème .

Voulant essayé de changer la couleur d'une cellule selon sa valeur (truc Classique) j'ai utilisé l'evenement recommandé GetCellParam

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm.SMDBGrid1GetCellParam(Sender : TObject; Field : TField;
  AFont : TFont; var BackGround : TColor; Highlight : Boolean);
begin
if UpperCase(Field.FieldByname)='NUMERO' then
  begin
     if Table1.FieldByname('ETAT').asInteger=0 
       then BackGround:=clWhite
       else BackGround:= clLime;       
  end;  
end;

tout serait parfait si , lorsque la cellule est selectionnée et que ETAT = 0 je ne voie plus la valeur (blanc sur blanc = transparent )

Je me suis alors dit alors que ,plutôt que de changer les couleurs, j'allais mettre un glyphe dans la colonne de gauche(colonne indicateur) . Las , patatras même la demo du composant plante

s'agit-il d'un problème de version de Windows (je teste sous XP) ? de version du composant (j'ai téléchargé le dernier) ?

BREF , Qu'en dites vous ?

[Rayek]

Pour la couleur, tu peux faire à l'ancienne aussi dans le DrawColumnCell

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
 
procedure TfrmMain.SMDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  sText : String;
begin
With TSMDBGrid(Sender),canvas do
 begin
    sText := Column.Field.AsString;
 
    If not (gdSelected In State) then
    begin
      if DataSource.DataSet.FieldByname('ETAT').asInteger=0 then
      begin
        Brush.Color := clWhite;
        Font.Color := clBlack;
      end
      else begin
        Brush.Color := clLime;
        Font.Color := clBlack;
      end;
   end;
 
  TextRect(Rect,Rect.Left + 2,Rect.Top + 2,sText);
end;
end;

Pour la glyph, as tu pensé à activer l'option (oeShowGlyph dans ExOptions) et augmenter la taille WidthOfIndicator ?

PS: J'utilise une version plus ancienne (3.48)

[BRODU]

Bonjour,

J'avais trouvé une solution en ajoutant simplement la modification de la couleur AFont. Ma réponse est moins complète, mais fonctionne. Après, il faut adapter à tes besoins.

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 TForm.SMDBGrid1GetCellParam(Sender : TObject; Field : TField;
  AFont : TFont; var BackGround : TColor; Highlight : Boolean);
begin
if UpperCase(Field.FieldByname)='NUMERO' then
  begin
     if Table1.FieldByname('ETAT').asInteger=0 then 
     begin 
        BackGround:=clWhite;
        AFont.Color := clNavy;
     end else 
     begin
        BackGround:= clLime;       
        AFont.Color := clNavy;
     end;
  end;  
end;

Pour le Glyph, je n'ai pas vérifié.

Bon courage

[SergioMaster]

Pour la couleur, tu peux faire à l'ancienne aussi dans le DrawColumnCell

C'est que que j'ai fait , mais je voulais surtout savoir si le comportement était identique pour vous avec le GetCellParam

Pour la glyph, as tu pensé à activer l'option (oeShowGlyph dans ExOptions) et augmenter la taille WidthOfIndicator ?

le problème n'est pas qu'il ne s'affiche pas , mais que comme dans la demo cela plante aprés l'affichage de la première ligne.

@BRODU j'avais aussi penser à la couleur de la FONT mais là c'est plutôt savoir si la cellule etait selectionnée qui m'a bloqué (Highlight n'a pas été convainquant)

Je me demandais surtout s'il fallait le signaler a l'auteur

[EDIT]
finalement j'ai biaisé en utilisant GetCellParams et une instruction

Code :

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

if HighLight then AFont.Color:=clWindowText

ce qui fonctionne a peu près . Cependant je suis déçu je viens d'essayer sur un poste Vista, même chose pour les glyphes , Un Bug ?

(version Freeware SMComponent library v3.55)

[Rayek]

Mes applications tournent sur différent poste et je n'ai aucun problème avec les glyph.

Tu peux faire voir ton code d'implémentation des glyph ?

[SergioMaster]

Code :

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

1
2
3
4
5
6
procedure TForm.SMDBGrid1GetGlyph(Sender : TObject; var BitMap : TBitMap)
begin
if Table1.FieldByname('ETAT').asInteger=0 
  then  Bitmap:=Image1.Picture.Bitmap
  else   Bitmap:=Image2.Picture.Bitmap
end;

c'est pratiquement le code de la demo (griddemo.dpr dans le repertoire demos\smdbgrid ) , qui elle non plus ne fonctionne pas . Problème de version de DELPHI peut-etre (BDS2006) ?

je vais essayer avec D7 ....
[EDIT]
C'est fait , avec la même erreur ---> problème de version ? SMDBCompnt

[Rayek]

Il faut créer le bitmap sinon ça ne fonctionne pas

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm.SMDBGrid1GetGlyph(Sender : TObject; var BitMap : TBitMap)
begin
  Bitmap := TBitmap.Create;
 
if Table1.FieldByname('ETAT').asInteger=0 
  then   Bitmap.Assign(Image1.Picture.Bitmap)
  else    Bitmap.Assign(Image2.Picture.Bitmap);
end;

[SergioMaster]

t'es le meilleur après le beurre
je m'étais fié à la démo et je n'en démordais pas