Alinha um edit a direita

   SysLocale.MiddleEast := true;
   Edit.BiDiMode := bdRightToLeft;

Arredondamento TEdit

procedure ArredondarComponente(Componente: TWinControl; const Radius: SmallInt);
var
  R : TRect;
  Rgn : HRGN;
begin
  with Componente do
  begin
    R := ClientRect;
    Rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, Radius, Radius);
    Perform(EM_GETRECT, 0, lParam(@R));
    InflateRect(R, -5, -5);

Função para criptografar e descriptografar uma string

Function Crypt(Opcao : String; Dados : String): String;
var
  I : Integer;
  Key : Word;
  Res : String;
const
  C1    = 33598;
  C2    = 24219;
  Chave = 16854;
begin
  Key := Chave;
  for I := 1 to length(Dados) do
    begin
      Res := Res + Char(Byte(Dados[I]) xor (Key shr 8));
      if Opcao = 'CRYPT' then
        Key := (Byte(Res[I]) + Chave) * C1 + C2;
      if Opcao = 'DECRYPT' then
        Key := (Byte(Dados[I]) + Chave) * C1 + C2;
    end;
  Result := Res;
end;

{Para criptografar uma string:}
  Edit2.Text := Crypt('CRYPT',Edit3.Text);

{Para descriptografar uma string criptografada por esta função:}
  Edit1.Text := Crypt('DECRYPT',Edit2.Text);

Delphi - CheckBox no DBGrid.

Ola Pessoal,

Após um tempo de turbulência no trabalho, mais um post.
Vamos ao código pra fazer isso ;-)

1) Crie seu formulário, com o DBGrid conectado a tabela.
2) Selecione o seu DBGrid e acione o evento OnDrawColumnCell.
3) Coloque o seguinte código

procedure Tfrm_tarefas.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  Check: Integer;
  R: TRect;
begin
  if Column.FieldName = 'concluido' then //COLOQUE O NOME DA COLUNA, NO MEU CASO 'CONCLUIDO'
  begin
    DBGrid1.Canvas.FillRect(Rect);
    Check := 0;
    if tarefasconcluido.AsBoolean = true then
      Check := DFCS_CHECKED
    else
      Check := 0;
    R:=Rect;
    InflateRect(R,-2,-2); {Diminue o tamanho do CheckBox}
    DrawFrameControl(DBGrid1.Canvas.Handle,R,DFC_BUTTON, DFCS_BUTTONCHECK or Check);
  end;
end;
4) Selecione o seu DBGrid e acione o evento OnCellClick
5) Coloque o seguinte código:


procedure Tfrm_tarefas.DBGrid1CellClick(Column: TColumn);
begin
  tarefas.Edit;
  if tarefasconcluido.AsBoolean = true then
    tarefasconcluido.AsBoolean := false
  else
    tarefasconcluido.AsBoolean := true;
  tarefas.Post;
end;

Backup das Configurações do Delphi

Tutorial – Backup das Configurações do Delphi para um Novo Computador

Antes de Começar, Alguns Pontos

• É bom ressaltar aqui que não vou entrar em detalhes de como utilizar o editor de registro. Como programador acho que você já deve estar bastante familiarizado com a utilização dele.
• Também não vou colocar fotos (screenshots) do processo por não achar necessário já que é um procedimento muito simples.
• A não ser que você vá formatar o computador para instalar de novo, é recomendável deixar a instalação anterior intacta até ter tudo funcionando na nova máquina. Podem surgir excessões e com a instalação intacta é bem mais fácil resolver o problema visto que o Delphi irá informar qual/quais arquivos estão faltando. Mas acho que as dicas que dei até aqui cobrem tudo.

Primeira Parte – o Backup da Máquina/Instalação Antiga

Preparativos

Crie uma pasta onde salvaremos todos os arquivos que precisarão ser copiados. A pasta se chamará aqui c:\bkpdelphi. Dentro desta pasta crie as pastas c:\bkpdelphi\registros\, c:\bkpdelphi\borland\, c:\bkpdelphi\componentes\ e c:\bkpdelphi\system32\.

Copiando o Registro

Primeiro vamos salvar os arquivos de registro utilizados pelo Delphi. Execute o Editor de Registro através do comando Iniciar > Executar… clicando em ou usando a tecla de atalho Windows+R. Digite “regedit” e clique no botão OK ou pressione ENTER.