ActiveNews – Nº 0001

Caro assinante,

É com muito carinho que estamos lhe enviando a 1ª edição do ActiveNews, e será com muita dedicação que nosso trabalho se tornará cada vez mais qualificado, e satisfatório para todos nossos assinantes, pretendemos cada vez mais progredir com muita seriedade nessa área.

A nossa missão é de sempre inovar e se especializar na área de Programação Delphi, proporcionando aos seus assinantes os melhores conhecimentos através da utilização dos nossos serviços.

Você também poderá contribuir, enviando sua dica para publicarmos no ActiveNews, divulgando nosso site e dando sua opinião, que é muito importante para nós.

Tenha uma ótima semana.

EQUIPE ACTIVEDELPHI

www.activedelphi.hpg.com.br

activedelphi@email.com.br

ºººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººººº

Para alterar o endereço de e-mail, ou cancelamento do serviço, envie um e-mail para : activedelphi@email.com.br

1- Como tabular um ListBox.

procedure TForm1.FormActivate(Sender: TObject);

var

MatTabs : Array[0..5] of Integer;

begin

MatTabs[0] := 40;

MatTabs[1] := 80;

MatTabs[2] := 200;

MatTabs[3] := 400;

MatTabs[4] := 500;

MatTabs[5] := 700;

ListBox1.Perform(LB_SETTABSTOPS,1,Integer(@MatTabs[0]));

end;

Apostilas FREE -> http://www.activedelphi.hpg.com.br/apostilas.htm

Delphi, SQL, Componentes e Outras !!! Confira.

2- Como ancorar um form.

private

{ Private declarations }

procedure WMWindowPosChanging ( var Msg : TWMWindowPosChanging);

message WM_WINDOWPOSCHANGING;

procedure TForm1.WMWindowPosChanging (var Msg : TWMWindowPosChanging);

begin

if not checkbox1.checked then

with msg.windowpos^ do begin

x := left ;

y := top ;

msg.result := 0;

end;

Lembrando que você também pode mandar sua dica de Programação Delphi para nós a publicarmos no ActiveNews, a equipe da ActiveDelphi e todos os leitores ficarão agradecidos com a sua contribuição.

3- Como alinhar um edit à direita.

Esse exemplo trata-se de um Memo simulando um edit.

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if (key = VK_TAB) and (ssCtrl in Shift) then

Key := 0;

end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);

begin

if Key = #10 then

Key := #0;

end;

Aguarde !!! Em breve vários componentes totalmente FREE pra Você.

4- Pesquisa incremental em uma listbox.

procedure TForm1.Edit1Change(Sender: TObject);

begin

Listbox1.Perform(LB_SELECTSTRING,0,LongInt(PChar(Edit1.Text)));

end;

Não deixe de conferir as dicas já postadas em nosso site.

Visite http://www.activedelphi.hpg.com.br/dicas.htm

5- Eliminando os hints de uma treeview.

procedure TForm1.Button1Click(Sender: TObject);

begin

SetWindowLong(TreeView1.Handle, GWL_STYLE,

GetWindowLong(TreeView1.Handle,GWL_STYLE) or $80);

end;

para mostrar os hints novamente

SetWindowLong(TreeView1.Handle, GWL_STYLE,

GetWindowLong(TreeView1.Handle,GWL_STYLE) and not $80);

6- Retorna o dia da semana em formato string.

Function DiadaSemana(Data : String) : str13;

const

semana : array[1..7] of str13 = ('Domingo','Segunda-feira','Terça-feira',

'Quarta-feira','Quinta-feira','Sexta-feira',

'Sábado');

begin

Result := semana[DayOfWeek(strtodate(Data))]

end;

7- Trocando a cor de uma célula num DBGrid.

No evento onDrawColumnCell do dbgrid coloque o código para mudar a cor da fonte do dbgrid e a chave do método para "desenhar" os dados.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if (Column.Field.FieldName = 'NOMEDOCAMPO') then
begin
     if condição then // coloque aqui sua condição
     begin
        DBGrid1.Canvas.Brush.Color:= clAqua;
        DBGrid1.Canvas.Font.Color:= clWindowText;
        DBGrid1.Canvas.FillRect(Rect);
        DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
     end;
end;
end;

8- Pega o path de um arquivo arrastado do explorer.

uses

StdCtrls, ShellApi;

private

procedure WMDropFiles(var Msg : TWMDropFiles); message WM_DROPFILES;

procedure TForm1.FormCreate(Sender: TObject);

begin

DragAcceptFiles(Handle, True);

end;

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);

var

i : Integer;

NumArqs : Integer;

NomeArq : String;

begin

SetLength(NomeArq,255);

NumArqs := DragQueryFile(Msg.Drop,$FFFFFFFF,PChar(NomeArq),255);

for i := 0 to NumArqs-1 do begin

DragQueryFile(Msg.Drop,i,PChar(NomeArq),255);

Listbox1.Items.Add(NomeArq);

end;

9- Chamando a caixa de conexão Dial-Up.

WinExec(PChar('rundll32.exe rnaui.dll,RnaDial '),SW_SHOWNORMAL);

10- Extrair o tamanho de um arquivo.

function TForm1.TamArquivo(Arquivo: string): Integer;
begin
with TFileStream.Create(Arquivo, fmOpenRead or fmShareExclusive) do
try
Result := Size;
finally
Free;
end;
end;

Utilize a função assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:= inttostr(TamArquivo('CAMINHO\NOMEDOARQUIVO'));
end;

Se em certas horas precisamos receber, não se esqueça de que, noutras

horas, temos obrigação de dar.

Ajude, pois, mas sem querer substituir-se a quem você ajuda.

Cada um precisa caminhar com seus próprios pés, para aprender a viver.

Saiba distinguir o momento oportuno de dar e de receber.

Extraído de 'Minutos de Sabedoria'

Dê sua opnião sobre o nosso 1º ActiveNews, ela é muito importante para nós.

Até a próxima semana !!!

EQUIPE ACTIVEDELPHI

www.activedelphi.hpg.com.br

activedelphi@email.com.br