Changeset 26 for trunk/IDE


Ignore:
Timestamp:
Dec 8, 2010, 10:00:30 AM (14 years ago)
Author:
george
Message:
  • Removed: Generic template usage form project code. Replaced by TListObject descendants.
Location:
trunk/IDE
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/IDE/Forms/UMainForm.pas

    r25 r26  
    1111  UProject, FileUtil, Menus, ActnList, UCoolDocking,
    1212  UCompiledForm, UCodeTreeForm, URegistry, ULastOpenedList, UApplicationInfo,
    13   UDebugLog;
     13  UDebugLog, UAnalyzer, UProducer;
    1414
    1515const
    … …  
    9797  if (ComboBoxAnalyzer.Items.Count > 0) and (ComboBoxAnalyzer.ItemIndex <> -1) and
    9898    (ComboBoxProducer.Items.Count > 0) and (ComboBoxProducer.ItemIndex <> -1) then begin
    99     Compiler.Producer := Compiler.Producers[ComboBoxProducer.ItemIndex];
    100     Compiler.Analyzer := Compiler.Analyzers[ComboBoxAnalyzer.ItemIndex];
     99    Compiler.Producer := TProducer(Compiler.Producers[ComboBoxProducer.ItemIndex]);
     100    Compiler.Analyzer := TAnalyzer(Compiler.Analyzers[ComboBoxAnalyzer.ItemIndex]);
    101101    Compiler.Analyzer.OnGetSource := GetSource;
    102102    Compiler.Init;
    … …  
    237237  ComboBoxProducer.Clear;
    238238  for I := 0 to Compiler.Producers.Count - 1 do
    239     ComboBoxProducer.AddItem(Compiler.Producers[I].Name, nil);
     239    ComboBoxProducer.AddItem(TProducer(Compiler.Producers[I]).Name, nil);
    240240
    241241  ComboBoxAnalyzer.Clear;
    242242  for I := 0 to Compiler.Analyzers.Count - 1 do
    243     ComboBoxAnalyzer.AddItem(Compiler.Analyzers[I].Name, nil);
     243    ComboBoxAnalyzer.AddItem(TAnalyzer(Compiler.Analyzers[I]).Name, nil);
    244244end;
    245245

  • trunk/IDE/Transpascal.lpi

    r24 r26  
    5353      </Item5>
    5454    </RequiredPackages>
    55     <Units Count="74">
     55    <Units Count="75">
    5656      <Unit0>
    5757        <Filename Value="Transpascal.lpr"/>
    … …  
    7171        <ResourceBaseClass Value="Form"/>
    7272        <UnitName Value="UMainForm"/>
     73        <IsVisibleTab Value="True"/>
    7374        <EditorIndex Value="0"/>
    7475        <WindowIndex Value="0"/>
    75         <TopLine Value="1"/>
    76         <CursorPos X="49" Y="9"/>
     76        <TopLine Value="226"/>
     77        <CursorPos X="40" Y="239"/>
    7778        <UsageCount Value="215"/>
    7879        <Loaded Value="True"/>
    … …  
    184185        <EditorIndex Value="6"/>
    185186        <WindowIndex Value="0"/>
    186         <TopLine Value="7"/>
    187         <CursorPos X="30" Y="25"/>
     187        <TopLine Value="1"/>
     188        <CursorPos X="24" Y="10"/>
    188189        <UsageCount Value="223"/>
    189190        <Loaded Value="True"/>
    … …  
    220221        <ResourceBaseClass Value="Form"/>
    221222        <UnitName Value="UProjectManager"/>
    222         <EditorIndex Value="18"/>
     223        <EditorIndex Value="20"/>
    223224        <WindowIndex Value="0"/>
    224225        <TopLine Value="68"/>
    … …  
    235236        <ResourceBaseClass Value="Form"/>
    236237        <UnitName Value="UCodeForm"/>
    237         <EditorIndex Value="7"/>
     238        <EditorIndex Value="8"/>
    238239        <WindowIndex Value="0"/>
    239240        <TopLine Value="36"/>
    … …  
    250251        <ResourceBaseClass Value="Form"/>
    251252        <UnitName Value="UMessagesForm"/>
    252         <EditorIndex Value="10"/>
     253        <EditorIndex Value="11"/>
    253254        <WindowIndex Value="0"/>
    254255        <TopLine Value="47"/>
    … …  
    457458        <EditorIndex Value="16"/>
    458459        <WindowIndex Value="0"/>
    459         <TopLine Value="71"/>
    460         <CursorPos X="1" Y="85"/>
     460        <TopLine Value="26"/>
     461        <CursorPos X="14" Y="54"/>
    461462        <UsageCount Value="82"/>
    462463        <Loaded Value="True"/>
    … …  
    480481        <Filename Value="..\Compiler\UCompiler.pas"/>
    481482        <UnitName Value="UCompiler"/>
    482         <EditorIndex Value="11"/>
    483         <WindowIndex Value="0"/>
    484         <TopLine Value="60"/>
    485         <CursorPos X="45" Y="68"/>
     483        <EditorIndex Value="12"/>
     484        <WindowIndex Value="0"/>
     485        <TopLine Value="43"/>
     486        <CursorPos X="31" Y="56"/>
    486487        <UsageCount Value="40"/>
    487488        <Loaded Value="True"/>
    … …  
    490491        <Filename Value="..\Compiler\Produce\UProducer.pas"/>
    491492        <UnitName Value="UProducer"/>
    492         <WindowIndex Value="0"/>
    493         <TopLine Value="58"/>
    494         <CursorPos X="1" Y="79"/>
     493        <EditorIndex Value="7"/>
     494        <WindowIndex Value="0"/>
     495        <TopLine Value="1"/>
     496        <CursorPos X="66" Y="9"/>
    495497        <UsageCount Value="30"/>
     498        <Loaded Value="True"/>
    496499      </Unit47>
    497500      <Unit48>
    498501        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    499502        <UnitName Value="UAnalyzer"/>
    500         <EditorIndex Value="12"/>
    501         <WindowIndex Value="0"/>
    502         <TopLine Value="36"/>
    503         <CursorPos X="5" Y="49"/>
     503        <EditorIndex Value="13"/>
     504        <WindowIndex Value="0"/>
     505        <TopLine Value="22"/>
     506        <CursorPos X="3" Y="35"/>
    504507        <UsageCount Value="39"/>
    505508        <Loaded Value="True"/>
    … …  
    508511        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    509512        <UnitName Value="UAnalyzerPascal"/>
    510         <EditorIndex Value="17"/>
    511         <WindowIndex Value="0"/>
    512         <TopLine Value="1239"/>
    513         <CursorPos X="1" Y="1255"/>
     513        <EditorIndex Value="19"/>
     514        <WindowIndex Value="0"/>
     515        <TopLine Value="877"/>
     516        <CursorPos X="65" Y="890"/>
    514517        <UsageCount Value="39"/>
    515518        <Loaded Value="True"/>
    … …  
    518521        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    519522        <UnitName Value="UProducerPascal"/>
    520         <EditorIndex Value="13"/>
    521         <WindowIndex Value="0"/>
    522         <TopLine Value="164"/>
    523         <CursorPos X="52" Y="171"/>
     523        <EditorIndex Value="14"/>
     524        <WindowIndex Value="0"/>
     525        <TopLine Value="248"/>
     526        <CursorPos X="37" Y="261"/>
    524527        <UsageCount Value="39"/>
    525528        <Loaded Value="True"/>
    … …  
    552555        <Filename Value="..\Compiler\USourceCode.pas"/>
    553556        <UnitName Value="USourceCode"/>
    554         <IsVisibleTab Value="True"/>
    555         <EditorIndex Value="14"/>
    556         <WindowIndex Value="0"/>
    557         <TopLine Value="1090"/>
    558         <CursorPos X="30" Y="1103"/>
     557        <EditorIndex Value="15"/>
     558        <WindowIndex Value="0"/>
     559        <TopLine Value="903"/>
     560        <CursorPos X="50" Y="916"/>
    559561        <UsageCount Value="39"/>
    560562        <Loaded Value="True"/>
    … …  
    611613      <Unit61>
    612614        <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericObjectList.inc"/>
    613         <EditorIndex Value="15"/>
    614         <WindowIndex Value="0"/>
    615         <TopLine Value="65"/>
     615        <EditorIndex Value="18"/>
     616        <WindowIndex Value="0"/>
     617        <TopLine Value="70"/>
    616618        <CursorPos X="1" Y="78"/>
    617619        <UsageCount Value="12"/>
    … …  
    645647        <Filename Value="E:\Programy\Lazarus\components\synedit\synedit.pp"/>
    646648        <UnitName Value="SynEdit"/>
    647         <EditorIndex Value="8"/>
     649        <EditorIndex Value="9"/>
    648650        <WindowIndex Value="0"/>
    649651        <TopLine Value="4144"/>
    … …  
    655657        <Filename Value="E:\Programy\Lazarus\components\synedit\syneditmiscclasses.pp"/>
    656658        <UnitName Value="SynEditMiscClasses"/>
    657         <EditorIndex Value="9"/>
     659        <EditorIndex Value="10"/>
    658660        <WindowIndex Value="0"/>
    659661        <TopLine Value="93"/>
    … …  
    717719        <Loaded Value="True"/>
    718720      </Unit73>
     721      <Unit74>
     722        <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedList.pas"/>
     723        <UnitName Value="SpecializedList"/>
     724        <EditorIndex Value="17"/>
     725        <WindowIndex Value="0"/>
     726        <TopLine Value="28"/>
     727        <CursorPos X="1" Y="1"/>
     728        <UsageCount Value="10"/>
     729        <Loaded Value="True"/>
     730      </Unit74>
    719731    </Units>
    720     <JumpHistory Count="29" HistoryIndex="28">
     732    <JumpHistory Count="30" HistoryIndex="29">
    721733      <Position1>
    722734        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    723         <Caret Line="1252" Column="1" TopLine="1239"/>
     735        <Caret Line="702" Column="26" TopLine="59"/>
    724736      </Position1>
    725737      <Position2>
    726738        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    727         <Caret Line="1253" Column="1" TopLine="1239"/>
     739        <Caret Line="158" Column="18" TopLine="145"/>
    728740      </Position2>
    729741      <Position3>
    730742        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    731         <Caret Line="1254" Column="1" TopLine="1239"/>
     743        <Caret Line="159" Column="41" TopLine="146"/>
    732744      </Position3>
    733745      <Position4>
    734746        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    735         <Caret Line="1255" Column="1" TopLine="1239"/>
     747        <Caret Line="161" Column="40" TopLine="148"/>
    736748      </Position4>
    737749      <Position5>
    738         <Filename Value="..\Compiler\USourceCode.pas"/>
    739         <Caret Line="1099" Column="1" TopLine="1094"/>
     750        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     751        <Caret Line="163" Column="25" TopLine="149"/>
    740752      </Position5>
    741753      <Position6>
    742         <Filename Value="..\Compiler\USourceCode.pas"/>
    743         <Caret Line="1100" Column="1" TopLine="1094"/>
     754        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     755        <Caret Line="168" Column="31" TopLine="155"/>
    744756      </Position6>
    745757      <Position7>
    746         <Filename Value="..\Compiler\USourceCode.pas"/>
    747         <Caret Line="1101" Column="1" TopLine="1094"/>
     758        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     759        <Caret Line="169" Column="28" TopLine="156"/>
    748760      </Position7>
    749761      <Position8>
    750         <Filename Value="..\Compiler\USourceCode.pas"/>
    751         <Caret Line="1102" Column="1" TopLine="1094"/>
     762        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     763        <Caret Line="170" Column="19" TopLine="157"/>
    752764      </Position8>
    753765      <Position9>
    754         <Filename Value="..\Compiler\USourceCode.pas"/>
    755         <Caret Line="1103" Column="1" TopLine="1094"/>
     766        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     767        <Caret Line="173" Column="21" TopLine="160"/>
    756768      </Position9>
    757769      <Position10>
    758         <Filename Value="..\Compiler\USourceCode.pas"/>
    759         <Caret Line="1104" Column="1" TopLine="1094"/>
     770        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     771        <Caret Line="193" Column="17" TopLine="180"/>
    760772      </Position10>
    761773      <Position11>
    762         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    763         <Caret Line="84" Column="1" TopLine="71"/>
     774        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     775        <Caret Line="196" Column="58" TopLine="183"/>
    764776      </Position11>
    765777      <Position12>
    766         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    767         <Caret Line="85" Column="1" TopLine="71"/>
     778        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     779        <Caret Line="194" Column="77" TopLine="183"/>
    768780      </Position12>
    769781      <Position13>
    770         <Filename Value="..\Compiler\USourceCode.pas"/>
    771         <Caret Line="1099" Column="1" TopLine="1094"/>
     782        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     783        <Caret Line="209" Column="17" TopLine="196"/>
    772784      </Position13>
    773785      <Position14>
    774         <Filename Value="..\Compiler\USourceCode.pas"/>
    775         <Caret Line="1100" Column="1" TopLine="1094"/>
     786        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     787        <Caret Line="210" Column="17" TopLine="197"/>
    776788      </Position14>
    777789      <Position15>
    778         <Filename Value="..\Compiler\USourceCode.pas"/>
    779         <Caret Line="1101" Column="1" TopLine="1094"/>
     790        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
     791        <Caret Line="322" Column="19" TopLine="309"/>
    780792      </Position15>
    781793      <Position16>
    782794        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    783         <Caret Line="1252" Column="1" TopLine="1239"/>
     795        <Caret Line="889" Column="23" TopLine="876"/>
    784796      </Position16>
    785797      <Position17>
    786         <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    787         <Caret Line="1059" Column="1" TopLine="1046"/>
     798        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
     799        <Caret Line="171" Column="52" TopLine="164"/>
    788800      </Position17>
    789801      <Position18>
    790         <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    791         <Caret Line="1252" Column="1" TopLine="1239"/>
     802        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
     803        <Caret Line="139" Column="12" TopLine="126"/>
    792804      </Position18>
    793805      <Position19>
    794         <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    795         <Caret Line="1253" Column="1" TopLine="1239"/>
     806        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
     807        <Caret Line="140" Column="43" TopLine="127"/>
    796808      </Position19>
    797809      <Position20>
    798         <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    799         <Caret Line="1254" Column="1" TopLine="1239"/>
     810        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
     811        <Caret Line="91" Column="1" TopLine="79"/>
    800812      </Position20>
    801813      <Position21>
    802         <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    803         <Caret Line="1255" Column="1" TopLine="1239"/>
     814        <Filename Value="Forms\UMainForm.pas"/>
     815        <Caret Line="9" Column="49" TopLine="1"/>
    804816      </Position21>
    805817      <Position22>
    806         <Filename Value="..\Compiler\USourceCode.pas"/>
    807         <Caret Line="1099" Column="1" TopLine="1094"/>
     818        <Filename Value="Forms\UMainForm.pas"/>
     819        <Caret Line="100" Column="20" TopLine="87"/>
    808820      </Position22>
    809821      <Position23>
    810         <Filename Value="..\Compiler\USourceCode.pas"/>
    811         <Caret Line="1100" Column="1" TopLine="1094"/>
     822        <Filename Value="..\Compiler\UCompiler.pas"/>
     823        <Caret Line="56" Column="31" TopLine="43"/>
    812824      </Position23>
    813825      <Position24>
    814         <Filename Value="..\Compiler\USourceCode.pas"/>
    815         <Caret Line="1101" Column="1" TopLine="1094"/>
     826        <Filename Value="Forms\UMainForm.pas"/>
     827        <Caret Line="100" Column="20" TopLine="87"/>
    816828      </Position24>
    817829      <Position25>
    818         <Filename Value="..\Compiler\USourceCode.pas"/>
    819         <Caret Line="1102" Column="1" TopLine="1094"/>
     830        <Filename Value="Forms\UMainForm.pas"/>
     831        <Caret Line="13" Column="23" TopLine="1"/>
    820832      </Position25>
    821833      <Position26>
    822         <Filename Value="..\Compiler\USourceCode.pas"/>
    823         <Caret Line="1103" Column="1" TopLine="1094"/>
     834        <Filename Value="UProject.pas"/>
     835        <Caret Line="75" Column="1" TopLine="74"/>
    824836      </Position26>
    825837      <Position27>
    826         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    827         <Caret Line="84" Column="1" TopLine="71"/>
     838        <Filename Value="..\Compiler\Produce\UProducer.pas"/>
     839        <Caret Line="29" Column="38" TopLine="24"/>
    828840      </Position27>
    829841      <Position28>
    830         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    831         <Caret Line="85" Column="1" TopLine="71"/>
     842        <Filename Value="Forms\UMainForm.pas"/>
     843        <Caret Line="243" Column="40" TopLine="230"/>
    832844      </Position28>
    833845      <Position29>
    834         <Filename Value="..\Compiler\USourceCode.pas"/>
    835         <Caret Line="1103" Column="30" TopLine="1094"/>
     846        <Filename Value="Forms\UMainForm.pas"/>
     847        <Caret Line="99" Column="1" TopLine="86"/>
    836848      </Position29>
     849      <Position30>
     850        <Filename Value="Forms\UMainForm.pas"/>
     851        <Caret Line="13" Column="34" TopLine="8"/>
     852      </Position30>
    837853    </JumpHistory>
    838854  </ProjectOptions>
    … …  
    872888    </Linking>
    873889    <Other>
    874       <CompilerMessages>
    875         <IgnoredMessages idx5023="True" idx5024="True" idx5025="True" idx5026="True" idx5027="True" idx5028="True" idx5029="True" idx5030="True" idx5031="True"/>
    876         <UseMsgFile Value="True"/>
    877       </CompilerMessages>
    878890      <CompilerPath Value="$(CompPath)"/>
    879891    </Other>
    880892  </CompilerOptions>
    881893  <Debugging>
    882     <BreakPoints Count="2">
    883       <Item1>
    884         <Source Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    885         <Line Value="1252"/>
    886       </Item1>
    887       <Item2>
    888         <Source Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    889         <Line Value="1059"/>
    890       </Item2>
    891     </BreakPoints>
    892894    <Exceptions Count="3">
    893895      <Item1>

  • trunk/IDE/UProject.pas

    r24 r26  
    77
    88uses
    9   Classes, SysUtils, Dialogs, DOM, XMLWrite, XMLRead, FileUtil;
     9  Classes, SysUtils, Dialogs, DOM, XMLWrite, XMLRead, FileUtil,
     10  SpecializedObjectList;
    1011
    1112type
    … …  
    3132
    3233  // TListProjectNode = TGObjectList<Integer, TProjectNode>
    33   {$DEFINE TGObjectListIndex := Integer}
    34   {$DEFINE TGObjectListItem := TProjectNode}
    35   {$DEFINE TGObjectListList := TObjectListProjectNode}
    36   {$DEFINE TGObjectList := TListProjectNode}
    37   {$DEFINE TGObjectListSortCompare := TObjectListSortCompareProjectNode}
    38   {$DEFINE TGObjectListStringConverter := TObjectListStringConverterProjectNode}
    39   {$DEFINE INTERFACE}
    40   {$I 'GenericObjectList.inc'}
     34  TListProjectNode = class(TListObject);
    4135
    4236  { TProjectFile }
    … …  
    8074
    8175
    82 {$DEFINE IMPLEMENTATION_USES}
    83 {$INCLUDE 'GenericObjectList.inc'}
    84 
    85 // TListProjectNode = TGObjectList<Integer, TProjectNode>
    86 {$DEFINE TGObjectListIndex := Integer}
    87 {$DEFINE TGObjectListItem := TProjectNode}
    88 {$DEFINE TGObjectListList := TObjectListProjectNode}
    89 {$DEFINE TGObjectList := TListProjectNode}
    90 {$DEFINE TGObjectListSortCompare := TObjectListSortCompareProjectNode}
    91 {$DEFINE TGObjectListStringConverter := TObjectListStringConverterProjectNode}
    92 {$DEFINE IMPLEMENTATION}
    93 {$INCLUDE 'GenericObjectList.inc'}
    9476
    9577{ TProjectGroup }
Note: See TracChangeset for help on using the changeset viewer.