 |
ActiveDelphi .: O site do programador Delphi! :.
|
| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
jotaplaysson Novato

Registrado: Terça-Feira, 16 de Agosto de 2011 Mensagens: 47
|
Enviada: Ter Ago 28, 2012 10:55 am Assunto: ZipMaster alterando meu cursor |
|
|
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 |
|
 |
jotaplaysson Novato

Registrado: Terça-Feira, 16 de Agosto de 2011 Mensagens: 47
|
Enviada: Ter Ago 28, 2012 11:34 am Assunto: |
|
|
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 |
|
 |
|
|
Enviar Mensagens Novas: Proibido. Responder Tópicos Proibido Editar Mensagens: Proibido. Excluir Mensagens: Proibido. Votar em Enquetes: Proibido.
|
|