Nick Hodges postou em seu blog sobre o Estudo de Caso que a Microsoft fez sobre o Delphi Prism, elogiando o projeto criado utilizando o Visual Studio Shell. Referências: Nick Hodges – Random Thoughts on the Passing Scene #138 Microsoft Case Studies
Roman Kassebaum anunciou a versão 1.14 do Turbo Power OnGuard. Esta versão suporta Delphi 2009 e Delphi 2010. Site do projeto e download: https://sourceforge.net/projects/tponguard/
A VirtualTreeView tem um bug quando utilizada com temas que causa um AV, a correção é bem simples, na unit VirtualTrees.pas procure pelo método local “procedure FillBitmap (ABitmap: TBitmap);” e altere a linha if not (coParentColor in FHeader.FColumns[FHeader.FMainColumn].FOptions) then para: if (FHeader.FMainColumn > -1) and not (coParentColor in FHeader.FColumns[FHeader.FMainColumn].FOptions) then o método completo ficou assim: [...]
DSFC – DataSnap Filters Compendium, é um conjunto de 9 filtros para DataSnap 2010, divididos em 3 grupos: HASH MD5 MD4 SHA1 SHA512 CIPHER Blowfish Rijndael 3TDES 3DES COMPRESS LZO Links Página do Projeto Download DataSnap Filters Compendium
Mathias Rauen (Aka madshi ), acabou de disponibilizar o madExcept versão 2.5.11.1 com suporte ao Delphi 2010. Eu estava esperando esta versão para poder compilar o Xananews com o Delphi 2010. A lista de alterações desde a última versão: – added Delphi/BCB 2010 support – added detection for Win2008, Win7, Win2008r2 – fixed: cleartext disassembly [...]
Pra quem está acostumado a trabalhar com as tecnologias de banco de dados da Microsoft como ADO, sabe que as configurações de conexão de banco de dados são passadas em uma propriedade chamada ConnectionString, uma linha única contendo todos os parâmetros da conexão separados por ponto e vírgula, diferente da propriedade Params do TSQLConnection, que [...]
O código a seguir, está comparando 2 bitmaps, mas a idéia pode ser utilizada para comparar outros formatos de imagem, arquivos, ou qualquer conteúdo salvo em TMemoryStream. function IsSameBitmap(Bitmap1, Bitmap2: TBitmap): boolean; var Stream1, Stream2: TMemoryStream; begin Assert((Bitmap1 <> nil) and (Bitmap2 <> nil), ‘Params can”t be nil’); Result:= False; if (Bitmap1.Height <> Bitmap2.Height) or [...]
O Guinther Pauli postou no Code Central um exemplo de como usar o Delphi para se comunicar com o Twitter. http://cc.embarcadero.com/Item/27198 O exemplo usa TIdHTTTP para se comunicar com o site e TXMLDocument para interagir com os campos. Vale a pena verificar como é feito, pois pode ser utilizado para entender como se comunicar com outros [...]
Uma forma simples tratar Mouse Wheel no TScrollBox. O código a seguir foi escrito pelo Peter Bellow no newsgroup embarcadero.public.delphi.vcl.components.using Eu postei aqui o código com uma pequena correção, o SB_LINEDOWN/SB_LINEUP estavam invertidos, e outras modificações pra adaptar ao meu código. procedure TFormEquifaxMain.ScrollBoxMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); var Msg: Cardinal; [...]
Apenas um exemplo de código de como manipular TFields em run time. Criar TFields sem utilizar TDataSet.FieldDefs Clonar Fields TDataSetField: Manipular TFields aninhados procedure TFormDBUtils.ButtonCreateFieldsClick(Sender: TObject); function CreateField(DataSet: TDataSet; FieldClass: TFieldClass; const FieldName: string = ”): TField; begin Result:= FieldClass.Create(DataSet); Result.FieldName:= FieldName; if Result.FieldName = ” then Result.FieldName:= ‘Field’ + IntToStr(DataSet.FieldCount +1); Result.FieldKind := fkData; [...]
