paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 03:09:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

CVS Enter log comment for commit

Browse Source 
* set modified flag to false before prompt
   dialog are executed in NewFromTemplate
This commit is contained in:
pierre 2002-08-29 09:31:53 +00:00
parent 90d10bf86b
commit 9a7fa7e743
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/fpmfile.inc
View File

@ -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