Manipulando uma TStringGrid - Delphi XE2 & Firemonkey

�� Neste artigo veremos como trabalhar com uma Grid vinculada a um banco de dados e alteraremos suas propriedades visando oferecer uma grade de informaç�es de forma organizada e leg�vel.

�� Em nosso exemplo temos um Data M�dulo DM e nele consta um componente da classe TClientDataSet denominado CDSAGENDA:

Esse componente est� associado a um arquivo XML e possui os seguintes Fields:

�� Em nosso formul�rio principal adicionaremos dois componentes importantes para a ligaç�o do LiveBindings:

�� TDataSource:

�� Name: DSAGENDA;

�� Dataset: DM.CDSAGENDA; (Declare em Uses: uDM).

�� TBindScopeDB:

�� Name: BSDBAGENDA;

�� Data Source: DSAGENDA;

</wordtidy>

��

�� Agora, vamos montar nosso Grid em base de nosso banco de dados.� Adicione um componente da classe TStringGrid e altere as seguintes propriedades:

�� Name: SGAGENDA;

�� Align: alBottom;

�� Height: 180;

�� LiveBindings > Link to DBDataSource: BSDBAGENDA;

�� DisableFocusEffect: False;

�� MouseTracking: True;

�� ShowSelectedCell: False;

�� Para escolher quais Fields ir�o aparecer no SGAGENDA, v� at� a propriedade Livebindings do SGAGENDA e clique em cima do DBLINKAGENDA1 criado:

�� D� um duplo clique na propriedade Columns e no editor clique com o bot�o direito e Add All Fields:

�� Todos os Fields ser�o adicionados:

�� Selecione o Field IDAGENDA e o apague.

�� Obs.: Apenas colocar a propriedade Visible: False criar� uma confus�o no Grid, pois este Field n�o deixar� de ser vis�vel.

�� Sua StringGrid ficar� com a seguinte apar�ncia:

�� Diferente da VCL, a TStringGrid do Firemonkey ainda necessita de v�rios c�digos para que possa ser organizada e para que fique de forma apresent�vel.

�� Sendo assim, para que possamos fazer o alinhamento de cada Header (T�tulo) teremos de programar a seguinte procedure. Declare no campo private do formul�rio:


procedure Alinhamento_dos_Cabecalhos;

�� Clique na linha declarada acima e aperte em seu teclado Ctrl + Shift + C:


procedure TFmkPrincipal.Alinhamento_dos_Cabecalhos;
var
  i: Integer;
  header: THeader;
  headeritem: THeaderItem;
begin
  header := THeader(SGAGENDA.FindStyleResource('header'));
  for i := 0 to header.ChildrenCount - 1 do
  begin
    headeritem := THeaderItem(header.Children[i]);
    headeritem.TextAlign  := TTextAlign(0);
    headeritem.Font.Style := [TFontStyle.fsBold];
   end;
end;

�� Assim, em tempo de execuç�o a SGAGENDA estar� com os t�tulos centralizados e em negrito.

�� Para que possamos realizar a configuraç�o das c�lulas da SGAGENDA iremos criar a seguinte procedure no campo private do FmkPrincipal:


procedure GridCellApplyStyleLookup( Sender: TObject );

�� Clique na linha declarada acima e aperte em seu teclado Ctrl + Shift + C:


procedure TFmkPrincipal.GridCellApplyStyleLookup( Sender: TObject );
var
  TC: TTextCell;
begin
  if ( Sender <> nil ) and ( Sender is TTextCell ) then
  begin
    TC := TTextCell( Sender );
    TC.FontFill.Color := claBlack;
    TC.Font.Family := 'Times New Roman';
    //TC.Font.Style := [ TFontStyle.fsBold];
    TC.Font.Size := 12;
    TC.TextAlign := TTextAlign(0);
  end;
end;

�� Desta forma n�s determinamos as caracter�sticas das c�lulas, indicando a fonte e o alinhamento.

�� Agora, vamos implantar a procedure que chamar� � execuç�o as caracter�sticas das c�lulas. No campo Public do FmkPrincipal:


procedure Mudando_as_C�lulas;

�� Clique na linha declarada acima e aperte em seu teclado Ctrl + Shift + C:

Obs.: Podemos notar um pequeno detalhe que � novidade no Delphi. A possibilidade de se colocar acentos e cedilhas nos nomes de procedures e functions. Ex: procedure Mudando_as_C�lulas;


procedure TFmkPrincipal.Mudando_as_C�lulas;
var
  Col, Row: Integer;
  CellCtrl: TStyledControl;
begin
    for Col := 0 to SGAGENDA.ColumnCount - 1 do
    begin
      for Row := 0 to SGAGENDA.RowCount - 1 do
      begin
        CellCtrl := SGAGENDA.Columns[ Col ].CellControlByRow( Row );
        if ( CellCtrl <> nil ) and ( CellCtrl is TTextCell ) then
        begin
          TTextCell( CellCtrl ).OnApplyStyleLookup := 
	GridCellApplyStyleLookup;
        end;
       end;
    end;
end;

�� Esta procedure tem por objetivo passar nossas determinaç�es para cada c�lula do SGAGENDA.

�� Agora, para que em tempo de execuç�o a StringGrid adquira as caracter�sticas, vamos chamar no evento OnCreate do FmkPrincipal o seguinte comando:


procedure TFmkPrincipal.FormCreate(Sender: TObject);
begin
 SGAGENDA.ReadOnly := True;
 Mudando_as_C�lulas;
 Alinhamento_dos_Cabecalhos;
end;

�� Como meu objetivo na StringGrid SGAGENDA � somente de fornecer leitura dos dados, eu passei o comando de que SGAGENDA.ReadOnly := True (Verificar Evento OnCreate do formul�rio).

�� Obs1: Ao acessar o Object Inspector da SGAGENDA perceberemos que existe a propriedade ReadOnly e que ela est� marcada como True, entretanto, ao compilar os dados o Delphi XE2 pode n�o reconhecer esse c�digo e a StringGrid continuar� em modo de ediç�o.

�� Obs2: Ap�s o evento AfterInsert do CDSAGENDA (TClientDataSet) � preciso adicionar� a linha de comando chamando a procedure Mudando_as_C�lulas. Isso deve ser feito para que toda a organizaç�o realizada na Grid seja mantida. Caso Contr�rio, a Grid ficaria assim ao inserir um novo registro:

� Bom trabalho e at� o pr�ximo artigo!

Rafael Marins Ribeiro

Engenheiro de Softwares

</wordtidy><wordtidy> </wordtidy>

Manipulando uma TStringGrid - Delphi XE2 & Firemonkey

Neste artigo veremos como trabalhar com uma Grid vinculada a um banco de dados e alteraremos suas propriedades visando oferecer uma grade de informações de forma organizada e legível.

Artigos relacionados