Problème de déclaration

**juju1988** · 16/06/2011, 10h15

Bonjour à tous,

J'ai un petit problème de déclaration... Voilà j'ai un DBGrid qui m'affiche des cases à cocher soit cochées soit non cochées en fonction d'un paramètre... A la base j'avais mis cette procédure dans mon évènement double clic de mon DBGrid. Cependant suite à des traitements de modification j'aimerai pouvoir rappeler cette procédure pour rafraichir mon affichage je l'ai donc mise dans une nouvelle unité. Mais je n'arrive pas à utiliser ma variable imgCheck je ne sais pas ce que j'ai oublié de déclarer voici mon appel de fonction :

Code :

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

1
2
3
4
5
6
7
procedure TMainForm.DBGridScanDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin

AfficheCaseSav(Rect,Column, DBGridScan, DmImages, imgCheck)
...

Et voici mon unité où mon imgCheck est un identificateur non déclaré :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
unit UnitCaseCoche;

interface

Uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  OleCtrls,
  REMOTEPWCTRLLib_TLB,
  StdCtrls,
  ExtCtrls,
  ComCtrls,
  DBTables,
  Math,
  Menus,
  ScktComp,
  Oracle,
  DB,
  OracleData,
  ImgList,
  Grids,
  DBGrids,
  Buttons;

procedure AfficheCaseSav(const Rect: TRect; Column : TColumn; DBGridScan : TDBGrid; DmImages: TDataModule; imgCheck : TImageList);

implementation

uses
UnitMonDataModule;


procedure AfficheCaseSav(const Rect: TRect; Column : TColumn; DBGridScan : TDBGrid; DmImages:TDataModule; imgCheck : TImageList);
begin
if sameText(Column.FieldName, 'SAV') then
  begin
  { On efface la cellule }
  DBGridScan.Canvas.FillRect(Rect);
  { Si Cochée}
  if DBGridScan.Fields[3].AsString = '0' then
  begin
    DmImages.imgCheck.Draw(DBGridScan.Canvas,
    rect.Left + ((rect.Right - rect.Left - DmImages.imgCheck.Width) div 2),
    rect.Top,
    1);
  end
  { sinon pas coché }
  else
  begin
    DmImages.imgCheck.Draw(DBGridScan.Canvas,
    rect.Left + ((rect.Right - rect.Left - DmImages.imgCheck.Width) div 2),
    rect.Top,
    0);
  end;
