Color CurrencyEdit

[Thiago Balbino]

Hi, a bug in CurrencyEdit, after change the color property do not Works, but when de object request a focus the color change to selected color and when de focus next objet teh color returns to clwindow….

what to do ?

Thanks All

[Lucas Schatz]

same thing to me.
mesma coisa acontece pra mim.
Alguém que entende bem a estrutura poderia olhar?
Obrigado

[Lucas Schatz]

A little trick you could do, is to add this line:
    ACanvas.Control := Editor;
on rxToolEdit(I've renamed it to toolEdit for compatibility purpose)
at line 914:

function PaintComboEdit(Editor: TCustomComboEdit; const AText: string;
  AAlignment: TAlignment; StandardPaint: Boolean;
  var ACanvas: TControlCanvas; var Message: TWMPaint): Boolean;

  if ACanvas = nil then
  begin
    ACanvas := TControlCanvas.Create;
    ACanvas.Control := Editor;
    ACanvas.Brush.Color := Editor.Color;
  end;

Pleeeeeeeease, test it :) I just fixed this line, and tested once

Um pequeno truque para funcionar, é adicionar esta linha:
    ACanvas.Control := Editor;
no arquivo rxToolEdit(eu renomeei ele para toolEdit por motivos de compatibilidade)
na linha 914:

function PaintComboEdit(Editor: TCustomComboEdit; const AText: string;
  AAlignment: TAlignment; StandardPaint: Boolean;
  var ACanvas: TControlCanvas; var Message: TWMPaint): Boolean;

  if ACanvas = nil then
  begin
    ACanvas := TControlCanvas.Create;
    ACanvas.Control := Editor;
    ACanvas.Brush.Color := Editor.Color;
  end;

Teeeeeeeeeestem, Eu recém adicionei essa linha, e testei uma única vez

[Thiago Balbino]

It Work's but in design mode the color do not change, the color ever stay in clWindows