paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 22:23:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

openglcontrol: fixed calling ancestor Create/DestroyHandle, bug

Browse Source 
git-svn-id: trunk@26779 -
This commit is contained in:
mattias 2010-07-22 11:46:57 +00:00
parent 3ebbb2a0a9
commit b18d3e0541
1 changed files with 4 additions and 7 deletions

11
components/opengl/openglcontext.pas
View File

@ -454,11 +454,10 @@ class function TWSOpenGLControl.CreateHandle(const AWinControl: TWinControl;
var
OpenGlControl: TCustomOpenGLControl;
AttrControl: TCustomOpenGLControl;
ParentWidgetClass: TWSLCLComponentClass;
begin
if csDesigning in AWinControl.ComponentState then begin
ParentWidgetClass:=FindWSComponentClass(TWinControl);
Result:=TWSWinControlClass(ParentWidgetClass).CreateHandle(AWinControl,AParams);
// do not use "inherited CreateHandle", because the LCL changes the hierarchy at run time
Result:=TWSWinControlClass(ClassParent).CreateHandle(AWinControl,AParams);
end
else begin
OpenGlControl:=AWinControl as TCustomOpenGLControl;
@ -474,12 +473,10 @@ begin
end;
class procedure TWSOpenGLControl.DestroyHandle(const AWinControl: TWinControl);
var
ParentWidgetClass: TWSLCLComponentClass;
begin
LOpenGLDestroyContextInfo(AWinControl);
ParentWidgetClass:=FindWSComponentClass(TWinControl);
TWSWinControlClass(ParentWidgetClass).DestroyHandle(AWinControl);
// do not use "inherited DestroyHandle", because the LCL changes the hierarchy at run time
TWSWinControlClass(ClassParent).DestroyHandle(AWinControl);
end;
initialization