Dicas Delphi - Mudando a cor de fundo de linhas diferentes de texto em um Listbox

Salve, salve

Crie uma nova aplicação, insira um Listbox e altere a propriedade Style para lbOwnerDrawFixed, depois clique na propriedade Items (...) e digite alguns valores em linhas diferentes. Copie o código abaixo, no evento OnDrawItem do Listbox.

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
myColor: TColor;
myBrush: TBrush;
begin
myBrush := TBrush.Create;
with (Control as TListBox).Canvas do
begin
if not Odd(Index) then
myColor := clSilver
else
myColor := clWhite;
myBrush.Style := bsSolid;
myBrush.Color := myColor;
Windows.FillRect(handle, Rect, myBrush.Handle);
Brush.Style := bsClear;
TextOut(Rect.Left, Rect.Top,(Control as TListBox).Items[Index]);
MyBrush.Free;
end;
end;

Não se esqueça de incluir valores no Listbox para que possa ser visto o efeito das cores. Execute a aplicação e veja a o funcionamento.

// Deixe seu comentátio ok.

Take care

Dicas Delphi - Utilize as teclas para mover entre os controles

Salve, salve amigos

As teclas UP e DOWN são virtualmente sem utilidade em controles Edit. Então porque não utilizá-las para navegar entre os campos? Se você alterar a propriedade KeyPreview de um formulário para True, pode usar o seguinte trecho de código no evento OnKeyDown do formulário para navegar entre os controles.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift : TShiftState) ;
var
Direction : Integer;
begin
Direction := -1;
case Key of
VK_DOWN, VK_RETURN : Direction := 0; {Next}
VK_UP : Direction := 1; {Previous}
end;
if Direction <> -1 then
begin
Perform(WM_NEXTDLGCTL, Direction, 0) ;
Key := 0;
end;
end;

// Deixe seu comentário.


Take care

Disponibilizados os Videos Mix10

Salve, salve,

Segue abaixo, link com os vídeos disponibilizados do evento MIX10.

Clique aqui


Take care.

Construindo uma aplicação Windows Phone 7 Twitter utilizando Silverlight

Salve, salve amigos,

Veja no link abaixo, no blog de Scott Guthrie, um passo a passo de como criar uma aplicação Windows Phone 7 Twitter utilizando Silverlight.

Clique aqui

Take care

In Depth Look at Internet Explorer 9

Salve, salve amigos,

Durante a Mix 10, a Microsoft, apresentou e disponibilizou o primeiro beta do Novo Internet Explorer versão 9. Uma das grandes novidades desta versão, é o suporte em HTML5.

Clique aqui e veja o video

Download da versão para teste
http://tinyurl.com/yfgoay8

Take care

Overview of the Windows Phone 7 Series Application Platform

Salve, salve amigos,

Clique aqui e assista ao video(inglês) de lançamento do Windows Phone 7 que aconteceu na Mix 10 em Las Vegas.

Until next time

Disponibilizados os Videos - Microsoft MIX10

Salve, salve amigos,

Clique aqui para visitar a página que contem os videos deste grande evento Designers & Developers - realizado em las vegas no dias 15, 16 e 17 de Março

Take care