Discussion :

[Franck26]

Bonjour a tous,
Dans mon application j'ai plusieur images (TImage) qui sont visibles et je voudrais que quand je click sur l'une d'elle, celle-ci apparaisse comme selectionné.
Je pensé la faire apparaitre en bleu transparent comme quand on sélectionne un dossier sous windows.
Je ne sais pas si il y a un systéme de filtre de couleur que l'on peut appliquer sur un TImage.
Merci pour les infos.
A+.

[Crayon]

Salut, je ne sais pas ce qui arriverais si avec un ScanLine tu lisais tout les pixels du TImage pour ajouter une certaine valeur au bleu de RGB?

[ero-sennin]

Salut,

Je propose une solution, je ne sais pas si elle va te convenir :

Dans le .h:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
class TForm1 : public TForm
{
__published:	// Composants gérés par l'EDI
        TImage *Image1;
        TImage *Image2;
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall Image1Click(TObject *Sender);
        void __fastcall FormClick(TObject *Sender);
private:	// Déclarations de l'utilisateur
public:		// Déclarations de l'utilisateur
        __fastcall TForm1(TComponent* Owner);
        TImage* ImageSelectionnee;
};

Dans le .cpp :

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
void __fastcall TForm1::FormCreate(TObject *Sender)
{
  ImageSelectionnee=NULL;
  Image1->Canvas->Brush->Color=clWhite;
  Image2->Canvas->Brush->Color=clWhite;
  Image1->Canvas->FillRect(Image1->ClientRect);
  Image2->Canvas->FillRect(Image2->ClientRect);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1Click(TObject *Sender)
{
  if(ImageSelectionnee!=NULL)
  ImageSelectionnee->Canvas->DrawFocusRect(ImageSelectionnee->ClientRect);
 
  ImageSelectionnee=(TImage*)Sender;
  ImageSelectionnee->Canvas->DrawFocusRect(ImageSelectionnee->ClientRect);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClick(TObject *Sender)
{
  if(ImageSelectionnee!=NULL)
  {
    ImageSelectionnee->Canvas->DrawFocusRect(ImageSelectionnee->ClientRect);
    ImageSelectionnee=NULL;
  }
}

Alors, je t'explique un peu ce que ça fait :

Lorsque l'on sélectionne un TImage, je dessine une bordure de sélection autour de celle ci avec DrawFocusRect...
Ensuite, grâce à l'inspecteur d'objet, j'affecte pour chaque OnClick de TImage celui du TImage1 (ça évite de faire du code mais après ça dépend de ton besoin...)

Ensuite, on libère l'image sélectionnée lorsque l'on clic sur la form

Voilà, j'espère que ça va répondre partiellement à ta demande

[Franck26]

Merci a tous les 2,
J'essais ces 2 solutions dans la journée.
A+.

[Franck26]

ero-sennin, je viens de tester ta solution.
Ca fonctionne bien excepté que la sélection se voit pas beaucoup: les pointillés noir qui entour l'image sélectionnée sont trés fin...

Pour la solution de Crayon, j'ai pas été capable de me servir de scanline ... Et comme je suis sous vista, j'ai pas accés a l'aide de builder 6...
Est ce que tu aurais un exemple simple de l'utilisation de scanline?

Merci à tous les 2.
A+.

[Crayon]

Je suis pas certain que c'est vraiment la bonne méthode, mais tu peux essayer:

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
void TForm1::MoreBlue(Graphics::TBitmap *ImAModifier)
{
    COLORREF couleur;
    Byte R, G, B;
    int x, y;
 
    for(y=0; y<ImAModifier->Height; y++)
    for(x=0; x<ImAModifier->Width; x++)
    {
        couleur = ImAModifier->Canvas->Pixels[x][y];
        R = GetRValue(couleur);
        G = GetGValue(couleur);
        B = 255;//GetBValue(couleur);
 
        ImAModifier->Canvas->Pixels[x][y] =  (TColor)RGB(R, G, B);
    }
}

[Franck26]

Merci Crayon pour l'idée,
Ca fonctionne, sauf que c'est un peu lent du fait de la modification pixel par pixel...
Et l'autre probléme c'est que c'est pas réversible...
Merci quand même pour l'exemple.
A+.

[henderson]

Salut !

Pour le fun, voici un autre moyen :

Je dispose de deux panels supplémentaires avec aucun bevel d'activé (flat) de couleur noir :

Code :

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

1
2
TPanel *OmbreDroite;
TPanel *OmbreBas;

J'ai donc mis 4 Images pour les quelles j'ai developpé la OnMouseDown suivante :

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
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
TImage *Image = (TImage*)Sender;
OmbreDroite->Visible = false;
//OmbreDroite->Parent = Image->Parent; //au cas où... selon que...
OmbreBas->Visible = false; 
//OmbreBas->Parent = Image->Parent; //au cas où... selon que...
OmbreDroite->SetBounds( Image->Left + Image->Width,
                        Image->Top + 5,
                        5,
                        Image->Height);
 
OmbreBas->SetBounds(    Image->Left + 5,
                        Image->Top + Image->Height,
                        Image->Width,
                        5);
 
OmbreDroite->Visible = true;
OmbreBas->Visible = true;
}

Une façon comme une autre... !

A plus !