DBGrid de delphi

Version imprimable

21/04/2010, 11h32
inform2010

DBGrid de delphi

bonjour,
l'ai créer une table qui contient un champ boolean initialiser à false
comment peut on afficher le contenu de ce champ dans un DBGrid de facon des cases à cocher et non pas true et false
exp:
si la valeur du champ true alors la case dans DBGrid sera cocher sinon elle n'est pas cocher
aider mois STP
21/04/2010, 11h37
Rayek

:recherch: :faq:

http://delphi.developpez.com/faq/?pa...eacocherdbgrid
21/04/2010, 12h43
inform2010

DBGrig

bonjour,

merci mais

ca marche pas
21/04/2010, 12h50
inform2010

1 pièce(s) jointe(s)

BDD

voila mon code source
aider moi STP
21/04/2010, 16h30
Fxg

Qu'est ce qui ne fonctionne pas : l'affichage ? message d'erreur ?

La liste d'images est bien "remplie" ?
Il faut un peu plus d'infos.
22/04/2010, 08h57
inform2010

Bonjour ,
il n'est a pas un message d'erreur mais il n'affiche pas la case à cocher lors l'exécution
STP aider moi
22/04/2010, 12h21
inform2010

bonjour merci , votre lien ça ma été trés utile mais
ce qui conserne cette instruction

if (column est une colonne 'case à cocher') then

je le met comme ça

if ( Column.FieldName ='proj_ann') then

(*tel que 'proj_Ann' un champ boolean*)

il n'est pas des erreurs de programmation

mais il n'affiche pas la case à cocher
22/04/2010, 14h17
Fxg

Affiche le code de ta procédure (avec les balises CODE) s'il te plait.

Code:

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
procedure TForm1.dbGrid1DrawColumnCell(
  Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; 
  State: TGridDrawState); 
begin
 
 
    if ( Column.FieldName ='proj_ann')  then
 // if (column est une colonne 'case à cocher') then
  begin
    { on efface la cellule }
    dbGrid1.Canvas.FillRect(Rect);
    { si coché  }
     if ( Column.FieldName ='proj_ann'  )  then
   // if (column.Field a la valeur coché) then
    begin
 
      //  DmImages.imgCheck.draw(dbGrid1.Canvas,
        imageList1.draw(dbGrid1.Canvas,
        rect.Left + ((rect.Right - rect.Left - imageList1.Width) div 2),
        rect.Top, 
        1);
 
    end
    { sinon, pas coché  }
    else 
    begin
      imageList1.draw(dbGrid1.Canvas,
        rect.Left + ((rect.Right - rect.Left - imageList1.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 
    dbGrid1.DefaultDrawColumnCell(rect,datacol,column,state);
  end; 
end;
 
 
 
procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
with dbGrid1 do
  begin 
    { La grille doit être modifiable... }
    if (not ReadOnly) 
    { ainsi que le dataset }
    and( DataSource1.DataSet.CanModify  )
    { Et la zone sur laquelle on a cliqué doit }
    { être une case à cocher }
    and (SelectedField.FieldName = 'proj_ann' )
     // or (test sur un autre nom de zone)
    //  or ...)
       then
    begin
 
      DataSource1.DataSet.Edit;
      SelectedField.AsBoolean := not SelectedField.AsBoolean;
      DataSource1.DataSet.Post;
 
    end;
  end;
end;

25/04/2010, 09h34
archonte

Attention ! tu as recopié tel quel le pseudo-code proposé !!

En fait, tu dois remplacer les instructions écrites en français entre accolades par du code informatique :calim2:, fais attention aussi aux commentaires // en excès !

S'il te plait : n'oublie pas de mettre ton code entre les balises #

SLT,
j'ai réussi de faire une case à cocher dans un DBGrid merci à tous ceux qui ont aidé ,
mon code est la suivante:

Code:

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
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
const IsChecked : array[Boolean] of Integer = (DFCS_BUTTONCHECK, DFCS_BUTTONCHECK or DFCS_CHECKED);
var
  DrawState: Integer;
  DrawRect: TRect;
begin
  if (gdFocused in State) then
  begin
    if (Column.Field.FieldName = DBCheckBox1.DataField)  then
    begin
     DBCheckBox1.Left := Rect.Left + DBGrid1.Left + 2;
     DBCheckBox1.Top := Rect.Top + DBGrid1.top + 2;
     DBCheckBox1.Width := Rect.Right - Rect.Left;
     DBCheckBox1.Height := Rect.Bottom - Rect.Top;
 
     DBCheckBox1.Visible := True;
 
      end;
 
 
  end
  else {in this else area draw any "stay behind" bitmaps}
  begin
    if (Column.Field.FieldName = DBCheckBox1.DataField)  then
    begin
      DrawRect:=Rect;
      InflateRect(DrawRect,-1,-1);
 
      DrawState := ISChecked[Column.Field.AsBoolean];
 
      DBGrid1.Canvas.FillRect(Rect);
      DrawFrameControl(DBGrid1.Canvas.Handle, DrawRect, DFC_BUTTON, DrawState);
    end;
  end; //if focused
 
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var
  i, j: Integer;
begin
 Table1.Active := True;
 
  with DBGrid1.DataSource.DataSet do
    for i := 0 to DBGrid1.FieldCount - 1 do
      for j := 0 to FieldCount - 1 do
        if Fields[j].FieldName = DBGrid1.Fields[i].FieldName then
          DBGrid1.Columns[i].Title.Alignment := Fields[j].Alignment;
 
  //  DBGrid1.Align:=alClient;
 
  //setup check box
  DBCheckBox1.DataSource  := DataSource1;
  DBCheckBox1.DataField   := 'Proj_Ann';
  DBCheckBox1.Visible     := False;
  DBCheckBox1.Color       := DBGrid1.Color;
  DBCheckBox1.Caption     := '';
  DBCheckBox1.ValueChecked := '';
  DBCheckBox1.ValueUnchecked:='';
 
 
end;
 
 
procedure TForm1.DBCheckBox1Click(Sender: TObject);
begin
  if DBCheckBox1.Checked then
     DBCheckBox1.Caption := DBCheckBox1.ValueChecked
  else
     DBCheckBox1.Caption := DBCheckBox1.ValueUnChecked;
end;

03/05/2010, 04h57
Just-Soft

cela veut-il bien dire "résolu" ? si c'est le cas alors le tag "résolu" stp.