changeset 3038 | 4e48c276a468 |
parent 3037 | ab6e949eb5cb |
child 3065 | 4afa5e3e27e4 |
3037:ab6e949eb5cb | 3038:4e48c276a468 |
---|---|
1754 colorkey: 0; |
1754 colorkey: 0; |
1755 alpha : 255 |
1755 alpha : 255 |
1756 ); |
1756 ); |
1757 |
1757 |
1758 |
1758 |
1759 procedure init_uConsts; |
1759 procedure initModule; |
1760 procedure free_uConsts; |
1760 procedure freeModule; |
1761 |
1761 |
1762 implementation |
1762 implementation |
1763 |
1763 |
1764 procedure init_uConsts; |
1764 procedure initModule; |
1765 var cPathz: array[TPathType] of shortstring = ( |
1765 var cPathz: array[TPathType] of shortstring = ( |
1766 '', // ptNone |
1766 '', // ptNone |
1767 '', // ptData |
1767 '', // ptData |
1768 'Graphics', // ptGraphics |
1768 'Graphics', // ptGraphics |
1769 'Themes', // ptThemes |
1769 'Themes', // ptThemes |
1786 begin |
1786 begin |
1787 PathPrefix := './'; |
1787 PathPrefix := './'; |
1788 Pathz:= cPathz; |
1788 Pathz:= cPathz; |
1789 end; |
1789 end; |
1790 |
1790 |
1791 procedure free_uConsts; |
1791 procedure freeModule; |
1792 begin |
1792 begin |
1793 |
1793 |
1794 end; |
1794 end; |
1795 |
1795 |
1796 end. |
1796 end. |