Détecter le clic sur la vignette créée en D6

Version imprimable

Bonjour à toutes et à tous,

J'essaye de faire une petite application afin de créer des vignettes des photos au format .jpg contenues dans un dossier.

J'utilise ce code qui affiche bien les vignettes depuis mon dossier, mais je n'ai pas trouvé comment lors d'un clic obtenir une autre information soit agrandir cette image soit un message.

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
39
40
41
42
43
 
begin
foundlist:=tstringlist.create;
 
try
 
//Voir les fichiers jpg
if FindFirst(directorylistbox1.Directory +'\*.jpg', faAnyFile, sr) = 0 then
  begin
       foundlist.add(sr.name);
       while FindNext(sr) = 0 do
             foundlist.add(sr.name);
       FindClose(sr);
  end;
 
x:=0;
y:=0;
 
//création des vignettes
for i:=0 to FoundList.count-1 do
        begin
             anewthumb:=tbi_thumb.create(self);
             buffer_jpeg.loadfromfile(foundlist[i]);
             with anewthumb do begin
              pic:=buffer_jpeg;
              parent:=scrollbox1;
              left:=x;
              top:=y;
              width:=120;
              height:=90;
              visible:=true;
              inc(x,122);
              if x>244 then
                        begin x:=0; inc(y,100); end;
              application.processmessages;
             end;
end;
 
finally 
foundlist.free; 
end;
 
end;

Merci d'avance pour toute aide.

@+,

cincap

Bonjour,

je ne connais pas ce composant tbi_thumb donc la première question est : accepte t'il un évènement onClick ?
Si oui, il faut créer une procédure "générale" (le nom exact m'échappe) par exemple procedure vignetteclick(Sender : TObject);
et ensuite affecter cette procédure lors de la création de l'objet
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 with anewthumb do begin pic:=buffer_jpeg; parent:=scrollbox1; left:=x; top:=y; width:=120; height:=90; visible:=true; inc(x,122); if x>244 then begin x:=0; inc(y,100); end; onClick:=vignetteclick; application.processmessages; end;

19/09/2019, 10h33
SergioMaster

plus

Bon, j'ai eu la curiosité de chercher sur le net ce tbi_thumb et je suis tomber sur http://www.delphipages.com/articles/...r___-9199.html
votre code y ressemblant à s'y méprendre je présume que c'est de cette page que vous vous êtes inspiré. Donc, pas de bol, il n'y a pas d'évènement OnClick :weird:

au fait je me suis remémoré de nom exact il s'agit d'un TNotifyEvent

Pour info la bibliothèque JVCL (il y a surement une vieille version D6) fourni un composant jvthumbImage
attention, il faudra peut-être charger une version ancienne pour être sûr d'avoir les paquets pour D6

Bonjour,

si tu ajoutes au code du " tbi_thumb"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  tbi_thumb=class(tcustomcontrol)
    fmypic : tjpegimage;
  private
    procedure getpic(value:tjpegimage);
  public
    procedure paint; override;
    constructor create(aowner:tcomponent); override;
    destructor destroy; override;
  published
    property pic:tjpegimage write getpic;
    property OnClick;  // ceci  <-----------------------------
  end;

tu devrais pouvoir utiliser le OnClick comme le propose SergioMaster ;)

Cordialement,

@+

19/09/2019, 15h03
cincap

@ Cirec et SergioMaster, merci pour vos suggestions, c'est bien le code de Boern Ischo (d'Allemagne)et les images s'affichent dans un TScrollBox qui lui a la propriété du onclick.

Ma demande consiste à pouvoir différencier les vignettes en cliquant dessus soit par la propriété tag ou index car chaque image créée n'a pas de propriété.

Pour le moment elles s'affichent sur 3 colonnes en tenant compte du nombre de photos dans le dossier.

Je vais aussi vérifier avec la Jvcl.

@+,

cincap
19/09/2019, 16h55
SergioMaster

Citation:

Envoyé par cincap

Ma demande consiste à pouvoir différencier les vignettes en cliquant dessus soit par la propriété tag ou index car chaque image créée n'a pas de propriété.

à ajouter aussi par exemple property tag : string;

1 pièce(s) jointe(s)

Citation:

Ma demande consiste à pouvoir différencier les vignettes en cliquant dessus soit par la propriété tag ou index car chaque image créée n'a pas de propriété.

justement et tu peux y arriver sans grande modifications
ci-joint un zip pour illustrer le tout :Pièce jointe 504330

ps: testé avec D7

Cordialement,

@+

[EDIT]
ne sachant pas si on peut modifier un zip déposé !?
je poste ici une petite modifications de dernière minute
pour faciliter le choix de la taille, la marge et le nombre de Thumb par ligne :

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
procedure TForm1.DirectoryListBox1Change(Sender: TObject);
const
  ThumbWidth    = 120;
  ThumbHeight   =  90;
  ThumbMarge    =   8;
  ThumbsPerLine =   5;
