hedgewars/uFLData.pas
branchqmlfrontend
changeset 10448 4cb727e029fa
parent 10438 50ed968e4fee
equal deleted inserted replaced
10446:7ae44f42a689 10448:4cb727e029fa
     2 interface
     2 interface
     3 
     3 
     4 function getThemesList: PPChar; cdecl;
     4 function getThemesList: PPChar; cdecl;
     5 procedure freeThemesList(list: PPChar); cdecl;
     5 procedure freeThemesList(list: PPChar); cdecl;
     6 function getThemeIcon(themeName: PChar; buffer: PChar; buflen: Longword): Longword; cdecl;
     6 function getThemeIcon(themeName: PChar; buffer: PChar; buflen: Longword): Longword; cdecl;
       
     7 
       
     8 const colorsSet: array[0..8] of shortstring = (
       
     9                                                '16712196'
       
    10                                                , '4817089'
       
    11                                                , '1959610'
       
    12                                                , '11878895'
       
    13                                                , '10526880'
       
    14                                                , '2146048'
       
    15                                                , '16681742'
       
    16                                                , '6239749'
       
    17                                                , '16776961');
     7 
    18 
     8 implementation
    19 implementation
     9 uses uPhysFSLayer;
    20 uses uPhysFSLayer;
    10 
    21 
    11 function getThemesList: PPChar; cdecl;
    22 function getThemesList: PPChar; cdecl;