Discussion :

[Bobx]

J'affiche des données provenant d'une bd dans un TDBGrid. Or quand je fais un traitement sur la BD, l'affichage dans la grille est modifié ce que je ne voudrais pas. Une solution que j'ai trouvée (pas forcément géniale mais bon...) serait de copier l'image de la grille avant le traitement et de l'afficher le temps que dure le traitement. Est-ce possibol :
Merci d'avance

[Al-Yazdi]

Ce n'est en effet pas la solution que je te conseille !

Tu ne veut pas plutôt mettre un joli "Working ..." par dessus ?

Sinon, pour faire une copie écran :

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
procedure TForm1.Button1Click(Sender: TObject);
 var
 
    DeskTopDC: HDc;
    DeskTopCanvas: TCanvas;
    DeskTopRect: TRect;
 
 begin
    DeskTopDC := GetWindowDC(GetDeskTopWindow);
    DeskTopCanvas := TCanvas.Create;
    DeskTopCanvas.Handle := DeskTopDC;
 
    DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);
 
    Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);
 
    ReleaseDC(GetDeskTopWindow,DeskTopDC);
end;

Met ça dans une fiche de manière à que ça corresponde à un clique sur le bouton et regarde !

Je crois que c'est copié direct de l'aide ou d'un swag ! (En tout cas, ce n'est pas de moi !)

Moi
Salut

Happy to Help you

[Invité]

Salut,

Essaie ceci :

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.FormResize(Sender: TObject);
 
begin
     Try
 
     DBGrid1.Columns.BeginUpdate ;
 
     // Traitement données
 
     Finally
 
     DBGrid1.Columns.EndUpdate ;
     DBGrid1.Repaint           ;  // Pour être sûr !!!
 
     end;
end;

Je ne suis pas un spécialiste des contrôles orientés données, mais sur le principe cela devrait fonctionner ...

A+

Didier

[Al-Yazdi]

Didier, on s'est croisé !

Deux réponses différentes en moins d'une minute ! chapeau !

Moi
salut

[Lung]

Sinon, tu supprime la valeur de la propriété Datasource de ta DBGrid, le temps du traitement.

[Bobx]

Merci à ceux qui m'ont repondu. En fait je ne pouvais pas vider la grille le temps du traitement comme tu me le proposais Lung (TBDGrid.Datasource à nil), parce que mon traitement finit sur une petite fenetre qui demande des parametres d'edition à l'utilisateur. Mais en me basant sur l'instruction Canvas.CopyRect de la fonction proposée par Al-Yazdi, j'ai fini par trouver un truc simple : je mets un TImage (image1) avec Visible= FALSE, de la meme taille que mon TBDGrid(grille) et avant le traitement je lance ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image1.Height),  grille.Canvas,
      Rect(0,0, Image1.Width, Image1.Height));
    Grille.Hide;
    Image1.Show;
    Image1.Repaint;
   //...Traitement
  //...puis
    Image1.Hide;
    Grille.Show;

Et pi ça roule..., ça fait pas de mal quand ça marche, nom d'un petit bonhomme!!!!

[Al-Yazdi]

Ca fait plaisir d'aider !

Eh bien de rien Bobx et dés que t'as un problème n'hésite pas, le forum est là pour ça ...

Moi
Salut