paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 19:52:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

Converter: replace some OpenGL units and functions in default settings.

Browse Source 
git-svn-id: trunk@28870 -
This commit is contained in:
juha 2011-01-05 14:06:43 +00:00
parent 4db349f705
commit cfa9c9c875
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
converter/convertsettings.pas
View File

@ -372,6 +372,7 @@ begin
TheMap:=fReplaceUnits; TheMap:=fReplaceUnits;
MapReplacement('Windows', 'LCLIntf, LCLType, LMessages'); MapReplacement('Windows', 'LCLIntf, LCLType, LMessages');
MapReplacement('Mask', 'MaskEdit'); MapReplacement('Mask', 'MaskEdit');
MapReplacement('OpenGL', 'GL, GLu');
MapReplacement('ShellApi', ''); MapReplacement('ShellApi', '');
MapReplacement('pngImage', ''); MapReplacement('pngImage', '');
MapReplacement('Jpeg', ''); MapReplacement('Jpeg', '');
@ -457,6 +458,13 @@ begin
AddFunc(Categ, 'ShellExecute', AddFunc(Categ, 'ShellExecute',
'if $3 match ":/" then OpenURL($3); OpenDocument($3)', 'LCL', ''); 'if $3 match ":/" then OpenURL($3); OpenDocument($3)', 'LCL', '');
AddFunc(Categ, 'TimeGetTime', 'GetTickCount','LCL',''); // In Windows MMSystems unit. AddFunc(Categ, 'TimeGetTime', 'GetTickCount','LCL',''); // In Windows MMSystems unit.
// OpenGL
Categ:='OpenGL';
AddFunc(Categ, 'glIsEnabled', 'Boolean(glIsEnabled($1))', '', 'GL');
AddFunc(Categ, 'glIsList', 'Boolean(glIsList($1))', '', 'GL');
AddFunc(Categ, 'glIsTexture', 'Boolean(glIsTexture($1))', '', 'GL');
// In glColorMask, glDepthMask and gluQuadricTexture :
// the parameter types should be typecasted, too. Not supported yet.
// Others // Others
Categ:='Other'; Categ:='Other';
AddDefaultCategory(Categ); AddDefaultCategory(Categ);