Carregar imagens para o TImageList e lê-las?
Eu estou tentando carregar jpg em um imagelist, convertendo o .jpg para um bmp e, em seguida, salvando-o imagelist1.
De cima para baixo do recorte de código. O trabalho do Selectdir e as peças do fileexista funcionam. Isso é usado para carregar todas as imagens em uma pasta.Todas as imagens são nomeadas assim 0.jpg / 1.jpg ect ..
Eu então carrego o jpg para uma imagem. Defina a largura / altura do bmp e carregue o bmp com a mesma imagem do jpg, depois, adicione o bmp ao imagelist. E quando estiver pronto, deve mostrar a primeira imagem 0.jpg
Duas questões, primeiro, se eu fizesse isso, mostraria apenas uma pequena área (canto superior esquerdo) do bmp, mas era a imagem correta. Eu suponho que isso é devido à cultura da opção. que eu não consigo descobrir como fazê-lo selecionar centro durante o tempo de execução?
Segundo, se eu colocar
Imagelist1.width := currentimage.width;
Imagelist1.height := currentimage.height;
Então mostra a última imagem. gostarImagelist1.GetBitmap()
não funcionou? Então eu suponho que uma correção para qualquer um seria ótimo! aplausos squills
procedure TForm1.Load1Click(Sender: TObject);
var
openDialog : TOpenDialog;
dir :string;
MyPicture :TPicture;
currentimage :Tbitmap;
image : integer;
clTrans : TColor;
begin
Image := 0 ;
//lets user select a dir
SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP);
myPicture :=Tpicture.Create;
currentimage := TBitmap.Create;
//keeps adding images as long as the file path exsist.
//thus comic pages should be renumbed to 0-XX
while FileExists(Dir+'\'+inttostr(image)+'.jpg') do
begin
try
MyPicture.LoadFromFile(Dir+'\'+inttostr(image)+'.jpg'); //load image to jpg holder
currentimage.Width := mypicture.Width; //set width same as jpg
currentimage.Height:= mypicture.Height; //set height same as jpg
currentimage.Canvas.Draw(0, 0, myPicture.Graphic); //draw jpg on bmp
clTrans:=currentimage.TransparentColor; //unknown if needed?
//Imagelist1.Width := currentimage.Width;
//imagelist1.Height := currentimage.Height;
Imagelist1.Addmasked(Currentimage,clTrans); //add to imagelist
finally
image := image +1; //add one so it adds next page
end;
end;
ImageList1.GetBitmap(0,zImage1.Bitmap);
mypicture.Free;
currentimage.Free;
end;