Social Icons

sábado, 16 de novembro de 2013

Usando TJvDBGrid – Parte 4

Continuando a série de artigos sobre o TJvDBGrid, hoje vou mostrar como colocar hints que mostram o conteúdo não visível de um campo, inclusive para campos blob.

Informação

A propriedade que usaremos é a ShowCellHint. Em nosso exemplo vamos usar basicamente:
1 TForm
1 TClientDataSet
1 TDataSource
1 TJvDBGrid.

No TClientDataSet criar os seguintes campos:
CODIGO :Integer
NOME :String
TELEFONE :String
Deixe a propriedade ShowCellHint com o valor true
Agora basta iniciar algumas informações na Grid. O exemplo de código abaixo fará isso.

procedure TForm2.FormCreate(Sender: TObject);
begin
   ClientDataSet1.CreateDataSet;

   ClientDataSet1.Append;
   ClientDataSet1CODIGO.AsInteger := 1;
   ClientDataSet1NOME.AsString := 'Jocimar de Souza Medeiros';
   ClientDataSet1TELEFONE.AsString := '44 9999-2233';
   ClientDataSet1.Post;

   ClientDataSet1.Append;
   ClientDataSet1CODIGO.AsInteger := 2;
   ClientDataSet1NOME.AsString := 'Silvana Rodrigues de Mello';
   ClientDataSet1TELEFONE.AsString := '44 9899-2266';
   ClientDataSet1.Post;
end;

Dica
  • Lembre-se de que a propriedade showHint deverá estar com o valor true também

É isso aí então pessoal! Agora quando uma informação na TJvDBGrid ficar oculta parcialmente e passarmos o mouse sobre essa informação, será mostrada um hint com o restante do conteúdo.


Em caso de dúvidas, sugestões ou reclamações, por favor comentem o post. E se a informação ajudou você, curta o post nas redes sociais usando os ícones abaixo.
Baixe os fontes do artigo no GitHub

sábado, 24 de agosto de 2013

Fonts do Firefox em Negrito

Imagem fonte arialAguem já teve problema onde algumas páginas no firefox ficavam com a fonte em negrito?! Bom, eu estava com esse problema até agora pouco, já havia semanas que eu estava a procura de uma solução e estava a ponto de realizar a formatação do meu notebook.

Após ler vários fóruns, consegui resolver o problema. O problema estava na minha fonte arial que apesar de estar instalada, não estava funcionando, basicamente o problema seria resolvido reinstalando a fonte, no entanto eu fiz isso e ainda continuei com problema, até que eu descobrir um update da microsoft que resolveu o problema http://www.microsoft.com/en-us/download/details.aspx?id=16083. Esse update instalou a fonte original arial do sistema, quando eu reinstalei a atualização não teve efeito porque a fonte arial que usei provavelmente não era a original do windows. Essa atualização é para windows 7.

Espero ter ajudado!

domingo, 21 de abril de 2013

Usando TJvDBGrid – Parte 3

Esse é o terceiro da série de artigos que estou escrevendo sobre o componente TJvDBGrid no Delphi. Esse componente pertence ao pacote de componentes JEDI VCL.
Informação
Nesse artigo mostrarei o recurso de congelamento de colunas. Essa opção altera a TJvDBGrid para fixar as colunas informadas, as quais ficarão sempre visíveis para o usuário enquanto ele faz a rolagem vertical das colunas. Vamos colocar a mão na massa então.
Crie um novo projeto no Delphi e inclúa os seguintes componentes:
  • 1 TJvDBGrid
  • 1 TClientDataSet
  • 1 TDataSource
Ligue o TDataSource ao TClientDataSet e ligue o TJvDBGrid ao TDataSource.
No TClientDataset inclua duas colunas
  • CODIGO :Integer;
  • DESCRICAO :String;
  • JANEIRO :Float;
  • FEVEREIRO :Float;
  • MARCO :Float;
  • ABRIL :Float;
  • MAIO :Float;
  • JUNHO :Float;
  • JULHO :Float;
  • AGOSTO :Float;
  • SETEMBRO :Float;
  • OUTUBRO :Float;
  • NOVEMBRO :Float;
  • DEZEMBRO :Float;

Agora no TJVDBGrid altere a seguinte propriedade:

JvDBGrid1.FixedCols := 2

Vamos incluir alguns registros ao TClientDataSet para vermos o comportamento da Grid.

procedure TForm1.FormCreate(Sender: TObject);
var x :Integer;
    i :Integer;
begin
  ClientDataSet1.CreateDataSet;
  for x := 1 to 100 do
  begin
    ClientDataSet1.Append;
    ClientDataSet1CODIGO.AsInteger := x;
    ClientDataSet1DESCRICAO.AsString := 'DESCRICAO '+IntToStr(x);
    for i := 0 to 11 do
      ClientDataSet1.Fields[i+2].AsFloat := random;
    ClientDataSet1.Post;
  end;
end;

Agora se tudo ocorreu bem é só executar e verificar o comportamento de congelamento de colunas.

Informação
A propriedade FixedCols indica o número de colunas que serão congeladas.

Veja como ficará o exemplo e note a diferença nas duas primeiras colunas que ficaram congeladas.

imagem1