paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 13:50:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

OpenGL: fix DoubleBuffered compilation

Browse Source 
git-svn-id: trunk@58113 -
This commit is contained in:
ondrej 2018-06-04 08:44:15 +00:00
parent 88b4c00791
commit 7a929f1561
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/opengl/openglcontext.pas
View File

@ -125,7 +125,6 @@ type
FAutoResizeViewport: boolean; FAutoResizeViewport: boolean;
FCanvas: TCanvas; // only valid at designtime FCanvas: TCanvas; // only valid at designtime
FDebugContext: boolean; FDebugContext: boolean;
FDoubleBuffered: boolean;
FFrameDiffTime: integer; FFrameDiffTime: integer;
FOnMakeCurrent: TOpenGlCtrlMakeCurrentEvent; FOnMakeCurrent: TOpenGlCtrlMakeCurrentEvent;
FOnPaint: TNotifyEvent; FOnPaint: TNotifyEvent;
@ -144,7 +143,6 @@ type
function GetSharingControls(Index: integer): TCustomOpenGLControl; function GetSharingControls(Index: integer): TCustomOpenGLControl;
procedure SetAutoResizeViewport(const AValue: boolean); procedure SetAutoResizeViewport(const AValue: boolean);
procedure SetDebugContext(AValue: boolean); procedure SetDebugContext(AValue: boolean);
procedure SetDoubleBuffered(const AValue: boolean);
procedure SetOpenGLMajorVersion(AValue: Cardinal); procedure SetOpenGLMajorVersion(AValue: Cardinal);
procedure SetOpenGLMinorVersion(AValue: Cardinal); procedure SetOpenGLMinorVersion(AValue: Cardinal);
procedure SetOptions(AValue: TOpenGLControlOptions); procedure SetOptions(AValue: TOpenGLControlOptions);
@ -166,6 +164,7 @@ type
procedure WMSize(var Message: TLMSize); message LM_SIZE; procedure WMSize(var Message: TLMSize); message LM_SIZE;
procedure UpdateFrameTimeDiff; procedure UpdateFrameTimeDiff;
procedure OpenGLAttributesChanged; procedure OpenGLAttributesChanged;
procedure CMDoubleBufferedChanged(var Message: TLMessage); message CM_DOUBLEBUFFEREDCHANGED;
public public
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
@ -189,7 +188,8 @@ type
write SetSharedControl; write SetSharedControl;
property AutoResizeViewport: boolean read FAutoResizeViewport property AutoResizeViewport: boolean read FAutoResizeViewport
write SetAutoResizeViewport default false; write SetAutoResizeViewport default false;
property DoubleBuffered: boolean read FDoubleBuffered write SetDoubleBuffered default true; property DoubleBuffered stored True default True;
property ParentDoubleBuffered default False;
property DebugContext: boolean read FDebugContext write SetDebugContext default false; // create context with debugging enabled. Requires OpenGLMajorVersion! property DebugContext: boolean read FDebugContext write SetDebugContext default false; // create context with debugging enabled. Requires OpenGLMajorVersion!
property RGBA: boolean read FRGBA write SetRGBA default true; property RGBA: boolean read FRGBA write SetRGBA default true;
{$IFDEF HasRGBBits} {$IFDEF HasRGBBits}
@ -320,10 +320,9 @@ begin
OpenGLAttributesChanged; OpenGLAttributesChanged;
end; end;
procedure TCustomOpenGLControl.SetDoubleBuffered(const AValue: boolean); procedure TCustomOpenGLControl.CMDoubleBufferedChanged(var Message: TLMessage);
begin begin
if FDoubleBuffered=AValue then exit; inherited;
FDoubleBuffered:=AValue;
OpenGLAttributesChanged; OpenGLAttributesChanged;
end; end;
@ -523,6 +522,7 @@ end;
constructor TCustomOpenGLControl.Create(TheOwner: TComponent); constructor TCustomOpenGLControl.Create(TheOwner: TComponent);
begin begin
inherited Create(TheOwner); inherited Create(TheOwner);
ParentDoubleBuffered:=False;
FDoubleBuffered:=true; FDoubleBuffered:=true;
FRGBA:=true; FRGBA:=true;
{$IFDEF HasRGBBits} {$IFDEF HasRGBBits}