Estação ZN: Construção de Componentes V

Gerenciador Dinâmico de Layout para DBGrids

Daremos continuidade ao artigo sobre a construção de um componente que permite ao usuário configurar várias propriedades de um DBGrid em tempo de execução. Anteriormente, desenvolvemos de um pequeno exemplo da utilização do commponetne, pudemos experimentar a facilidade de usabilidade, tanto do ponto de vista do usuário, quanto do desenvolvedor. Também comentamos as vantagens obtidas decorrente da abordagem de componentização em projetos de software.

Neste artigo, trataremos da funcionalidade de retornar a visibilidade as colunas que o usuário desejou torna-las invisíveis. Recapitulando:


Fluxo alternativo B

1 – Usuário, com o botão direto do mouse, sobre o DBGrid, seleciona
          “Ver Colunas Escondidas”.

2 - Gerenciador de Layout de Grid exibe interface listando apenas as colunas
          do DGGrid, as quais foram, pelo usuário, definidas como invisíveis
          previamente.  A partir das configurações originais, definidas em tempo de
          projeto pelo programador, o Gerenciador de Layout de Grid deverá identificar
          quais foram originalmente definidas como invisíveis para nunca permitir que
          estas sejam listadas nesta interface.

3 – Usuário seleciona dentre as colunas listadas a que deseja tornar visível.
          Confirmando em seguida a operação.

4 - Gerenciador de Layout de Grid grava as alterações e re-carrega o grid
          com o que foi modificado.

Form SetupVisibilityColumnFrm:

Adicione ao pakage mais um TForm e manipule as propriedades do mesmo segundo listagem abaixo:


Name = SetupVisibilityColumnFrm( :TSetupVisibilityColumnFrm)
Left = 526
Top = 266
Caption = 'Visibilidade das Colunas'
ClientHeight = 560
ClientWidth = 495

Salve a unit como “SetupVisibilityColumnForm”.

Adicione ao form “SetupVisibilityColumnFrm” os componentes listados abaixo, obedecendo os valores respectivamente defindos na listagem:


1 - Name = PnlBtn (:TPanel)
  Align = alBottom
  BevelOuter = bvNone

Dentro do  PnlBtn

 1.1 Name = BtnSave: TBitBtn
    Left = 12
    Top = 12
    Width = 75
    Height = 25
    TabOrder = 0
    Kind = bkOK

 1.2 Name = btnCancel( :TBitBtn)
    Left = 392
    Top = 12
    Width = 75
    Height = 25
    TabOrder = 1  
    Kind = bkCancel

2 – Name = AdsVisibilityColumn ( :TADODataSet)
  CursorType = ctStatic
  LockType = ltBatchOptimistic

  Adicione os TFields abaixo ao AdsVisibilityColumn

  2.1 Name = AdsVisibilityColumnTitleColumn (:TStringField)
    DisplayLabel = 'Título da Coluna'
    FieldName = 'TitleColumn'
    Size = 80

  2.2 NAme = AdsVisibilityColumnVisibleColumn (:TBooleanField)
    DisplayLabel = 'Visível'
    FieldName = 'VisibleColumn'

  2.3 Name = AdsVisibilityColumnFieldName (:TStringField)
    FieldName = 'FieldName'
    Size = 90

3 – Name = AdsProFileClone (:TADODataSet)
  LockType = ltBatchOptimistic

4 – Name = dsDados (:TDataSource)
  DataSet = AdsVisibilityColumn



5 - Name = GrdConfigColumn (:TDBGrid)
  Align = alClient
  DataSource = dsDados
  Uma importate configuração a ser feita para nosso exemplo funcionar, é setar a
  propriedade dgEditing para “false” nas opções do  GrdConfigColumn.
  Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs,
             dgConfirmDelete, dgCancelOnExit]
  ReadOnly = True
  TabOrder = 1

  Adicione duas colunas ao GrdConfigColumn:

  5. 1 Coluna [0]
      FieldName = 'TitleColumn'      
      Width = 300
      Visible = True

  5. 2 Coluna [1]
      FieldName = 'VisibleColumn'
      Width = 52
      Visible = True

