TImage en premier plan

Version imprimable

04/06/2009, 17h53
bandit boy

TImage en premier plan

Bonjour,
Comment faire pour mettre une image en premier plan?

Je m'explique, j'essaie de simuler un écran (à pixel) dans un appareil. J'ai une image et un StringGrid pour l'écran. Le hic c'est que l'écran est censé aller sous la photo pour être le plus représentatif.

Quand j'essaie les méthodes "Bring to front" et "Send to back" en construction et en run, mais l'image reste toujours en fond!

Si quelqun connait une méthode pour mettre l'image en premier plan, je suis tout ouïe!

Merci
04/06/2009, 18h53
blondelle

Salut bandit boy
Si j'ai bien compris, tu a une TForm, sur cette TForm tu a pose un TStringGrid, sur ce StringGrid tu pose unTImage, et tu a ton TImage transparent pour visualiser le TStringGrid et tu va ecrire sur le TImage

Salut !

Tu prends un TPanel et tu places ton TImage dessus !
Accessoirement, tu peux fixer :
Code:

1 2 3 Image1->Align = alClient; Image1->Stretch = true;
Je me suis donc amusé à faire (via un popupmenu) :
Code:

1 2 3 4 5 6 7 8 9 10 void __fastcall TForm1::Front1Click(TObject *Sender) { Panel1->BringToFront(); } void __fastcall TForm1::Back1Click(TObject *Sender) { Panel1->SendToBack(); }
A plus !

05/06/2009, 08h53
bandit boy

Bonjour messieurs,

Blondelle, t'es sur la voie ;) J'ai bien une TForm, sur laquelle j'ai mon StringGrid, et par dessus (en plus large que la grille) j'ai une image avec une partie transparente à travers laquelle on voit la grille. Le but est de considérer la grille comme un écran matricielle (une case = un pixel), donc je vais écrire dans la StringGrid.

henderson, j'ai essayé de faire le bout de code que tu as posté. Ca fonctionne bien, sauf que je perds l'avantage de la transparence, vu que je vois le fond du TPanel à la place de ma StringGrid à travers mon image. Il n'existe pas une méthode pour le rendre transparent lui aussi ?

Dans les deux cas, merci pour votre aide messieurs.

Hello,

Tu peux dessiner ton image directement sur le fond de ton Form, en utilisant l'événement OnPaint du TForm:
Code:

