Cambiar color de texto del TAdvEdit cuando está desactivado

[oscorm]

TadvEdit es un componente de la suite TMS . He estado mirando el código y lo tienes chupado.

Código Delphi [-]
constructor TAdvEdit.Create(AOwner: TComponent);
var
  VerInfo: TOSVersioninfo;
  i: integer;

begin
  inherited Create(aOwner);
  FFocusColor := clNone;
  FFocusFontColor := clWindowText;
  FNormalColor := clWindow;
  FFontColor := self.Font.Color;
  FBorderColor := clNone;
  FModifiedColor := clHighLight;
  FErrorColor := clRed;
  FErrorFontColor := clWhite;
  FURLColor := clBlue;
  FDisabledColor := clSilver;
  FFlatParentColor := True;
  FFlatLineColor := clBlack;
 .......

Asi que pones los colores que tu creas convenientes en donde toque y a correr.

[strelok]

Empezado por oscorm

TadvEdit es un componente de la suite TMS . He estado mirando el código y lo tienes chupado.

Código Delphi [-]
constructor TAdvEdit.Create(AOwner: TComponent);
var
  VerInfo: TOSVersioninfo;
  i: integer;

begin
  inherited Create(aOwner);
  FFocusColor := clNone;
  FFocusFontColor := clWindowText;
  FNormalColor := clWindow;
  FFontColor := self.Font.Color;
  FBorderColor := clNone;
  FModifiedColor := clHighLight;
  FErrorColor := clRed;
  FErrorFontColor := clWhite;
  FURLColor := clBlue;
  FDisabledColor := clSilver;
  FFlatParentColor := True;
  FFlatLineColor := clBlack;
 .......

Asi que pones los colores que tu creas convenientes en donde toque y a correr.

¿chupado? no entendí.
Lo solucioné mirando el código interno, me di cuenta que reemplaza el del formulario si llamas a "Init", por ende, mi código estaba casi perfecto, solo faltaba una línea.
miEditdeTMS.Init;

Que ganas de pegarme un tiro jajaja, días perdidos con esto

[oscorm]

Perfecto, asunto solucionado!!!