Observe que um dos fields do dataset associado ao Grid é bolleano, portanto vamos manipular o valor deles através de um check box. Um check box por linha do Grid. A princípio vamos criar estes checkboxes no muque, via código. Eu não gosto disso, detesto código extra, mas com o intuito de tornar nosso conteúdo mais acessível vou fazer assim por enquanto.

Antes de prosseguir apague a instância da classe do form, SetupVisibilityColumnFrm, criada automaticamante pelo Delphi. Ela deverá estar bem abaixo da primeira palavra reservada “var” na unit do form que criamos. Apague, tanto a palavra reservada “var”, quanto a variável “SetupVisibilityColumnFrm”.

Codificando os eventos do “GrdConfigColumn”

1) OnCellClick = GrdConfigColumnCellClick


procedure TSetupVisibilityColumnFrm.GrdConfigColumnCellClick(
Column: TColumn);
begin
if GrdConfigColumn.SelectedField.DataType = ftBoolean then
  SaveBoolean;
end;

Não compile ainda, falta codificarmos o “SaveBoolean”:
1.1 Método privado SaveBoolean:


procedure TSetupVisibilityColumnFrm.SaveBoolean;
begin
with GrdConfigColumn do
begin
  SelectedField.DataSet.Edit;
  SelectedField.AsBoolean := not SelectedField.AsBoolean;
  SelectedField.Dataset.Post;
end;
end;

Neste ponto a sua unit “.pas” deve estar semelhante ao trecho abaixo:


unit SetupVisibilityColumnForm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids;

TSetupVisibilityColumnFrm = class(TForm)
  GrdConfigColumn: TDBGrid;
  PnlBtn: TPanel;
  BtnSave: TBitBtn;
  btnCancel: TBitBtn;
  AdsProFileClone: TADODataSet;
  dsDados: TDataSource;
  AdsVisibilityColumn: TADODataSet;
  AdsVisibilityColumnTitleColumn: TStringField;
  AdsVisibilityColumnVisibleColumn: TBooleanField;
  AdsVisibilityColumnFieldName: TStringField;
  procedure GrdConfigColumnCellClick(Column: TColumn);
private
  procedure SaveBoolean;
public
  { Public declarations }
end;

(*apagamos a declaração da instância bem aqui ....*)

implementation

{$R *.dfm}

procedure TSetupVisibilityColumnFrm.GrdConfigColumnCellClick(Column: TColumn);
begin
if GrdConfigColumn.SelectedField.DataType = ftBoolean then
  SaveBoolean;
end;

procedure TSetupVisibilityColumnFrm.SaveBoolean;
begin
with GrdConfigColumn do
begin
  SelectedField.DataSet.Edit;
  SelectedField.AsBoolean := not SelectedField.AsBoolean;
  SelectedField.Dataset.Post;
end;
end;

end.

2) Evento OnDrawColumnCell do Grid (GrdConfigColumn): GrdConfigColumnDrawColumnCell


procedure TSetupVisibilityColumnFrm.GrdConfigColumnDrawColumnCell(
Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
Const
CtrlState : array[Boolean] of Integer = (DFCS_BUTTONCHECK,
  DFCS_BUTTONCHECK or DFCS_CHECKED);
var
CheckBoxRectangle : TRect;
begin
if Column.Field.DataType = ftBoolean then
begin
 GrdConfigColumn.Canvas.FillRect(Rect);
 CheckBoxRectangle.Left := Rect.Left + 2;
 CheckBoxRectangle.Right := Rect.Right - 2;
 CheckBoxRectangle.Top := Rect.Top + 2;
 CheckBoxRectangle.Bottom := Rect.Bottom - 2;
 DrawFrameControl(GrdConfigColumn.Canvas.Handle, CheckBoxRectangle,
   DFC_BUTTON, CtrlState[Column.Field.AsBoolean]);
 end;

end;

3) Criando Propriedades no From

