PROGRAMERO

Isso mesmo, o intuito é filtrar certos elementos como a nicotina, o alcatrão e outros compostos por meio de nanotubos de carbono. A descoberta de uma nova propriedade dos nanotubos aconteceu na Faculdade de Filosofia, Ciências e Letras de Ribeirão Preto (FFCLRP) da USP, pela doutoranda Elaine Matsubara do grupo de pesquisa liderado pelo professor José Maurício Rosolen. Foram realizados experimentos com auxílio de espectrometria de massa e infra-vermelho para chegar a aplicação nos filtros, onde foi constatado que certas substancias foram completamente retidas pelo filtro. O nome do nanotubo de carbono (único a surtir efeito) não foi revelado, pois o artigo de publicação cientifica assim como o pedido de patente ainda não foram completados. Fonte: Inovação tecnológica nanotecnologia , cigarros , saude , programero

O padrão Windows todo cinza não é muito atraente, por isso quando nos utilizarmos do PageControl podemos alterar suas cores e fontes da seguinte maneira: Em primeiro lugar devemos alterar a propriedade OwnerDraw para TRUE ; Depois implementar seu método DrawTab da seguinte maneira: //pinta a fonte Control.Canvas.Font.Color:=clBlack; // // pinta a paleta / aba Control.Canvas.brush.Color:=clSkyBlue; PageControl1.Canvas.Rectangle(Rect); Control.Canvas.TextOut(Rect.left+5,Rect.top+3,PageControl1.Pages[tabindex].Caption); // pinta a parte interna (tabsheet) PageControl1.Pages[TabIndex].brush.Color := Control.Canvas.brush.Color; PageControl1.Pages[TabIndex].Repaint; Caso a intenção seja manter cada aba com seu próprio estilo basta adicionar um CASE filtrando o índice das abas: case TabIndex of   0: Control.Canvas.Font.Color:=clBlack;   1: Control.Canvas.Font.Color:=clWindow;   2: Con

Após novo adiamento para a instalação da CPI da Petrobras estamos aqui para exigir que os senhores senadores compareçam a sala onde funcionará a comissão, já que na última semana por duas vezes não o fizeram. Entenda a CPI A CPI criada para investigar irregularidades na Petrobras contou com o apoio de 30 senadores, três a mais que o número mínimo necessário para a criação de uma Comissão de Inquérito. O autor do pedido é o senador tucano Álvaro Dias (PSDB-PR). Em seu requerimento, Álvaro destaca os seguintes pontos a serem investigados: Indícios de fraudes nas licitações para reforma de plataformas de exploração de petróleo apontados pela operação “Águas Profundas” da Polícia Federal; Graves irregularidades nos contratos de construção de plataformas, apontados pelo Tribunal de Contas da União; Indícios de superfaturamento na construção da refinaria Abreu e Lima, em Pernambuco, apontados por relatório do Tribunal de Contas da União; Denúncias de desvi

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin   tamanhoTotal := 0;   memLista.Lines.Clear;   ListarArquivos(edtDiretorio.Text, chkSub.Checked);   Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var   F: TSearchRec;   Ret: Integer;   TempNome: string; begin   Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);   try     while Ret = 0 do       begin         if TemAtributo(F.Attr,

Para essa pequena dica construiremos um formulário contendo dois Edits e um botão, o primeiro Edit recebe o caminho e nome do arquivo, o segundo receberá o tamanho em bytes. Segue a cadificação do evento click do botão: procedure TForm1.Button1Click(Sender: TObject); var   SR: TSearchRec;   I: integer; begin   I := FindFirst(Edit1.Text, faArchive, SR);   try     if I = 0 then       Edit2.Text := IntToStr( SR.Size )     else       Edit2.Text := '-1';   finally     FindClose(SR);   end; end; Baixe o exemplo completo aqui .

Para os mais atentos não é novidade que a TV Globo não só deturpa a realidade de certos acontecimentos em prol de determinados indivíduos como mina a capacidade de discernimento do certo e errado do nosso país com suas superproduções recheadas com enredos absurdos que passam longe da realidade da nação. Novelas com contextos que não ignoram o flagelo da maioria, mas que sempre passam a falsa impressão de que nem tudo esta tão mal assim ou que um dia tudo melhora, ou seus programas vazios de conteúdo que exploram o que ha de pior nos participantes (que já não são grande coisa, e eu me recuso ate a escrever o nome, mas que todos já devem imaginar do que estou falando) tem sido de grande importância para a manutenção de tantos governos corruptos, civis ou militares, que tem alargado cada vez mais o abismo entre os pobres e ricos. A lavagem cerebral realizada ao longo e tantos anos e notória, basta olhar agora para a TV do seu vizinho ou mesmo a sua e verificar em qual canal ela esta sinto

Quando a esmola é grande o santo desconfia, acabei por perder a data mas não poderia deixar de falar, depois de proibidas as viagens dos senhores FDPs dePUTADOS foram liberadas novamente , o calor das noticias diminuíram, a coisa toda deixou de ser novidade e tudo ficou como está, eles aproveitando da maneira que bem entendem do nosso dinheiro. Simplesmente uma palhaçada, as cifras desse roubo anunciado e sacramentado é absurda num país que possui em sua grande maioria maltrapilhos famintos que se contentam com esmolas dum governo assistencialista que promove (com grande ajuda da mídia) a ignorância sustentando da situação como sempre foi (e a cada dia parece que sempre será). Quer saber mais sobre essa e outras palhaçadas de uma lida aqui e aqui , reportagens do Estadão, ou nesse blog que é fantástico e aborda os assuntos políticos com grande maestria.