work save

Author: royqh1979@gmail.com

Lang/Chinese.lng

@@ -1000,6 +1000,7 @@ Ver=1
 60038=ϵͳȱʡӦ�ó���
 60039=�޷��򿪺�ʶ��ͼ���ļ�"%s"����ת����ico��ʽ�����³��ԡ�
 60040=��ע�⣺Dev-C++ֻ�ܴ�48x48�����´�С��ICO��ʽͼƬ
+60041=ֻ��
 
 61001=���ܴ��ļ� %s
 61002=���ܱ����ļ� %s

Lang/English.lng

@@ -999,6 +999,7 @@ Ver=1
 60038=Default Application
 60039=Can't open the icon file "%s"
 60040=Note: Dev C++ can only open icon no bigger than 48x48
+60041=Readonly
 
 61001=Cannot open file %s
 61002=Cannot save file %s

NEWS.txt

@@ -1,14 +1,12 @@
-Version 6.7.6 
-
-    - fix: parse error when double quotes not correctly closed
-    - fix: parse error when single quotes not correctly closed
-    - fix: show inherited members button of the class browser doesn't work
-
 Version 6.7.5 AUGUST 2021
 
     - add: blend mode for debug cpu window
     - change: use msys2 x86_64 gcc compiler instead of TDM-GCC-64, becuause the gdb distributed with TDM can't correctly handle path with non-ascii characters.
     - fix: clear local panel when debugger stops.
+    - fix: parse error when double quotes not correctly closed
+    - fix: parse error when single quotes not correctly closed
+    - fix: show inherited members button of the class browser doesn't work
+    - enhancement: open system header files in readonly mode
 
 Version 6.7.4 AUGUST 2021
 

Source/Editor.pas

@@ -477,6 +477,10 @@ constructor TEditor.Create(const Filename: AnsiString; Encoding:TFileEncodingTyp
     InitParser;
   end;
 
+  if (fParser.IsSystemHeaderFile(filename)) then begin
+    text.ReadOnly := true;
+    UpdateCaption('');
+  end;  
 
   // Function parameter tips
   fFunctionTip := TCodeToolTip.Create(Application);
@@ -1333,8 +1337,10 @@ procedure TEditor.UpdateCaption(const NewCaption: AnsiString);
 begin
   caption:=NewCaption;
   if caption = '' then begin
-    if fText.Modified then
-      caption := ExtractFileName(fFileName) + ' [*]' 
+    if fText.ReadOnly then
+      caption := ExtractFileName(fFileName) + ' [' + Lang[ID_MSG_READONLY]+ ']'
+    else if fText.Modified then
+      caption := ExtractFileName(fFileName) + ' [*]'
     else
       caption := ExtractFileName(fFileName);
   end;
@@ -1994,7 +2000,10 @@ procedure TEditor.EditorKeyPress(Sender: TObject; var Key: Char);
   if not Assigned(fText.Highlighter) then
     Exit;
 
-  if (Key in fText.IdentChars) then begin
+  if fText.ReadOnly then
+    Exit;
+
+  if (Key in fText.IdentChars)  then begin
     inc(fLastIdCharPressed);
     if devCodeCompletion.Enabled and devCodeCompletion.ShowCompletionWhileInput then begin
       if fLastIdCharPressed=1 then begin
@@ -2135,6 +2144,10 @@ procedure TEditor.EditorKeyDown(Sender: TObject; var Key: Word; Shift: TShiftSta
   if not Assigned(fText.Highlighter) then
     Exit;
 
+  if fText.ReadOnly then
+    Exit;
+
+
   // See if we can undo what has been inserted by HandleSymbolCompletion
   case (Key) of
     VK_CONTROL: begin

Source/LangIDs.inc

@@ -1080,6 +1080,7 @@ const
   ID_MSG_DEFAULT_APPLICATION            = 60038;
   ID_MSG_COULDNOTOPENICON               = 60039;
   ID_MSG_OPENICON                       = 60040;
+  ID_MSG_READONLY                       = 60041;
 
   ID_ERR_OPENFILE                       = 61001;
   ID_ERR_SAVEFILE                       = 61002;

Source/Version.pas

@@ -32,7 +32,7 @@ interface
 
   // exe properties
   DEVCPP = 'Red Panda Dev-C++';
-  DEVCPP_VERSION = '6.7.6';
+  DEVCPP_VERSION = '6.7.5';
 
   // delimiters
   DEV_INTERNAL_OPEN = '$__DEV_INTERNAL_OPEN';