Na seção “public” contruiremos o meio de comunicação deste módulo com a classe TMangerGridZn. Primeiro as propriedades, digite conforme o trecho abaixo:


public
  property FieldEnabledVisibilityName: String
    read FFieldEnabledVisibilityName write FFieldEnabledVisibilityName;
  property TitleColumnFieldName: String
    read FTitleColumnFieldName write FTitleColumnFieldName;
  property VisibleFieldName: String
    read FVisibleFieldName write FVisibleFieldName;
  property FieldNameFieldName: String
    read FFieldNameFieldName write FFieldNameFieldName;
  property FieldNameGridName: String
    read FFieldNameGridName write FFieldNameGridName;
end;

Use o class complete (Ctrl + shift + c) para autocampletar e criar os campos privados referentes a cada propriedade na classe TSetupVisibilityColumnFrm.

4) Recuperando as colunas do DBGrid associado a classe TManagerGridZn que previamente foram definadas como invisíveis pelo usuário. Estas colunas deverão ser listadas na inbterface para que o usuário possa selecionar qual delas desejará tornar visível.

Método privado “LoadAds”:
Este método Carrega o dataset que permitirá ao usuário visualizar as colunas que ele definiu como invisíveis. Podendo então, torná-las visíveis.


function TSetupVisibilityColumnFrm.LoadAds(AdsDadosOriginais,
AdsProfileGrid: TADODataSet): Boolean;
var
AuxValues: String;
AuxFieldsLocate: String;
begin
(* Retorna verdadeiro caso existam colunas a serem listadas.
   AdsDadosOriginais:
      armazena as cofigurações definidas em design time
      pelo desenvolvedor no DBGrid associado a TManagerGridZn
   AdsProfileGrid:
      armazena as cofigurações definidas em run time
      pelo usuário no DBGrid associado a TManagerGridZn*)

(* Este método Carrega o dataset que permitirá ao usuário visualizar as
   colunas que ele definiu como invisíveis. Podendo então, torná-las visíveis. *)

Result := AdsVisibilityColumn.Active;
if not Result then Exit;

(* Limpando possível lixo*)
if not AdsVisibilityColumn.IsEmpty then
begin
  AdsVisibilityColumn.First;
  while not AdsVisibilityColumn.Eof do
    AdsVisibilityColumn.Delete;
end;
AdsDadosOriginais.First;
while not (AdsDadosOriginais.Eof) do
begin

  (* O campo FFieldEnabledVisibilityName corresponde ao informação original
     do grid, se o desenvolvedor permitiu visibilidade ao usuário, ou não. *)
  if AdsDadosOriginais.FieldByName(FFieldEnabledVisibilityName).AsBoolean then
  begin
    (* recuperando valores para o locate *)
    AuxValues := AdsDadosOriginais.FieldByName(FFieldNameFieldName).AsString;

    AuxFieldsLocate := FFieldNameFieldName;

    if AdsProfileGrid.Locate(AuxFieldsLocate, AuxValues, []) then
    begin
      if not AdsProfileGrid.FieldByName(FVisibleFieldName).AsBoolean then
      begin
        AdsVisibilityColumn.Append;
        AdsVisibilityColumnTitleColumn.AsString :=
          AdsProfileGrid.FieldByName(FTitleColumnFieldName).AsString;
        AdsVisibilityColumnVisibleColumn.AsBoolean :=
          AdsProfileGrid.FieldByName(FVisibleFieldName).AsBoolean;
        AdsVisibilityColumnFieldName.AsString :=
          AdsProfileGrid.FieldByName(FFieldNameFieldName).AsString;
        AdsVisibilityColumn.Post;
      end;
    end;
  end;

  AdsDadosOriginais.Next;
end;

Result := not AdsVisibilityColumn.IsEmpty;
end;

