Foi lancado em dezembro de 2012 a versao 11.1 do banco de dados Advantage Database, de propriedade da Sybase Inc.Eu, particularmente ainda uso a versao 8.10. Nao facam isso!Eu trabalho com esse componente desde 2006, devido a capacidade dele funcionar no windows e no linux.TAdsStringFieldEssa nova versao vem com uma correcao a muito tempo esperada por mim, e imagino que muitos outros.Ao portar um projeto do delphi, quem utiliza esse banco de dados tinha que manualmente alterar o tipo de campo TAdsStringField para TStringField.ConclusaoConvido a todos a testar esse componente, que e um dos poucos que tem a caracteristica de ser cliente/servidor e tambem funcionar no modo local.Para baixar o componente, click aqui.Postem seus comentarios sobre esse componente.Ate a proxima. Nos meus programas em Delphi, algumas vezes, se fez necessario simular o pressionamento de uma tecla num TEdit que ainda nao recebeu o foco.Por exemplo:procedure TFormPegaProdutos.DBGrid1KeyPress(Sender: TObject; var Key: Char);begin//Testa se pressionou um tecla validaif not (key in ['0'..'9','/',#13,#27,'A'..'z']) Then key:=#0;if key=#27 then close;//Testa se pressionou um letraif (key in ['A'..'Z']) or (key in ['a'..'z']) Thenbegin//Abre um painel para digitacao do nome do item a pesquisar. PanelPesquisa.Top:=80;. PanelPesquisa.Left:=160;. PanelPesquisa.visible:=True;. Palavra1.setfocus;. if (key in ['a'..'z']) Then Key:=chr(trunc(ord(Key))-32);. keybd_event(trunc(Ord(Key)),0,0,0);end;if key in ['0'..'9'] Thenbegin. PanelVenda.Top:=80;. PanelVenda.Left:=60;. PanelVenda.visible:=True;. ValorUni.Text:=FormatCurr('#0.00',ProTEMPP_VIS.AsCurrency);. QTD.setfocus;. keybd_event(trunc(Ord(Key)),0,0,0);end;...ou seja, na lista de itens (dbgrid1) o usuario pode abrir um painel de pesquisa de um novo item sem sair da lista, e ainda pode registrar uma venda do item, sem sair da lista, o que e, diga-se de passagem, muito pratico.Mas no lazarus nao temos disponivel o keybd_event, entao como resolver esse problema?Criei uma simples procedure:procedure keybd_event_on(EditControl:TEdit; var key: char);beginEditControl.Text:=key+' ';EditControl.setfocus;EditControl.SelStart:=1;EditControl.SelLength:=1;end;Pronto!Agora, posso continuar portando meus programas pro lazarus :-)Nao e por causa de um keybd_event que o projeto vai parar!procedure TFormPegaProdutos.DBGrid1KeyPress(Sender: TObject; var Key: Char);begin//Testa se pressionou um tecla validaif not (key in ['0'..'9','/',#13,#27,'A'..'z']) Then key:=#0;if key=#27 then close;//Testa se pressionou um letraif (key in ['A'..'Z']) or (key in ['a'..'z']) Thenbegin//Abre um painel para digitacao do nome do item a pesquisar. PanelPesquisa.Top:=80;. PanelPesquisa.Left:=160;. PanelPesquisa.visible:=True;. Palavra1.setfocus;. if (key in ['a'..'z']) Then Key:=chr(trunc(ord(Key))-32);. keybd_event(trunc(Ord(Key)),0,0,0);. keybd_event_on(Palavra1,Key);end;if key in ['0'..'9'] Thenbegin. PanelVenda.Top:=80;. PanelVenda.Left:=60;. PanelVenda.visible:=True;. ValorUni.Text:=FormatCurr('#0.00',ProTEMPP_VIS.AsCurrency);. QTD.setfocus;.//keybd_event(trunc(Ord(Key)),0,0,0);. keybd_event_on(QTD,Key);end;O lazarus nao e 100% compativel com o Delphi, mas ao depararmos com problemas como esse, nao podemos desistir, sempre tem uma saida.Seja livre!Use lazarus/freepascal. Comunico a todos que foi criado um novo projeto no sourceforge para o gerador de relatorios FortesReport4LazarusEsse projeto baseia-se na versao 3.23 do Fortes Report, mas com algumas melhorias e correcoes de bugs que foram feitas na versao 3.24 do Fortes4Lazarus:.Modo draftfilter ok.Exporta para html,pdf,excel.Gera os relatorios mais rapidamente que na versao 3.24A versao do Fortes4lazarus baseado na 3.24 esta com um bug, que ainda nao sabemos se e no Fortes4Lazarus ou na LCL, por isso recomendo a todos que voltem sua atencao para a versao 3.23.Em breve estarei disponibilizando um projeto baseado na 3.24, que nao finaliza, terminando a aplicacao abruptamente, que e nosso bug, para que todos testem e deem sugestoes.O bug so ocorreu no windows, sendo que no linux o mesmo relatorio funcionou normalmente.Ainda nao subi os fontes, mas em breve estarao disponiveis para