Image de fond dans un TPanel

Bonjour,
Je souhaiterais afficher une image de fond dans un tPanel sans passer par une image dont la propriété Align est réglée sur AlClient. (Cela fais ramer mon programme).

J'y parviens pour ma fiche avec ce bout de code

Code:

---

Canvas.StretchDraw(ClientRect, Bitmap);

---

Mais impossible pour moi de l'adapter à un panel, cela est-il faisable ?

Citation:

---

Envoyé par zaaryy

J'y parviens pour ma fiche avec ce bout de code

Code:

---

Canvas.StretchDraw(ClientRect, Bitmap);

---

Mais impossible pour moi de l'adapter à un panel, cela est-il faisable ?

---

Bonjour,

La plupart du temps, il suffit de passer par le gestionnaire d'événement OnPaint du composant dans lequel on veut dessiner.
Dans l'exemple suivant, j'ai une image (en fait, n'importe quel bitmap convient) et je la reproduis dans le panneau :

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

unit Unit1;   {$mode objfpc}{$H+}   interface   uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;   type   { TForm1 }   TForm1 = class(TForm) Image1: TImage; Panel1: TPanel; procedure Panel1Paint(Sender: TObject); private { private declarations } public { public declarations } end;   var Form1: TForm1;   implementation   {$R *.lfm}   { TForm1 }   procedure TForm1.Panel1Paint(Sender: TObject); begin with Panel1 do Canvas.StretchDraw(ClientRect, Image1.Picture.Bitmap); end;

---

Le tout fonctionne très bien, à condition évidemment d'avoir une image chargée dans TImage1 :mrgreen:.

Merci beaucoup, cela fonctionne parfaitement.

Je pensais que la liste d'évènements fournie par l'inspecteur d'objet était exhaustive, et n'y voyant pas de OnPaint pour les TPanel je ne savais pas quand appeler mon bout de code...

Bonjour,

si je peux me permettre de modifier un petit peu le code ; pour des raisons obscures que je ne connais pas, les gens ne se servent jamais du sender qui, pourtant, évite bien des erreurs lorsque l'on renomme des composants :

Citation:

---

Envoyé par gvasseur58

Bonjour,
...

Code:

---

1 2 3 4 5 6 7 8 9

unit Unit1; ... procedure TForm1.Panel1Paint(Sender: TObject); begin with Panel1 do with Sender as TPANEL do Canvas.StretchDraw(ClientRect, Image1.Picture.Bitmap); end;

---

...

---

Voilà mes deux cents.

Citation:

---

Envoyé par anapurna

Bonjour,

si je peux me permettre de modifier un petit peu le code ; pour des raisons obscures que je ne connais pas, les gens ne se servent jamais du sender qui, pourtant, évite bien des erreurs lorsque l'on renomme des composants :


Voilà mes deux cents.

---

Bonjour,

Pour deux cents supplémentaires, si je puis me permettre d'apporter moi-même un petit rectificatif, l'argument avancé ne tient qu'avec Delphi, mais pas avec Lazarus qui renomme automatiquement toutes les occurrences d'un composant dans l'ensemble des sources d'un projet. Cela dit, la méthode étant plus générale, elle est plus élégante !

salut

et pour deux cents de plus ;)
non ce n'est pas valable que pour Delphi

si tu crées un événement dynamiquement attaché à plusieurs panels
ou que tu attaches visuellement un même événement à différents panels
pour lequel tu veux les même actions
j’espère que Lazarus ne te modifie pas le nom du panel à l’intérieur sinon tu n'es pas bien du tout

qu'il change le nom de l’événement créé dynamiquement je le comprends mais qu'il se permette de modifier du code inscrit dans un événement c'est assez dangereux

mes deux cents

Bonsoir ! Cette discussion est très intéressante. Mais j'avoue que pour moi la notion de sender reste assez floue.

salut roland

le sender c'est l'appelant

donc en règle général le sender est le composant ayant généré l’événement
pas très compliqué en faite ;)

Citation:

---

Envoyé par anapurna

si tu crées un événement dynamiquement attaché à plusieurs panels
ou que tu attaches visuellement un même événement à différents panels
pour lequel tu veux les même actions
j’espère que Lazarus ne te modifie pas le nom du panel à l’intérieur sinon tu n'es pas bien du tout

---

Salut,

Oui, ce sont des cas intéressants où les changements ne se font pas et où il est indispensable d'utiliser Sender. Je ne les avais pas en tête dans la simple illustration de l'affichage : c'était la politique du moindre effort pour un cas très simple :mouarf:.

Petit déterrage...

Bonjour, mais mauvaise nouvelle,

Citation:

---

Envoyé par gvasseur58

Le tout fonctionne très bien, à condition évidemment d'avoir une image chargée dans TImage1 :mrgreen:.

---

Et pas du tout sous Linux 32 bits / Gtk2 / FPC 2.6.2 / Laz 1.4 : le panel reste désespérément vide...
:cry:

Et je suis sûr que le TImage est chargé car je pars d'un vieux projet où il est bien rempli, je me contente de rajouter le TPanel par-dessus (ne jamais modifier irréversiblement du code qui fonctionne :P) et de jouer avec sa propriété Visible :

• False, je vois bien la belle image chargée dans le TImage ;
• True, bouhhh qu'il est moche ce TPanel tout gris avec sa Caption au milieu et c'est tout...

Voilà, quoi.

Salut JP.

Dans ta version Lazarus, l'événement OnPaint du panel est-il effectif ?
Si mes souvenirs sont bons, dans d'anciennes versions (et aussi en Delphi7), l'événement n'était pas implémenté.

Amicalement
Thierry

Citation:

---

Envoyé par ThWilliam

Salut JP.

Dans ta version Lazarus, l'événement OnPaint du panel est-il effectif ?
Si mes souvenirs sont bons, dans d'anciennes versions (et aussi en Delphi7), l'événement n'était pas implémenté.

Amicalement
Thierry

---

Bien vu !

Solution :

Code:

---

1 2 3

procedure TForm1.FormCreate(Sender: TObject); begin Panel1.OnPaint:=@Panel1Paint;

---

Merci et bonne journée,
(On peut surcocher :resolu: ? :ptdr:)

Citation:

---

Envoyé par Jipété

Bien vu !

Solution :

Code:

---

1 2 3

procedure TForm1.FormCreate(Sender: TObject); begin Panel1.OnPaint:=@Panel1Paint;

---

Merci et bonne journée,
(On peut surcocher :resolu: ? :ptdr:)

---

C'est bon à savoir une petit tour par la FAQ ThWilliam ? :ccool: