[GExperts-Checkins] SF.net SVN: gexperts:[4282] trunk/ExternalSource/File View.pas

[<aka...@us...>]

Revision: 4282
          http://sourceforge.net/p/gexperts/code/4282
Author:   akalwahome
Date:     2024-07-06 20:01:13 +0000 (Sat, 06 Jul 2024)
Log Message:
-----------
File preview now uses SynEdit control with selected editor font and syntax highlighting.

Modified Paths:
--------------
    trunk/ExternalSource/FileView.pas

Modified: trunk/ExternalSource/FileView.pas
===================================================================
--- trunk/ExternalSource/FileView.pas	2024-07-06 19:48:54 UTC (rev 4281)
+++ trunk/ExternalSource/FileView.pas	2024-07-06 20:01:13 UTC (rev 4282)
@@ -36,7 +36,8 @@
 implementation
 
 uses
-  Controls, Forms, Graphics, StdCtrls, SysUtils, GX_OtaUtils, GX_StringList;
+  Controls, Forms, Graphics, StdCtrls, SysUtils,
+  GX_OtaUtils, GX_StringList;
 
 constructor TFileViewer.Create(AOwner: TComponent);
 begin
@@ -77,6 +78,7 @@
       Gutter.Width := 0;
       Visible := False;
     end;
+    GxOtaGetEditorFont(FEditor.Font, -1);
     {$ENDIF SYNEDIT}
   end;
 end;
@@ -124,10 +126,11 @@
     finally
       FreeAndNil(Strings);
     end;
-    begin
-      SetSynEditHighlighter(FEditor, Parser);
-      FGXSyntaxParser := Parser;
-    end;
+    if Parser > gxpNone then
+      GxOtaGetEditorFont(FEditor.Font, -1);
+      
+    SetSynEditHighlighter(FEditor, Parser);
+    FGXSyntaxParser := Parser;
     FEditor.Visible := True;
   end;
   {$ENDIF SYNEDIT}
@@ -174,6 +177,9 @@
       {$IFDEF SYNEDIT}
       FEditor.Visible := False;
       {$ENDIF SYNEDIT}
+// TODO: Use IDE's editor font?
+//      FRichEdit.Font.Name := '';
+//      FRichEdit.DefAttributes.Name := '';
       FRichEdit.Lines.LoadFromFile(FileName);
       FRichEdit.Visible := True;
     end

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.