13  *

    13  *

    14  * You should have received a copy of the GNU General Public License

    14  * You should have received a copy of the GNU General Public License

    15  * along with this program; if not, write to the Free Software

    15  * along with this program; if not, write to the Free Software

    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

    16  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

    17  *)

    17  *)

    18 

    20 

    19 unit uCaptions;

    21 unit uCaptions;

    20 

    22 

    21 interface

    23 interface

    22 uses uTypes;

    24 uses uTypes;

    56 var

    58 var

    57     grp: TCapGroup;

    59     grp: TCapGroup;

    58     offset: LongInt;

    60     offset: LongInt;

    59 begin

    61 begin

    60 {$IFDEF IPHONEOS}

    62 {$IFDEF IPHONEOS}

    62 {$ELSE}

    64 {$ELSE}

    63     offset:= 8;

    65     offset:= 8;

    64 {$ENDIF}

    66 {$ENDIF}

    65 

    67 

    66     for grp:= Low(TCapGroup) to High(TCapGroup) do

    68     for grp:= Low(TCapGroup) to High(TCapGroup) do