From 59609b99b63d44bcd06bcc2a67f007e6f62d069d Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Wed, 22 Oct 2008 18:23:10 +0000
Subject: [PATCH] Fix bug #817 : cannot see anything in the field editor; color
 is white on white background

---
 source/bineditor.pas  | 3 ++-
 source/texteditor.pas | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/source/bineditor.pas b/source/bineditor.pas
index 28456ee6..5a578972 100644
--- a/source/bineditor.pas
+++ b/source/bineditor.pas
@@ -67,7 +67,8 @@ end;
 
 procedure TfrmBinEditor.SetFont(font: TFont);
 begin
-  memoText.Font := font;
+  memoText.Font.Name := font.Name;
+  memoText.Font.Size := font.Size;
 end;
 
 procedure TfrmBinEditor.FormCreate(Sender: TObject);
diff --git a/source/texteditor.pas b/source/texteditor.pas
index 517b7dcc..c1978d73 100644
--- a/source/texteditor.pas
+++ b/source/texteditor.pas
@@ -68,7 +68,8 @@ end;
 
 procedure TfrmTextEditor.SetFont(font: TFont);
 begin
-  memoText.Font := font;
+  memoText.Font.Name := font.Name;
+  memoText.Font.Size := font.Size;
 end;
 
 procedure TfrmTextEditor.FormCreate(Sender: TObject);