Changeset 60 for trunk


Ignore:
Timestamp:
Nov 16, 2012, 10:39:39 AM (12 years ago)
Author:
chronos
Message:
Location:
trunk
Files:
210 added
1 deleted
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Demo/ChronisDemo.lpi

    r59 r60  
    7373      </local>
    7474    </RunParams>
    75     <RequiredPackages Count="4">
     75    <RequiredPackages Count="9">
    7676      <Item1>
    77         <PackageName Value="Common"/>
     77        <PackageName Value="CoolWeb"/>
     78        <DefaultFilename Value="Packages/CoolWeb/CoolWeb.lpk" Prefer="True"/>
    7879      </Item1>
    7980      <Item2>
     81        <PackageName Value="synapse"/>
     82        <DefaultFilename Value="Packages/synapse/synapse.lpk" Prefer="True"/>
     83      </Item2>
     84      <Item3>
     85        <PackageName Value="TEditExtensions"/>
     86        <DefaultFilename Value="Packages/TEditExtensions/TEditExtensions.lpk" Prefer="True"/>
     87      </Item3>
     88      <Item4>
     89        <PackageName Value="TemplateGenerics"/>
     90        <DefaultFilename Value="Packages/TemplateGenerics/TemplateGenerics.lpk" Prefer="True"/>
     91      </Item4>
     92      <Item5>
     93        <PackageName Value="CoolTranslator"/>
     94        <DefaultFilename Value="Packages/CoolTranslator/CoolTranslator.lpk" Prefer="True"/>
     95      </Item5>
     96      <Item6>
     97        <PackageName Value="Common"/>
     98        <DefaultFilename Value="Packages/Common/Common.lpk" Prefer="True"/>
     99      </Item6>
     100      <Item7>
    80101        <PackageName Value="ChronISPlatform"/>
    81102        <DefaultFilename Value="../ChronISPlatform.lpk" Prefer="True"/>
    82       </Item2>
    83       <Item3>
     103      </Item7>
     104      <Item8>
    84105        <PackageName Value="ModularSystem"/>
    85       </Item3>
    86       <Item4>
     106        <DefaultFilename Value="Packages/ModularSystem/ModularSystem.lpk" Prefer="True"/>
     107      </Item8>
     108      <Item9>
    87109        <PackageName Value="LCL"/>
    88       </Item4>
     110      </Item9>
    89111    </RequiredPackages>
    90112    <Units Count="4">

  • trunk/Demo/ChronisDemo.lpr

    r59 r60  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, SysUtils, UDataModuleDemo, Common, UModuleTest;
     10  Forms, SysUtils, UDataModuleDemo, Common, CoolTranslator, TemplateGenerics,
     11  TEditExtensions, synapse, CoolWeb, UModuleTest;
    1112
    1213{$R *.res}

  • trunk/Demo/ChronisDemo.lps

    r59 r60  
    1010        <IsPartOfProject Value="True"/>
    1111        <UnitName Value="ChronisDemo"/>
     12        <IsVisibleTab Value="True"/>
    1213        <EditorIndex Value="0"/>
    1314        <WindowIndex Value="0"/>
    1415        <TopLine Value="7"/>
    15         <CursorPos X="41" Y="14"/>
     16        <CursorPos X="41" Y="15"/>
    1617        <UsageCount Value="54"/>
    1718        <Loaded Value="True"/>
    … …  
    2526        <ResourceBaseClass Value="DataModule"/>
    2627        <UnitName Value="UDataModuleDemo"/>
    27         <EditorIndex Value="3"/>
    2828        <WindowIndex Value="0"/>
    2929        <TopLine Value="39"/>
    30         <CursorPos X="56" Y="46"/>
     30        <CursorPos X="62" Y="41"/>
    3131        <UsageCount Value="23"/>
    32         <Loaded Value="True"/>
    33         <LoadedDesigner Value="True"/>
    3432        <DefaultSyntaxHighlighter Value="Delphi"/>
    3533      </Unit1>
    … …  
    3836        <IsPartOfProject Value="True"/>
    3937        <UnitName Value="URegistredModules"/>
    40         <EditorIndex Value="1"/>
    4138        <WindowIndex Value="0"/>
    4239        <TopLine Value="19"/>
    4340        <CursorPos X="3" Y="21"/>
    4441        <UsageCount Value="22"/>
    45         <Loaded Value="True"/>
    4642        <DefaultSyntaxHighlighter Value="Delphi"/>
    4743      </Unit2>
    … …  
    5349        <ResourceBaseClass Value="DataModule"/>
    5450        <UnitName Value="UModuleTest"/>
    55         <EditorIndex Value="4"/>
    5651        <WindowIndex Value="0"/>
    5752        <TopLine Value="41"/>
    5853        <CursorPos X="1" Y="62"/>
    5954        <UsageCount Value="22"/>
    60         <Loaded Value="True"/>
    61         <LoadedDesigner Value="True"/>
    6255        <DefaultSyntaxHighlighter Value="Delphi"/>
    6356      </Unit3>
    … …  
    245238        <CursorPos X="14" Y="39"/>
    246239        <UsageCount Value="11"/>
    247         <DefaultSyntaxHighlighter Value="Delphi"/>
    248240      </Unit21>
    249241      <Unit22>
    … …  
    263255        <CursorPos X="14" Y="64"/>
    264256        <UsageCount Value="13"/>
    265         <DefaultSyntaxHighlighter Value="Delphi"/>
    266257      </Unit23>
    267258      <Unit24>
    … …  
    272263        <CursorPos X="14" Y="47"/>
    273264        <UsageCount Value="7"/>
    274         <DefaultSyntaxHighlighter Value="Delphi"/>
    275265      </Unit24>
    276266      <Unit25>
    … …  
    361351        <CursorPos X="1" Y="333"/>
    362352        <UsageCount Value="19"/>
    363         <DefaultSyntaxHighlighter Value="Delphi"/>
    364353      </Unit35>
    365354      <Unit36>
    … …  
    370359        <CursorPos X="35" Y="197"/>
    371360        <UsageCount Value="16"/>
    372         <DefaultSyntaxHighlighter Value="Delphi"/>
    373361      </Unit36>
    374362      <Unit37>
    … …  
    382370        <Filename Value="H:\Projekty\LiftBox\Repository\trunk\Packages\ModularSystem\UModularSystem.pas"/>
    383371        <UnitName Value="UModularSystem"/>
    384         <EditorIndex Value="10"/>
    385372        <WindowIndex Value="0"/>
    386373        <TopLine Value="199"/>
    387374        <CursorPos X="1" Y="204"/>
    388375        <UsageCount Value="10"/>
    389         <Loaded Value="True"/>
    390376        <DefaultSyntaxHighlighter Value="Delphi"/>
    391377      </Unit38>
    … …  
    396382        <CursorPos X="1" Y="222"/>
    397383        <UsageCount Value="13"/>
    398         <DefaultSyntaxHighlighter Value="Delphi"/>
    399384      </Unit39>
    400385      <Unit40>
    401386        <Filename Value="H:\Lazarus\1.1_2.6.0\lcl\forms.pp"/>
    402387        <UnitName Value="Forms"/>
    403         <EditorIndex Value="11"/>
    404388        <WindowIndex Value="0"/>
    405389        <TopLine Value="1355"/>
    406390        <CursorPos X="15" Y="1367"/>
    407391        <UsageCount Value="16"/>
    408         <Loaded Value="True"/>
    409392      </Unit40>
    410393      <Unit41>
    … …  
    423406        <CursorPos X="1" Y="33"/>
    424407        <UsageCount Value="10"/>
    425         <DefaultSyntaxHighlighter Value="Delphi"/>
    426408      </Unit42>
    427409      <Unit43>
    … …  
    484466        <CursorPos X="61" Y="8"/>
    485467        <UsageCount Value="10"/>
    486         <DefaultSyntaxHighlighter Value="Delphi"/>
    487468      </Unit50>
    488469      <Unit51>
    … …  
    493474        <CursorPos X="1" Y="1"/>
    494475        <UsageCount Value="10"/>
    495         <DefaultSyntaxHighlighter Value="Delphi"/>
    496476      </Unit51>
    497477      <Unit52>
    … …  
    502482        <CursorPos X="44" Y="18"/>
    503483        <UsageCount Value="10"/>
    504         <DefaultSyntaxHighlighter Value="Delphi"/>
    505484      </Unit52>
    506485      <Unit53>
    … …  
    518497        <ResourceBaseClass Value="DataModule"/>
    519498        <UnitName Value="UCore"/>
    520         <IsVisibleTab Value="True"/>
    521         <EditorIndex Value="6"/>
    522         <WindowIndex Value="0"/>
    523         <TopLine Value="194"/>
    524         <CursorPos X="35" Y="209"/>
    525         <UsageCount Value="10"/>
    526         <Loaded Value="True"/>
    527         <LoadedDesigner Value="True"/>
     499        <WindowIndex Value="0"/>
     500        <TopLine Value="195"/>
     501        <CursorPos X="45" Y="197"/>
     502        <UsageCount Value="10"/>
    528503      </Unit54>
    529504      <Unit55>
    … …  
    533508        <ResourceBaseClass Value="Form"/>
    534509        <UnitName Value="UFormConnection"/>
    535         <EditorIndex Value="13"/>
    536510        <WindowIndex Value="0"/>
    537511        <TopLine Value="1"/>
    538512        <CursorPos X="33" Y="13"/>
    539513        <UsageCount Value="10"/>
    540         <Loaded Value="True"/>
    541         <LoadedDesigner Value="True"/>
    542514      </Unit55>
    543515      <Unit56>
    544516        <Filename Value="H:\Lazarus\1.1_2.6.0\lcl\include\application.inc"/>
    545         <EditorIndex Value="12"/>
    546517        <WindowIndex Value="0"/>
    547518        <TopLine Value="2148"/>
    548519        <CursorPos X="3" Y="2156"/>
    549520        <UsageCount Value="10"/>
    550         <Loaded Value="True"/>
    551521      </Unit56>
    552522      <Unit57>
    553523        <Filename Value="..\Forms\UFormMain.pas"/>
    554524        <UnitName Value="UFormMain"/>
    555         <EditorIndex Value="5"/>
    556525        <WindowIndex Value="0"/>
    557526        <TopLine Value="82"/>
    558527        <CursorPos X="20" Y="94"/>
    559528        <UsageCount Value="10"/>
    560         <Loaded Value="True"/>
    561529      </Unit57>
    562530      <Unit58>
    563531        <Filename Value="..\Packages\TemplateGenerics\Generic\GenericList.inc"/>
    564         <EditorIndex Value="2"/>
    565532        <WindowIndex Value="0"/>
    566533        <TopLine Value="562"/>
    567534        <CursorPos X="3" Y="566"/>
    568535        <UsageCount Value="10"/>
    569         <Loaded Value="True"/>
     536        <DefaultSyntaxHighlighter Value="Delphi"/>
    570537      </Unit58>
    571538      <Unit59>
    572539        <Filename Value="..\Packages\Common\URegistry.pas"/>
    573540        <UnitName Value="URegistry"/>
    574         <EditorIndex Value="8"/>
    575541        <WindowIndex Value="0"/>
    576542        <TopLine Value="112"/>
    577543        <CursorPos X="1" Y="120"/>
    578544        <UsageCount Value="10"/>
    579         <Loaded Value="True"/>
     545        <DefaultSyntaxHighlighter Value="Delphi"/>
    580546      </Unit59>
    581547      <Unit60>
    582548        <Filename Value="..\Packages\CoolWeb\Persistence\USqlDatabase.pas"/>
    583549        <UnitName Value="USqlDatabase"/>
    584         <EditorIndex Value="7"/>
    585550        <WindowIndex Value="0"/>
    586551        <TopLine Value="230"/>
    587552        <CursorPos X="1" Y="241"/>
    588553        <UsageCount Value="10"/>
    589         <Loaded Value="True"/>
    590554        <DefaultSyntaxHighlighter Value="Delphi"/>
    591555      </Unit60>
    … …  
    593557        <Filename Value="..\Packages\ModularSystem\UModularSystem.pas"/>
    594558        <UnitName Value="UModularSystem"/>
    595         <EditorIndex Value="9"/>
    596559        <WindowIndex Value="0"/>
    597560        <TopLine Value="97"/>
    598561        <CursorPos X="1" Y="111"/>
    599562        <UsageCount Value="10"/>
    600         <Loaded Value="True"/>
     563        <DefaultSyntaxHighlighter Value="Delphi"/>
    601564      </Unit61>
    602565    </Units>
    … …  
    604567      <ActiveWindowIndexAtStart Value="0"/>
    605568    </General>
    606     <JumpHistory Count="30" HistoryIndex="29">
    607       <Position1>
    608         <Filename Value="..\UCore.pas"/>
    609         <Caret Line="38" Column="18" TopLine="22"/>
    610       </Position1>
    611       <Position2>
    612         <Filename Value="..\UCore.pas"/>
    613         <Caret Line="184" Column="1" TopLine="179"/>
    614       </Position2>
    615       <Position3>
    616         <Filename Value="..\Packages\Common\URegistry.pas"/>
    617         <Caret Line="51" Column="1" TopLine="39"/>
    618       </Position3>
    619       <Position4>
    620         <Filename Value="..\Packages\Common\URegistry.pas"/>
    621         <Caret Line="52" Column="1" TopLine="39"/>
    622       </Position4>
    623       <Position5>
    624         <Filename Value="..\Packages\Common\URegistry.pas"/>
    625         <Caret Line="53" Column="1" TopLine="39"/>
    626       </Position5>
    627       <Position6>
    628         <Filename Value="..\Packages\Common\URegistry.pas"/>
    629         <Caret Line="54" Column="1" TopLine="39"/>
    630       </Position6>
    631       <Position7>
    632         <Filename Value="..\UCore.pas"/>
    633         <Caret Line="185" Column="1" TopLine="179"/>
    634       </Position7>
    635       <Position8>
    636         <Filename Value="..\UCore.pas"/>
    637         <Caret Line="186" Column="1" TopLine="179"/>
    638       </Position8>
    639       <Position9>
    640         <Filename Value="..\UCore.pas"/>
    641         <Caret Line="184" Column="1" TopLine="179"/>
    642       </Position9>
    643       <Position10>
    644         <Filename Value="..\Packages\Common\URegistry.pas"/>
    645         <Caret Line="51" Column="1" TopLine="39"/>
    646       </Position10>
    647       <Position11>
    648         <Filename Value="..\Packages\Common\URegistry.pas"/>
    649         <Caret Line="52" Column="1" TopLine="39"/>
    650       </Position11>
    651       <Position12>
    652         <Filename Value="..\Packages\Common\URegistry.pas"/>
    653         <Caret Line="53" Column="1" TopLine="39"/>
    654       </Position12>
    655       <Position13>
    656         <Filename Value="..\Packages\Common\URegistry.pas"/>
    657         <Caret Line="54" Column="1" TopLine="39"/>
    658       </Position13>
    659       <Position14>
    660         <Filename Value="..\Packages\ModularSystem\UModularSystem.pas"/>
    661         <Caret Line="314" Column="1" TopLine="302"/>
    662       </Position14>
    663       <Position15>
    664         <Filename Value="..\Packages\ModularSystem\UModularSystem.pas"/>
    665         <Caret Line="315" Column="1" TopLine="302"/>
    666       </Position15>
    667       <Position16>
    668         <Filename Value="..\Packages\ModularSystem\UModularSystem.pas"/>
    669         <Caret Line="316" Column="1" TopLine="302"/>
    670       </Position16>
    671       <Position17>
    672         <Filename Value="..\Packages\ModularSystem\UModularSystem.pas"/>
    673         <Caret Line="320" Column="25" TopLine="302"/>
    674       </Position17>
    675       <Position18>
    676         <Filename Value="..\Packages\ModularSystem\UModularSystem.pas"/>
    677         <Caret Line="318" Column="1" TopLine="302"/>
    678       </Position18>
    679       <Position19>
    680         <Filename Value="..\Packages\ModularSystem\UModularSystem.pas"/>
    681         <Caret Line="319" Column="1" TopLine="302"/>
    682       </Position19>
    683       <Position20>
    684         <Filename Value="..\Packages\ModularSystem\UModularSystem.pas"/>
    685         <Caret Line="320" Column="1" TopLine="302"/>
    686       </Position20>
    687       <Position21>
    688         <Filename Value="..\Packages\Common\URegistry.pas"/>
    689         <Caret Line="124" Column="1" TopLine="112"/>
    690       </Position21>
    691       <Position22>
    692         <Filename Value="..\Packages\Common\URegistry.pas"/>
    693         <Caret Line="125" Column="1" TopLine="112"/>
    694       </Position22>
    695       <Position23>
    696         <Filename Value="..\Packages\Common\URegistry.pas"/>
    697         <Caret Line="126" Column="1" TopLine="112"/>
    698       </Position23>
    699       <Position24>
    700         <Filename Value="..\Packages\Common\URegistry.pas"/>
    701         <Caret Line="119" Column="1" TopLine="112"/>
    702       </Position24>
    703       <Position25>
    704         <Filename Value="..\Packages\Common\URegistry.pas"/>
    705         <Caret Line="120" Column="1" TopLine="112"/>
    706       </Position25>
    707       <Position26>
    708         <Filename Value="..\Packages\ModularSystem\UModularSystem.pas"/>
    709         <Caret Line="311" Column="42" TopLine="302"/>
    710       </Position26>
    711       <Position27>
    712         <Filename Value="..\Packages\ModularSystem\UModularSystem.pas"/>
    713         <Caret Line="293" Column="44" TopLine="292"/>
    714       </Position27>
    715       <Position28>
    716         <Filename Value="..\Packages\ModularSystem\UModularSystem.pas"/>
    717         <Caret Line="137" Column="18" TopLine="122"/>
    718       </Position28>
    719       <Position29>
    720         <Filename Value="..\Packages\ModularSystem\UModularSystem.pas"/>
    721         <Caret Line="111" Column="1" TopLine="97"/>
    722       </Position29>
    723       <Position30>
    724         <Filename Value="..\UCore.pas"/>
    725         <Caret Line="200" Column="58" TopLine="179"/>
    726       </Position30>
    727     </JumpHistory>
     569    <JumpHistory Count="0" HistoryIndex="-1"/>
    728570  </ProjectSession>
    729571  <EditorMacros Count="0"/>

  • trunk/Forms/UFormList.pas

    r56 r60  
    277277    Filter := Filter + ', `' + Name + '`';
    278278  end;
    279   Core.Database.Query(DbRows, 'SELECT ' + Filter + ' FROM ' + View.Name);
     279  if Core.Database.Connected then
     280    Core.Database.Query(DbRows, 'SELECT ' + Filter + ' FROM ' + View.Name);
    280281
    281282  ListView1.Items.Count := DbRows.Count;
Note: See TracChangeset for help on using the changeset viewer.