9/15/2007

Criar Bookmarks [ArcEngine]

Olá,

Gostaria de repassar o conhecimento de como criar Bookmarks em um menu em uma aplicação ArcEngine.

Segue primeiramente o código para adicionar itens no menu dinamicamente. Cria-se algumas variáveis membro na sua classe que contenha o menu.

IList tsItem2 = new List();
DlgFavoritos dlgFavoritos;
int index = 0;

Depois criamos o menu com um ítem Adicionar Favoritos...



Após isso no evento click() do menu adicione o seguinte código

private void adicionarFavoritoToolStripMenuItem_Click(object sender, EventArgs e)
{
string nomeFavorito;

try
{
if (dlgFavoritos == null)
{
dlgFavoritos = new DlgFavoritos();
dlgFavoritos.ShowDialog();
}
else
{
dlgFavoritos.ShowDialog();
}
}
finally
{
nomeFavorito = dlgFavoritos.txtBoxFavorito.Text;
if (( dlgFavoritos.BookmarkSolicitado ) && ( !existeNoMenu(nomeFavorito, menuStripPrincipal) ))
{
tsItem2.Add(new ToolStripMenuItem());
tsItem2[index].Name = nomeFavorito;
tsItem2[index].Text = nomeFavorito;
( (ToolStripMenuItem)menuStripPrincipal.Items[menuStripPrincipal.Items.Count - 2] ).DropDownItems.AddRange(new ToolStripItem[] { tsItem2[index] });
tsItem2[index].Click += new System.EventHandler(this.ZoomTo);
AddSpatialBookMark(axMapControlPrincipal.ActiveView, tsItem2[index].Name);
index++;
dlgFavoritos.BookmarkSolicitado = false;
MessageBox.Show("Favorito: " + nomeFavorito + " criado com sucesso.", "Informação", MessageBoxButtons.OK, MessageBoxIcon.Information);
}
else if (existeNoMenu(nomeFavorito,menuStripPrincipal) )
{
MessageBox.Show("Esta entrada no menu já existe favor tentar outro nome", "Alerta", MessageBoxButtons.OK, MessageBoxIcon.Warning);
}
}
}



este código adicionará item a item no menu associando o mesmo evento para todos os ítens.

Agora é só criar o método que adiciona o bookmark ao seu mapa e boa sorte.

Segue o método que faz a criação de bookmaarks

private void ZoomTo(object sender, EventArgs e)
{
irParaBookmark(axMapControl1.ActiveView, ( (ToolStripItem)sender ).Name);
}

