From 53201802d5a8bb730d855395850b58ff0b02530b Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sat, 3 Jun 2006 20:57:55 +0000
Subject: [PATCH]   * Do not redraw entire screen when Tgroup.draw is called.

git-svn-id: trunk@3778 -
---
 fv/views.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fv/views.pas b/fv/views.pas
index 148fdaeeec..98e9e014a4 100644
--- a/fv/views.pas
+++ b/fv/views.pas
@@ -2204,7 +2204,7 @@ END;
 PROCEDURE TGroup.Draw;
 BEGIN
    If Buffer=Nil then
-     ReDraw
+     DrawSubViews(First, nil)
    else
      WriteBuf(0,0,Size.X,Size.Y,Buffer);
 END;