Discussion :

[zaaryy]

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 :

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

Canvas.StretchDraw(ClientRect, Bitmap);

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

[gvasseur58]

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

Code :

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

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 :

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
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 .

[zaaryy]

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...

[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 :

Bonjour,
...

Code :

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

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.

[gvasseur58]

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 !

[anapurna]

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

[Roland Chastain]

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

[anapurna]

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

[gvasseur58]

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 .

[Jipété]

Petit déterrage...

Bonjour, mais mauvaise nouvelle,

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

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


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 ) 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.

[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

[Jipété]

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 :

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

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

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

[BeanzMaster]

Bien vu !

Solution :

Code :

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

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

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

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