[JVCL-Checkins] dev/JVCL3/run JvToolEdit.pas,1.157,1.158 - From Fred: Fixed problem with ReadOnly introduced with the a

[Olivier S. <ob...@us...>]

Update of /cvsroot/jvcl/dev/JVCL3/run
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24364/dev/JVCL3/run

Modified Files:
	JvToolEdit.pas 
Log Message:
From Fred: Fixed problem with ReadOnly introduced with the automatic setup of ClipboardCommands


Index: JvToolEdit.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/JVCL3/run/JvToolEdit.pas,v
retrieving revision 1.157
retrieving revision 1.158
diff -C2 -d -r1.157 -r1.158
*** JvToolEdit.pas	6 Oct 2004 14:04:26 -0000	1.157
--- JvToolEdit.pas	7 Oct 2004 18:30:56 -0000	1.158
***************
*** 2995,2999 ****
    begin
      inherited SetClipboardCommands(Value);
!     ReadOnly := ClipboardCommands <= [caCopy];
    end;
  end;
--- 2995,3000 ----
    begin
      inherited SetClipboardCommands(Value);
!     if ReadOnly and not (ClipboardCommands <= [caCopy]) then
!       ClipboardCommands := [caCopy];
    end;
  end;