ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

ZipMaster alterando meu cursor

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
jotaplaysson
Novato
Novato


Registrado: Terça-Feira, 16 de Agosto de 2011
Mensagens: 47

MensagemEnviada: Ter Ago 28, 2012 10:55 am    Assunto: ZipMaster alterando meu cursor Responder com Citação

Bom, eu tentei pesquisar, mas a engine de pesquisa do fórum não está funcionando, então perdão se já existe outro tópico sobre isso.

Minha problema é o segiunte:
Eu uso o ZipMaster para descompactar um arquivo Zip. O problema é que depois o cursor se torna a ampulheta (crglasshour). Eu não setei em nenhum lugar essa mudança e tentei depois de chamar o método mudar o cursor de volta, mas acontece que o método é chamado a partir de uma Unit sem Form, então eu acho que não sei em qual dos forms eu preciso alterar para o cursor voltar a ser o padra (crDefault).

O código que estou usando para descompactar é esse:

Código:

function TPalmPC.descompactar(arquivo: string): boolean;
var
zip: TZipMaster;
diretorio: string;
begin
  diretorio := ExtractFilePath(arquivo);

  zip := TZipMaster(zip);
  zip.ExtrBaseDir := diretorio;
  zip.ZipFileName := arquivo;

  zip.FSpecArgs.Add('*.*');

  Result := zip.Extract = 0;
  zip.Free;
end;


Bom é isso, se alguém puder ajudar, obrigado!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
jotaplaysson
Novato
Novato


Registrado: Terça-Feira, 16 de Agosto de 2011
Mensagens: 47

MensagemEnviada: Ter Ago 28, 2012 11:34 am    Assunto: Responder com Citação

Observando o código da Unit eu percebi eu encontrei um metodo protected chamado StartWaitCursor e o StopWaitCursor, por alguma razão ele não está chamando o StopWaitCursor.

entao eu adicionei uma linha antes do zip.Free

Código:

diretorio := ExtractFilePath(arquivo);

  zip := TZipMaster.Create(nil);
  zip.ExtrBaseDir := diretorio;
  zip.ZipFileName := arquivo;
  zip.FSpecArgs.Add('*.*');

  Result := zip.Extract = 0;

  Screen.Cursor := crDefault;

  FreeAndNil(zip);


Bom, pelo menos funcionou =]
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB