equal
deleted
inserted
replaced
687 end; |
687 end; |
688 end; |
688 end; |
689 |
689 |
690 function glLoadExtension(extension : shortstring) : boolean; |
690 function glLoadExtension(extension : shortstring) : boolean; |
691 begin |
691 begin |
692 {$IF (GLunit = gles11) OR DEFINED(PAS2C)} |
692 //TODO: pas2c doesn't handle {$IF (GLunit = gles11) OR DEFINED(PAS2C)} |
|
693 {$IFNDEF PAS2C} |
|
694 {$IF GLunit = gles11} |
693 // FreePascal doesnt come with OpenGL ES 1.1 Extension headers |
695 // FreePascal doesnt come with OpenGL ES 1.1 Extension headers |
694 extension:= extension; // avoid hint |
696 extension:= extension; // avoid hint |
695 glLoadExtension:= false; |
697 glLoadExtension:= false; |
696 AddFileLog('OpenGL - "' + extension + '" skipped') |
698 AddFileLog('OpenGL - "' + extension + '" skipped') |
697 {$ELSE} |
699 {$ELSE} |
698 glLoadExtension:= glext_LoadExtension(extension); |
700 glLoadExtension:= glext_LoadExtension(extension); |
699 if glLoadExtension then |
701 if glLoadExtension then |
700 AddFileLog('OpenGL - "' + extension + '" loaded') |
702 AddFileLog('OpenGL - "' + extension + '" loaded') |
701 else |
703 else |
702 AddFileLog('OpenGL - "' + extension + '" failed to load'); |
704 AddFileLog('OpenGL - "' + extension + '" failed to load'); |
|
705 {$ENDIF} |
703 {$ENDIF} |
706 {$ENDIF} |
704 end; |
707 end; |
705 |
708 |
706 procedure SetupOpenGLAttributes; |
709 procedure SetupOpenGLAttributes; |
707 begin |
710 begin |