Une image en background

Question

Salut

J'aimerais savoir comment mettre une image en background sur ma listview (la listview est sur une image plus grande, et il faudrais que la section caché devienne le background en couleur plus pale)

J'ai vu sur le forum une question semblable qui parlais de TRect mais je sais pas trop comment m'y prendre.

Quelqu'un peut m'aider ?

Merci

cs_Kenavo · Answer

Salut,
Tu peux essayer ça

procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;
  const ARect: TRect; var DefaultDraw: Boolean);

var
  rect : TRect;
  Image : TImage;
  i,j : Integer;
  col : TColor ;

procedure eclaire(var col : TColor);
var
  r,v,b : byte;
begin
  r:=col mod $100;  // extraction du rouge
  v:= ( col shr 8 ) mod $100; // ...du vert
  b:= ( col shr 16 ) mod $100; // ... du bleu
  r:= (r+$ff) div 2;  // mélange avec du blanc
  v:= (v+$ff) div 2;
  b:= (b+$ff) div 2;
  col := r + $100 * v + $10000 * b; // nouvelle couleur
end;

begin
  Rect.Top := Listview1.Top+2;
  Rect.Bottom := Rect.Top + Listview1.ClientHeight ;
  Rect.Left :=  Listview1.Left+2;
  Rect.Right :=  Rect.Left + Listview1.ClientWidth ;
  Image := TImage.Create(self);
  Image.Width := Arect.Right-Arect.Left+1;
  Image.Height := Arect.Bottom-Arect.Top+1;
  Image.Canvas.CopyRect(ARect,Image1.Canvas,Rect);
  for j:=0 to Arect.Bottom-1 do
    for i:=0 to Arect.right-1 do
      begin
        col := Image.Canvas.Pixels[i,j];
        eclaire(col);
        Image.Canvas.Pixels[i,j] := col;
      end;
  ListView1.Canvas.CopyRect(Arect,Image.Canvas,ARect);
  Image.Free
end;

Explications :

-Rect est le rectangle de l'image de fond (Image1) derrière le Listview
-On copie cette zone dans Image (TImage temporaire)
-Pixel par Pixel on modifie les couleurs d'Image (fonction Eclaire)
-On recopie Image modifiée dans le canvas de ListView

J'ai pas mieux !

Kenavo

Code, Code, Codec !

cs_Eric84 · Answer

Ouais ca fonctionne, sauf, c'est normal qu'on puisse pas utiliser les jpg ? Il ne semble accepter que les bitmap.

Et c'est normal si ca semble lagger lorsqu'on clique sur un élément de la listview ? (licone cliquer disparais pendant 1-2 seconde et réapparais par la suite)

Merci

cs_Kenavo · Answer

Ben oui,

La fonction CopyRect ne fonctionne pas avec les Jpeg. 

Le temps doit provenir des appels à la fonction Pixels qui est très lente. tu peux essayer en virant les boucles for

Si quelqu'un connait un truc !

Kenavo

Code, Code, Codec !

cs_Eric84 · Answer

Ok merci bcp :P

cs_raybane · Answer

Salut tout le monde, c'est mon premier post, en esp&#233;rant que ca serve! 





procedure TForm1.ListView1CustomDraw(Sender: TCustomListView;

const ARect: TRect; var DefaultDraw: Boolean);

var jpg :TJpegImage;

    Bmp :TBitMap;

 

begin

   //cr&#233;ation des images

   Jpg := TJpegImage.Create;

   Bmp := TBitMap.Create;



   Try

       // on indique le chemin du jpg

      Jpg.LoadFromFile('D:\day.jpg');

      //on adapte la taille du bmp a celui du listview

      Bmp.Width  := Listview1.Width;

      Bmp.Height := Listview1.Height;

      //on &#233;tire l'image du bmp

      Bmp.Canvas.StretchDraw(Bmp.Canvas.ClipRect,Jpg);

      Jpg.Assign(Bmp);

      //on assigne l'image au listview

      ListView1.Canvas.CopyRect(Arect,Bmp.Canvas,ARect);

   Finally

      //on libere les ressources

      Jpg .Free;

      Bmp .Free;

   end;

lol_brossier · Answer

Ca marche tres bien ce code mais avez vous une id&#233;e pour que l'mage de fond soit redessin&#233; a chaque changement de dimension de la fenetre ? Parce que pour moi si je modifie la taille de la fenetre ca modife mon image et je voudrais donc qu'elle soit redessin&#233; apres chaque mouvement.
Merci

Une image en background

6 réponses

Votre réponse

Discussions similaires