Discussion :

[LaurentC33]

Bonjour,

J'ai encore un petite question
J'ai un DBAdvGrid dans lequel je veux afficher un bouton pour supprimer une ligne d'enregistrement.
Directement dans le DBAdvGrid c'est rapé.
Du coup, je pense rajouter un champs dans le clientdataset, et lui assigner une image comme valeur.

J'arrive quand même à récupérer le clic sur l'image que je n'arrive pas à afficher, cela dans le form

Code :

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

1
2
3
4
5
6
 
procedure TAirClientForm.DBAdvGrid1ClickCell(Sender: TObject; ARow,
  ACol: Integer);
begin
if(ACol= 3)then ShowMessage('clic sur l''image');
end;

Mais je coince sur le clientdataset, voici mon code :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TClientModule.afterApplyUpdateAddDelPicture(Sender: TObject;
  var OwnerData: OleVariant);
begin
    cds_clients.FieldByName('DEL').Value := DmImages.delBtnImage; ??? erreur ici
    cds_clients.Post;
    cds_clients.applyupdates(0);
end;

DmImages.delBtnImageest un TImageList

[LaurentC33]

Bonjour !

Bon toujours coinçé sur l'ajout d'une image dans mon clientdataset.
J'ai crée un champs sur mon clientdataset.
J'ai hésité entre le type blob et graphic...?
Ensuite, j'ai appellé la méthode suivante sur l'evenement AfterOpen de mon clientdataset

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TClientModule.assignImageToDataSetField(dataset : TClientDataSet; fieldName, image : string);
begin
    with dataset do begin;
         Open;
         Edit;
         TBlobField(FieldByName(fieldName)).LoadFromFile(image);
         Post;
    end;
end;

SI de plus je pouvais me passer du LoadFromFile() et utiliser une TImage de mon TImageList j'en serais plus heureux...Mais je coince sur tout ça

[LaurentC33]

J'ai crée un champs auquel j'ai codé à au getText() :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TClientModule.cds_clientsDELGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
 begin
      with Sender.DataSet do begin;
      Edit;
      FieldByName('DEL').Assign(DmImages.delBtnImage);
      Post;
 end;
end;

mais ca ne marche toujours pas, ni avec du blob ou graphic comme type de champs...

[LaurentC33]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TClientModule.cds_clientsDELGetText(Sender: TField; var Text: string;DisplayText: Boolean);
var
   imageField: TGraphicField;
begin
     imageField := Sender.DataSet.FieldByName('DEL') as TGraphicField;
       with Sender.DataSet do begin;
          Edit;
          imageField.Assign(DmImages.delBtnImage);
          Post;
      end;
end;

Idem...

[LaurentC33]

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
 
procedure TAirClientForm.ClientsGridPainted(Sender: TObject);
var
   imageField: TGraphicField;
   deleteImage: TImage;
begin
     with ClientModule.cds_clients do begin;
        imageField := FieldByName('DEL') as TGraphicField;
        deleteImage.Picture.Bitmap.TransparentMode := tmFixed;
        deleteImage.Picture.Bitmap.TransparentColor := clWhite;
        deleteImage.Picture.Bitmap := nil;
        DmImages.delBtnImage.GetBitmap(0, deleteImage.Picture.Bitmap);
        Edit;
        imageField.Assign(deleteImage.Picture.Bitmap);
        Post;
     end;
end;

Pareil...grrrrr

[SergioMaster]

J'ai un DBAdvGrid dans lequel je veux afficher un bouton pour supprimer une ligne d'enregistrement.
Directement dans le DBAdvGrid c'est rapé.

pourquoi ? je ne connais pas (ou plutôt je n'ai jamais utilisé) DBAdvGrid mais cela doit être un descendant d'un DBGrid ou d'un CustomDBGrid , il doit bien y avoir un event onDrawColumnCell ?
[Edit] après vérification il y a au moins un ondrawcell

Du coup, je pense rajouter un champs dans le clientdataset, et lui assigner une image comme valeur.

mauvaise pioche à mon avis , il vaudrait mieux s'inspirer de la FAQ http://delphi.developpez.com/faq/?pa...eacocherdbgrid
ou aller voir du coté d'un DrawFrameControl

Code Bouton en colonne 3 :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.DBAdvGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var r : TRect;
begin
if acol=3 and Arow>0 then
 begin
    r.Top:=Rect.Top+1;
  r.Bottom:=Rect.Bottom-1;
  r.Left:=Rect.Left+1;
  r.Right:=Rect.Right-1;
  DrawFrameControl((Sender as TDBAdvGrid).Canvas.Handle,r,DFC_BUTTON, dfcs_buttonpush);
 end;
end;

ce code rapide affiche un bouton sans texte

[LaurentC33]

Merci mille fois

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
 
procedure TAirClientForm.drawDelButton(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
var canvas : TCanvas;
begin;
      // On affiche l'image toujours sur la dernière colonne
      if (acol = (Sender as TDBAdvGrid).Columns.Count - 1) and (Arow > 0) then begin
       canvas := (Sender as TDBAdvGrid).Canvas;
       canvas.FillRect(Rect);
       DmImages.delBtnImage.draw(
          // Surface de dessin sur laquelle l'image doit être restituée
          canvas,
          // Emplacement du coin supérieur gauche dans le canevas
          Rect.Left + ((Rect.Right - Rect.Left - DmImages.delBtnImage.Width) div 2),
          Rect.Top,
          // Index de l'image à dessiner
          0
      );
      end;
end;