From d61aa9fa28609fb0100e9e782481205c3a4f6541 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 20 Dec 2007 10:01:45 +0000
Subject: [PATCH] Editor de texto RTF: Tahoma/11pt como fuente predeterminada.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@181 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 Source/GUIBase/uViewRichEditor.dfm | 11 +++++++++--
 Source/GUIBase/uViewRichEditor.pas |  3 ++-
 2 files changed, 11 insertions(+), 3 deletions(-)

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;