From 9525beef2a47935dc5f6fe096475a6daaf22c0ad Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 1 Mar 2008 12:59:04 +0000
Subject: [PATCH] openglcontrol: fixed restoring canvas.handle at designtime

git-svn-id: trunk@14343 -
---
 components/opengl/openglcontext.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/opengl/openglcontext.pas b/components/opengl/openglcontext.pas
index d8d1b6ef47..2dddd50729 100644
--- a/components/opengl/openglcontext.pas
+++ b/components/opengl/openglcontext.pas
@@ -264,6 +264,8 @@ begin
       LineTo(Self.Width,Self.Height);
       MoveTo(0,Self.Height);
       LineTo(Self.Width,0);
+      if Message.DC <> 0 then
+        Handle := 0;
     end;
   end else begin
     Paint;