paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 11:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed web bug #4546

Browse Source 
git-svn-id: trunk@1894 -
This commit is contained in:
Jonas Maebe 2005-12-07 14:59:47 +00:00
parent f753fa10cd
commit d7acb80e11
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
packages/extra/opengl/glut.pp
View File

@ -135,6 +135,7 @@ const
GLUT_NORMAL = 0; GLUT_NORMAL = 0;
GLUT_OVERLAY = 1; GLUT_OVERLAY = 1;
{$ifdef win32}
// Stroke font constants (use these in GLUT program). // Stroke font constants (use these in GLUT program).
GLUT_STROKE_ROMAN = Pointer(0); GLUT_STROKE_ROMAN = Pointer(0);
GLUT_STROKE_MONO_ROMAN = Pointer(1); GLUT_STROKE_MONO_ROMAN = Pointer(1);
@ -147,6 +148,23 @@ const
GLUT_BITMAP_HELVETICA_10 = Pointer(6); GLUT_BITMAP_HELVETICA_10 = Pointer(6);
GLUT_BITMAP_HELVETICA_12 = Pointer(7); GLUT_BITMAP_HELVETICA_12 = Pointer(7);
GLUT_BITMAP_HELVETICA_18 = Pointer(8); GLUT_BITMAP_HELVETICA_18 = Pointer(8);
{$else win32}
var
// Stroke font constants (use these in GLUT program).
GLUT_STROKE_ROMAN : Pointer;
GLUT_STROKE_MONO_ROMAN : Pointer;
// Bitmap font constants (use these in GLUT program).
GLUT_BITMAP_9_BY_15 : Pointer;
GLUT_BITMAP_8_BY_13 : Pointer;
GLUT_BITMAP_TIMES_ROMAN_10 : Pointer;
GLUT_BITMAP_TIMES_ROMAN_24 : Pointer;
GLUT_BITMAP_HELVETICA_10 : Pointer;
GLUT_BITMAP_HELVETICA_12 : Pointer;
GLUT_BITMAP_HELVETICA_18 : Pointer;
const
{$endif win32}
// glutGet parameters. // glutGet parameters.
GLUT_WINDOW_X = 100; GLUT_WINDOW_X = 100;
@ -716,6 +734,17 @@ begin
@glutEnterGameMode := GetGLutProcAddress(hDLL, 'glutEnterGameMode'); @glutEnterGameMode := GetGLutProcAddress(hDLL, 'glutEnterGameMode');
@glutLeaveGameMode := GetGLutProcAddress(hDLL, 'glutLeaveGameMode'); @glutLeaveGameMode := GetGLutProcAddress(hDLL, 'glutLeaveGameMode');
@glutGameModeGet := GetGLutProcAddress(hDLL, 'glutGameModeGet'); @glutGameModeGet := GetGLutProcAddress(hDLL, 'glutGameModeGet');
{$ifndef win32}
GLUT_STROKE_ROMAN := GetGLutProcAddress(hDll, 'glutStrokeRoman');
GLUT_STROKE_MONO_ROMAN := GetGLutProcAddress(hDll,'glutStrokeMonoRoman');
GLUT_BITMAP_9_BY_15 := GetGLutProcAddress(hDll, 'glutBitmap9By15');
GLUT_BITMAP_8_BY_13 := GetGLutProcAddress(hDll, 'glutBitmap8By13');
GLUT_BITMAP_TIMES_ROMAN_10 := GetGLutProcAddress(hDll, 'glutBitmapTimesRoman10');
GLUT_BITMAP_TIMES_ROMAN_24 := GetGLutProcAddress(hDll, 'glutBitmapTimesRoman24');
GLUT_BITMAP_HELVETICA_10 := GetGLutProcAddress(hDll, 'glutBitmapHelvetica10');
GLUT_BITMAP_HELVETICA_12 := GetGLutProcAddress(hDll, 'glutBitmapHelvetica12');
GLUT_BITMAP_HELVETICA_18 := GetGLutProcAddress(hDll, 'glutBitmapHelvetica18');
{$endif win32}
except except
raise Exception.Create('Could not load ' + MethodName + ' from ' + dll); raise Exception.Create('Could not load ' + MethodName + ' from ' + dll);
end; end;