From 53648747fc78b75d4f1417059a23c84361e485f1 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Sat, 1 Mar 2008 12:53:07 +0000
Subject: [PATCH] fix design time drawing of openglcontext (at least under
 win32)

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

diff --git a/components/opengl/openglcontext.pas b/components/opengl/openglcontext.pas
index a7d5daaa51..d8d1b6ef47 100644
--- a/components/opengl/openglcontext.pas
+++ b/components/opengl/openglcontext.pas
@@ -255,6 +255,8 @@ begin
   //debugln('TCustomGTKGLAreaControl.WMPaint A ',dbgsName(Self),' ',dbgsName(FCanvas));
   if (csDesigning in ComponentState) and (FCanvas<>nil) then begin
     with FCanvas do begin
+      if Message.DC <> 0 then
+        Handle := Message.DC;
       Brush.Color:=clLtGray;
       Pen.Color:=clRed;
       Rectangle(0,0,Self.Width-1,Self.Height-1);