#pas
procedure Draw(PRec:PParamRec; ed:pointer; dc:HDC); cdecl;
var C: PCanvas;
    R: TRect;
    Width, Height: integer;
begin
  // PropXXXX - переменные, содержащие индексы свойств
  Width := integer(PRec[PropWidth].Value^);
  Height := integer(PRec[PropHeight].Value^);
  
  C := NewCanvas(dc);
  SetRect(R, 4, 2, Width - 8, Height - 4);
  with C^ do
  begin
    Pen.Color := $2894ff;
    Pen.PenWidth := 2;
    Brush.Color := clWhite;
    RoundRect (0, 0, Width, Height, 6, 6); 
  end;
  C.Free;
end;