Carregar ImageList em Run Time

Delphi

13/10/2006

Galera como Posso carregar as imagens tipo BMP em uma ImageList em Run Time.
As imagens estão gravadas num BD. mas a recuperação das imagens já fiz, só não consigo inseri-las na Imagelist.
Valeu galera.


Cabal

Cabal

Curtidas 0

Respostas

Aloizio Castro

Aloizio Castro

13/10/2006

procedure TForm1.Button1Click(Sender: TObject);
var
  Bmp : TBitmap;
  F : String;
begin
  F := FileListBox1.FileName;
  Bmp := TBitmap.Create;
  Bmp.Width := 16;
  Bmp.Height := 16;
  Bmp.LoadFromFile(F);
  ImageList1.AddMasked(Bmp,clFuchsia);
end;



GOSTEI 0
Cabal

Cabal

13/10/2006

Amigo Funcionou beleza, mas ocorreu um pequeno probleminha no Tamanho da Figura.
Quando tento dimensionar o imagelist para widht = 48 e heigth = 48, dá um erro e não consigo abrir.
sabe como contornar isso ?


GOSTEI 0
Cabal

Cabal

13/10/2006

Amigo Funcionou beleza, mas ocorreu um pequeno probleminha no Tamanho da Figura. Quando tento dimensionar o imagelist para widht = 48 e heigth = 48, dá um erro e não consigo abrir. sabe como contornar isso ?


O erro EinvalidOperation Invalid Image Size.

Meu código:

Query := Tadoquery.create(self);
Query.Connection := Adoconnection1;
Query.SQL.Text := ´Select figura from gerente.tb_figuras where indice = :P´;
query.Parameters[0].Value := Indice;
Query.Open;
Bmp := TBitmap.Create;
Bmp.Width := Tamanho; //Variavel integer q retorna o tamanho do BMP
Bmp.Height := Tamanho;
Bmp.Assign(Query.FieldByName(´FIGURA´));//A imagem q vemdo banco
Lista.AddMasked(Bmp,clFuchsia); //seu código


GOSTEI 0
POSTAR