1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

var
  MyRect, MyOther: TRect;
  X, Y: Integer;
  aColor: TColor;
begin
 {Klappt nicht wie gewünscht!}
 for X := 0 to 69 do
  for Y := 0 to 69 do
 begin
  aColor := ImagePlus1.Picture.Bitmap.Canvas.Pixels[X, Y];
  ImagePlus2.Canvas.Pixels[X, Y] := aColor;
 end;

 exit;

 {-- Oder: --}

 {Klappt ebenfalls nicht wie gewünscht!}
 MyRect := Rect(0, 0, 69, 69);

 ImagePlus2.Canvas.CopyMode := cmSrcCopy;
 ImagePlus2.Canvas.StretchDraw(MyRect, ImagePlus2.Picture.Graphic);
end;                    

1:
2:
3:

 MyRect := Rect(0, 0, ImagePlus1.Picture.Width, ImagePlus1.Picture.Height);
 MyOther := Rect(0, 0, 69, 69);
 ImagePlus2.Canvas.CopyRect(MyOther,ImagePlus1.Picture.Bitmap.Canvas,MyRect);                    

1:
2:

 ImagePlus2.Picture.Bitmap := ImagePlus1.Picture.Bitmap;
 ImagePlus2.Picture.Bitmap.Canvas.FillRect(Rect(0,0,69,69));                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.ResizeImage(newWidth,newHeight: Integer);
begin
  SetStretchBltMode(ImagePlus2.Canvas.Handle, Halftone);
  StretchBlt(ImagePlus2.Canvas.Handle, 0,0,newwidth,newheight,
   ImagePlus1.Canvas.Handle,0,0,
    ImagePlus1.Width,ImagePlus1.Height,SRCCOPY);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  Y: Integer;
  MyRect: TRect;
begin
 Y := 69 * ImagePlus1.Picture.Height div ImagePlus1.Picture.Width;

 MyRect := Rect(0, 0, ImagePlus1.Picture.Width, Y);

 ImagePlus2.Canvas.CopyMode := cmSrcCopy;
 ImagePlus2.Canvas.StretchDraw(MyRect, ImagePlus1.Picture.Graphic);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  X, Y: Integer;
  MyRect: TRect;
begin
 X := 69 * ImagePlus1.Picture.Width div ImagePlus1.Picture.Height;
 Y := 69 * ImagePlus1.Picture.Height div ImagePlus1.Picture.Width;

 MyRect := Rect(0, 0, X, Y);

 ImagePlus2.Canvas.CopyMode := cmSrcCopy;
 ImagePlus2.Canvas.StretchDraw(MyRect, ImagePlus1.Picture.Graphic);
end;                    

1:
2:
3:
4:
5:
6:
7:

 X := ImagePlus1.Picture.Width;  //Richtig, oder?
 Y := 69 * ImagePlus1.Picture.Height div ImagePlus1.Picture.Width;

 MyRect := Rect(0, Y div 2, X, Y);

 ImagePlus2.Canvas.CopyMode := cmSrcCopy;
 ImagePlus2.Canvas.StretchDraw(MyRect, ImagePlus1.Picture.Graphic);                    

1:
2:
3:
4:
5:
6:
7:

 X := 69 * ImagePlus1.Picture.Width div ImagePlus1.Picture.Height;
 Y := 69 * ImagePlus1.Picture.Height div ImagePlus1.Picture.Width;

 MyRect := Rect(0, 0, X, Y);

 ImagePlus2.Canvas.CopyMode := cmSrcCopy;
 ImagePlus2.Canvas.StretchDraw(MyRect, ImagePlus1.Picture.Graphic);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:

//Scale = Faktor zur Vergrößerung/Verkleinerung (100%=1)
//In, Out... Bitmaps
//Out muss initialisiert sein...
procedure Stretchbitmap(const AIn: TBitmap; const AScale: Double; out AOut: TBitmap);
begin
  AOut.Width := Trunc(AIn.Width * AScale);
  AOut.Height := Trunc(AIn.Height * AScale);
  AOut.Canvas.StretchDraw(Rect(0, 0, AOut.Width, AOut.Height), AIn);
end;                    

1:
2:
3:

For (x:= 0 to ImageThumbFrom.width) do
For For (y:= 0 to ImageThumbFrom.height) do
ImageThumbToSave.Canvas.pixels[x,y] := ImageThumbFrom.Canvas.Pixels[x,y]                    

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:

var
  X, Y: Double;
  MyRect: TRect;
begin
 ImagePlus2.Canvas.Brush.Color := clBtnFace;
 ImagePlus2.Canvas.FloodFill(0, 0, clBtnFace, fsBorder);

 X := ImagePlus1.Picture.Width;
 Y := ImagePlus1.Picture.Height;

 {Brutal und primitiv, ich weiss!}
 while (X > 69) or (Y > 69) do
 begin
  X := X / 1.0001;
  Y := Y / 1.0001;
 end;

 MyRect := Rect(0, 0, Trunc(X), Trunc(Y));

 ImagePlus2.Canvas.CopyMode := cmSrcCopy;
 ImagePlus2.Canvas.StretchDraw(MyRect, ImagePlus1.Picture.Graphic);

 ImagePlus2.Picture.SaveToFile('d:\delphi6\projects\1.bmp');  {Später dann in den Temp-Ordner}

 {Hier meine Prozedur zum Laden von Bitmaps}
 LoadBitmapsFromFile('d:\delphi6\projects\1.bmp', ImageList1, 19098);

 {Das Image anpassen, es soll schön in der Mitte sein}
 ImagePlus2.Picture.Bitmap.Width := Trunc(X);
 ImagePlus2.Picture.Bitmap.Height := Trunc(Y);
end;                    

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:

var
  X, Y: Double;
  L, T: Integer;
  MyRect: TRect;
begin
 DestImagePlus.Canvas.Brush.Color := clBtnFace;
 DestImagePlus.Canvas.FloodFill(0, 0, clBtnFace, fsBorder);

 X := SourceImagePlus.Picture.Width;
 Y := SourceImagePlus.Picture.Height;

 while (X > 69) or (Y > 69) do
 begin
  X := X / 1.0001;
  Y := Y / 1.0001;
 end;

 L := 69 mod Trunc(X) div 2;
 T := 69 mod Trunc(Y) div 2;

 MyRect := Rect(L, T, Trunc(X)+L, Trunc(Y)+T);

 DestImagePlus.Canvas.CopyMode := cmSrcCopy;
 DestImagePlus.Canvas.StretchDraw(MyRect, SourceImagePlus.Picture.Graphic);

 DestImagePlus.Picture.SaveToFile('d:\delphi6\projects\1.bmp');

 LoadBitmapsFromFile('d:\delphi6\projects\1.bmp', ImageList1,
  FileSizeByname('d:\delphi6\projects\1.bmp'));
end;