Changeset 23 for trunk


Ignore:
Timestamp:
Nov 10, 2010, 7:26:52 AM (14 years ago)
Author:
george
Message:
  • Fixed: Saving project file.
Location:
trunk
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Demos/Generics/Generics.tppr

    r22 r23  
    11<?xml version="1.0"?>
    2 <Project>
    3   <Files Name="Generics">
    4     <File Type="File" Name="Generics.pas" />
    5     <File Type="File" Name="System.pas" />
    6     <File Type="File" Name="List.pas" />
    7   </Files>
     2<Project Name="Generics">
     3  <Folder Name="Generics">
     4    <File Name="Generics.pas"/>
     5    <File Name="System.pas"/>
     6    <File Name="List.pas"/>
     7  </Folder>
    88</Project>

  • trunk/IDE/Forms/UCodeForm.lfm

    r21 r23  
    11object CodeForm: TCodeForm
    2   Left = 359
     2  Left = 352
    33  Height = 426
    4   Top = 127
     4  Top = 95
    55  Width = 535
    66  Caption = 'Source code'

  • trunk/IDE/Forms/UProjectManager.pas

    r10 r23  
    3838  if Assigned(Node) then begin
    3939    if TProjectNode(Node.Data) is TProjectFile then begin
     40      ProjectFile := TProjectFile(Node.Data);
    4041      SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source);
    4142(*        if FileExists(TProjectFile(Node.Data).ProducedFileName) then

  • trunk/IDE/Transpascal.lpi

    r22 r23  
    66    <General>
    77      <MainUnit Value="0"/>
    8       <Title Value="Transpascal"/>
     8      <Title Value="Transpascal IDE"/>
    99      <ResourceType Value="res"/>
    1010      <UseXPManifest Value="True"/>
    … …  
    7474        <WindowIndex Value="0"/>
    7575        <TopLine Value="284"/>
    76         <CursorPos X="54" Y="301"/>
     76        <CursorPos X="1" Y="301"/>
    7777        <UsageCount Value="215"/>
    7878        <Loaded Value="True"/>
    … …  
    185185        <EditorIndex Value="1"/>
    186186        <WindowIndex Value="0"/>
    187         <TopLine Value="224"/>
    188         <CursorPos X="1" Y="237"/>
     187        <TopLine Value="164"/>
     188        <CursorPos X="21" Y="175"/>
    189189        <UsageCount Value="223"/>
    190190        <Loaded Value="True"/>
    … …  
    221221        <ResourceBaseClass Value="Form"/>
    222222        <UnitName Value="UProjectManager"/>
    223         <EditorIndex Value="10"/>
    224         <WindowIndex Value="0"/>
    225         <TopLine Value="1"/>
    226         <CursorPos X="37" Y="52"/>
     223        <EditorIndex Value="11"/>
     224        <WindowIndex Value="0"/>
     225        <TopLine Value="28"/>
     226        <CursorPos X="45" Y="40"/>
    227227        <UsageCount Value="207"/>
    228228        <Loaded Value="True"/>
     229        <LoadedDesigner Value="True"/>
    229230        <DefaultSyntaxHighlighter Value="Delphi"/>
    230231      </Unit18>
    … …  
    237238        <EditorIndex Value="2"/>
    238239        <WindowIndex Value="0"/>
    239         <TopLine Value="1"/>
    240         <CursorPos X="36" Y="9"/>
     240        <TopLine Value="19"/>
     241        <CursorPos X="1" Y="40"/>
    241242        <UsageCount Value="207"/>
    242243        <Loaded Value="True"/>
    … …  
    250251        <ResourceBaseClass Value="Form"/>
    251252        <UnitName Value="UMessagesForm"/>
     253        <EditorIndex Value="3"/>
    252254        <WindowIndex Value="0"/>
    253255        <TopLine Value="51"/>
    254256        <CursorPos X="64" Y="66"/>
    255257        <UsageCount Value="207"/>
     258        <Loaded Value="True"/>
    256259        <DefaultSyntaxHighlighter Value="Delphi"/>
    257260      </Unit20>
    … …  
    450453      <Unit43>
    451454        <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    452         <EditorIndex Value="11"/>
    453         <WindowIndex Value="0"/>
    454         <TopLine Value="12"/>
    455         <CursorPos X="14" Y="25"/>
    456         <UsageCount Value="79"/>
     455        <EditorIndex Value="12"/>
     456        <WindowIndex Value="0"/>
     457        <TopLine Value="71"/>
     458        <CursorPos X="1" Y="85"/>
     459        <UsageCount Value="80"/>
    457460        <Loaded Value="True"/>
    458461      </Unit43>
    … …  
    475478        <Filename Value="..\Compiler\UCompiler.pas"/>
    476479        <UnitName Value="UCompiler"/>
    477         <EditorIndex Value="3"/>
     480        <EditorIndex Value="4"/>
    478481        <WindowIndex Value="0"/>
    479482        <TopLine Value="60"/>
    480483        <CursorPos X="45" Y="68"/>
    481         <UsageCount Value="37"/>
     484        <UsageCount Value="38"/>
    482485        <Loaded Value="True"/>
    483486      </Unit46>
    … …  
    493496        <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    494497        <UnitName Value="UAnalyzer"/>
    495         <EditorIndex Value="4"/>
     498        <EditorIndex Value="5"/>
    496499        <WindowIndex Value="0"/>
    497500        <TopLine Value="66"/>
    498501        <CursorPos X="37" Y="79"/>
    499         <UsageCount Value="36"/>
     502        <UsageCount Value="37"/>
    500503        <Loaded Value="True"/>
    501504      </Unit48>
    … …  
    503506        <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    504507        <UnitName Value="UAnalyzerPascal"/>
    505         <EditorIndex Value="9"/>
    506         <WindowIndex Value="0"/>
    507         <TopLine Value="709"/>
    508         <CursorPos X="36" Y="719"/>
    509         <UsageCount Value="36"/>
     508        <EditorIndex Value="10"/>
     509        <WindowIndex Value="0"/>
     510        <TopLine Value="836"/>
     511        <CursorPos X="1" Y="849"/>
     512        <UsageCount Value="37"/>
    510513        <Loaded Value="True"/>
    511514      </Unit49>
    … …  
    513516        <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    514517        <UnitName Value="UProducerPascal"/>
    515         <EditorIndex Value="7"/>
     518        <EditorIndex Value="8"/>
    516519        <WindowIndex Value="0"/>
    517520        <TopLine Value="148"/>
    518521        <CursorPos X="52" Y="171"/>
    519         <UsageCount Value="36"/>
     522        <UsageCount Value="37"/>
    520523        <Loaded Value="True"/>
    521524      </Unit50>
    … …  
    547550        <Filename Value="..\Compiler\USourceCode.pas"/>
    548551        <UnitName Value="USourceCode"/>
    549         <EditorIndex Value="8"/>
    550         <WindowIndex Value="0"/>
    551         <TopLine Value="588"/>
    552         <CursorPos X="9" Y="590"/>
    553         <UsageCount Value="36"/>
     552        <EditorIndex Value="9"/>
     553        <WindowIndex Value="0"/>
     554        <TopLine Value="727"/>
     555        <CursorPos X="1" Y="740"/>
     556        <UsageCount Value="37"/>
    554557        <Loaded Value="True"/>
    555558      </Unit54>
    … …  
    618621      <Unit63>
    619622        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\classesh.inc"/>
    620         <EditorIndex Value="5"/>
     623        <EditorIndex Value="6"/>
    621624        <WindowIndex Value="0"/>
    622625        <TopLine Value="625"/>
    623626        <CursorPos X="36" Y="638"/>
    624         <UsageCount Value="13"/>
     627        <UsageCount Value="14"/>
    625628        <Loaded Value="True"/>
    626629      </Unit63>
    627630      <Unit64>
    628631        <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\stringl.inc"/>
    629         <EditorIndex Value="6"/>
     632        <EditorIndex Value="7"/>
    630633        <WindowIndex Value="0"/>
    631634        <TopLine Value="428"/>
    632635        <CursorPos X="3" Y="441"/>
    633         <UsageCount Value="13"/>
     636        <UsageCount Value="14"/>
    634637        <Loaded Value="True"/>
    635638      </Unit64>
    … …  
    637640    <JumpHistory Count="30" HistoryIndex="29">
    638641      <Position1>
    639         <Filename Value="Forms\UMainForm.pas"/>
    640         <Caret Line="300" Column="12" TopLine="283"/>
     642        <Filename Value="UProject.pas"/>
     643        <Caret Line="131" Column="1" TopLine="113"/>
    641644      </Position1>
    642645      <Position2>
    643         <Filename Value="Forms\UMainForm.pas"/>
    644         <Caret Line="294" Column="21" TopLine="283"/>
     646        <Filename Value="UProject.pas"/>
     647        <Caret Line="132" Column="1" TopLine="113"/>
    645648      </Position2>
    646649      <Position3>
    647650        <Filename Value="UProject.pas"/>
    648         <Caret Line="42" Column="1" TopLine="93"/>
     651        <Caret Line="134" Column="1" TopLine="113"/>
    649652      </Position3>
    650653      <Position4>
    651654        <Filename Value="UProject.pas"/>
    652         <Caret Line="268" Column="17" TopLine="248"/>
     655        <Caret Line="135" Column="1" TopLine="114"/>
    653656      </Position4>
    654657      <Position5>
    655         <Filename Value="UProject.pas"/>
    656         <Caret Line="266" Column="3" TopLine="259"/>
     658        <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
     659        <Caret Line="84" Column="1" TopLine="71"/>
    657660      </Position5>
    658661      <Position6>
    659         <Filename Value="UProject.pas"/>
    660         <Caret Line="277" Column="17" TopLine="260"/>
     662        <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
     663        <Caret Line="85" Column="1" TopLine="71"/>
    661664      </Position6>
    662665      <Position7>
    663         <Filename Value="Forms\UMainForm.pas"/>
    664         <Caret Line="138" Column="14" TopLine="133"/>
     666        <Filename Value="UProject.pas"/>
     667        <Caret Line="174" Column="1" TopLine="161"/>
    665668      </Position7>
    666669      <Position8>
    667         <Filename Value="Forms\UMainForm.pas"/>
    668         <Caret Line="301" Column="1" TopLine="284"/>
     670        <Filename Value="UProject.pas"/>
     671        <Caret Line="201" Column="1" TopLine="188"/>
    669672      </Position8>
    670673      <Position9>
    671674        <Filename Value="UProject.pas"/>
    672         <Caret Line="311" Column="1" TopLine="298"/>
     675        <Caret Line="175" Column="1" TopLine="162"/>
    673676      </Position9>
    674677      <Position10>
    675         <Filename Value="Forms\UMainForm.pas"/>
    676         <Caret Line="301" Column="35" TopLine="284"/>
     678        <Filename Value="UProject.pas"/>
     679        <Caret Line="191" Column="1" TopLine="178"/>
    677680      </Position10>
    678681      <Position11>
    679682        <Filename Value="UProject.pas"/>
    680         <Caret Line="67" Column="14" TopLine="54"/>
     683        <Caret Line="192" Column="1" TopLine="178"/>
    681684      </Position11>
    682685      <Position12>
    683         <Filename Value="Forms\UMainForm.pas"/>
    684         <Caret Line="301" Column="1" TopLine="284"/>
     686        <Filename Value="UProject.pas"/>
     687        <Caret Line="215" Column="1" TopLine="202"/>
    685688      </Position12>
    686689      <Position13>
    687690        <Filename Value="UProject.pas"/>
    688         <Caret Line="301" Column="1" TopLine="288"/>
     691        <Caret Line="216" Column="1" TopLine="202"/>
    689692      </Position13>
    690693      <Position14>
    691694        <Filename Value="UProject.pas"/>
    692         <Caret Line="302" Column="1" TopLine="288"/>
     695        <Caret Line="193" Column="1" TopLine="180"/>
    693696      </Position14>
    694697      <Position15>
    695         <Filename Value="Forms\UMainForm.pas"/>
    696         <Caret Line="301" Column="1" TopLine="284"/>
     698        <Filename Value="UProject.pas"/>
     699        <Caret Line="301" Column="1" TopLine="288"/>
    697700      </Position15>
    698701      <Position16>
    699702        <Filename Value="UProject.pas"/>
    700         <Caret Line="301" Column="1" TopLine="288"/>
     703        <Caret Line="302" Column="1" TopLine="288"/>
    701704      </Position16>
    702705      <Position17>
    703706        <Filename Value="UProject.pas"/>
    704         <Caret Line="302" Column="1" TopLine="288"/>
     707        <Caret Line="194" Column="1" TopLine="181"/>
    705708      </Position17>
    706709      <Position18>
    707710        <Filename Value="UProject.pas"/>
    708         <Caret Line="234" Column="3" TopLine="226"/>
     711        <Caret Line="176" Column="1" TopLine="163"/>
    709712      </Position18>
    710713      <Position19>
    711714        <Filename Value="UProject.pas"/>
    712         <Caret Line="237" Column="1" TopLine="226"/>
     715        <Caret Line="135" Column="1" TopLine="122"/>
    713716      </Position19>
    714717      <Position20>
    715718        <Filename Value="UProject.pas"/>
    716         <Caret Line="238" Column="1" TopLine="226"/>
     719        <Caret Line="132" Column="24" TopLine="122"/>
    717720      </Position20>
    718721      <Position21>
    719         <Filename Value="Forms\UMainForm.pas"/>
    720         <Caret Line="301" Column="54" TopLine="284"/>
     722        <Filename Value="UProject.pas"/>
     723        <Caret Line="283" Column="1" TopLine="270"/>
    721724      </Position21>
    722725      <Position22>
    723726        <Filename Value="UProject.pas"/>
    724         <Caret Line="17" Column="5" TopLine="52"/>
     727        <Caret Line="284" Column="1" TopLine="270"/>
    725728      </Position22>
    726729      <Position23>
    727730        <Filename Value="UProject.pas"/>
    728         <Caret Line="237" Column="1" TopLine="224"/>
     731        <Caret Line="285" Column="1" TopLine="270"/>
    729732      </Position23>
    730733      <Position24>
    731734        <Filename Value="UProject.pas"/>
    732         <Caret Line="238" Column="1" TopLine="224"/>
     735        <Caret Line="286" Column="1" TopLine="270"/>
    733736      </Position24>
    734737      <Position25>
    735738        <Filename Value="UProject.pas"/>
    736         <Caret Line="240" Column="1" TopLine="224"/>
     739        <Caret Line="287" Column="1" TopLine="270"/>
    737740      </Position25>
    738741      <Position26>
    739742        <Filename Value="UProject.pas"/>
    740         <Caret Line="242" Column="1" TopLine="224"/>
     743        <Caret Line="289" Column="1" TopLine="270"/>
    741744      </Position26>
    742745      <Position27>
    743746        <Filename Value="UProject.pas"/>
    744         <Caret Line="243" Column="1" TopLine="224"/>
     747        <Caret Line="291" Column="26" TopLine="270"/>
    745748      </Position27>
    746749      <Position28>
    747750        <Filename Value="UProject.pas"/>
    748         <Caret Line="244" Column="15" TopLine="225"/>
     751        <Caret Line="133" Column="28" TopLine="122"/>
    749752      </Position28>
    750753      <Position29>
    751754        <Filename Value="UProject.pas"/>
    752         <Caret Line="321" Column="24" TopLine="305"/>
     755        <Caret Line="136" Column="35" TopLine="122"/>
    753756      </Position29>
    754757      <Position30>
    755758        <Filename Value="UProject.pas"/>
    756         <Caret Line="256" Column="3" TopLine="250"/>
     759        <Caret Line="179" Column="55" TopLine="173"/>
    757760      </Position30>
    758761    </JumpHistory>
    … …  
    793796    </Linking>
    794797    <Other>
     798      <CompilerMessages>
     799        <UseMsgFile Value="True"/>
     800      </CompilerMessages>
    795801      <CompilerPath Value="$(CompPath)"/>
    796802    </Other>
    797803  </CompilerOptions>
    798804  <Debugging>
    799     <BreakPoints Count="2">
    800       <Item1>
    801         <Source Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    802         <Line Value="849"/>
    803       </Item1>
    804       <Item2>
    805         <Source Value="Forms\UMainForm.pas"/>
    806         <Line Value="301"/>
    807       </Item2>
    808     </BreakPoints>
    809805    <Exceptions Count="3">
    810806      <Item1>

  • trunk/IDE/Transpascal.lpr

    r10 r23  
    1818  HeapTraceLog = 'heaptrclog.trc';
    1919begin
     20  Application.Title:='Transpascal IDE';
    2021  // Heap trace
    2122  DeleteFile(ExtractFilePath(ParamStr(0)) + HeapTraceLog);

  • trunk/IDE/UProject.pas

    r21 r23  
    125125  NewNode: TDOMNode;
    126126begin
     127  TDOMElement(Node).SetAttribute('Name', UTF8Decode(Name));
    127128  inherited SaveToXMLNode(Node);
    128129  with Node do begin
    129     NewNode := OwnerDocument.CreateElement('File');
     130    NewNode := OwnerDocument.CreateElement('Folder');
    130131    TDOMElement(NewNode).SetAttribute('Name', UTF8Decode(Name));
    131     TDOMElement(NewNode).SetAttribute('Type', 'File');
    132132    AppendChild(NewNode);
    133133  end;
    … …  
    171171
    172172procedure TProjectFile.SaveToXMLNode(Node: TDOMNode);
     173var
     174  NewNode: TDOMNode;
    173175begin
    174176  inherited SaveToXMLNode(Node);
     177  with Node do begin
     178    NewNode := OwnerDocument.CreateElement('File');
     179    TDOMElement(NewNode).SetAttribute('Name', UTF8Decode(Name));
     180    AppendChild(NewNode);
     181  end;
    175182  Save;
    176183end;
    … …  
    235242    Clear;
    236243    RootDir := ExtractFileDir(FileName) + '/';
     244    //NewNode := Doc.DocumentElement.FindNode('Files');
    237245    Name := ExtractFileName(FileName);
    238246    Name := Copy(Name, 1, Length(Name) - Length(ExtractFileExt(FileName)));
    … …  
    240248    ReadXMLFile(Doc, UTF8Decode(FileName));
    241249
    242     NewNode := Doc.DocumentElement.FindNode('Files');
     250    NewNode := Doc.DocumentElement.FindNode('Folder');
    243251    if Assigned(NewNode) then
    244252      LoadFromXMLNode(NewNode);
    … …  
    257265  Child := Node.FirstChild;
    258266  while Assigned(Child) do begin
    259     NodeType := TDOMElement(Child).GetAttribute('Type');
    260     if NodeType = 'Folder' then
     267    if Child.NodeName = 'Folder' then
    261268      ProjectNode := TProjectGroup.Create
    262     else if NodeType = 'File' then
     269    else if Child.NodeName = 'File' then
    263270      ProjectNode := TProjectFile.Create
    264271    else ProjectNode := nil;
    … …  
    287294    AppendChild(RootNode);
    288295    with RootNode do begin
    289       NewNode := OwnerDocument.CreateElement('Files');
    290       SaveToXMLNode(NewNode);
    291296    end;
     297    SaveToXMLNode(RootNode);
    292298    WriteXMLFile(Doc, UTF8Decode(FileName));
    293299  finally
Note: See TracChangeset for help on using the changeset viewer.