Fórum JPeg no TImageList #364439
30/09/2008
0
O problema é o seguinte....eu tenho um botão que encontrei na Net chamado d ALButton...o mesmo é transparente e toma forma conforme imagem q é atribuída ao mesmo....fica parecendo botões Web....
Então...
Eu tenho uma aplicação q está sendo feita crianças....e em kda letra eu preciso d uma imagem referente a letra....
Aew começam os problemas....
Eu preciso carregar imagens JPeg o TImageList só aceita imagens .Bmp e .Ico....
Alguém conhece algum componente q aceite JPeg??
Fico no aguardo...
obrigado pessoal...
Wdrocha
Curtir tópico
+ 0Posts
30/09/2008
Abobre
Abraços
Gostei + 0
01/10/2008
Wdrocha
Qdo vou carregar imagens no TImageList o mesmo só carrega imagens *.Ico e *.BMP...
Já declarei a unit JPeg....e nada tbm...
Tem alguma idéia??
No aguardo...
Obrigado..
Gostei + 0
01/10/2008
Paullsoftware
Gostei + 0
02/10/2008
álison Bissoli
por exemplo, o JEDI já saiu para o 2009, e o devexpress ainda não.
alguém tem notícia do dev pro 2009?
Gostei + 0
02/10/2008
Wdrocha
Eu tow testando a versão Trial do Delphi e já tinha visto q a mesma aceita....
Como eu faço para atualizar a versão??
Tow precisando mt disso...meu trabalho só poderá continuar se eu fizer isso...
No Aguardo...
Mt obrigado a todos...
Gostei + 0
02/10/2008
Wdrocha
Primeiro carrego as imagens para um ImageList e na propriedade Images do TButton associo ao TImageList...tem q fazer mais alguma coisa? :-(
Gostei + 0
02/10/2008
Paullsoftware
por exemplo, o JEDI já saiu para o 2009, e o devexpress ainda não.
alguém tem notícia do dev pro 2009?[/quote:84e183cc50]É, realmente quem usa componentes de terceiros fica meio complicado acompanhar as atualizações do produto!!! 8)
Gostei + 0
02/10/2008
Wdrocha
Gostei + 0
02/10/2008
Paullsoftware
[url=http://www.safpe.com.br/externo/jpgEmBotoes.rar]link do exemplo[/url]
Gostei + 0
02/10/2008
Wdrocha
tem como??
Gostei + 0
02/10/2008
Paullsoftware
da uma olhada, espero ter ajudado! :wink:
Gostei + 0
03/10/2008
Wdrocha
Obrigado
Gostei + 0
03/10/2008
Tonidavi2004
Eu tenho uma aplicação q está sendo feita crianças....e em kda letra eu preciso d uma imagem referente a letra.... Aew começam os problemas.... Eu preciso carregar imagens JPeg o TImageList só aceita imagens .Bmp e .Ico.... Alguém conhece algum componente q aceite JPeg?? Fico no aguardo...
Fiz um exemplo para vc poder adaptar segundo as suas necessidades.
Primeiro vc deve setar a propriedade Masked := False do TImageList
veja o código:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ImgList, ExtCtrls, StdCtrls, Buttons, ComCtrls;
type
TForm1 = class(TForm)
ImageList1: TImageList;
ListView1: TListView;
OpenDialog1: TOpenDialog;
Button1: TButton;
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Jpeg;
{$R *.DFM}
procedure TForm1.FormActivate(Sender: TObject);
var
Jpg: TJPEGImage;
bmp: TBitmap;
i: integer;
Lista: TStrings;
begin
try
try
Jpg := TJPEGImage.Create;
bmp := TBitmap.Create;
Lista := TStringList.Create;
if (OpenDialog1.Execute) then
begin
Lista.AddStrings(OpenDialog1.Files);
for i := 0 to Pred(OpenDialog1.Files.Count) do
begin
Jpg.LoadFromFile(OpenDialog1.Files.Strings[i]);
bmp.Assign(Jpg);
bmp.Height := 200;
bmp.Width := 200;
ImageList1.Add(bmp, bmp);
end;
end;
finally
FreeAndNil(bmp);
FreeAndNil(Jpg);
FreeAndNil(Lista);
end;
except
FreeAndNil(bmp);
FreeAndNil(Jpg);
FreeAndNil(Lista);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
ListItem: TListItem;
begin
for i := 0 to Pred(ImageList1.Count) do
begin
ListItem := ListView1.Items.Add;
Listitem.Caption := ´Imagem n° ´+ IntToStr(i);
ListItem.ImageIndex := i;
end;
end;
end.
Neste exemplo que fiz eu add no Opendialog1 só imagem jpg.
Vc disse que quer usar uma imagem jpg em cada botão, para resgatar as imagens colocadas dentro do TImageList basta usar a função
ImageList1.GetBitmap(Index: integer; Bitmap: TBitmap);
Que tem dois parâmetros, Index que é o índice da imagem e um Bitmap que será carregado internamente com a imagem do ImageList especificado pelo índice. exemplo:
ImageList1.GetBitmap(2, BitBtn1.Glyph);
No exemplo fui obrigado a marretar o tamanho de cada imagem por 200 para meu exemplo. Até porque não tinha imagens do mesmo tamanho, mas vc não precisará fazer isso, porque as suas imagens terão o mesmo tamanho, basta vc configurar o ImageList com o mesmo tamanho de suas imagens.
Espero ter ajudado. Um grande abraço !!!
Gostei + 0
03/10/2008
Wdrocha
porém...eu preciso q ele funcione para o componente q estou usando...
Nome do botão q estou usando é o ALGraphicButton o mesmo tbm tem a propriedade Glyph e qdo faço assim..
ImageList1.GetBitmap(0,ALGraphicButton1.Glyph);
acontece o seguinte erro...
[b:9875d4fafc]Incompatible types : ´TBitmap´ and ´TImageList´;[/b:9875d4fafc]
Tentei fazer assim....
ImageList1.GetBitmap(0, TBitmap (ALGraphicButton1.Glyph));
compila certinhow...
mas qdo executo a linha acima...acontece AcessViolation....
se vc quiser eu posso enviar o componente pra vc testar...
Blz?
Gostei + 0
03/10/2008
Tonidavi2004
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)