Mudança de cor num Dbmemo

Delphi

27/06/2003

Tenho Um dbMemo e através de um ColorDialog mudo sua cor em tempo de execução, porém quando saio do programa e entro novamente, ele assume a cor de origem (quero que ele mantenha a nova cor) eis como mudo a Cor:

If ColorDialog1.Execute then
DbMemo1.Color:=ColorDialog1.Color;

O que deixei de fazer???

Agradeço que souber......


Marcos

Marcos

Curtidas 0

Respostas

Bilouro

Bilouro

27/06/2003

para ficar com a cor, vc tem que gravar isso em algum lugar entre: arquivo ini, banco de dados, registro.

ini é muito facil:

crie um evento (button1.click) por exemplo para chamar o color dialog e insira o codigo:
procedure TForm1.Button1Click(Sender: TObject);
VAR
  INI: TINIFILE;
BEGIN
  If ColorDialog1.Execute then
  BEGIN
    Memo1.Color:=ColorDialog1.Color;
    TRY
      INI:= TINIFILE.Create(´TEST.INI´);
      INI.WriteString(´CFG´,´MEMO1COR´,ColorToString(Memo1.Color));
    FINALLY
      INI.Free;
    END;
  END;
end;


E no evento onCreate do form:
procedure TForm1.FormCreate(Sender: TObject);
VAR
  INI: TINIFILE;
BEGIN
  TRY
    INI:= TINIFILE.Create(´TEST.INI´);
    Memo1.Color:=StringToColor( INI.READString(´CFG´,´MEMO1COR´,´clWindows´) );
  FINALLY
    INI.Free;
  END;
end;


[]´s


GOSTEI 0
Marcos

Marcos

27/06/2003

Caro Bilouro

Tentei executar seu código porém ele não reconhece a tipo de variável TINIFILE. Tem que declarar alguma coisa na Uses?....


GOSTEI 0
Marcos

Marcos

27/06/2003

Caro Bilouro

Tentei executar seu código porém ele não reconhece a tipo de variável TINIFILE. Tem que declarar alguma coisa na Uses?....


GOSTEI 0
Marcos

Marcos

27/06/2003

Caro Bilouro

Tentei executar seu código porém ele não reconhece a tipo de variável TINIFILE. Tem que declarar alguma coisa na Uses?....


GOSTEI 0
POSTAR