The bug is on the table! - Magic Mouse / Magic Prefs / Fire Fox / Abas

Acabei de descobrir o que tanto me apurrinhava esses dias.

Ao usar o firefox ou qualquer navegador que suporte "abas" para navegar, simplesmente, ao alternar entre as abas as mesmas fechavam… o.O coisa estranha hein!?

Pois bem, fiquei desconfiado do magic mouse que estou usando, mas, fiquei mais desconfiado ainda do "MagicPrefs", um programinha utilizado para turbinar o magic mouse com algumas novas funcionalidades.


É isso, desliga esse tal MagicPrefs e seja feliz!

PS. É claro que isso pode ser alguma configuração do MagicPrefs, massssss, no meu caso, preferi desabilitá-lo.

[]'s

Minha contribuição anual para a comunidade Rails! :D

Em junho desse ano, tive a oportunidade de falar sobre o Rails para a UNICENTRO em Guarapuava - PR.

Como a apresentação foi gravada, aproveito para disponibilizar para a comunidade.

>> http://webconf.rnp.br/p85068155/

Espero que apreciem.


[]'s

W810i com tela branca piscando [RESOLVIDO]!

Dessa vez achei que havia perdido meu celular...

Ao ligá-lo após uma troca de chips, ele simplesmente começou a piscar uma tela branca e, depois disso, morreu.

Após consultar o nosso oráculo google, percebi que o problema era de software, nessecitando apenas da reinstalação da flash.

Por sorte, vi que a Sony disponibiliza um aplicativo chamado Update Service, que, no meu caso, funcionou divinamente. Foi só fazer a reinstalação e voilá! :)



É isso, fica a dica pra quem por acaso passar pelo pRoBreMa... :D

[]'s

Setando Zoom to Fit no QuickReport! Delphi again! :D

Dias atrás precisei setar a opção "Zoom to Fit" no QuickReport, em Run Time.
Segue a solução encontrada na rede, com algumas alterações:

========================

Uses QRPrev;

Function SET_QR_ZOOM_TO_FIT : boolean;
var
i:integer;
begin
Result := False;
for i := 0 to Screen.FormCount-1 do
begin
if Screen.Forms[i] is TQRStandardPreview then
begin
TQRStandardPreview(Screen.Forms[i]).ZoomFit.Click;
TQRStandardPreview(Screen.Forms[i]).ZoomFit.Down := True;
Result := True;
end;
end;
end;

========================

É isso!

[]'s

Dica de Leitura - Governança de Ti

Olha eu aqui AGAIN! :)

Acabei de ler (na verdade uma folheada minuciosa, não considerei como leitura), o livro "Implantando a Governança de Ti" do Aguinaldo Aragon Fernandes.


Considero o livro ser um apanhado de tudo que temos hoje relacionado a Governança de Ti, mas, infelizmente, ao meu gosto, passa longe de ser uma leitura empolgante. Acredito que esse tipo de livro sirva apenas para dar uma visão geral sobre tudo relacionado a Gov Ti, mas, também acredito que poderia ser abordado de uma forma mais dinâmica, menos formal.

É isso, recomendo o livro para quem quer dar os primeiros passos em Gov Ti.

Hasta la vista! ;)

[]'s

Nova cara!

Pois é, o corre-corre é tanto que acabei esquecendo de mais um aninho de vida desse blog. Dois meses se passaram e eu só me dei conta hoje... hehehe... o negócio tah pau!

Como de costume, alterei o visual, dessa vez aproveitanto os novos layouts disponibilizados pelo Blogger, que por sinal, achei bem mais profissionais e atuais.

É isso, nunca achei que escreveria tanto, e agora, passados 3 anos, vejo que estamos só começando.

Abraço!

Tratando Erros/Exceções de forma global no Delphi 7 com o "Application.OnException"

Sei que o assunto pra muitos vai parecer velharia, e até é mesmo, mas, como estou firulando esses dias com o Delphi, resolvi compartilhar esse detalhezinho que precisei para tratar exceções de forma global.


Sei que existem diversas dicas na net de como fazer isso, mas, nesse caso especial, vi que muitas pessoas estavam se enrolando ao tentar tratar Exceções do BDE como uma Exceção comum, então fica a dica:

1) Crie uma procedure no seu formulário principal

>> procedure ManipulaExcecoes(Sender: TObject; E: Exception);


2) Implemente a procedure conforme abaixo

>> procedure TFormPrincipal.ManipulaExcecoes(Sender: TObject; E: Exception);
Begin
TRATA_ERRO(E as EDBEngineError);
end;


3) No evento OnCreate do form principal escreva o seguinte código

>>procedure TFormPrincial.FormCreate(Sender: TObject);
begin
Application.OnException := ManipulaExcecoes;
end;


4) Por último implemente a função que trata os erros

>>Procedure TRATA_ERRO(vErro : EDBEngineError);
Var
x : Integer;
Begin
For x := 0 To vErro.ErrorCount -1 Do
Begin
If vErro.Errors[x].NativeError=0 Then
Case vErro.Errors[x].ErrorCode Of
9475:ShowMessage('Espaço Insuficiente em Disco.');
9479:ShowMessage('Tabela Está Cheia');
9429:ShowMessage('Espaço Insuficiente em Disco.');
9432:ShowMessage('Campo Obrigatório Sem Valor.');
9744:ShowMessage('Este registro não pode ser removido, outros registros dependem dele.');
9733:ShowMessage('Campo preenchido com valor incorreto! Verfique os dados informados!'+#13+vErro.Errors[x].Message);
9734:ShowMessage('Este registro não pode ser removido, outros registros dependem dele.'+#13+#13+'Para excluí-lo você deve primeiro excluir os seus dependentes...');
10241:ShowMessage('Registro em Uso Por Outro Usuário.');
10019:ShowMessage('Valor informado fora da limite permitido!')
Else
ShowMessage('Comunique o Erro Abaixo ao seu programador ou responsável pelo sistema.'+#13+IntToStr(vErro.Errors[x].ErrorCode)+'-'+vErro.Errors[x].Message);

End;
End;
End;


Pronto, agora é só usar!

[]'s