Fórum Carregar ImageList em Run Time #331072
13/10/2006
0
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.
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
Curtir tópico
+ 0
Responder
Posts
13/10/2006
Aloizio Castro
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;
Responder
Gostei + 0
13/10/2006
Cabal
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 ?
Quando tento dimensionar o imagelist para widht = 48 e heigth = 48, dá um erro e não consigo abrir.
sabe como contornar isso ?
Responder
Gostei + 0
13/10/2006
Cabal
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
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)