diff --git a/Source/GUIBase/uViewRichEditor.dfm b/Source/GUIBase/uViewRichEditor.dfm
index 0310a08d..b80daacf 100644
--- a/Source/GUIBase/uViewRichEditor.dfm
+++ b/Source/GUIBase/uViewRichEditor.dfm
@@ -158,7 +158,7 @@ inherited frViewRichEditor: TfrViewRichEditor
         StyleHot.LookAndFeel.NativeStyle = True
         TabOrder = 2
         Height = 21
-        Width = 20
+        Width = 19
       end
     end
   end
@@ -166,12 +166,19 @@ inherited frViewRichEditor: TfrViewRichEditor
     Left = 0
     Top = 26
     Align = alClient
+    ParentFont = False
     Properties.HideSelection = False
-    Properties.ScrollBars = ssBoth
+    Properties.ScrollBars = ssVertical
     Properties.OnChange = RichEditPropertiesChange
     Properties.OnSelectionChange = RichEditPropertiesSelectionChange
+    Style.Font.Charset = DEFAULT_CHARSET
+    Style.Font.Color = clWindowText
+    Style.Font.Height = -15
+    Style.Font.Name = 'Tahoma'
+    Style.Font.Style = []
     Style.LookAndFeel.Kind = lfStandard
     Style.LookAndFeel.NativeStyle = True
+    Style.IsFontAssigned = True
     StyleDisabled.LookAndFeel.Kind = lfStandard
     StyleDisabled.LookAndFeel.NativeStyle = True
     StyleFocused.LookAndFeel.Kind = lfStandard
diff --git a/Source/GUIBase/uViewRichEditor.pas b/Source/GUIBase/uViewRichEditor.pas
index 2f554bb7..7c13a7b3 100644
--- a/Source/GUIBase/uViewRichEditor.pas
+++ b/Source/GUIBase/uViewRichEditor.pas
@@ -170,7 +170,8 @@ end;
 procedure TfrViewRichEditor.CustomViewCreate(Sender: TObject);
 begin
   inherited;
-  CurrText.Name := DefFontData.Name;
+  CurrText.Name := 'Tahoma';
+  CurrText.Size := 11;
   RichEditPropertiesSelectionChange(Self);
 end;