Boa tarde pessoal,Aqui deixo mais uma dica para quem usa Delphi com Rave Reports e precisa de colocar informacoes agrupadas dentro de outras informacoes em determinado relatorio, tipo um sub-relatorio.Tive essa necessidade hoje e resolvi usando uma Region (normalmente ja usamos uma) dentro de outra Region. Na segunda Region podemos colocar as informacoes que forem necessarias, assim como na primeira Region.Boa sorte pessoal! Boa tarde pessoal,Hoje venho mostrar um exemplo de utilizacao do "Code Templates" do Delphi 2006. Esse exemplo sera util para auxiliar no tratamento de erros.Ao pressionar CTRL + J, o Delphi exibe um menu com todos os "codigos de exemplo" ("Templates") contidos no "Code Templates" do Delphi 2006.Esses "Templates" podem ser visualizados, incluidos, alterados ou excluidos atraves da aba de visualizacao de "Templates". Para exibir essa aba acesse: Menu > View > Templates.Para criar um "Template", que servira para inserir um codigo com try, except e ainda exibir a mensagem de erro (uma forma simples de tratar erros), devemos clicar em "New" na aba "Templates" e em seguida colar o codigo abaixo:<?xml version="1.0" encoding="utf-8" ?><codetemplate xmlns="http://schemas.borland.com/Delphi/2005/codetemplates" version="1.0.0"> <template name="tryem" invoke="auto"> <description> Try except message </description> <author> Irapua Araujo </author> <code language="Delphi"><![CDATA[ try except on E: Exception do begin MessageDlg('Erro: ' + E.Message, mtError, [mbOk], 0); Exit; end; end; ]]> </code> </template></codetemplate>Em seguida basta salvar o arquivo e comecar a usar atraves do CTRL + J (escolher a opcao "tryem"). Pode-se digitar "tryem" e apertar CTRL + Espaco (Autocomplete do Delphi) e no menu que aparecer escolher a opcao "tryem".No Delphi 2006 salvei o "template" no seguinte caminho:C:\Users\USUARIO\AppData\Local\Borland\BDS\4.0\code_templatesCaso queira obter mais informacoes sobre "Code Templates" acesse os links abaixo:http://unitonedev.blogspot.com.br/2006/02/entendendo-code-templates-do-delphi.htmlhttp://docwiki.embarcadero.com/RADStudio/XE5/en/Templates_Windowhttp://docwiki.embarcadero.com/RADStudio/XE5/en/Creating_Live_Templateshttp://delphi.wikia.com/wiki/Delphi_Live_Templateshttp://www.devmedia.com.br/dicas-atalhos-de-teclado-da-ide-do-delphi-e-dicas-uteis/3067Espero que tenham gostado e que tenha sido muito util!Abracos! Boa tarde pessoal,Alguns dias atras instalei o Gimp 2 em minha maquina, onde ja estava instalado o Delphi 2006. Quando fui abrir o Delphi 2006 foi exibido a seguinte mensagem:"o programa nao pode ser iniciado porque esta faltando libgcc_s_sjlj-1.dll no seu computador. Tente reinstala-lo para resolver esse problema."Notei que essa dll estava na pasta do Gimp 2: C:\Program Files\GIMP 2\32\binPara resolver esse problema copiei essa dll para uma pasta do sistema, onde geralmente ha varias dlls:C:\Windows\SysWOW64Com isso o erro nao foi mais exibido!Obs.: Na minha maquina era a pasta acima, mas dependendo do seu sistema operacional pode ser outra pasta. Por exemplo:Windows 95/98/Me - C:\Windows\SystemWindows NT/2000 - C:\WINNT\System32Windows XP, Vista, 7 - C:\Windows\System32Se voce usa uma versao do Windows com 64-bit - C:\Windows\SysWOW64Para auxilio consultei o seguinte link:http://originaldll.com/file/libgcc_s_sjlj-1.dll/38437.html Bom dia Pessoal,No link abaixo e possivel conferir uma pequena amostra dos softwares que foram desenvolvidos em Delphi, inclusive o Skype. Se tiver curiosidade, confira!http://www.embarcadero.com/br/products/rad-studio/application-showcase?productfilter=12&tagfilter=AerospaceAbraco a todos! Bom dia pessoal,Esse post mostra como ajustar automaticamente a largura das colunas de um Dbgrid (nativo) em Delphi 2006.Declare a procedure abaixo numa unit e chame-a passando como parametros a grid e o indice da coluna que sera ajustada.Declaracao da Procedure:procedure DimensionarGrid(dbg: TDbGrid; AIndiceColunaAutoAjustavel : Integer); type TArray = Array of integer; procedure AjustarColunas(ALargura, ATamanhoTotal : Integer; ALstTamahos : TArray); var I :integer; begin if ATamanhoTotal = 0 then begin ATamanhoTotal := dbg.Columns.Count; for I := 0