Changeset 25 for branches/delphi


Ignore:
Timestamp:
Jan 8, 2017, 5:55:04 PM (8 years ago)
Author:
chronos
Message:
  • Modified: Put AI library binary files to build directory.
  • Fixed: Load registry value correctly.
Location:
branches/delphi
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • branches/delphi/AI

    • Property svn:ignore

      •  

        old new  
        55AIProject.stat
        66*.dcu
         7Win32

  • branches/delphi/AI/AIProject.dpr

    r22 r25  
    1 {$INCLUDE switches.pas}
     1{$INCLUDE switches.inc}
    22library AIProject;
    33

  • branches/delphi/AI/AIProject.dproj

    r22 r25  
    2727        <Cfg_2>true</Cfg_2>
    2828        <CfgParent>Base</CfgParent>
     29        <Base>true</Base>
     30    </PropertyGroup>
     31    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
     32        <Cfg_2_Win32>true</Cfg_2_Win32>
     33        <CfgParent>Cfg_2</CfgParent>
     34        <Cfg_2>true</Cfg_2>
    2935        <Base>true</Base>
    3036    </PropertyGroup>
    … …  
    5864        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
    5965        <DCC_Optimize>false</DCC_Optimize>
     66    </PropertyGroup>
     67    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
     68        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
     69        <Manifest_File>None</Manifest_File>
     70        <VerInfo_Locale>1033</VerInfo_Locale>
     71        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
     72        <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
     73        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
    6074    </PropertyGroup>
    6175    <ItemGroup>
    … …  
    90104                    <Source Name="MainSource">AIProject.dpr</Source>
    91105                </Source>
     106                <Excluded_Packages>
     107                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k230.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
     108                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp230.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
     109                </Excluded_Packages>
    92110            </Delphi.Personality>
    93111            <Platforms>
    … …  
    116134                    </Platform>
    117135                </DeployFile>
    118                 <DeployClass Name="ProjectiOSDeviceResourceRules"/>
     136                <DeployClass Name="DependencyModule">
     137                    <Platform Name="Win32">
     138                        <Operation>0</Operation>
     139                        <Extensions>.dll;.bpl</Extensions>
     140                    </Platform>
     141                    <Platform Name="OSX32">
     142                        <Operation>1</Operation>
     143                        <Extensions>.dylib</Extensions>
     144                    </Platform>
     145                </DeployClass>
    119146                <DeployClass Name="ProjectOSXResource">
    120147                    <Platform Name="OSX32">
    … …  
    430457                    </Platform>
    431458                </DeployClass>
    432                 <DeployClass Name="DependencyModule">
    433                     <Platform Name="Win32">
    434                         <Operation>0</Operation>
    435                         <Extensions>.dll;.bpl</Extensions>
    436                     </Platform>
    437                     <Platform Name="OSX32">
    438                         <Operation>1</Operation>
    439                         <Extensions>.dylib</Extensions>
    440                     </Platform>
    441                 </DeployClass>
     459                <DeployClass Name="ProjectiOSDeviceResourceRules"/>
    442460                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
    443461                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>

  • branches/delphi/LocalPlayer

    • Property svn:ignore

      •  

        old new  
        11__history
         2__recovery

  • branches/delphi/Start.pas

    r6 r25  
    253253  else
    254254  begin
     255    ScreenMode := 1;
    255256    Reg.OpenKey('SOFTWARE\cevo\RegVer9', false);
    256257    try
    257       ScreenMode := Reg.ReadInteger('ScreenMode');
     258      if Reg.ValueExists('ScreenMode') then
     259        ScreenMode := Reg.ReadInteger('ScreenMode');
    258260      FullScreen := ScreenMode > 0;
    259261      if Reg.ValueExists('ResolutionX') then
Note: See TracChangeset for help on using the changeset viewer.