public static void irParaBookmark(IActiveView activeView, String nomeBookMark)
{
for (int i = 0; i <>
{
if (aoiBookmark[i].Name == nomeBookMark)
{
aoiBookmark[i].ZoomTo(activeView.FocusMap);
activeView.Refresh();
}
}
}

#region variaveis bookmark
public static IList aoiBookmark = new List();
public static IMapBookmarks mapBookmarks;
public static int index = 0;
#endregion

public static void AddSpatialBookMark(IActiveView activeView, String bookmarkName)
{
if (activeView == null || bookmarkName == null)
{
return;
}
// Criar um novo bookmark e setar sua localização na extensão corrente do mapa atual
aoiBookmark.Add(new AOIBookmarkClass());

// Setar Bookmark para a extensão correte
aoiBookmark[index].Location = activeView.Extent;
aoiBookmark[index].Name = bookmarkName;

// Adiciona o bookmark à coleção de bookmark do mapa
// Para o ArcGIS Desktop isto irá adicionar o bookmark ao menu Bookmarks da visão
mapBookmarks = (IMapBookmarks)activeView; // Dynamic Cast
mapBookmarks.AddBookmark(aoiBookmark[index]);
index++;

}

Espero que lhes sejam útil pois é uma funcionalidade que melhora a produtividade de quem passa o dia trabalhando com mapas.

A Esri já possui sua própria ferramenta mas preferí customizá-la.


Ezequias.

Família



Minha família,

Estou cada dia mais feliz por ter uma família tão vibrante e linda como a minha. Infelizmente existem pessoas que não querem ver esta união mas
nós não ligamos. E como diz o meu cunhado Thiago:

Tá com raiva ?
De mim ?
Entra na fila.

Obrigado a todos que rezam pela nossa felicidade.
Zeca

6/20/2007

De volta ao GIS



Bem,

Estou de volta ao GIS. É impressionante como minha vida sempre segue por este rumo.

Parece-me que meu tio Arqueólogo tem dados suas forças lá perto de Deus. Bem cá estou novamente tentando me referenciar espacialmente neste mundo.

Estou muito feliz de poder contar realmente com amigos em todos os locais por onde passei sempre me surpreendendo com a colaboração e a simpatia de todos. Obrigado pela confiança de todos em meu trabalho. Espero atender a todas as espectativas.

No início do ano recebi uma proposta bem interessante da Imagem - Soluções em Inteligência Geográfica www.img.com.br e fiquei muito feliz por ser lembrado neste momento que a ESRI está de volta a minha terrinha.

Não conheço muito a história do GIS no Recife, mas pelos mestres de 1980 com que conversei tudo começou por este período por aqui e tudo foi muito rico e recompensador. Depois de algum tempo com o fim do projeto Unibase, tudo se acalmou e especialistas em tecnologias ficaram no comando (antes os profissionais de cartografia estavam na crista da onda).

Pelo que conversei também com a Imagem estes profissionais estão se afastando do negócio GIS que movimenta o mercado. Muitas novas tecnologias estão incorporadas ao GIS e estes profissionais não se adequam a estas novas possibilidades.

Bem, por fim concluo que está sendo uma experiência recompensadora trabalhar no setor de utilities aqui mesmo em minha cidade. Agradeço a toda a equipe e especialmente a Jorell, nosso gerente, pela confiança e empenho na solução de nossos problemas.

Por fim gostaria de agradecer a Neoenergia pela coragem de reabir este caminho e confiar no profissionalismo da Imagem. Esta coragem lhes será recompensada. Feliz 2007.

Ezequias

ps: Fotos do treinamento em São José dos Campos

4/20/2007

Delphi deadline

My Delphi deadline 2007-04-17

Goodbye Delphi.

3/23/2007

Duas lixeiras no gnome

Procedimento para remover uma lixeira que possa aparecer a mais na tela do gnome (distribuições mais novas) no Desktop e na barra inferior.

Segue abaixo como resolver o problema:

Entre no gconf-editor através do alt+F2 e lá na árvore de diretórios da
esquerda siga este caminho:

apps>nautilus>desktop

Desmarque o item trash_icon_visible e pronto. Nem sei se precisa deslogar do
gnome e relogar... veja aí.

Abraço
Ezequias

3/16/2007

Delphi: Testa se Impressora Ativa

Testando se a impressora matricial está ativa.

Impressão direto na porta de impressora.

Var TesteImpressora:TextFile;
Begin
try
// Teste da Impressora
AssignFile(TesteImpressora, 'LPT1:');
Rewrite(TesteImpressora);
Write(TesteImpressora,' '); // Mandando alguma coisa para a impressora
CloseFile(TesteImpressora);
.
.
.
//Continuando o programa normalmente.

except
CloseFile(TesteImpressora);
MessageDlg('Impressora inativa', mtError,[mbOK],1);
end
End;

2/24/2007

Chegando Lá


Acredito que estou quase chegando lá. Graças a política inteligente do governo federal de reduzir o imposto sobre notebooks e computadores de até R$ 2.500 a zero acredito que meu sonho está próximo de se realizar. Ufa finalmente.

Agora é só cruzar os dedos e pedir a Deus que tudo continue dando certo.

Por enquanto eu vou ficando com o compac Armada M300 da minha empresa.

Boa sorte a todos com seus sonhos tecnológicos. Só um comentário. Eu acho que depois da aquisição eu vou trabalhar mais (em casa). Fazer o que não é ?

Ezequias.

2/20/2007

Carnaval 2007


Bem gente,

Já foi a época de 4 dias de carnaval, muita suadeira e muito mais bebida. Hoje o carnaval tem outro sentido para mim.

Ao mesmo tempo que relembro o momento que reencontrei minha esposa para não mais largá-la, me faz gerar novas memórias com minha filhinha Rita. Estou muito feliz por trazê-la para seu segundo carnaval (mas o primeiro que ela entendeu e dançou no passo do maracatú).


Ver as novas experiências dos nossos filhos são momentos que não se descrevem, apenas se vêem e sentem. Se não fossemos movidos pelo medo hoje em dia, estaríamos muito mais felizes, mas ainda podemos brincar um pouco felizes.

Por pura sorte (eu considero assim) não sofremos problemas físicos ou materiais. Obrigado ao Papai Deus e a Santa Rita de Cássia. Nada nos acontecerá.

Viva o carnaval. Viva a alegria.

Deixo algumas fotos de Rita e nossa família. [Fotos]

Um abração a todos.

12/30/2006

Tchau 2006 - Feliz 2007


Este ano vai ficar marcado para mim. Hoje eu avalio como um pessimo ano mas talvéz as mazelas me ajudem a entender a real importâncias deste ano fatídico.

Um ano que acaba como o que vemos nesta foto não pode ser um ano bom. Muita coisa ruim aconteceu e espero que nunca mais tenha um ano como este. Vou continuar lutando pela
Rita e minha esposa amada Algarine Michele.

Que venha 2007 e que tudo se renove com os próximos 12 meses.

Prometo dar a volta por cima.

11/22/2006

Batalha dos Aflitos II


A história foi contada de outra forma.
Album
Foi só a um ano

É, caros amigos, o glorioso Clube Náutico Capibaribe deu a volta por cima. Muitos não acreditavam na redenção do Náutico (inclusive eu) mas o clube entrou para a história com uma reviravolta, 1 ano depois, arrebatadora.

Parabéns Náutico, seu lugar está devidamente guardado na Primeirona. Que isto sirva de lição para todos nós que acreditamos em nosso potencial.


Muitas coisas boas nos aguardam em 2007, feliz 2007 Náutico.