miniatureeksempel

Følger lige med...

Det du spørger om er hvordan man laver en Resize på et billede således det stadig passer i dimmentionerne ...

Kig lidt på det her :

unit UnitResize;

interface

uses
  Windows, Graphics, JPEG, SysUtils, ExtCtrls;

procedure ResizePicture(const FileName : TFileName; XMax,YMax:integer);

implementation


procedure ResizePicture(const FileName : TFileName; XMax,YMax:integer);
var
  MainpX,MainpY,FormY,FormX,a,b,Faktor:Real;
  JPEGImage : TJPEGImage;
  Bitmap : TBitmap;
begin
  JPEGImage := TJPEGImage.Create;
  JPEGImage.LoadFromFile(FileName);
  JPEGImage.CompressionQuality := 30;
  a := JPEGImage.Width / XMax;
  b := JPEGImage.Height / YMax;
  MainpX := JPEGImage.width;
  MainpY := JPEGImage.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;


  Bitmap := TBitmap.Create;
  Bitmap.width:=Trunc(MainpX);
  Bitmap.Height:=Trunc(MainpY);
  Bitmap.Canvas.StretchDraw(Bitmap.Canvas.ClipRect, JPEGImage);

  JPEGImage.Free;

  RenameFile(FileName, '_' + FileName);
  JPEGImage := TJPEGImage.Create;
  JPEGImage.Assign(Bitmap);
  JPEGImage.SaveToFile(FileName);
  JPEGImage.Free;
  BitMap.Free;
end;



end.


Jens B

JB -> Det er ikke helt det jeg mener, jeg vil have den til at vise det som i skærmindstillingerne.

Der skal nok bruges screen.width og screen.height

Lavede noget kode (Side om side), men det har vist sig at det ikke er det rigtige størrelsesforhold:

procedure TForm1.btnBaggrundClick(Sender: TObject);
var
  I,J: Integer;
  I1, J1: Integer;
begin
  imgEksempel.Visible:=false;
  imgEksempel.Stretch:=false;
  imgEksempel.Picture:=nil;
  for I:=0 to imgEksempel.Width do
    for J:=0 to imgEksempel.Height do
    begin
        I1:=((Screen.Width div imgEksempel.Width*(I))mod(imgBaggrund.Width));
        J1:=((Screen.Height div imgEksempel.Height*(J))mod(imgBaggrund.Height));
        imgEksempel.Canvas.Pixels[I, J]:=imgBaggrund.Canvas.Pixels[I1,J1];
    end;
  imgEksempel.Visible:=true;
end;


Er forresten kommet i tanke om at jeg ikke behøver en metode til Stræk-visning,

(fortsat fra forige) ... imgEksempel.Stretch sættes bare til false :)

Ingen ideer?

Overhoved ingen ideer ..?

Lukker :(

P.S. Tror jeg har fundet en løsning, måske ikke den optimale men bedre end ingenting, prøver næste gang jeg har adgang til Delphi :)