[JVCL-Checkins] CVS: jvcl/source JvRichEd.pas,1.14,1.15

[Peter T. <pe...@us...>]

Update of /cvsroot/jvcl/jvcl/source
In directory sc8-pr-cvs1:/tmp/cvs-serv25012/source

Modified Files:
	JvRichEd.pas 
Log Message:
Mantis #992  (numbering style unfunctional)

Index: JvRichEd.pas
===================================================================
RCS file: /cvsroot/jvcl/jvcl/source/JvRichEd.pas,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** JvRichEd.pas	11 Jun 2003 07:16:25 -0000	1.14
--- JvRichEd.pas	15 Jun 2003 07:41:18 -0000	1.15
***************
*** 1674,1677 ****
--- 1674,1679 ----
  
  function TJvParaAttributes.GetNumberingStyle: TJvNumberingStyle;
+ const
+   CNumberingStyle: array[0..3] of TJvNumberingStyle = (nsParenthesis, nsEnclosed, nsPeriod, nsSimple);
  var
    Paragraph: TParaFormat2;
***************
*** 1682,1690 ****
    begin
      GetAttributes(Paragraph);
!     Result := TJvNumberingStyle(Paragraph.wNumberingStyle);
    end;
  end;
  
  procedure TJvParaAttributes.SetNumberingStyle(Value: TJvNumberingStyle);
  var
    Paragraph: TParaFormat2;
--- 1684,1694 ----
    begin
      GetAttributes(Paragraph);
!     Result := CNumberingStyle[Paragraph.wNumberingStyle];
    end;
  end;
  
  procedure TJvParaAttributes.SetNumberingStyle(Value: TJvNumberingStyle);
+ const
+   CNumberingStyle: array[TJvNumberingStyle] of Word = ($0000, $0200, $0100, $0300);
  var
    Paragraph: TParaFormat2;
***************
*** 1696,1700 ****
    begin
      dwMask := PFM_NUMBERINGSTYLE;
!     wNumberingStyle := Ord(Value);
    end;
    SetAttributes(Paragraph);
--- 1700,1704 ----
    begin
      dwMask := PFM_NUMBERINGSTYLE;
!     wNumberingStyle := CNumberingStyle[Value];
    end;
    SetAttributes(Paragraph);