added fast read+write

fixed modified bug for the notes
2006-04-25 14:24:21 +00:00
parent 2c541f338c
commit 98a1d2b3da
6 changed files with 49 additions and 103 deletions
--- a/editor/studio/UnitfrmMain.pas
+++ b/editor/studio/UnitfrmMain.pas
@ -488,6 +488,9 @@ procedure TfrmMain.rtfNotesKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
 begin
  UpdateNotes;
+  
+  mnuModified.Caption := lModified;
+  ActiveDoc.Modified := True;
 end;

 { <- Notes - Code-Explorer -> }