Background dans un DBGrid

Version imprimable

07/08/2007, 16h06
yamino

Background dans un DBGrid

Bonjour à tous,

Est-t-il possible de mettre une image de fond dans un DBGrid.
Si oui comment faire.

Merci
07/08/2007, 16h10
Rayek

dans la :faq: il y a un exemple pour une StringGrid, tu peux peut être l'adapter pour le DbGrid

http://delphi.developpez.com/faq/?pa...fondstringgrid
07/08/2007, 16h12
yamino

Je l'avais vu mais je ne savais pas que ça pouvait s'appliquer à un dbgrid...
Merci beaucoup Malatar
07/08/2007, 16h19
yamino

J'ai essayé mais ce n'est pas ce que je veux.
En fait mon idée c'est d'avoir une image de fond du DBGrid, pas d'une cellule.
07/08/2007, 22h38
anapurna

salut

bin c'est bien pourtant ce que fait le lien
je comprend pas ce que tu n'aime pas dans ce code

@+ Phil
08/08/2007, 08h10
yamino

Pour le composant TDBGrid il ne reconnait pas FixedCols, ACol, ColWidths, Cells.
Et il me dit aussi "un objet constante ne peut être passé comme paramètre Var" sur le Rec.

Par quoi puis-je remplacer ses variables ?

salut

un truc du genre devrai fonctionner

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
type
 TDbGridHack = Class(TDbGrid)
 end;
procedure TFDelete.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
Var
  y : integer;
  R,r2:TRect;
  Point1 : Tpoint;
begin
  With Sender As TDBGrid Do
  With Canvas Do
  Begin
      If gdFixed in State Then
      Begin
      { Les cellules fixes sont toujours dessinées en gris }
      Brush.Color := clBtnFace;
      Brush.Style := bsSolid;
      FillRect(Rect);
    End
    Else
    Begin
      If gdSelected In State Then
      Begin
        { Les cellules sélectionnées sont en bleue }
        Brush.Color := clNavy;
        Brush.Style := bsSolid;
        FillRect(Rect);
      End
      Else
      Begin
        y :=0;
        if  assigned((Sender as TDbGridHack).Datalink) Then
           y := (Sender as TDbGridHack).Datalink.ActiveRecord ; // Recherche l'enregistrment courant
        Point1 := (Sender as TDbGrid).ScreenToClient(Point(datacol,y));
        R.Left   :=Point1.x;
        R.Right  :=Point1.x+Rect.Right-Rect.Left;
        R.Top    :=Point1.y;
        R.Bottom :=Point1.y+Rect.Bottom-Rect.Top;
        { Dessin d'une partie de l'image }
         CopyRect(Rect,MonBitmap.Canvas,R);
        Brush.Style := bsClear;
      End;
    End;
 
    { Sélection de la couleur de texte }
    If gdSelected In State Then
      SetTextColor(Canvas.Handle,clWhite)
    Else SetTextColor(Canvas.Handle,clBlack);
    r2 := rect;
    { Dessin du texte en utilisant la fonction API }
    DrawText(Canvas.Handle, PChar(Column.Field.DisplayText), -1, r2 ,DT_NOPREFIX );
  End;
end;

@+ Phil

08/08/2007, 11h59
yamino

Merci Anapurna pour ta réponse

J'ai l'erreur suivant : "Transtypage de de classe incorrect"
sur la condition :

Citation:

if assigned((Sender as TDbGridHack).Datalink) Then
y := (Sender as TDbGridHack).Datalink.ActiveRecord ;

:(

salut

remplace ceci

Code:

1
2
    if  assigned((Sender as TDbGridHack).Datalink) Then
           y := (Sender as TDbGridHack).Datalink.ActiveRecord ;

par ça

Code:

1
2
 if  assigned(TDbGridHack(Sender) .Datalink) Then
           y := TDbGridHack(Sender).Datalink.ActiveRecord ;

@+ Phil

08/08/2007, 12h28
yamino

J'ai toutes mes écritures dans le DBGrid qui sont dédoublées (superposé avec un léger décalage)... du au -1 je suppose dans :

Code:

DrawText(Canvas.Handle, PChar(Column.Field.DisplayText), -1, r2 ,DT_NOPREFIX );

... et je n'ai malheureusement aucune image dans le fond de mon grid :calim2:
08/08/2007, 18h35
anapurna
salut

bon on va essaiyer de comprendre ce qui ne fonctionne pas
on va considere que tu as une petite image donc

il faut modifier ce code en consequence
Code:

1 2 3 4 5 R.Left :=Point1.x; R.Right :=Point1.x+Rect.Right-Rect.Left; R.Top :=Point1.y; R.Bottom :=Point1.y+Rect.Bottom-Rect.Top;
par
Code:

1 2 3 4 R.Left :=0; R.Right :=Rect.Right-Rect.Left; R.Top :=0; R.Bottom :=Rect.Bottom-Rect.Top;
il faudra peut voir si la fonction drawtext ne redessinerai pas e background
avec la couleur de fond
dans ce cas il faudra peut etre force et mettre un SetBkColor

@+ Phil
08/08/2007, 20h05
yamino

Merci pour ton aide

J'ai effectivement une petite image...
Je pourrais l'adapter à la taille de mon grid ça ne devrait pas poser de problème.

Maintenant je ne comprends pas pourquoi l'image n'apparait pas
08/08/2007, 20h12
yamino

J'ai oublié de te dire que j'ai essayé ta solution et qu'il m'affiche l'image dans chaque cellule
09/08/2007, 11h20
anapurna

salut

en fait je pense que tu n'as pas compris ce que fait copyrect

Code:

CopyRect(Rect,MonBitmap.Canvas,R);

il transfert une zone graphique (MonBitmap.Canvas) de taille et position source "R" dans un canvas de taille et position de destination (Rect)

il faut donc avoir une image de la taille de l'ecran voulue
et ensuite "decouper" les element de l'image pour les inserer dans les cellule

@+ Phil
09/08/2007, 11h26
ALWEBER

Si besoin est tu peux regarder cette discussion qui traitait d'un sujet similaire
http://www.developpez.net/forums/sho...d.php?t=140197