1 2 3 4 5 void __fastcall TForm32::FormPaint(TObject *Sender) { // vImg1 est un TImage masqué (Visible=false) Canvas->Draw(0, 0, vImg1->Picture->Graphic); }

05/06/2009, 10h07
blondelle

Salut bandit boy
Est ce que tu touche pas a ton image ?
Est ce que ton image doit etre imperativement au dessus du StringGrid ?
05/06/2009, 10h47
bandit boy

totoche76, l'idée est bonne mais j'avais déjà essayé et on se retrouve avec 2 problèmes: la proportion (due au Strech de l'image) et le fait que encore une fois la grille se retrouve au dessus.

Sinon blondelle, l'image n'est jamais modifiée et oui elle doit impérativement être au dessus. En fait, c'est pour simuler un écran LCD (StringGrid) dans une partie mécanique (TImage). Cette partie mécanique reste toujours au dessus de l'écran et possède une vitre (partie transparente du TImage) à travers laquelle on voit le LCD.
Pourquoi une telle précision, tu as une idée?
05/06/2009, 11h23
blondelle

J'ai fais un teste vite fait et c'est tres difficile d'avoir l'image au premier plan d'ou ma question, je sais que l'on peut tapisser un StringGrid complet avec une Image, on voit l'image, on voie la grille et on peut ecrire dans le StringGrid
05/06/2009, 12h09
bandit boy

Bon, j'ai repris des idées d'un peu tout le monde avec l'aide d'un collègue et on a fait du bricolage.

On a 2 TForm. L'une en premier plan avec un TPanel, dans laquelle se trouve l'image avec une couleur de fond du panel propre. Cette Form a ses propriétés transparent à true, et transparentcolor à la couleur du panel.
La seconde Form contient la StringGrid, et se "cache" toujours derrière la première. Avec la Proriété Enable à false, elle ne repasse jamais devant.

En conclusion, la Première Form contient l'image et la seconde la grille reste toujours dans le même ordre de présentation (ordre, taille, position).

Par contre, il faut gérer la proportion de l'image, ainsi que le placement de la grille en fonction de l'image ...

Sinon ce sujet est résolu.
Merci beaucoup messieurs pour ces idées !

Hello,

Je viens d'essayer un truc, pour reprendre l'idée de Henderson de mettre un TPanel au dessus du TStringGrid, mais en rendant le TPanel transparent:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
class TMyPanel: public TPanel
{
public:
  virtual void __fastcall CreateParams(TCreateParams &Params)
  {
  TPanel::CreateParams(Params);
  if (!ComponentState.Contains(csDesigning))
    Params.ExStyle =Params.ExStyle | WS_EX_TRANSPARENT;
  }
 
  __fastcall TMyPanel(TComponent* Owner) : TPanel(Owner)
  {
  //Brush->Style = bsClear;
  }
 
  virtual void __fastcall Paint(void)
  {
  return;
  }
 
};

Dans le constructeur de ton TForm:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
__fastcall TForm32::TForm32(TComponent* Owner)
  : TForm(Owner)
{
pnl = new TMyPanel (this);
pnl->Parent = this;
pnl->Left = vGrd1->Left;
pnl->Top = vGrd1->Top;
pnl->Height = vGrd1->Height;
pnl->Width = vGrd1->Width;
pnl->Visible = true;
 
vImg1->Parent = pnl;
vImg1->Left = 0;
vImg1->Top = 0;
vImg1->Visible = true;
vImg1->Transparent = true;

Salut !

Sinon il existe aussi la possibilité de combiner des régions.

Voici un exemple avec un TPanel sur lequel j'ai posé un TImage.
L'idée ici, étant de créer une lucarne...
Pour le test (j'ai BCB3 Pro ...), au niveau du TImage j'ai fixé :
-Align sur alClient
-Stretch sur true
Code:

1 2 3 4 5 6 7 8 9 10 11 HRGN R1; HRGN R2; __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { R1 = CreateRectRgn(0,0, Panel1->Width, Panel1->Height); R2 = CreateRectRgn(50,50, Panel1->Width-50, Panel1->Height-50); CombineRgn(R1,R1,R2, RGN_XOR); SetWindowRgn(Panel1->Handle, R1, true); }
Donc de ton coté, il faudrait localiser l'ouverture pour le LCD dans l'image et affecter les bons paramètres pour R2.

A plus !

05/06/2009, 14h32
bandit boy

Encore plus propre et plus simple.
Par contre, henderson ta solution fonctionne mais il faut que la fenêtre soit rectangulaire, s'il y a des courbes ca ne fonctionne pas, non?

Merci beaucoup messieurs
05/06/2009, 16h21
henderson
Salut !

En fait, il y a plusieurs découpes possibles, par exemple :
Code:

1 2 R2 = CreateEllipticRgn(50,50, Panel1->Width-50, Panel1->Height-50);
On peut même utiliser :

Citation:

CreateRoundRectRgn
CreatePolygonRgn
...

En principe on devrait pouvoir combiner autant qu'il est nécessaire !

Voir l'aide MS (Regions) !

Le problème est quand même de bien ajuster !

A plus !

Hello,

Pour créer une région à partir d'un Bitmap:

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
HRGN CreateRegionFromBitmap(Graphics::TBitmap* pBitmapSource, TColor couleurTransparente)
{
  HRGN pBitmapRGN = CreateRectRgn(0,0,0,0);
  HRGN tmpRGN;
 
  int largeurBitmap = pBitmapSource->Width;
  int hauteurBitmap = pBitmapSource->Height;
  int x, largeur;
 
  for (int y = 0; y<largeurBitmap; y++)
    {
    x = 0;
    largeur = 0;
    while (x < hauteurBitmap)
      {
      if (pBitmapSource->Canvas->Pixels[y][x] != couleurTransparente)
        largeur++;
      else
        if (largeur != 0)
          {
          tmpRGN = CreateRectRgn(x - largeur, y, x, y + 1);
          CombineRgn(pBitmapRGN, pBitmapRGN, tmpRGN, RGN_OR);
          DeleteObject(tmpRGN);
          largeur = 0;
          }
      x++;
      }
    if (largeur != 0)
      {
      tmpRGN = CreateRectRgn(x - largeur, y, x, y + 1);
      CombineRgn(pBitmapRGN, pBitmapRGN, tmpRGN, RGN_OR);
      DeleteObject(tmpRGN);
      }
    }
  return pBitmapRGN;
}

Pour l'utiliser (on enlève de la fenêtre toutes les parties en blanc sur l'image):

Code:

1
2
HRGN reg = CreateRegionFromBitmap(Image1->Picture->Bitmap, clWhite);
SetWindowRgn(Handle, reg, true);