Cesar Romero

Delphi programming

Entries for the ‘Delphi’ Category

Delphi Prism – Microsoft Case Studies

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

Turbo Power OnGuard 1.14

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/

VirtualTreeView no Delphi 2010

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: [...]

Compendium – Filtros “Open Source” para DataSnap 2010

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

madExcept 3.0k para Delphi 2010

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 [...]

TSQLConnection.Params como ConnectionString

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 [...]

Como comparar 2 Imagens

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 [...]

Twitter API com Delphi

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 [...]

Adicionando Mouse Wheel no TScrollBox

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; [...]

TFields em run time

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; [...]