b4it - business for information technology

Instalei essa semana o Delphi 2007. Até então, desde 2004 estava trabalhando com o Delphi 7.

Há alguns anos eu encontrei na net uma configuração de cores para o Visual Studio que me agradou muito, pois é muito suave para os olhos, e como nós, programadores, passamos muitas horas olhando para o monitor, toda ajuda acaba tendo um grande impacto a longo prazo. Acabei portando a configuração para o Delphi 7, manualmente, elemento por elemento, configurando cor de background e de foreground, baseado nos valores do Visual Studio.

Eu já troquei de máquina diversas vezes ao longo dos anos e sempre migrei as configurações do Delphi apenas copiando arquivos e exportando/importando chaves de registro.

Agora, com o Delphi 2007, eu tive a idéia de importar as configurações de cores pra não ter que configurar item por item novamente, o que levaria um bom tempo, além de ser uma tarefa massante.

Abaixo descrevo passo a passo o procedimento, que vale também para outras configurações do Delphi:

1) Abra o Editor de Registro (RegEdit.exe) e localize a chave que contém as cores do editor do Delphi 7:

HKEY_CURRENT_USER\Software\Borland\Delphi\7.0\Editor\Highlight

2) Botão direito – “Exportar”

3) Salve o arquivo na sua máquina. Dê um nome, por exemplo, “Delphi7_Cores.reg”

4) Localize a chave de registro que contém as cores do editor do Delphi 2007:

HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight

5) Botão direito – “Copiar nome da Chave”. Se desejar, exporte-a também, para um arquivo de backup, só por segurança. Exemplo:  “Delphi2007_Cores.reg”

 

6) Abra o arquivo gerado na exportação da chave do Delphi 7 (“Delphi7_Cores.reg”) no Bloco de Notas

7) Menu “Editar” – “Substituir...”

8) Preencha a caixa de diálogo da seguinte forma:

• Localizar: HKEY_CURRENT_USER\Software\Borland\Delphi\7.0\Editor\Highlight
• Substituir por: HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight

9) Pressione o botão “Substituir tudo”

10) Salve o arquivo alterado com outro nome, exemplo: “Delphi2007_NovasCores.reg”

11) Localize pelo Windows Explorer o novo arquivo salvo, “Delphi2007_NovasCores.reg”, e dê um duplo clique nele (ou Botão direito – “Abrir com...” – “Editor do Registro”)

12) Confirme a importação na caixa de diálogo que surge

13) Abra o Delphi 2007 e confira o resultado.

Executei essa operação em um Windows XP Professional com usuário Administrador. Para outros sistemas operacionais podem haver diferenças, mas se você programa em Delphi, deve estar ciente disso.

Abaixo segue o conteúdo do arquivo que eu importei no Delphi 2007. Você pode criar um arquivo de texto plano com a extensão “.reg”, colar este conteúdo e seguir a partir do passo 10 acima.

(Copiar a partir da linha abaixo: )

Windows Registry Editor Version 5.00

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight]

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Assembler]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clLime"

"Background Color New"="clBlack"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Attribute Names]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clWhite"

"Background Color New"="$003D3D3D"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Attribute Values]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clYellow"

"Background Color New"="$003E3E3E"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Brace Highlight]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clSilver"

"Background Color New"="clGreen"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Character]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clNavy"

"Background Color New"="clBlack"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Code folding tree]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clLime"

"Background Color New"="clBlack"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Comment]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clMoneyGreen"

"Background Color New"="$003D3D3D"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Diff addition]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clNavy"

"Background Color New"="clYellow"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Diff deletion]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clNavy"

"Background Color New"="clRed"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Diff move]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clNavy"

"Background Color New"="clBlue"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Disabled break]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clRed"

"Background Color New"="clLime"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Enabled break]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clWhite"

"Background Color New"="clRed"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Error line]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clWhite"

"Background Color New"="clMaroon"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Execution point]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clWhite"

"Background Color New"="clBlue"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Float]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clSkyBlue"

"Background Color New"="$003D3D3D"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Folded code]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clLime"

"Background Color New"="clBlack"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Hex]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clSkyBlue"

"Background Color New"="$003D3D3D"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Hot Link]

"Bold"="False"

"Italic"="False"

"Underline"="True"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clYellow"

"Background Color New"="clBlack"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Identifier]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clCream"

"Background Color New"="$003D3D3D"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Illegal Char]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clRed"

"Background Color New"="clBlack"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Invalid break]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clLime"

"Background Color New"="clOlive"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Keyword]

"Bold"="True"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Line Highlight]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="True"

"Default Background"="False"

"Foreground Color New"="clBlack"

"Background Color New"="$00505050"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Line Number]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clLime"

"Background Color New"="clBlack"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Marked block]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clBlack"

"Background Color New"="clWhite"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Modified line]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clLime"

"Background Color New"="clYellow"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Number]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clSkyBlue"

"Background Color New"="$003D3D3D"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Octal]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clFuchsia"

"Background Color New"="clBlack"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Plain text]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clSkyBlue"

"Background Color New"="$003D3D3D"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Preprocessor]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clSilver"

"Background Color New"="$002E333F"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Reserved word]

"Bold"="True"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="$00DDFFFF"

"Background Color New"="$003D3D3D"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Right margin]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clSilver"

"Background Color New"="clWhite"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Scripts]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clGreen"

"Background Color New"="clBlack"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Search match]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clNavy"

"Background Color New"="clMoneyGreen"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\String]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="$009191C8"

"Background Color New"="$003D3D3D"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Symbol]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clCream"

"Background Color New"="$003D3D3D"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Sync edit background]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="True"

"Default Background"="False"

"Foreground Color New"="clBlack"

"Background Color New"="clGray"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Sync edit highlight]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clBlue"

"Background Color New"="clWhite"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Tags]

"Bold"="True"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clMoneyGreen"

"Background Color New"="$003D3D3D"

 

[HKEY_CURRENT_USER\Software\Borland\BDS\5.0\Editor\Highlight\Whitespace]

"Bold"="False"

"Italic"="False"

"Underline"="False"

"Default Foreground"="False"

"Default Background"="False"

"Foreground Color New"="clWhite"

"Background Color New"="$003E3E3E"