Bonsoir à toutes et à tous,
Avec un TopenDialog pas de problème je charge une image au format webp et l'affiche dans un Tpicture avec freeimage.dll.
J'essaye en vain (plusieurs codes !) de pouvoir utiliser la méthode du drag and drop en plus du TopenDialog mais problè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 mplementation uses FreeBitmap, FreeUtils; {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); var aFreeBitmap: TFreeWinBitmap; aBmp: TBitmap; aCol: TRGBQuad; begin OpenDialog1.Filter := FIU_GetFullExtList; if OpenDialog1.Execute then begin aFreeBitmap := TFreeWinBitmap.Create; try if aFreeBitmap.Load(OpenDialog1.FileName) then begin aBmp := TBitmap.Create; try aBmp.Width := aFreeBitmap.GetWidth; aBmp.Height := aFreeBitmap.GetHeight; // Couleur de fond pour image transparente Integer(aCol) := ByteSwap(clWhite); aFreeBitmap.DrawEx(aBmp.Canvas.Handle, Rect(0, 0, aBmp.Width, aBmp.Height), False, @aCol); Image1.Picture.Bitmap.Assign(aBmp); finally aBmp.Free; end; end; finally aFreeBitmap.Free; end; end; end;
Si quelqu'un à une idée cela me ferait plaisir.
@+,Je rectifie ce jour, le drag and drop fonctionne depuis l'Exploreur et du dossier vers l'application mais pas depuis la page Web !
cincap
Partager