Changeset 31


Ignore:
Timestamp:
Sep 8, 2012, 9:38:38 PM (12 years ago)
Author:
chronos
Message:
  • Added: Common package.
Location:
trunk
Files:
31 added
3 deleted
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UMainForm.lfm

    r24 r31  
    11object MainForm: TMainForm
    2   Left = 382
     2  Left = 470
    33  Height = 412
    4   Top = 95
     4  Top = 150
    55  Width = 514
    66  Caption = 'Tunneler'
    7   ClientHeight = 385
     7  ClientHeight = 387
    88  ClientWidth = 514
    99  Menu = MainMenu1
    … …  
    1515  OnKeyUp = FormKeyUp
    1616  OnShow = FormShow
    17   LCLVersion = '0.9.31'
     17  LCLVersion = '1.1'
    1818  object StatusBar1: TStatusBar
    1919    Left = 0
    2020    Height = 21
    21     Top = 364
     21    Top = 366
    2222    Width = 514
    2323    Panels = <   
    … …  
    4747  object Image1: TImage
    4848    Left = 0
    49     Height = 364
     49    Height = 366
    5050    Top = 0
    5151    Width = 514
    … …  
    130130    top = 104
    131131  end
     132  object ApplicationInfo1: TApplicationInfo
     133    Identification = 1
     134    VersionMajor = 1
     135    VersionMinor = 0
     136    VersionBugFix = 0
     137    CompanyName = 'Chronosoft'
     138    HomePage = 'http://svn.zdechov.net/trac/Tunneler/'
     139    AuthorsName = 'Chronos'
     140    EmailContact = 'robie@centrum.cz'
     141    AppName = 'Tunneler'
     142    ReleaseDate = 41160
     143    RegistryKey = '\Software\Chronosoft\Tunneler'
     144    RegistryRoot = rrKeyCurrentUser
     145    left = 99
     146    top = 176
     147  end
    132148end

  • trunk/Forms/UMainForm.pas

    r28 r31  
    1616  TMainForm = class(TForm)
    1717    AAbout: TAction;
     18    ApplicationInfo1: TApplicationInfo;
    1819    AShowRawImageDesc: TAction;
    1920    AShowMap: TAction;
    … …  
    112113begin
    113114  PersistentForm := TPersistentForm.Create;
    114   PersistentForm.RegistryKey := '\Software\' + ApplicationInfo.CompanyName + '\' + ApplicationInfo.Name;
     115  PersistentForm.RegistryKey := ApplicationInfo1.RegistryKey;
     116  PersistentForm.RegistryRootKey := HKEY(ApplicationInfo1.RegistryRoot);
    115117
    116118  Application.OnDeactivate := FormDeactivate;

  • trunk/tunneler.lpi

    r30 r31  
    7272      </local>
    7373    </RunParams>
    74     <RequiredPackages Count="3">
     74    <RequiredPackages Count="4">
    7575      <Item1>
     76        <PackageName Value="Common"/>
     77        <DefaultFilename Value="Components/Common/Common.lpk" Prefer="True"/>
     78      </Item1>
     79      <Item2>
    7680        <PackageName Value="CoolTranslator"/>
    7781        <DefaultFilename Value="Components/CoolTranslator/CoolTranslator.lpk" Prefer="True"/>
    78       </Item1>
    79       <Item2>
     82      </Item2>
     83      <Item3>
    8084        <PackageName Value="TemplateGenerics"/>
    8185        <DefaultFilename Value="Components/TemplateGenerics/TemplateGenerics.lpk" Prefer="True"/>
    82       </Item2>
    83       <Item3>
     86      </Item3>
     87      <Item4>
    8488        <PackageName Value="LCL"/>
    85       </Item3>
     89      </Item4>
    8690    </RequiredPackages>
    87     <Units Count="86">
     91    <Units Count="88">
    8892      <Unit0>
    8993        <Filename Value="tunneler.lpr"/>
    … …  
    9397        <TopLine Value="1"/>
    9498        <CursorPos X="27" Y="5"/>
    95         <UsageCount Value="139"/>
     99        <UsageCount Value="140"/>
    96100      </Unit0>
    97101      <Unit1>
    … …  
    109113        <IsPartOfProject Value="True"/>
    110114        <UnitName Value="UCore"/>
     115        <IsVisibleTab Value="True"/>
    111116        <EditorIndex Value="0"/>
    112117        <WindowIndex Value="0"/>
    113         <TopLine Value="306"/>
    114         <CursorPos X="12" Y="325"/>
    115         <UsageCount Value="139"/>
     118        <TopLine Value="204"/>
     119        <CursorPos X="38" Y="213"/>
     120        <UsageCount Value="140"/>
    116121        <Loaded Value="True"/>
    117122      </Unit2>
    … …  
    179184      <Unit11>
    180185        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
    181         <EditorIndex Value="6"/>
    182186        <WindowIndex Value="0"/>
    183187        <TopLine Value="121"/>
    184188        <CursorPos X="10" Y="129"/>
    185189        <UsageCount Value="55"/>
    186         <Loaded Value="True"/>
    187190      </Unit11>
    188191      <Unit12>
    … …  
    366369      <Unit36>
    367370        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericBitmap.inc"/>
    368         <EditorIndex Value="5"/>
    369371        <WindowIndex Value="0"/>
    370372        <TopLine Value="11"/>
    371373        <CursorPos X="17" Y="26"/>
    372374        <UsageCount Value="38"/>
    373         <Loaded Value="True"/>
    374375      </Unit36>
    375376      <Unit37>
    376377        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Specialized/SpecializedBitmap.pas"/>
    377378        <UnitName Value="SpecializedBitmap"/>
    378         <EditorIndex Value="3"/>
    379379        <WindowIndex Value="0"/>
    380380        <TopLine Value="7"/>
    381381        <CursorPos X="22" Y="21"/>
    382382        <UsageCount Value="27"/>
    383         <Loaded Value="True"/>
    384383      </Unit37>
    385384      <Unit38>
    … …  
    433432        <IsPartOfProject Value="True"/>
    434433        <UnitName Value="UPlatform"/>
    435         <UsageCount Value="98"/>
     434        <WindowIndex Value="0"/>
     435        <TopLine Value="1"/>
     436        <CursorPos X="28" Y="16"/>
     437        <UsageCount Value="99"/>
    436438      </Unit44>
    437439      <Unit45>
    … …  
    481483        <TopLine Value="29"/>
    482484        <CursorPos X="3" Y="43"/>
    483         <UsageCount Value="83"/>
     485        <UsageCount Value="84"/>
    484486      </Unit50>
    485487      <Unit51>
    … …  
    505507        <TopLine Value="69"/>
    506508        <CursorPos X="3" Y="90"/>
    507         <UsageCount Value="76"/>
     509        <UsageCount Value="77"/>
    508510      </Unit53>
    509511      <Unit54>
    510512        <Filename Value="UApplicationInfo.pas"/>
    511         <IsPartOfProject Value="True"/>
    512513        <UnitName Value="UApplicationInfo"/>
    513514        <WindowIndex Value="0"/>
    514         <TopLine Value="29"/>
    515         <CursorPos X="33" Y="47"/>
     515        <TopLine Value="37"/>
     516        <CursorPos X="16" Y="60"/>
    516517        <UsageCount Value="76"/>
    517518      </Unit54>
    518519      <Unit55>
    519520        <Filename Value="Common/URegistry.pas"/>
    520         <IsPartOfProject Value="True"/>
    521521        <UnitName Value="URegistry"/>
    522522        <UsageCount Value="75"/>
    … …  
    545545      <Unit59>
    546546        <Filename Value="Common/UThreading.pas"/>
    547         <IsPartOfProject Value="True"/>
    548547        <UnitName Value="UThreading"/>
    549548        <WindowIndex Value="0"/>
    550         <TopLine Value="60"/>
    551         <CursorPos X="16" Y="77"/>
     549        <TopLine Value="61"/>
     550        <CursorPos X="84" Y="66"/>
    552551        <UsageCount Value="67"/>
    553552      </Unit59>
    … …  
    569568        <TopLine Value="44"/>
    570569        <CursorPos X="23" Y="65"/>
    571         <UsageCount Value="67"/>
     570        <UsageCount Value="68"/>
    572571        <LoadedDesigner Value="True"/>
    573572      </Unit61>
    … …  
    579578        <ResourceBaseClass Value="Form"/>
    580579        <UnitName Value="UMainForm"/>
    581         <EditorIndex Value="1"/>
    582         <WindowIndex Value="0"/>
    583         <TopLine Value="57"/>
    584         <CursorPos X="27" Y="74"/>
    585         <UsageCount Value="67"/>
    586         <Loaded Value="True"/>
     580        <WindowIndex Value="0"/>
     581        <TopLine Value="98"/>
     582        <CursorPos X="42" Y="116"/>
     583        <UsageCount Value="68"/>
    587584      </Unit62>
    588585      <Unit63>
    … …  
    596593        <TopLine Value="14"/>
    597594        <CursorPos X="19" Y="32"/>
    598         <UsageCount Value="67"/>
     595        <UsageCount Value="68"/>
    599596      </Unit63>
    600597      <Unit64>
    … …  
    714711        <TopLine Value="4"/>
    715712        <CursorPos X="15" Y="18"/>
    716         <UsageCount Value="27"/>
     713        <UsageCount Value="28"/>
    717714        <LoadedDesigner Value="True"/>
    718715      </Unit78>
    … …  
    751748        <Filename Value="Components/CoolTranslator/UCoolTranslator.pas"/>
    752749        <UnitName Value="UCoolTranslator"/>
    753         <EditorIndex Value="7"/>
    754750        <WindowIndex Value="0"/>
    755751        <TopLine Value="116"/>
    756752        <CursorPos X="100" Y="141"/>
    757753        <UsageCount Value="10"/>
    758         <Loaded Value="True"/>
    759754      </Unit83>
    760755      <Unit84>
    … …  
    763758        <ResourceBaseClass Value="Form"/>
    764759        <UnitName Value="UDebugForm"/>
    765         <IsVisibleTab Value="True"/>
    766         <EditorIndex Value="2"/>
    767         <WindowIndex Value="0"/>
    768         <TopLine Value="1"/>
    769         <CursorPos X="80" Y="14"/>
     760        <WindowIndex Value="0"/>
     761        <TopLine Value="1"/>
     762        <CursorPos X="51" Y="22"/>
    770763        <UsageCount Value="20"/>
    771         <Loaded Value="True"/>
    772         <LoadedDesigner Value="True"/>
    773764      </Unit84>
    774765      <Unit85>
    … …  
    778769        <ResourceBaseClass Value="Form"/>
    779770        <UnitName Value="UGameResultForm"/>
    780         <EditorIndex Value="4"/>
    781771        <WindowIndex Value="0"/>
    782772        <TopLine Value="1"/>
    783773        <CursorPos X="21" Y="26"/>
    784774        <UsageCount Value="20"/>
    785         <Loaded Value="True"/>
    786         <LoadedDesigner Value="True"/>
    787775      </Unit85>
     776      <Unit86>
     777        <Filename Value="Components/Common/Common.pas"/>
     778        <UnitName Value="Common"/>
     779        <WindowIndex Value="0"/>
     780        <TopLine Value="1"/>
     781        <CursorPos X="56" Y="9"/>
     782        <UsageCount Value="10"/>
     783      </Unit86>
     784      <Unit87>
     785        <Filename Value="Components/Common/UCommon.pas"/>
     786        <UnitName Value="UCommon"/>
     787        <WindowIndex Value="0"/>
     788        <TopLine Value="1"/>
     789        <CursorPos X="1" Y="1"/>
     790        <UsageCount Value="10"/>
     791      </Unit87>
    788792    </Units>
    789     <JumpHistory Count="26" HistoryIndex="25">
     793    <JumpHistory Count="18" HistoryIndex="17">
    790794      <Position1>
    791795        <Filename Value="UCore.pas"/>
    792         <Caret Line="1296" Column="1" TopLine="1280"/>
     796        <Caret Line="1590" Column="31" TopLine="1579"/>
    793797      </Position1>
    794798      <Position2>
    795799        <Filename Value="UCore.pas"/>
    796         <Caret Line="1299" Column="1" TopLine="1280"/>
     800        <Caret Line="927" Column="35" TopLine="914"/>
    797801      </Position2>
    798802      <Position3>
    799803        <Filename Value="UCore.pas"/>
    800         <Caret Line="1296" Column="32" TopLine="1280"/>
     804        <Caret Line="948" Column="5" TopLine="925"/>
    801805      </Position3>
    802806      <Position4>
    803807        <Filename Value="UCore.pas"/>
    804         <Caret Line="1590" Column="31" TopLine="1579"/>
     808        <Caret Line="933" Column="90" TopLine="925"/>
    805809      </Position4>
    806810      <Position5>
    807811        <Filename Value="UCore.pas"/>
    808         <Caret Line="927" Column="35" TopLine="914"/>
     812        <Caret Line="926" Column="10" TopLine="911"/>
    809813      </Position5>
    810814      <Position6>
    811815        <Filename Value="UCore.pas"/>
    812         <Caret Line="948" Column="5" TopLine="925"/>
     816        <Caret Line="924" Column="1" TopLine="911"/>
    813817      </Position6>
    814818      <Position7>
    815819        <Filename Value="UCore.pas"/>
    816         <Caret Line="933" Column="90" TopLine="925"/>
     820        <Caret Line="1307" Column="15" TopLine="1294"/>
    817821      </Position7>
    818822      <Position8>
    819823        <Filename Value="UCore.pas"/>
    820         <Caret Line="926" Column="10" TopLine="911"/>
     824        <Caret Line="1599" Column="7" TopLine="1583"/>
    821825      </Position8>
    822826      <Position9>
    823827        <Filename Value="UCore.pas"/>
    824         <Caret Line="924" Column="1" TopLine="911"/>
     828        <Caret Line="1481" Column="13" TopLine="1454"/>
    825829      </Position9>
    826830      <Position10>
    827831        <Filename Value="UCore.pas"/>
    828         <Caret Line="1307" Column="15" TopLine="1294"/>
     832        <Caret Line="269" Column="13" TopLine="266"/>
    829833      </Position10>
    830834      <Position11>
    831835        <Filename Value="UCore.pas"/>
    832         <Caret Line="1599" Column="7" TopLine="1583"/>
     836        <Caret Line="1599" Column="5" TopLine="1583"/>
    833837      </Position11>
    834838      <Position12>
    835839        <Filename Value="UCore.pas"/>
    836         <Caret Line="1481" Column="13" TopLine="1454"/>
     840        <Caret Line="1593" Column="7" TopLine="1581"/>
    837841      </Position12>
    838842      <Position13>
    839843        <Filename Value="UCore.pas"/>
    840         <Caret Line="269" Column="13" TopLine="266"/>
     844        <Caret Line="1594" Column="32" TopLine="1581"/>
    841845      </Position13>
    842846      <Position14>
    843847        <Filename Value="UCore.pas"/>
    844         <Caret Line="1599" Column="5" TopLine="1583"/>
     848        <Caret Line="1591" Column="7" TopLine="1582"/>
    845849      </Position14>
    846850      <Position15>
    847851        <Filename Value="UCore.pas"/>
    848         <Caret Line="1593" Column="7" TopLine="1581"/>
     852        <Caret Line="1593" Column="9" TopLine="1582"/>
    849853      </Position15>
    850854      <Position16>
    851855        <Filename Value="UCore.pas"/>
    852         <Caret Line="1594" Column="32" TopLine="1581"/>
     856        <Caret Line="1536" Column="26" TopLine="1533"/>
    853857      </Position16>
    854858      <Position17>
    855859        <Filename Value="UCore.pas"/>
    856         <Caret Line="1591" Column="7" TopLine="1582"/>
     860        <Caret Line="1591" Column="9" TopLine="1582"/>
    857861      </Position17>
    858862      <Position18>
    859863        <Filename Value="UCore.pas"/>
    860         <Caret Line="1593" Column="9" TopLine="1582"/>
     864        <Caret Line="1480" Column="13" TopLine="1467"/>
    861865      </Position18>
    862       <Position19>
    863         <Filename Value="UCore.pas"/>
    864         <Caret Line="1536" Column="26" TopLine="1533"/>
    865       </Position19>
    866       <Position20>
    867         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
    868         <Caret Line="150" Column="17" TopLine="137"/>
    869       </Position20>
    870       <Position21>
    871         <Filename Value="UCore.pas"/>
    872         <Caret Line="1591" Column="9" TopLine="1582"/>
    873       </Position21>
    874       <Position22>
    875         <Filename Value="Components/CoolTranslator/UCoolTranslator.pas"/>
    876         <Caret Line="1" Column="1" TopLine="1"/>
    877       </Position22>
    878       <Position23>
    879         <Filename Value="UCore.pas"/>
    880         <Caret Line="1480" Column="13" TopLine="1467"/>
    881       </Position23>
    882       <Position24>
    883         <Filename Value="Forms/UMainForm.pas"/>
    884         <Caret Line="133" Column="1" TopLine="119"/>
    885       </Position24>
    886       <Position25>
    887         <Filename Value="Forms/UDebugForm.pas"/>
    888         <Caret Line="12" Column="35" TopLine="1"/>
    889       </Position25>
    890       <Position26>
    891         <Filename Value="Forms/UDebugForm.pas"/>
    892         <Caret Line="1" Column="1" TopLine="1"/>
    893       </Position26>
    894866    </JumpHistory>
    895867  </ProjectOptions>

  • trunk/tunneler.lpr

    r30 r31  
    99  {$ENDIF}{$ENDIF}
    1010  Interfaces, // this includes the LCL widgetset
    11   Forms, UCore, TemplateGenerics, CoolTranslator, UPlatform, FileUtil, SysUtils,
    12   UApplicationInfo, URectangle, UPersistentForm, URegistry, UThreading,
     11  Forms, UCore, TemplateGenerics, CoolTranslator, UPlatform, FileUtil, SysUtils, Common, URectangle, UPersistentForm,
    1312UNewGameForm, UMainForm, UMapForm, UDebugForm, UGameResultForm
    1413  { you can add units after this };
Note: See TracChangeset for help on using the changeset viewer.