浏览代码

CVS Enter log comment for commit
* set modified flag to false before prompt
dialog are executed in NewFromTemplate

pierre 23 年之前
父节点
当前提交
9a7fa7e743
共有 1 个文件被更改,包括 7 次插入2 次删除
  1. 7 2
      ide/fpmfile.inc

+ 7 - 2
ide/fpmfile.inc

@@ -62,8 +62,8 @@ begin
     TE:=OpenEditorWindow(nil,'',0,0);
     TE:=OpenEditorWindow(nil,'',0,0);
     if TE<>nil then
     if TE<>nil then
     begin
     begin
-      StartTemplate(LB^.Focused,TE^.Editor);
       TE^.Editor^.SetModified(false); { if nothing changes, we don't need to save it }
       TE^.Editor^.SetModified(false); { if nothing changes, we don't need to save it }
+      StartTemplate(LB^.Focused,TE^.Editor);
 (*      TE^.Hide; { we need this trick to get the editor updated }
 (*      TE^.Hide; { we need this trick to get the editor updated }
       TE^.Show;*)
       TE^.Show;*)
     end;
     end;
@@ -221,7 +221,12 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.3  2002-04-10 22:38:11  pierre
+  Revision 1.4  2002-08-29 09:31:53  pierre
+  CVS Enter log comment for commit
+   * set modified flag to false before prompt
+     dialog are executed in NewFromTemplate
+
+  Revision 1.3  2002/04/10 22:38:11  pierre
    * allow to open non existant file
    * allow to open non existant file
 
 
   Revision 1.2  2001/09/12 09:49:35  pierre
   Revision 1.2  2001/09/12 09:49:35  pierre