Bonjour,
Je suis entrain de réaliser un thumbnail perso qui charge différents types d'images et notemment du TIF. J'ai donc récupéré une librairie avec une fonction (ReadTiffPage()) qui me renvoi une page du TIF sous la forme d'un TBitmap. Ensuite, je crée dynamiquement un panel avec à l'intérieur un TImage pour stocker ma miniature or j'ai un petit soucis ... car l'image semble prendre comme parent le parent de mon TPanel et non celui de mon TImage :
Voici comme j'ai crée :
//Conteneur Image
with TPanel.Create(Self) do
begin
Name := 'VIGNETTE_' + IntToStr(i);
Parent := Panel_vignettes;
Caption := '';
Color := clWhite;
BevelInner := bvLowered;
BevelOuter := bvRaised;
Left := X;
Top := Y;
Width := LARGEUR_VIGNETTE;
Height := HAUTEUR_VIGNETTE;
OnClick := Select_Vignette;
//Image
with TImage.Create(Self) do
begin
Name := 'IMG_' + IntToStr(i);
Parent := Panel_vignettes;
Picture.Bitmap := ReadTiffPage(i-1);
Stretch := True;
Left := 0;
Top := 0;
Width := LARGEUR_VIGNETTE;
Height := HAUTEUR_LABEL;
Align := alClient;
end;
end;
J'espère avoir été clair dans mon esplication et je vous remercie par avance de vos réponses.
