Picture thumbnail

Nå det er ligemeget nu, har fundet en kode:

procedure ResizePicture(Mainp:Timage;xmax,ymax:integer);
var
MainpX,MainpY,FormY,FormX,a,b,Faktor:Real;
begin
mainp.stretch := False;
mainp.autosize := True;
mainp.stretch := true;
mainp.autosize := false;
a := mainp.Width / xmax;
b := mainp.Height / ymax;
MainpX := Mainp.width;
MainpY := Mainp.height;
FormX := xmax ;
FormY := ymax;
If a >= b Then
    Begin
    faktor := mainpX / FormX;
    mainpX := FormX;
    mainpY := mainpY / faktor;
    End;
If a < b Then
    Begin
    Faktor := mainpY / FormY;
    mainpY := FormY;
    mainpX := mainpX / faktor;
    End;
Mainp.width:=Trunc(MainpX);
Mainp.height:=Trunc(MainpY);
end;

Det du gør med ovenstående kode, er simpel skalering af billedet via kode, og kan ikke kaldes at lave en thumbnail. Billedet er stadig indlæst i sin fulde størrelse i hukommelsen, og du kan få problemer, hvis du vil lave en egentlig billedbrowser, hvor mange billeder skal indlæses på en gang.

det var ikke det jeg mente, jeg ville lave en Picture Preview, lidt ligesom den i Windows, så jeg skulle bare have den til at skalere den oprindelige størrelse ned så den passer til formen, alt efter hvor stor den er.