Pular para o conteúdo principal

Diversos

Todos os assuntos que não estiverem classificados nos outros tópicos serão listados aqui, independente de estarem relacionados com tecnologia.



  1. Ruby
  2. Programação Orientada a Objetos (POO)
  3. E você ? Ficando rico também ?
  4. Fiscalização acirrada !
  5. Geoprocessamento
  6. Internet sob rede elétrica
  7. BLOGAGEM COLETIVA "Justiça para Flavia"
  8. Premio Dardos
  9. Procurando emprego?
  10. Open Hack Day
  11. Google “paga eu”
  12. Cursos de Graduação Gratuitos
  13. O Google me achou, coincidências à parte…
  14. 6 coisas e 6 links
  15. E o Android chegou nos notebooks
  16.  
  17. Maldito Layout de terceiro…
  18. Pedido de Desculpas…
  19. Aos poucos…
  20. Menu horizontal com CSS (Tableless)
  21. Um pouco sobre o twitter
  22. Nem só de anuncios viverá o google…
  23. O crescimento do twitter
  24. O que fazer com televisores (monitores) velhos?
  25. Já usou seu pen drive hoje?
  26. Woverine já na internet
  27. QR Code
  28. E o FireFox ultrapassa o IE na Europa
  29. Internet pela rede elétrica regulamentada
  30. A possível quebra de paradigma do FireFox
  31. Malandro também se liga no Google
  32. Doe sangue você também
  33. Oracle compra a Sun
  34. Um terabyte de capacidade?
  35. A escória tem que escutar
  36. Pagar viagem para FDP só se for para a PQP (e sem volta)
  37. Um pouco sobre a TV máfia (vulgo TV Globo)
  38. CPI da Petrobras
  39. Nanotecnologia em cigarros?
  40. Bug do Twitter?
  41. Processador de 1THz? Também quero
  42. Como é que eu nunca usei o Oper antes?
  43. Queremos Edmar castelão na prisão
  44. A Microsoft e seu projeto Natal
  45. Será que agora o PT ainda segura ele?
  46. Tio Bill confirma projeto Natal em PCs
  47. Desativar o IE?
  48. Firmada grande parceria em buscas na web
  49. E a gripe suína?
  50. Cara de pau é pouco…
  51. Pen Drive espião (Stealth iBot Computer Spy)
  52. Pede pra sair bigode fdp !
  53. Campanha de amor a pátria
  54. A nuvem em alta
  55. Os processos do Castelão
  56. Campanha ficha limpa
  57. Blog Action Day
  58. Conheça um pouco mais sobre energia limpa
  59. Lista de políticos com ficha suja
  60. De volta, aos poucos…
  61. É possível ficar pior ?
  62. Android e eu
  63. Um exemplo a ser seguido (até agora) deputado José Reguffe
  64. Boa Senador

Marcadores:

Comentários

Postar um comentário

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.

Mais visitadas

Listar arquivos existentes em diretório (Delphi)

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 ...
10 comentários
Leia mais

Alterar cores do PageControl (Delphi)

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 comentários
Leia mais

Como Verificar se um Objeto Existe (Delphi)

Em alguns momentos surge a necessidade de verificar se um determinado objeto existe, ou seja se já foi criado, principalmente quando se trabalha com criação dinâmica em tempo de execução, então vamos ao exemplo: - Vamos criar uma variável, um vetor do tipo caixa de texto: var Minha_caixa : array of TEdit; - Em seguida definir o tamanho desse vetor, no caso será dez: setLength(Minha_caixa, 10) - Agora iremos criar nossa caixa de texto: // lembrando que o vetor inicia em zero // logo o índice final é o tamanho total - 1 for vl_i := 0 to Length(Minha_caixa) -1 do begin Minha_caixa[vl_i] := TEdit.Create(self); with Minha_caixa[vl_i] do begin Parent := Self; Name := 'Caixa_N'+IntToStr(vl_i); Text := 'Esta é a '+IntToStr(vl_i)+' º caixa !'; ReadOnly := true; Height := 21; Width := ...
2 comentários
Leia mais