Fórum BMPs em Menu (tmp de exec) #318755
09/04/2006
0
Estou usando o código abaixo para griar um menu favoritos interno em meu sistema:
NewItem := TMenuItem.Create(MenuBase);
NewItem.Caption := ´MicroSoft Windows Update´;
NewItem.Bitmap.LoadFromFile(PastasEspeciais.TempPath + ´wupd.bmp´); NewItem.OnClick := ProcedimentoAlvo;
MenuBase.Add(NewItem);
NewItem := TMenuItem.Create(MenuBase);
NewItem.Caption := ´-´;
MenuBase.Add(NewItem);
For IAux := 0 To (URLs.Count-1) Do
begin
NewItem := TMenuItem.Create(MenuBase);
try
NewItem.Caption := Copy(ExtractFileName(URLs.Strings[IAux]), 1, Length(URLs.Strings[IAux]) - Length(ExtractFileExt(URLs.Strings[IAux])));
NewItem.Bitmap.LoadFromFile(PastasEspeciais.TempPath + ´iexp.bmp´);
NewItem.OnClick := ProcedimentoAlvo;
MenuBase.Add(NewItem);
except
NewItem.Free;
raise; { reraise the exception }
end;
end;
Estou tendo problemas ao ler os bmps para o menu:
NewItem.Bitmap.LoadFromFile(PastasEspeciais.TempPath + ´wupd.bmp´); . e . NewItem.Bitmap.LoadFromFile(PastasEspeciais.TempPath + ´iexp.bmp´);
As imagens estão na pasta e o código funciona normalmente quando o testo dentro da aplicação (sem dll), mas quando o incluo na dll me vem um ´access violation´... a ShareMem está como primeira na [b:d086325438]Uses[/b:d086325438] tanto do projeto quando da dll...
Alguém sabe o que pode ser...
Paulocesar1301
Curtir tópico
+ 0Posts
10/04/2006
Paulocesar1301
Abs
Gostei + 0
10/04/2006
Tolimpio
Gostei + 0
10/04/2006
Paulocesar1301
Gostei + 0
13/04/2006
Paulocesar1301
Gostei + 0
19/04/2006
Paulocesar1301
Gostei + 0
02/05/2006
Paulocesar1301
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)