O Navegador do Lazarus tá precisando de um incremento

[sgeral...@gmail.com]

Prezados companheiros,

 TDBNavButtonType = (nbFirst, nbPrior, nbNext, nbLast,

                  nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh);  do "dbctrls.pp" precisa de um pouco mais. Pensei em fazer isso como faço no Delphi c/ os SMDBNavigator

need's a bit more of work like SMDBNAvigator(nbFinddata,nbFilters,nbExport, nbPrint, etc..) ao qual acresci  mais um botão: C/Historico/(ou só Activos) . E da forma mais fácil

pois no fundo funciona como um filtro, que permite ver tudo ou só os Activos na tabela. Por causa da PK (Campo_ID + Ordem) sendo que o registo activo é sempre o "Zero" e os velhos

Ordem vai passando para Max(Ordem)+1 e um campinho de 1 byte Visível/Invisível. Depois, é só activar ou desactivar o filtro

MySqlDataSet

   If DBNav1.DataSource.DataSet.Filtered Then

     DBNav1.DataSource.DataSet.Filtered:=False

   Else

     DBNav1.DataSource.DataSet.Filtered:=True;

Where at my procedure filter:

procedure TDataModule.MySqlDataSetFilterRecord(DataSet: TDataSet;

  var Accept: Boolean);

begin

  Accept := (MySqlDataSet.Fieldbyname('INVISIVEL').AString='N');  // 

com vista a mostar ou esconder  o que preciso.

Bem penso que é pacifico mas deparo-me com uma dificuldade, não consigo ver aceder à imagens do  lcl_dbnav_images.res.

Estou a usar o XN Resource Editor e népia! Não aparece nada?!

Alguém pode me ajudar?Obrigado

Mário