5 – Retornando as alterações efetuadas pelo usuário a partir do que foi listado na iterface:
Este método já é o output deste módulo, após implementa-lo (segundo trecho abaixo) cuidaremos do principal método de comunicação do nosso form.


procedure TSetupVisibilityColumnFrm.SetUpdates(AdsProfileGrid: TADODataSet);
begin
try
  AdsVisibilityColumn.DisableControls;
  AdsVisibilityColumn.First;
  while not AdsVisibilityColumn.Eof do
  begin
    AdsProfileGrid.Filter :=  FFieldNameFieldName + ' = ' +
       QuotedStr(AdsVisibilityColumnFieldName.AsString);
    AdsProfileGrid.Filtered := True;
    AdsProfileGrid.First;
    while not AdsProfileGrid.Eof do
    begin
      AdsProfileGrid.Edit;
      AdsProfileGrid.FieldByName(FVisibleFieldName).AsBoolean :=
         AdsVisibilityColumnVisibleColumn.AsBoolean;
      AdsProfileGrid.Post;
      AdsProfileGrid.Next;
    end;
    AdsVisibilityColumn.Next;
  end;
  finally
  AdsProfileGrid.Filter := '';
  AdsProfileGrid.Filtered := False;
  AdsVisibilityColumn.EnableControls;
end;
end;

6 – I/O do módulo TSetupVisibilityColumnFrm:
O método público “Execute” é o meio pelo qual implementaremos a lógica de entrada e saída do módulo que acabamos de construir.


function TSetupVisibilityColumnFrm.Execute(AdsSetupOriginal,
AdsProfileGrid: TADODataSet): Boolean;
begin
if FFieldEnabledVisibilityName = '' then
  raise Exception.Create('O Campo FieldEnabledVisibilityName não foi atribuido.');
(* Connfigurando exibição do Form *)
Self.BorderStyle := bsDialog;
Self.Position := poScreenCenter;
Self.FormStyle := fsNormal;

(* Carrega o Dataset com as colunas que estão invisíveis *)
Result := LoadAds(AdsSetupOriginal, AdsProfileGrid);
(* Caso nenhum regitro de coluna invisível tenha sido carregado
   cancela a execução do módulo, garantido que a propriedade "ModalResult"
   do form seja igual a mrCancel *)
if not Result then
  btnCancel.Click;
(* Copia os dados do Dataset que contem as configurações do profile*)
AdsProFileClone.Clone(AdsProfileGrid);
Result := (Self.ShowModal = mrOk);
if Result then
  SetUpdates(AdsProfileGrid);

end;

7 – BtnOk OnClikc:
O BtnOk esta configurado como ModalResult = mrOk desta forma podemos recuperar ao término da execução do método ShowModal, se o usuário confirmou ou não a operação realizada.


procedure TSetupVisibilityColumnFrm.BtnSaveClick(Sender: TObject);
begin
if dsDados.DataSet.State in [dsEdit, dsInsert] then
  dsDados.DataSet.Post;
end;

8 - BtnCancel OnClikc:
Da mesma forma, posso testar a se o usuário cancelou o processo porque o BtnCancel tem a propriedade ModalResult = mrCancel.


procedure TSetupVisibilityColumnFrm.btnCancelClick(Sender: TObject);
begin
 if dsDados.DataSet.State in [dsEdit, dsInsert] then
  dsDados.DataSet.Cancel;
end;

9 - Ainda falta ativar o dataset que armazenará os dados sobre as colunas que serão listadas na interface (SetupVisibilityColumnFrm). Evento OnCreate do form:


procedure TSetupVisibilityColumnFrm.FormCreate(Sender: TObject);
begin
 AdsVisibilityColumn.CreateDataSet;
end;

Neste ponto finalizamos a implementação da funcionalidade pretendida neste artigo. Resta agora retornarmos a classe TManagerGridZn para codificarmos a chamada a este módulo. Por garantia segue o código completo das units contruidas até agora.

