Mudan�a de cor num Dbmemo

Question

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......

Bilouro · Answer

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

Marcos · Answer

Caro BilouroTentei executar seu c�digo por�m ele n�o reconhece a tipo de vari�vel TINIFILE. Tem que declarar alguma coisa na Uses?.......

Marcos · Answer

Caro BilouroTentei executar seu c�digo por�m ele n�o reconhece a tipo de vari�vel TINIFILE. Tem que declarar alguma coisa na Uses?.......

Marcos · Answer

Caro BilouroTentei executar seu c�digo por�m ele n�o reconhece a tipo de vari�vel TINIFILE. Tem que declarar alguma coisa na Uses?.......

F�rum Mudan�a de cor num Dbmemo #166749