Carregar image com as imagens de um imagelist

Question

Bom dia a todos.  Tenho algumas imagens gravadas dentro de um imagelist e estou precisando carreg�-las em tempo de execu��o.  Ex:  Ao clicar no 1� item de um combobox, o image chama a 1� imagem do ima...

Micheus · Answer

Este procedimento funciona para mim. No seu caso, vc dever� modificar o �ndice da imagem a ser obtida do ImageList na chamada do m�todo GetBitmap - eu utilizei fixo em 0 (zero):

procedure TForm1.Button3Click(Sender: TObject);
var
  bmp :TBitMap;
begin
  bmp := TBitMap.Create;
  try
    ImageList1.GetBitmap(0, bmp);
    if bmp.Handle > 0 then
    begin
      Image1.Picture.Bitmap.Assign(bmp);
      Image1.Refresh;
    end;
  finally
    bmp.Free;
  end;
end;

Turbo Drive · Answer

Valeu pela dica, mas infelizmente as imagens perdem a resolu��o. As imagens ficam perfeitas se forem do tamanho de �cones, mas eu preciso que elas tenham 100 x 80 de dimens�es (quase do tamanho das gravuras das revistas acima).

Algu�m teria uma outra sugest�o ?

Siam · Answer

Como est� o Height e Width do seu TImageList ?...

Micheus · Answer

Exatamente, [b:5b3d84e653]siam[/b:5b3d84e653]. [b:5b3d84e653]Turbo Drive[/b:5b3d84e653], o tamanho das imagens definidas no ImageList tem que ser compat�vel (igual) ao do Image, do contr�rio, ser tiver habilitada a propriedade AutoStrech as im�gens realmente ser�o distrocidas.

Turbo Drive · Answer

Obrigado galera. Foi vacilo meu mesmo. N�o havia atentado para o width e o heigth. Foi s� configurar para o tamanho das imagens que apareceram certinhas....

Samuel Basso · Answer

As imagens ficam distorcidas da mesma forma, Utilize do tipo TICON.
var
bmp :TIcon;
begin
bmp := TIcon.Create;
try
ImageList1.GetIcon(1, bmp);
if bmp.Handle > 0 then
begin
Image1.Picture.Icon.Assign(bmp);
Image1.Stretch := True;
Image1.Refresh;
end;
finally
bmp.Free;
end;
end;

F�rum Carregar image com as imagens de um imagelist #329618