Images à cocher

Version imprimable

13/02/2008, 20h51
LoicH

Images à cocher

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

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
13/02/2008, 22h54
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
14/02/2008, 19h19
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 :
http://silkyroad.developpez.com/VBA/...SSISTPHOTO.jpg

En faite c'est la partie à droite que j'aimerais reproduire.
Lister les images et pouvoir en selectionner une
14/02/2008, 20h04
Sunchaser

Bonsoir,

Citation:

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 ?

@+
;)
14/02/2008, 22h09
Mangacker

pour miniatures tu peux utiliser les composants TImage

pour checker tu peux utiliser les checkbox
17/02/2008, 17h16
LoicH

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

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:

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:

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

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

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

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

@+
;)