From: Marcel B. <jed...@us...> - 2002-11-09 20:46:02
|
Update of /cvsroot/jvcl/jvcl/source In directory usw-pr-cvs1:/tmp/cvs-serv4593/jvcl/source Modified Files: JvSchedEvntReg.pas Log Message: Designer is notified if the schedule editor has been closed using the OK button. Otherwise changes in the schedule are not seen as modifications and the form will not be saved, unless you modify another property/move a component. This is related to the problem in my test case mentioned in Mantis #428. Index: JvSchedEvntReg.pas =================================================================== RCS file: /cvsroot/jvcl/jvcl/source/JvSchedEvntReg.pas,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** JvSchedEvntReg.pas 27 Oct 2002 12:58:21 -0000 1.1 --- JvSchedEvntReg.pas 9 Nov 2002 20:45:58 -0000 1.2 *************** *** 14,18 **** uses ! ColnEdit, {$IFDEF COMPILER6_UP}DesignIntf, DesignEditors{$ELSE}DsgnIntf{$ENDIF}, JclSchedule; --- 14,18 ---- uses ! ColnEdit, Controls, {$IFDEF COMPILER6_UP}DesignIntf, DesignEditors{$ELSE}DsgnIntf{$ENDIF}, JclSchedule; *************** *** 43,47 **** try Schedule := IJclSchedule({TEventSchedule(}GetOrdValue){.Schedule}; ! ShowModal; finally Free; --- 43,48 ---- try Schedule := IJclSchedule({TEventSchedule(}GetOrdValue){.Schedule}; ! if ShowModal = mrOk then ! Self.Modified; finally Free; |