10 – Fontes Completos


 10.1 SetupVisibilityColumnForm.pas


unit SetupVisibilityColumnForm;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids;

type
TSetupVisibilityColumnFrm = class(TForm)
  GrdConfigColumn: TDBGrid;
  PnlBtn: TPanel;
  BtnSave: TBitBtn;
  btnCancel: TBitBtn;
  AdsProFileClone: TADODataSet;
  dsDados: TDataSource;
  AdsVisibilityColumn: TADODataSet;
  AdsVisibilityColumnTitleColumn: TStringField;
  AdsVisibilityColumnVisibleColumn: TBooleanField;
  AdsVisibilityColumnFieldName: TStringField;
  procedure FormCreate(Sender: TObject);
  procedure btnCancelClick(Sender: TObject);
  procedure BtnSaveClick(Sender: TObject);
  procedure GrdConfigColumnDrawColumnCell(Sender: TObject; const Rect: TRect;
    DataCol: Integer; Column: TColumn; State: TGridDrawState);
  procedure GrdConfigColumnCellClick(Column: TColumn);
private
  FFieldNameGridName: String;
  FFieldEnabledVisibilityName: String;
  FTitleColumnFieldName: String;
  FFieldNameFieldName: String;
  FVisibleFieldName: String;
  procedure SaveBoolean;
  function LoadAds(AdsDadosOriginais, AdsProfileGrid: TADODataSet): Boolean;
  procedure SetUpdates(AdsProfileGrid: TADODataSet);
public
  function Execute(AdsSetupOriginal, AdsProfileGrid: TADODataSet): Boolean;

  property FieldEnabledVisibilityName: String
    read FFieldEnabledVisibilityName write FFieldEnabledVisibilityName;
  property TitleColumnFieldName: String
    read FTitleColumnFieldName write FTitleColumnFieldName;
  property VisibleFieldName: String
    read FVisibleFieldName write FVisibleFieldName;
  property FieldNameFieldName: String
    read FFieldNameFieldName write FFieldNameFieldName;
  property FieldNameGridName: String
    read FFieldNameGridName write FFieldNameGridName;
end;


implementation

{$R *.dfm}

procedure TSetupVisibilityColumnFrm.btnCancelClick(Sender: TObject);
begin
 if dsDados.DataSet.State in [dsEdit, dsInsert] then
  dsDados.DataSet.Cancel;
end;

procedure TSetupVisibilityColumnFrm.BtnSaveClick(Sender: TObject);
begin
if dsDados.DataSet.State in [dsEdit, dsInsert] then
  dsDados.DataSet.Post;
end;

function TSetupVisibilityColumnFrm.Execute(AdsSetupOriginal,
AdsProfileGrid: TADODataSet): Boolean;
begin
if FFieldEnabledVisibilityName = '' then
  raise Exception.Create('O Campo FieldEnabledVisibilityName não foi atribuido.');
(* Connfigurando exibição do Form *)
Self.BorderStyle := bsDialog;
Self.Position := poScreenCenter;
Self.FormStyle := fsNormal;

(* Carrega o Dataset com as colunas que estão invisíveis *)
Result := LoadAds(AdsSetupOriginal, AdsProfileGrid);
(* Caso nenhum regitro de coluna invisível tenha sido carregado
   cancela a execução do módulo, garantido que a propriedade "ModalResult"
   do form seja igual a mrCancel *)
if not Result then
  btnCancel.Click;
(* Copia os dados do Dataset que contem as configurações do profile*)
AdsProFileClone.Clone(AdsProfileGrid);
Result := (Self.ShowModal = mrOk);
if Result then
  SetUpdates(AdsProfileGrid);

end;

procedure TSetupVisibilityColumnFrm.FormCreate(Sender: TObject);
begin
AdsVisibilityColumn.CreateDataSet;
end;

procedure TSetupVisibilityColumnFrm.GrdConfigColumnCellClick(Column: TColumn);
begin
if GrdConfigColumn.SelectedField.DataType = ftBoolean then
  SaveBoolean;