var
  i, x, y      : Integer;
  aNewThumb    : Tbi_Thumb;
  FoundList    : TStringList;
  sr           : TSearchRec;
 
begin
  FoundList := TStringList.Create;
  try
    // Ajouté
    // suppression des images
    while ScrollBox1.ControlCount > 0 do
      ScrollBox1.Controls[0].Free;
    //look for jpg files
    if FindFirst(Directorylistbox1.Directory + '\*.jpg', faAnyFile, sr) = 0 then
    begin
      FoundList.add(Directorylistbox1.Directory + '\' + sr.name);
      while FindNext(sr) = 0 do
        FoundList.add(Directorylistbox1.Directory + '\' + sr.name);
      FindClose(sr);
    end;
 
    x := ThumbMarge;
    y := ThumbMarge;
 
    //create the thumbnails
    for i := 0 to FoundList.count - 1 do
    begin
      aNewThumb := Tbi_Thumb.create(self);
      Buffer_JPEG.loadfromfile(FoundList[I]);
      with aNewThumb do begin
        Pic := buffer_jpeg;
        Parent := scrollbox1;
        // Ajouté
        FileName := FoundList[I];
        OnClick := ThumbClick;
        //
        Left := x;
        Top := y;
        Width := ThumbWidth;
        Height := ThumbHeight;
        Visible := true;
        Inc(x, ThumbWidth + ThumbMarge);
        if x > (ThumbWidth * ThumbsPerLine) then
        begin
          x := ThumbMarge;
          Inc(y, ThumbHeight + ThumbMarge);
        end;
        Application.Processmessages;
      end;
    end;
  finally
    FoundList.free;
  end;
end;

[/EDIT]

19/09/2019, 18h46
cincap

@ Cirec, quel professionnalisme, tout fonctionne correctement sous D6 après la modification naturellement.

Encore merci Cirec et aussi à ceux qui ont pris un peu sur leur temps pour aider les autres.

Que des cracks sur ce site !

Je ferme le topic car amplement résolu.

@+,

cincap
27/09/2019, 11h25
Charly910

1 pièce(s) jointe(s)

Bonjour,

j'ai complété le programme de Cirec, en affichant les vignettes sans déformer les images originales et en affichant l'image originale par simple Clic (avec zoom à la molette). J'ai aussi ajouté la propriété Tag qui peut servir comme dans cet exemple à stocker le numéro de l'image. Voici le projet modifié :

Pièce jointe 505969

A noter aussi l'excellent logiciel pReorg d'affichage de vignettes de Jean Yves Queinec que l'on peut trouver ici

A+
Charly
28/09/2019, 11h09
cincap

@ Charly910,

Merci pour cette modification surtout le zoom avec la roulette de la souris.

Pour ma part, j'avais ajouté la propriété du doubleclick pour afficher la photo avec l'aperçu de Windows qui permet aussi plusieurs options.

J'ai aussi prévu le défilement des vignettes avec la roulette de la souris.

Comme quoi a partir d'un code de base de l'auteur Monsieur
Bjoern Ischo tout est permis !

http://www.delphipages.com/articles/...r___-9199.html

@+,

cincap
28/09/2019, 11h27
Charly910

Ton lien est brisé

A+
Charly
28/09/2019, 13h46
cincap

@ Tous, désolé pour le lien c'est du au copy/coller :

http://www.delphipages.com/articles/...r___-9199.html

@ Charly910, après test, le focus n'est pas donné sur le TScrollBox afin de faire défiler les vignettes, je l'ai remédié !

@+,

cincap
28/09/2019, 16h45
Charly910

Merci, je pensais pourtant avoir mis des Scrollbox1.setFocus ?

A+
Charly

Bonjour à toutes et à tous,

@ Charly910,

J'avais remarqué que suivant le système un simple "Scrollbox1.setFocus" ne fonctionnait pas à 100%.

Avec ton projet voici ce que je te propose :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 procedure TForm1.ScrollBox1MouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin SendMessage(ScrollBox1.handle,WM_VSCROLL,SB_LINEDOWN,0); end; { ======================================================================== } procedure TForm1.ScrollBox1MouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); begin SendMessage(ScrollBox1.Handle, WM_VSCROLL, SB_LINEUP, 0); end; { ======================================================================== }
Et dans :
Code:

1 2 3 4 5 6 7 8 procedure TForm1.DirectoryListBox1Change(Sender: TObject); --- -- finally FoundList.free; form1.ActiveControl := Scrollbox1; //Donne le focus end;
Dans mes projets ou j'utilise un TScrollBox et ou se trouve d'autres composants comme un TButton, un TSpinEdit, TRadioButton et autres, je dois chaque fois remettre " form1.ActiveControl := Scrollbox1;"

Je ne sais pas si c'est faisable de le déclarer une seule fois et qu'il fonctionne avec tous les Tcontrols, à creuser ?

@+,

cincap

29/09/2019, 20h04
Charly910

Ok, merci Cincap je vais tester. Chez moi les SetFocus fonctionnaient bien

A+
Charly