Discussion :

[LoicH]

Bonjour à tous

cette fois petite question sur l'affichage des images.

En faite il faudrait que je puisse lister les images d'un dossier, les afficher dans une forme et pouvoir cocher UNE SEULE image à la fois.... SIMPLE NON

En faite il s'agit du même principe lorsque l'on souhaite imprimer une image sous Xp, a un moment on peut selectionner les autres images que l'on souhaite. Ben j'aimerais bien faire le même style sauf avec la possibilité de ne selectionner qu'une image.

En espèrant que cela soit clair.

MERCI D'AVANCE

[Mangacker]

pour lister les images contenues dans un dossier tu peux utiliser ça

FAQ


en ajoutant les différentes extentions des images (.jpg, .bmp, .gif, ...)


pour la sélection tu peux connaitre le path des images car il est affiché dans le TStringList


j'espere avoir pu t'aider un peu...


bye Mangacker

[LoicH]

merci de votre réponse.

sauf que c'est pas tout à fait ce que je souhaite. j'avais egalement regarder la FAQ avant mais ce que j'aimerais c'est afficher une miniature de chaque image stockée dans un dossier et a chaque miniature ajouter une case à cocher.

Pour mieux comprendre une petite photo tirer de ce site :


En faite c'est la partie à droite que j'aimerais reproduire.
Lister les images et pouvoir en selectionner une

[Sunchaser]

Bonsoir,

mais ce que j'aimerais c'est afficher une miniature de chaque image stockée dans un dossier et a chaque miniature ajouter une case à cocher.

-> Juste pour info, dans une form/autre objet que tu maîtrise ou crée toit même ?

@+

[Mangacker]

pour miniatures tu peux utiliser les composants TImage

pour checker tu peux utiliser les checkbox

[LoicH]

dsl Sunchaser mais je n'ai pas tout compris a ta réponse ...

[Sunchaser]

Bonsoir,

Je me permets de te proposer une piste, en dérivant a partir de TCustomControl:
.H, avant la déclaration de la TForm:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
class TMCustomControl: public TCustomControl
{
typedef TCustomControl inherited;
private:
	TBevel *m_bevel;
	TImage *m_Image;
	TCheckBox *m_chk;
	void __fastcall ChkClick(TObject *Sender);
public:
__fastcall virtual TMCustomControl(Classes::TComponent* AOwner, String ImageFile);
 bool Im_selected;
 String fileN;
};

.H de la TForm:

Code :

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

1
2
3
4
private:
     TList *objList;
     TMCustomControl *m_control;

.cpp, avant l'implémentation de la TForm elle même:

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
38
 
__fastcall TMCustomControl::TMCustomControl(Classes::TComponent* AOwner, String ImageFile) : TCustomControl(Owner)
{
	Im_selected = false;
	Height = 120;
	Width = 140;
 
	//bevel/deco
	m_bevel = new TBevel(this);
	m_bevel->Parent = this;
	m_bevel->SetBounds(Left, Top, Width, Height);
	m_bevel->Style = bsRaised;
 
	//checkbox et évènement 'OnClick()' du checkbox
	m_chk = new TCheckBox(this);
	m_chk->Parent = (this);
	m_chk->Top = Top + 2;
	m_chk->Width = 17;
	m_chk->Left = (Left + Width) - (m_chk->Width - 1);
	m_chk->OnClick = ChkClick;
	m_chk->Visible = true;
 
	//image
	m_Image = new TImage(this);
	m_Image->Parent = (this);
	m_Image->Top = (m_chk->Top + m_chk->Height) + 1;
	m_Image->Left = Left + 2;
	m_Image->Width = Width - 2;
	m_Image->Height - 2;
	Graphics::TBitmap *pict = new Graphics::TBitmap;
		pict->LoadFromFile(ImageFile);
		m_Image->Picture->Assign(pict);
		m_Image->Visible = true;
	delete pict;
 
	fileN = ImageFile;
}
//---------------------------------------------------------------------------

Je pars du principe - arbitraire certes - que les 'filename' des images a afficher sont stockées dans une TStringList (ce qui ne doit pas être abérrant ou impossible rien qu'a regarder le lien donné par Mangacker):

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
 
//on crée une TList afin de pouvoir 'stocker'  nos objets et y revenir plus tard
objList =  new TList();
 
//on déroule la TStringList et on crée les objets
int m_top = 2;
int m_left = 2;
for (int i = 0; i < m_list->Count; i++)
{
	m_control = new TMCustomControl(ScrollBox1,m_list->Strings[i]);
	m_control->Parent = ScrollBox1;
	m_control->Top = m_top;
	m_control->Left = m_left;
m_top += m_control->Height;
objList->Add(m_control);
}
 
//ensuite, grace a la TList, on peut réaccéder a nos objets
for (int i = 0;i < objList->Count; i++)
{
	m_control = (TMCustomControl *)objList->Items[i];
	if (m_control->Im_selected == true) {
		ShowMessage(m_control->fileN);
	}
}

Rien de parfait certainement, mais j'espère que cela peut t'aider et/ou de donner des idées...

@+