1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
vignette:=TJpegImage.Create;
with vignette do
begin
// Scale est le paramètre clé à régler en fonction de la taille de la photo à ouvrir
// Chez moi, si la photo est de taille wxh, mon écran étant en 1280x960
If (w>1280) or (h>1280) then Scale:=jsEighth
else
If (w>256) or (h>256) then Scale:=jsQuarter
else
If (w>64) or (h>64) then Scale:=jsHalf
else
Scale:=jsFullSize;
// donne de très bons et rapides résultats
Performance:=jpBestSpeed;
LoadFromFile(...)
...
free;
end; |