end;

procedure TSetupVisibilityColumnFrm.GrdConfigColumnDrawColumnCell(
Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
Const
CtrlState : array[Boolean] of Integer = (DFCS_BUTTONCHECK,
  DFCS_BUTTONCHECK or DFCS_CHECKED);
var
CheckBoxRectangle : TRect;
begin
if Column.Field.DataType = ftBoolean then
begin
 GrdConfigColumn.Canvas.FillRect(Rect);
 CheckBoxRectangle.Left := Rect.Left + 2;
 CheckBoxRectangle.Right := Rect.Right - 2;
 CheckBoxRectangle.Top := Rect.Top + 2;
 CheckBoxRectangle.Bottom := Rect.Bottom - 2;
 DrawFrameControl(GrdConfigColumn.Canvas.Handle, CheckBoxRectangle,
   DFC_BUTTON, CtrlState[Column.Field.AsBoolean]);
 end;

end;

function TSetupVisibilityColumnFrm.LoadAds(AdsDadosOriginais,
AdsProfileGrid: TADODataSet): Boolean;
var
AuxValues: String;
AuxFieldsLocate: String;
begin
(* Retorna verdadeiro caso existam colunas a serem listadas.
   AdsDadosOriginais:
      armazena as cofigurações definidas em design time
      pelo desenvolvedor no DBGrid associado a TManagerGridZn
   AdsProfileGrid:
      armazena as cofigurações definidas em run time
      pelo usuário no DBGrid associado a TManagerGridZn*)

(* Este método Carrega o dataset que permitirá ao usuário visualizar as
   colunas que ele definiu como invisíveis. Podendo então, torná-las visíveis. *)

Result := AdsVisibilityColumn.Active;
if not Result then Exit;

(* Limpando possível lixo*)
if not AdsVisibilityColumn.IsEmpty then
begin
  AdsVisibilityColumn.First;
  while not AdsVisibilityColumn.Eof do
    AdsVisibilityColumn.Delete;
end;
AdsDadosOriginais.First;
while not (AdsDadosOriginais.Eof) do
begin

  (* O campo FFieldEnabledVisibilityName corresponde ao informação original
     do grid, se o desenvolvedor permitiu visibilidade ao usuário, ou não. *)
  if AdsDadosOriginais.FieldByName(FFieldEnabledVisibilityName).AsBoolean then
  begin
    (* recuperando valores para o locate *)
    AuxValues := AdsDadosOriginais.FieldByName(FFieldNameFieldName).AsString;

    AuxFieldsLocate := FFieldNameFieldName;

    if AdsProfileGrid.Locate(AuxFieldsLocate, AuxValues, []) then
    begin
      if not AdsProfileGrid.FieldByName(FVisibleFieldName).AsBoolean then
      begin
        AdsVisibilityColumn.Append;
        AdsVisibilityColumnTitleColumn.AsString :=
          AdsProfileGrid.FieldByName(FTitleColumnFieldName).AsString;
        AdsVisibilityColumnVisibleColumn.AsBoolean :=
          AdsProfileGrid.FieldByName(FVisibleFieldName).AsBoolean;
        AdsVisibilityColumnFieldName.AsString :=
          AdsProfileGrid.FieldByName(FFieldNameFieldName).AsString;
        AdsVisibilityColumn.Post;
      end;
    end;
  end;

  AdsDadosOriginais.Next;
end;

Result := not AdsVisibilityColumn.IsEmpty;
end;

procedure TSetupVisibilityColumnFrm.SaveBoolean;
begin
with GrdConfigColumn do
begin
  SelectedField.DataSet.Edit;
  SelectedField.AsBoolean := not SelectedField.AsBoolean;
  SelectedField.Dataset.Post;
end;
end;

procedure TSetupVisibilityColumnFrm.SetUpdates(AdsProfileGrid: TADODataSet);
begin
try
  AdsVisibilityColumn.DisableControls;
  AdsVisibilityColumn.First;
  while not AdsVisibilityColumn.Eof do
  begin
    AdsProfileGrid.Filter := 
     FFieldNameFieldName + ' = ' + QuotedStr(AdsVisibilityColumnFieldName.AsString);
    AdsProfileGrid.Filtered := True;
    AdsProfileGrid.First;
    while not AdsProfileGrid.Eof do
    begin
      AdsProfileGrid.Edit;
      AdsProfileGrid.FieldByName(FVisibleFieldName).AsBoolean :=
         AdsVisibilityColumnVisibleColumn.AsBoolean;
      AdsProfileGrid.Post;
      AdsProfileGrid.Next;
    end;
    AdsVisibilityColumn.Next;
  end;
  finally
  AdsProfileGrid.Filter := '';
  AdsProfileGrid.Filtered := False;
  AdsVisibilityColumn.EnableControls;
end;
end;

end.


10.2SetupVisibilityColumnForm.dfm


object SetupVisibilityColumnFrm: TSetupVisibilityColumnFrm
Left = 526
Top = 266
Caption = 'Visibilidade das Colunas'
ClientHeight = 560
ClientWidth = 495
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object GrdConfigColumn: TDBGrid
  Left = 0
  Top = 0
  Width = 495
  Height = 509
  Align = alClient
  DataSource = dsDados
  Options = [dgTitles, dgIndicator, dgColumnResize,
              dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
  ReadOnly = True
  TabOrder = 0
  TitleFont.Charset = DEFAULT_CHARSET
  TitleFont.Color = clWindowText
  TitleFont.Height = -11
  TitleFont.Name = 'Tahoma'
  TitleFont.Style = []
  OnCellClick = GrdConfigColumnCellClick
  OnDrawColumnCell = GrdConfigColumnDrawColumnCell
  Columns = < expanded =" False" fieldname =" 'TitleColumn'"
     charset =" DEFAULT_CHARSET" color =" clWindowText" height =" -11"
     name =" 'MS" style =" [fsBold]" width =" 300" visible =" True"
     expanded =" False" fieldname =" 'VisibleColumn'" alignment =" taCenter"
     charset =" DEFAULT_CHARSET" color =" clWindowText" height =" -11"
     name =" 'MS" style =" [fsBold]" width =" 52" visible =" True">
end
object PnlBtn: TPanel
  Left = 0
  Top = 509
  Width = 495
  Height = 51
  Align = alBottom
  BevelOuter = bvNone
  TabOrder = 1
  ExplicitTop = 482
  ExplicitWidth = 487
  object BtnSave: TBitBtn
    Left = 12
    Top = 12
    Width = 75
    Height = 25
    TabOrder = 0
    OnClick = BtnSaveClick
    Kind = bkOK
  end
  object btnCancel: TBitBtn
    Left = 392
    Top = 12
    Width = 75
    Height = 25
    TabOrder = 1
    OnClick = btnCancelClick
    Kind = bkCancel
  end
end
object AdsProFileClone: TADODataSet
  LockType = ltBatchOptimistic
  Parameters = <>
  Left = 96
  Top = 204
end
object dsDados: TDataSource
  DataSet = AdsVisibilityColumn
  Left = 132
  Top = 68
end
object AdsVisibilityColumn: TADODataSet
  CursorType = ctStatic
  LockType = ltBatchOptimistic
  FieldDefs = <>
  Parameters = <>
  StoreDefs = True
  Left = 212
  Top = 68
  object AdsVisibilityColumnTitleColumn: TStringField
    DisplayLabel = 'Título da Coluna'
    FieldName = 'TitleColumn'
    Size = 80
  end
  object AdsVisibilityColumnVisibleColumn: TBooleanField
    DisplayLabel = 'Visí'vel'
    FieldName = 'VisibleColumn'
  end
  object AdsVisibilityColumnFieldName: TStringField
    FieldName = 'FieldName'
    Size = 90
  end
end
end

11 - Na classe TManagerGridZn codificaremos a chamada ao form “TSetupVisibilityColumnFrm”. Antes, declare na seção “uses” da “implementatio” a unit do módulo que criamos acima.


procedure TManagerGridZn.ConfigurarGridViewColumnLayoutClick(Sender: TObject);
var
FrmVisibilityConfig: TSetupVisibilityColumnFrm;
AuxPath: String;
AdsOrigConfigMemmento: TADODataSet;
begin
try
  AdsOrigConfigMemmento :=
    DmMangerGridZn.GetDefaultConfiguration(FGrid.Name, FGrid.Owner.Name);
  FrmVisibilityConfig := TSetupVisibilityColumnFrm.Create(Self);
  FrmVisibilityConfig.FieldEnabledVisibilityName :=
    DmMangerGridZn.AdsOriginalConfigUpdateVisibility.FieldName;
  FrmVisibilityConfig.TitleColumnFieldName :=
    DmMangerGridZn.AdsOriginalConfigColumnTitleCaption.FieldName;
  FrmVisibilityConfig.VisibleFieldName :=
    DmMangerGridZn.AdsOriginalConfigColumnVisible.FieldName;
  FrmVisibilityConfig.FieldNameFieldName :=
    DmMangerGridZn.AdsOriginalConfigColumnFieldName.FieldName;
  FrmVisibilityConfig.FieldNameGridName :=
    DmMangerGridZn.AdsOriginalConfigGridName.FieldName;

    if FrmVisibilityConfig.Execute(AdsOrigConfigMemmento,
       DmMangerGridZn.AdsDados) then
    begin
      AuxPath := BuildFilePathComplete;
      DmMangerGridZn.SaveToFile(AuxPath);
    end;
finally
  FrmVisibilityConfig.Free;
  AdsOrigConfigMemmento.Close;
  FreeAndNil(AdsOrigConfigMemmento);
  LoadFileProfile;
end;

end;

O próximo passo é retornar a método que monta o menu popup para acrescentar a chamada ao método “ConfigurarLayoutGridClick” ao item de menu específico.


procedure TManagerGridZn.BuildMenuPopup;
var
i: Integer;
MyMenuitem: TMenuItem;
begin
(* Verifco se o componente encontra-se em run time*)
if not (csDesigning in Self.ComponentState) then
begin
  if Assigned(FPopupMenu) then
  begin
    for i := 0 to High(PopupMenuItemName) do
    begin
      if  (FPopupMenu.Items.Count > 0) and (i = 0) then
        CreatePopupMenuItem(PopupMenuItemName[i], '-');

      if (i = 1) then
        CreatePopupMenuItem(PopupMenuItemName[i], 'Configurar Layuot do &Grid');

      if (i = 2) then
        CreatePopupMenuItem(PopupMenuItemName[i], '&Ver Colunas Invisíveis');

      if (i = 3) then
        CreatePopupMenuItem(PopupMenuItemName[i],
          '&Restaurar Configuração Orignal');
    end;

    MyMenuitem := TMenuItem(Self.FindComponent(PopupMenuItemName[1]));
    if assigned(MyMenuitem) then
      MyMenuitem.OnClick := ConfigurarLayoutGridClick;
    (* A linha comentada com "//" será implementada mais tarde *)
    MyMenuitem := TMenuItem(Self.FindComponent(PopupMenuItemName[2]));
    if assigned(MyMenuitem) then
      MyMenuitem.OnClick := ConfigurarGridViewColumnLayoutClick;

  end;
end;

end;

Por hora chega!!!! Recompile a package e execute o programa de teste que fizemos no artigo anterior. Teste o componente e experimente a nova funcionalidade. O Embreve teminaremos, espero, a funcionalidade para restaurar as configurações default.

Estação ZN

sábado, 8 de dezembro de 2007

Construção de Componentes V – Parte B

Nenhum comentário:

Postar um comentário