Fix bug #817 : cannot see anything in the field editor; color is white on white background

This commit is contained in:
Ansgar Becker
2008-10-22 18:23:10 +00:00
parent 9369754fe7
commit 59609b99b6
2 changed files with 4 additions and 2 deletions

View File

@ -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);

View File

@ -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);