end
{ si column ne correspond pas à une case à cocher, }
{ on ne s'occupe pas du dessin de la cellule, on }
{ transmet donc à DefaultDrawColumnCell }
else
begin
  DBGridScan.DefaultDrawColumnCell(rect, datacol, column, state);
end;


end.

Sachant que mon imgCheck est déclarée dans un data module que voici :

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
unit UnitMonDataModule;

interface

uses
  SysUtils, Classes, ImgList, Controls;

type
  TDmImages = class(TDataModule)
    imgCheck: TImageList;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  DmImages: TDmImages;

implementation

{$R *.dfm}

end.

SVP qu'ai-je pu oublier ??

Merci d'avance

**Rayek** · 16/06/2011, 10h34

1- Très mais très mauvaise idée d'avoir une variable "globale" et une variable de fonction qui ont le même nom. Ne serait ce que pour la personne qui pourrait passer derrière.

2-

Code :

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

1
2
 
AfficheCaseSav(Rect,Column, DBGridScan, DmImages, DmImages.imgCheck)

[edit]
Et, en regardant ton code, en fait, elle ne sert strictement à rien ta variable de procédure ImgCheck, vu que tu fais appels tout le temps à
DmImages.imgCheck

**juju1988** · 16/06/2011, 10h38

Tu veux dire changer el nom de mes variables dans ma nouvelle unité dans la déclaration de ma procédure c'est ça ?

Ok pour l'appel de la procédure et je les déclare comment dans ma procédure ? :

Code :

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

procedure AfficheCaseSav(const Rect: TRect; Column : TColumn; DBGridScan : TDBGrid; DmImages.imgCheck: TDataModule);

Est ce qu'il n'existerait pas sinon une sorte de ExecuteTraitement(DBGrid.DblClick...) ???

**Rayek** · 16/06/2011, 10h51

Envoyé par juju1988

Tu veux dire changer el nom de mes variables dans ma nouvelle unité dans la déclaration de ma procédure c'est ça ?

En général on évite d'avoir des noms identiques ça évite la confusion

Ex:

Code :

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

1
2
 
procedure AfficheCaseSav(const ARect: TRect; AColumn : TColumn; ADBGridScan : TDBGrid; ADmImages:TDataModule; AimgCheck : TImageList);

Envoyé par juju1988

Ok pour l'appel de la procédure et je les déclare comment dans ma procédure ? :

Code :

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

procedure AfficheCaseSav(const Rect: TRect; Column : TColumn; DBGridScan : TDBGrid; DmImages.imgCheck: TDataModule);

En fait, tu as beaucoup de chose inutile dans ta procédure

soit tu veux du générique et donc passer le DM ne sert plus à rien

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
proocedure AfficheCaseSav(const ARect: TRect; AColumn : TColumn; ADBGridScan : TDBGrid; AimgCheck : TImageList);
begin
if sameText(AColumn.FieldName, 'SAV') then
  begin
  { On efface la cellule }
  ADBGridScan.Canvas.FillRect(Rect);
  { Si Cochée}
  if ADBGridScan.Fields[3].AsString = '0' then
  begin
    AimgCheck.Draw(ADBGridScan.Canvas,
    Arect.Left + ((Arect.Right - Arect.Left - AimgCheck.Width) div 2),
    Arect.Top,
    1);
  end
  { sinon pas coché }
  else
  begin
    AimgCheck.Draw(ADBGridScan.Canvas,
    Arect.Left + ((Arect.Right - Arect.Left - AimgCheck.Width) div 2),
    Arect.Top,
    0);
  end;
end
{ si column ne correspond pas à une case à cocher, }
{ on ne s'occupe pas du dessin de la cellule, on }
{ transmet donc à DefaultDrawColumnCell }
else
begin
  ADBGridScan.DefaultDrawColumnCell(Arect, datacol, Acolumn, state);
end;

Soit tu n'as pas besoin d'être générique et l'utilisation du paramètres ImgCheck ne sert à rien

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
procedure AfficheCaseSav(const Rect: TRect; Column : TColumn; DBGridScan : TDBGrid; DmImages:TDataModule);
begin
if sameText(Column.FieldName, 'SAV') then
  begin
  { On efface la cellule }
  DBGridScan.Canvas.FillRect(Rect);
  { Si Cochée}
  if DBGridScan.Fields[3].AsString = '0' then
  begin
    DmImages.imgCheck.Draw(DBGridScan.Canvas,
    rect.Left + ((rect.Right - rect.Left - DmImages.imgCheck.Width) div 2),
    rect.Top,
    1);
  end
  { sinon pas coché }
  else
  begin
    DmImages.imgCheck.Draw(DBGridScan.Canvas,
    rect.Left + ((rect.Right - rect.Left - DmImages.imgCheck.Width) div 2),
    rect.Top,
    0);
  end;
end
{ si column ne correspond pas à une case à cocher, }
{ on ne s'occupe pas du dessin de la cellule, on }
{ transmet donc à DefaultDrawColumnCell }
else
begin
  DBGridScan.DefaultDrawColumnCell(rect, datacol, column, state);
end;

Envoyé par juju1988

Est ce qu'il n'existerait pas sinon une sorte de ExecuteTraitement(DBGrid.DblClick...) ???

Si, il te suffit d'appeler directement la fonction DbGridDblClick(...[Remplir les paramètres] ...) directement

**juju1988** · 16/06/2011, 11h09

C'est bon j'ai tout repris bien comme il faut et normalement c'est nickel en tout cas le code passe

Merci pour ton aide.

Voici le code :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
unit UnitCaseCoche;
 
interface
 
Uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  OleCtrls,
  REMOTEPWCTRLLib_TLB,
  StdCtrls,
  ExtCtrls,
  ComCtrls,
  DBTables,
  Math,
  Menus,
  ScktComp,
  Oracle,
  DB,
  OracleData,
  ImgList,
  Grids,
  DBGrids,
  Buttons;
 
procedure AfficheCaseSav(const Rectangle: TRect; maCol : TColumn; monDB : TDBGrid; monJeuDImages : TImageList; colData : Integer; monEtat : TGridDrawState);
 
implementation
 
uses
UnitMonDataModule;
 
 
 
procedure AfficheCaseSav(const Rectangle: TRect; maCol : TColumn; monDB : TDBGrid; monJeuDImages : TImageList; colData : Integer; monEtat : TGridDrawState);
begin
if sameText(maCol.FieldName, 'SAV') then
  begin
  { On efface la cellule }
  monDB.Canvas.FillRect(Rectangle);
  { Si Cochée}
    if monDB.Fields[3].AsString = '0' then
      begin
      monJeuDImages.Draw(monDB.Canvas,
      Rectangle.Left + ((Rectangle.Right - Rectangle.Left - monJeuDImages.Width) div 2),
      Rectangle.Top,
      1);
      end
      { sinon pas coché }
    else
      begin
      monJeuDImages.Draw(monDB.Canvas,
      Rectangle.Left + ((Rectangle.Right - Rectangle.Left - monJeuDImages.Width) div 2),
      Rectangle.Top,
      0);
    end;
  end
  { si column ne correspond pas à une case à cocher, }
  { on ne s'occupe pas du dessin de la cellule, on }
  { transmet donc à DefaultDrawColumnCell }
else
  begin
    monDB.DefaultDrawColumnCell(Rectangle, colData, maCol, monEtat);
  end;
end;
end.

**ShaiLeTroll** · 16/06/2011, 11h19

Quelques propositions de Reduction du code

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
 
procedure AfficheCaseSav(const Rectangle: TRect; maCol : TColumn; monDB : TDBGrid; monJeuDImages : TImageList; colData : Integer; monEtat : TGridDrawState);
begin
  if sameText(maCol.FieldName, 'SAV') then
  begin
    { On efface la cellule }
    ADBGrid.Canvas.FillRect(Rectangle);
    { Cochée ou Pas ?}
    monJeuDImages.Draw(monDB.Canvas,
      Rectangle.Left + ((Rectangle.Right - Rectangle.Left - monJeuDImages.Width) div 2),
      Rectangle.Top,
      Ord(monDB.Fields[3].AsString = '0')
    );
  end
  { si column ne correspond pas à une case à cocher, }
  { on ne s'occupe pas du dessin de la cellule, on }
  { transmet donc à DefaultDrawColumnCell }
  else
  begin
    monDB.DefaultDrawColumnCell(Rectangle, colData, maCol, monEtat);
  end;
end;

note l'utilisation de Ord, pour éviter la duplication de code, Ord(True) = 1 et Ord(False) = 0
tu peux aussi replacer

Code :

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

Ord(monDB.Fields[3].AsString = '0')

par

Code :

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

IfThen(monDB.Fields[3].AsString = '0', 1, 0)

Enfin pour dessiner des cases à cocher, tu n'as même pas besoin d'avoir une ImageList, un DrawFrameControl suffit

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
 
procedure AfficheCaseSav(const Rectangle: TRect; maCol : TColumn; monDB : TDBGrid; colData : Integer; monEtat : TGridDrawState);
var
  FrameRect: TRect;
begin
  if sameText(maCol.FieldName, 'SAV') then
  begin
    { On efface la cellule }
    monDB.Canvas.FillRect(Rectangle);
    { Centrage }
    FrameRect.Left := Rectangle.Right - Rect.Left - 13) div 2;
    FrameRect.Top := Rectangle.Bottom - Rect.Top - 13) div 2;
    FrameRect.Right := FrameRect.Left + 13;
    FrameRect.Bottom := FrameRect.Top + 13;
    { Cochée ou Pas ?}
    if monDB.Fields[3].AsString = '0' then
      DrawFrameControl(monDB.Canvas.Handle, FrameRect, DFC_BUTTON,
        DFCS_BUTTONCHECK or DFCS_CHECKED)
    else
      DrawFrameControl(monDB.Canvas.Handle, FrameRect, DFC_BUTTON,
        DFCS_BUTTONCHECK);
  end
  { si column ne correspond pas à une case à cocher, }
  { on ne s'occupe pas du dessin de la cellule, on }
  { transmet donc à DefaultDrawColumnCell }
  else
  begin
    monDB.DefaultDrawColumnCell(Rectangle, colData, maCol, monEtat);
  end;
end;

**juju1988** · 16/06/2011, 11h27

Super Shai pour la réduction de code c'est nickel !!
Tu crois qu'il vaut mieux que je passe par le DrawFrameControl ? Parce que du coup le code est plus long non ?

**ShaiLeTroll** · 16/06/2011, 11h29

Si tu utilises des images avec un design particulier, reste en ImageList
Si tes images ne sont ni plus ni moins que l'aspect d'une CheckBox, autant utiliser DrawFrameControl qui dessinera la CheckBox en fonction du Theme 2K, XP ou Vista

**juju1988** · 16/06/2011, 11h31

Ce sont des images .bmp une cochée et une décochée rien de plus. Ok je regarderai le Frame alors

Merci

**juju1988** · 16/06/2011, 11h38

J'ai encore une question je ne pense pas être dans la bonne démarche. Je veux donc appeler ma procédure AfficheCaseCoche pour mettre à jour mon DBGrid après une mise à jour cependant cela veut dire qu'il faut sans cesse que je déclare les variables donc a besoin ma procédure comme Column, Rect... je ne trouve pas ça correct si on peut dire. Ma démarche n'est peut être pas la bonne... Comment puis-je faire ?

Voici mon code où j'appelle la procédure :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
// Ajout ou Modif d'un SAV pour un scan donné
procedure TFrmAjoutSAV.btnOkClick(Sender: TObject);
var
  nomDuScan : String;
  nextval : integer;
  Rect : TRect;
  Column : TColumn;
  DataCol : Integer;
  state : TGridDrawState;
begin
nomDuScan := '';
nomDuScan := lblNomScan.Caption;
//nextval := RechercheValSuivante(oqRechercheNextVal);

//Ajout d'un SAV
if typeModif = 'Ajout' then
  begin
  oqAjoutSav.Close;
  oqAjoutSav.SQL.Clear;                                                                                             // SEQ_NUMSUIVI permet de récupérer le numéro de suivi suivant relatif à la table SUIVISAV
                                                                                                                   // mais possible grâce à une séquence Oracle SEQ_NUMSUIVI qui s'auto-incrémente
  oqAjoutSav.SQL.Add('INSERT INTO suivisav (numsuivi, numrma, datedepart, dateretour, nomscan, commentaire) VALUES (SEQ_NUMSUIVI.NEXTVAL, :numerorma, :datededepart, :datederetour, :lenomscan, :com)');
  //oqAjoutSav.DeclareAndSet('numerosuivi', otInteger, nextval);
  oqAjoutSav.DeclareAndSet('numerorma', otString, zsNumRma.Text);
  oqAjoutSav.DeclareAndSet('datededepart', otString, zsDateDep.Text);
  oqAjoutSav.DeclareAndSet('datederetour', otString, zsDateRetour.Text);
  oqAjoutSav.DeclareAndSet('lenomscan', otString, nomDuScan);
  oqAjoutSav.DeclareAndSet('com', otString, zsCommentaires.Text);
  oqAjoutSav.Execute;
  oqAjoutSav.Session.Commit;


  FrmHistoSav.OracleDataSetHisto.Close;
  FrmHistoSav.OracleDataSetHisto.SQL.Clear;
  FrmHistoSav.OracleDataSetHisto.SQL.Text := 'SELECT numsuivi, nomscan, numrma, datedepart, dateretour, commentaire FROM suivisav WHERE nomscan = :nomduscan';
  FrmHistoSav.OracleDataSetHisto.DeclareAndSet('nomduscan', otString, nomDuScan);
  FrmHistoSav.DataSourceHisto.DataSet := FrmHistoSav.OracleDataSetHisto;
  FrmHistoSav.DBGridHisto.DataSource := FrmHistoSav.DataSourceHisto;
  FrmHistoSav.OracleDataSetHisto.Open;

  zsNumRma.Text := '';
  zsCommentaires.Text := '';
  zsDateDep.Text := '  /  /    ';
  zsDateRetour.Text := '  /  /    ';
  end
  //Modif d'un SAV, saisie d'une date de retour...
else if typeModif = 'Modif' then
  begin
  oqModifSav.Close;
  oqModifSav.SQL.Clear;
                   //   'UPDATE adresseip SET adrip = :nvAddIP, nomscan = :lenomduscan WHERE adrip = :adrIP');
  oqModifSav.SQL.Add('UPDATE suivisav SET numrma = :nvrma, datedepart = :nvdepart, dateretour = : nvretour, commentaire = :nvcommentaire WHERE nomscan = :nvscan');
  oqModifSav.DeclareAndSet('nvrma', otString, zsNumRma.Text);
  oqModifSav.DeclareAndSet('nvdepart', otString, zsDateDep.Text);
  oqModifSav.DeclareAndSet('nvretour', otString, zsDateRetour.Text);
  oqModifSav.DeclareAndSet('nvcommentaire', otString, zsCommentaires.Text);
  oqModifSav.DeclareAndSet('nvscan', otString, nomDuScan);
  oqModifSav.Execute;
  oqModifSav.Session.Commit;


    FrmHistoSav.OracleDataSetHisto.Close;
  FrmHistoSav.OracleDataSetHisto.SQL.Clear;
  FrmHistoSav.OracleDataSetHisto.SQL.Text := 'SELECT numsuivi, nomscan, numrma, datedepart, dateretour, commentaire FROM suivisav WHERE nomscan = :nomduscan';
  FrmHistoSav.OracleDataSetHisto.DeclareAndSet('nomduscan', otString, nomDuScan);
  FrmHistoSav.DataSourceHisto.DataSet := FrmHistoSav.OracleDataSetHisto;
  FrmHistoSav.DBGridHisto.DataSource := FrmHistoSav.DataSourceHisto;
  FrmHistoSav.OracleDataSetHisto.Open;

  zsNumRma.Text := '';
  zsCommentaires.Text := '';
  zsDateDep.Text := '  /  /    ';
  zsDateRetour.Text := '  /  /    ';


  AfficheCaseSav(Rect,Column, MainForm.DBGridScan, DmImages.imgCheck, DataCol, state);
  end;
end;

En effet sans déclaration avec un uses UnitCaseCoche cela me met des erreurs :
- Aucune version surchargée de Rect ne peut être appelée avec ces arguments
- Identificateur non déclaré DataCol

Problème de déclaration

Delphi

Vue hybride

Discussions similaires

Partager

Partager