3 replies to this topic

[array81]

I have a TNXSpinEdit. I have set it to accept only interger (from 1 to 5). Now I need show the preview box.
I want show a different color of preview box for any value of TNXSpinEdit, so when the user change the TNXSpinEdit value I need draw the preview box with a simple rectangle with different color.

I have try this code but NOT work:

procedure TMyForm.mySpinEditCustomPreviewDraw(Sender: TObject;
  PreviewRect: TRect);
var
  colIndex: Integer;
  col: TColor;
  r: TRect;
begin
  if (sneNome.Value > -1) and (sneNome.Value < 6) then
    begin
	  colIndex := StrToInt(sneNome.AsString);
	  if colIndex > 0 then
	    begin
		  col := GetBoxColor(colIndex);
		  r := PreviewRect;
		  InflateRect(r, -2, -2);
		  with mySpinEdit.Canvas do
		    begin
			  Brush.Color := col;
			  FillRect(r);
		    end;
	    end;
    end;
end;

Note TNXSpinEdit doesn't have DrawingOptions property...

[Boki (Berg)]

Hi,

You need to draw on EditInfo.Canvas:

                  with mySpinEdit.EditInfo.Canvas do
                        begin
                          Brush.Color := col;
                          FillRect(r);
                        end;

This should work now.

[array81]

Hi,

You need to draw on EditInfo.Canvas:

with mySpinEdit.EditInfo.Canvas do
begin
Brush.Color := col;
FillRect(r);
end;

This should work now.

Thank you, this work.
However I have a problem. Now the Preview Box is update only when user exit from TNXSpinEdit. I'd like change color when use change TNXSpinEdit value by keybord or buttons.

[Boki (Berg)]

You will need to call EditInfo.Invalidate every time you change value (onchange or OnEdit events)