다른 크기의 이미지로드 TImageList

Question

이미지 iam로드는 약간 다른 크기입니다. 가장 작은 크기를 얻고 크기에 맞게 다시 크기를 조정하려면 어떻게해야합니까?

아래 코드 이미지의로드 ->이 에러 무효 이미지 크기를 제공 약 3 잔상

를 이미지리스트에 추가 -> BMP로 변환. 처음에는 imagelist에게 준 크기만큼 이미지 크기가 너무 크기 때문입니다. 당신이 TImageList에 이미지를 넣어 시작하면

procedure TForm1.LoadImages(const Dir: string); 
var 
    z,i: Integer; 
    CurFileName: string; 
    JpgIn: TJPEGImage; 
    BmpOut: TBitmap; 
begin 
    i := 0; 
    z := 1; 
    while True do 
    begin 
    CurFileName := Format('%s%d.jpg', 
          [IncludeTrailingPathDelimiter(Dir), i]); 
    if not FileExists(CurFileName) then 
     Break; 
    JpgIn := TJPEGImage.Create; 
    try 
     JpgIn.LoadFromFile(CurFileName); 
     if z = 1 then 
     begin 
     ImageList1.SetSize(jpgin.width, jpgin.Height); 
     z := 0; 
     end; 
     BmpOut := TBitmap.Create; 
     try 
     BmpOut.Assign(JpgIn); 
     ImageList1.Add(BmpOut, nil); 
     finally 
     BmpOut.Free; 
     end; 
    finally 
     JpgIn.Free; 
    end; 
    Inc(i); 
    end; 
    if ImageList1.Count > 0 then 
    begin 
    BmpOut := TBitmap.Create; 
    try 
     ImageList1.GetBitmap(1, BmpOut); 
     zimage1.Bitmap.Assign(bmpout); 
     zimage1.Repaint; 
    finally 
     BmpOut.Free; 
    end; 
    end; 
end; 

Answer 1

, 당신은 크기를 조정할 수 없으며, 모든 이미지 크기가 동일해야합니다. 따라서 사전에 모든 이미지를 미리로드해야 사용할 수있는 가장 작은 크기를 결정한 다음 큰 이미지를 더 작은 크기로 자르거나 늘린 다음 TImageList에 최종 이미지를로드 할 수 있습니다.

은 바로 그들을 무료 TList 또는 TObjectList 아니라으로 다음 수있는 작은 크기, 다시 필요에 따라 이미지 크기를 조정 목록을 통해 다음 루프를 계산하는 그 목록을 반복하고 루프를 TJPEGImage의 모든 루프 매장을 가지고 목록을 통해 TImageList에 이미지를 다시 추가 한 다음 마지막으로 목록을 반복하여 이미지를 해제합니다.