Changeset 7


Ignore:
Timestamp:
Feb 4, 2011, 1:16:43 PM (14 years ago)
Author:
chronos
Message:
 
Location:
trunk
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UInstanceOptions.pas

    r6 r7  
    108108
    109109  Edit1.Text := Instance.Name;
    110   if Assigned(Instance.FPCSource) then
    111     Edit2.Text := Instance.FPCSource.GetName
     110  FPCSource := Instance.FPCSource;
     111  IDESource := Instance.IDESource;
     112  if Assigned(FPCSource) then
     113    Edit2.Text := FPCSource.GetName
    112114    else Edit2.Text := '';
    113   if Assigned(Instance.IDESource) then
    114     Edit3.Text := Instance.IDESource.GetName
     115  if Assigned(IDESource) then
     116    Edit3.Text := IDESource.GetName
    115117    else Edit3.Text := '';
    116118end;

  • trunk/Forms/UMainForm.lfm

    r6 r7  
    11object MainForm: TMainForm
    2   Left = 234
    3   Height = 380
    4   Top = 123
     2  Left = 203
     3  Height = 418
     4  Top = 88
    55  Width = 677
    66  Caption = 'Free Pascal Manager'
    7   ClientHeight = 380
     7  ClientHeight = 418
    88  ClientWidth = 677
    99  OnCreate = FormCreate
    … …  
    1313  object ListView1: TListView
    1414    Left = 8
    15     Height = 318
     15    Height = 311
    1616    Top = 24
    17     Width = 658
     17    Width = 666
    1818    Anchors = [akTop, akLeft, akRight, akBottom]
    1919    Columns = <   
    … …  
    5656    Left = 8
    5757    Height = 25
    58     Top = 350
     58    Top = 343
    5959    Width = 64
    6060    Action = AAdd
    … …  
    6565    Left = 80
    6666    Height = 25
    67     Top = 350
     67    Top = 343
    6868    Width = 67
    6969    Action = ARemove
    … …  
    7474    Left = 152
    7575    Height = 25
    76     Top = 350
     76    Top = 343
    7777    Width = 56
    7878    Action = AStart
    … …  
    8484    Left = 296
    8585    Height = 25
    86     Top = 350
     86    Top = 343
    8787    Width = 64
    8888    Action = AUpdate
    … …  
    9393    Left = 440
    9494    Height = 25
    95     Top = 350
     95    Top = 343
    9696    Width = 59
    9797    Action = AEdit
    … …  
    102102    Left = 368
    103103    Height = 25
    104     Top = 350
     104    Top = 343
    105105    Width = 64
    106106    Action = ACompile
    … …  
    111111    Left = 216
    112112    Height = 25
    113     Top = 350
     113    Top = 343
    114114    Width = 72
    115115    Action = ADownload
    … …  
    118118  end
    119119  object Options: TButton
    120     Left = 591
    121     Height = 25
    122     Top = 350
     120    Left = 8
     121    Height = 25
     122    Top = 387
    123123    Width = 75
    124124    Action = AOptions
     125    Anchors = [akLeft, akBottom]
     126    TabOrder = 8
     127  end
     128  object Bevel1: TBevel
     129    Left = 8
     130    Height = 3
     131    Top = 375
     132    Width = 664
     133    Anchors = [akLeft, akRight, akBottom]
     134  end
     135  object Button7: TButton
     136    Left = 93
     137    Height = 25
     138    Top = 387
     139    Width = 75
     140    Action = ASourceList
    125141    Anchors = [akRight, akBottom]
    126     TabOrder = 8
     142    TabOrder = 9
    127143  end
    128144  object ActionList1: TActionList
    … …  
    161177      OnExecute = AOptionsExecute
    162178    end
     179    object ASourceList: TAction
     180      Caption = 'Source list'
     181      OnExecute = ASourceListExecute
     182    end
    163183  end
    164184  object PopupMenu1: TPopupMenu

  • trunk/Forms/UMainForm.pas

    r6 r7  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    9   StdCtrls, ActnList, Menus, Contnrs, USource, UInstance, UInstanceOptions,
    10   DOM, XMLWrite, XMLRead, HTTPSend, UMainOptions;
     9  StdCtrls, ActnList, Menus, ExtCtrls, Contnrs, USource, UInstance,
     10  UInstanceOptions, DOM, XMLWrite, XMLRead, HTTPSend, UMainOptions,
     11  USourceSelection;
    1112
    1213const
    … …  
    2324    AAdd: TAction;
    2425    ACompile: TAction;
     26    ASourceList: TAction;
    2527    AOptions: TAction;
    2628    AUpdate: TAction;
    … …  
    3032    ADownload: TAction;
    3133    ActionList1: TActionList;
     34    Bevel1: TBevel;
    3235    Button1: TButton;
    3336    Button2: TButton;
    … …  
    3538    Button4: TButton;
    3639    Button5: TButton;
     40    Button7: TButton;
    3741    Options: TButton;
    3842    ButtonEdit: TButton;
    … …  
    5256    procedure AOptionsExecute(Sender: TObject);
    5357    procedure ARemoveExecute(Sender: TObject);
     58    procedure ASourceListExecute(Sender: TObject);
    5459    procedure AStartExecute(Sender: TObject);
    5560    procedure ADownloadExecute(Sender: TObject);
    … …  
    150155end;
    151156
     157procedure TMainForm.ASourceListExecute(Sender: TObject);
     158begin
     159  SourceSelectionForm.ProjectType := '';
     160  SourceSelectionForm.ShowModal;
     161end;
     162
    152163procedure TMainForm.AStartExecute(Sender: TObject);
    153164begin
    … …  
    270281    Instances.Clear;
    271282    Sources.Clear;
     283    NewNode := Doc.DocumentElement.FindNode('Platform');
     284    if Assigned(NewNode) then
     285      Platform := UTF8Encode(string(NewNode.TextContent));
     286    NewNode := Doc.DocumentElement.FindNode('TemplateDir');
     287    if Assigned(NewNode) then
     288      TemplateDir := UTF8Encode(string(NewNode.TextContent));
     289    NewNode := Doc.DocumentElement.FindNode('SubversionDir');
     290    if Assigned(NewNode) then
     291      SubversionDir := UTF8Encode(string(NewNode.TextContent));
     292    NewNode := Doc.DocumentElement.FindNode('SubversionDir');
     293    if Assigned(NewNode) then
     294      SubversionDir := UTF8Encode(string(NewNode.TextContent));
     295    NewNode := Doc.DocumentElement.FindNode('InstanceDir');
     296    if Assigned(NewNode) then
     297      InstanceDir := UTF8Encode(string(NewNode.TextContent));
     298    NewNode := Doc.DocumentElement.FindNode('SourceURL');
     299    if Assigned(NewNode) then
     300      SourceURL := UTF8Encode(string(NewNode.TextContent));
    272301
    273302    NewNode := Doc.DocumentElement.FindNode('Sources');
    … …  
    361390    AppendChild(RootNode);
    362391    with RootNode do begin
     392      NewNode := OwnerDocument.CreateElement('Platform');
     393      NewNode.TextContent := UTF8Decode(Platform);
     394      AppendChild(NewNode);
     395      NewNode := OwnerDocument.CreateElement('TemplateDir');
     396      NewNode.TextContent := UTF8Decode(TemplateDir);
     397      AppendChild(NewNode);
     398      NewNode := OwnerDocument.CreateElement('SubversionDir');
     399      NewNode.TextContent := UTF8Decode(SubversionDir);
     400      AppendChild(NewNode);
     401      NewNode := OwnerDocument.CreateElement('SourceDir');
     402      NewNode.TextContent := UTF8Decode(SourceDir);
     403      AppendChild(NewNode);
     404      NewNode := OwnerDocument.CreateElement('InstanceDir');
     405      NewNode.TextContent := UTF8Decode(InstanceDir);
     406      AppendChild(NewNode);
     407      NewNode := OwnerDocument.CreateElement('SourceURL');
     408      NewNode.TextContent := UTF8Decode(SourceURL);
     409      AppendChild(NewNode);
     410
    363411      NewNode := OwnerDocument.CreateElement('Sources');
    364412      with NewNode do

  • trunk/Forms/UMainOptions.lfm

    r6 r7  
    11object MainOptionsForm: TMainOptionsForm
    2   Left = 233
     2  Left = 320
    33  Height = 350
    4   Top = 73
    5   Width = 635
     4  Top = 81
     5  Width = 489
    66  Caption = 'Options'
    77  ClientHeight = 350
    8   ClientWidth = 635
     8  ClientWidth = 489
    99  OnShow = FormShow
    1010  LCLVersion = '0.9.31'
    1111  object Button1: TButton
    12     Left = 464
     12    Left = 318
    1313    Height = 25
    1414    Top = 316
    1515    Width = 75
    16     Anchors = [akLeft, akBottom]
     16    Anchors = [akRight, akBottom]
    1717    Caption = 'Cancel'
     18    ModalResult = 2
     19    OnClick = Button1Click
    1820    TabOrder = 0
    1921  end
    2022  object Button2: TButton
    21     Left = 552
     23    Left = 406
    2224    Height = 22
    2325    Top = 319
    2426    Width = 75
    25     Anchors = [akLeft, akBottom]
     27    Anchors = [akRight, akBottom]
    2628    Caption = 'Save'
     29    ModalResult = 1
    2730    OnClick = Button2Click
    2831    TabOrder = 1
    … …  
    4043    Height = 21
    4144    Top = 24
    42     Width = 619
     45    Width = 473
    4346    Anchors = [akTop, akLeft, akRight]
    4447    TabOrder = 2
    … …  
    5659    Height = 21
    5760    Top = 64
    58     Width = 619
     61    Width = 473
    5962    Anchors = [akTop, akLeft, akRight]
    6063    TabOrder = 3
    … …  
    7275    Height = 21
    7376    Top = 104
    74     Width = 621
     77    Width = 475
    7578    Anchors = [akTop, akLeft, akRight]
    7679    TabOrder = 4
    … …  
    8891    Height = 21
    8992    Top = 144
    90     Width = 621
     93    Width = 475
    9194    Anchors = [akTop, akLeft, akRight]
    9295    TabOrder = 5

  • trunk/Forms/UMainOptions.pas

    r6 r7  
    2323    Label3: TLabel;
    2424    Label4: TLabel;
     25    procedure Button1Click(Sender: TObject);
    2526    procedure Button2Click(Sender: TObject);
    2627    procedure FormShow(Sender: TObject);
    … …  
    5960end;
    6061
     62procedure TMainOptionsForm.Button1Click(Sender: TObject);
     63begin
     64
     65end;
     66
    6167end.
    6268

  • trunk/Forms/UOperationProgress.lfm

    r6 r7  
    11object OperationProgressForm: TOperationProgressForm
    2   Left = 285
     2  Left = 369
    33  Height = 440
    4   Top = 112
     4  Top = 134
    55  Width = 562
    66  Caption = 'Operation progress'

  • trunk/Forms/USourceSelection.lfm

    r6 r7  
    2020      item
    2121        Caption = 'Name'
    22         Width = 70
     22        Width = 110
    2323      end   
    2424      item

  • trunk/Forms/USourceSelection.pas

    r6 r7  
    4949  Sources.Clear;
    5050  for I := 0 to MainForm.Sources.Count - 1 do
    51     if TSource(MainForm.Sources[I]).ProjectType = ProjectType then
     51    if (TSource(MainForm.Sources[I]).ProjectType = ProjectType) or
     52    (ProjectType = '') then
    5253      Sources.Add(MainForm.Sources[I]);
    5354  if ListView1.Items.Count <> Sources.Count then

  • trunk/FreePascalManager.lpi

    r6 r7  
    4646        <TopLine Value="1"/>
    4747        <CursorPos X="1" Y="15"/>
    48         <UsageCount Value="114"/>
     48        <UsageCount Value="116"/>
    4949      </Unit0>
    5050      <Unit1>
    … …  
    5656        <EditorIndex Value="0"/>
    5757        <WindowIndex Value="0"/>
    58         <TopLine Value="1"/>
    59         <CursorPos X="3" Y="16"/>
    60         <UsageCount Value="114"/>
     58        <TopLine Value="279"/>
     59        <CursorPos X="35" Y="294"/>
     60        <UsageCount Value="116"/>
    6161        <Loaded Value="True"/>
    6262        <LoadedDesigner Value="True"/>
    … …  
    7070        <EditorIndex Value="2"/>
    7171        <WindowIndex Value="0"/>
    72         <TopLine Value="48"/>
    73         <CursorPos X="27" Y="55"/>
    74         <UsageCount Value="114"/>
     72        <TopLine Value="96"/>
     73        <CursorPos X="36" Y="108"/>
     74        <UsageCount Value="116"/>
    7575        <Loaded Value="True"/>
    7676        <LoadedDesigner Value="True"/>
    … …  
    8080        <IsPartOfProject Value="True"/>
    8181        <UnitName Value="UInstance"/>
     82        <IsVisibleTab Value="True"/>
    8283        <EditorIndex Value="5"/>
    8384        <WindowIndex Value="0"/>
    84         <TopLine Value="8"/>
    85         <CursorPos X="20" Y="21"/>
    86         <UsageCount Value="114"/>
     85        <TopLine Value="75"/>
     86        <CursorPos X="1" Y="80"/>
     87        <UsageCount Value="116"/>
    8788        <Loaded Value="True"/>
    8889      </Unit3>
    … …  
    9192        <IsPartOfProject Value="True"/>
    9293        <UnitName Value="USource"/>
    93         <IsVisibleTab Value="True"/>
    9494        <EditorIndex Value="11"/>
    9595        <WindowIndex Value="0"/>
    9696        <TopLine Value="6"/>
    9797        <CursorPos X="8" Y="19"/>
    98         <UsageCount Value="114"/>
     98        <UsageCount Value="116"/>
    9999        <Loaded Value="True"/>
    100100      </Unit4>
    … …  
    105105        <TopLine Value="616"/>
    106106        <CursorPos X="40" Y="638"/>
    107         <UsageCount Value="11"/>
     107        <UsageCount Value="12"/>
    108108        <Loaded Value="True"/>
    109109      </Unit5>
    … …  
    114114        <TopLine Value="34"/>
    115115        <CursorPos X="20" Y="47"/>
    116         <UsageCount Value="7"/>
     116        <UsageCount Value="6"/>
    117117      </Unit6>
    118118      <Unit7>
    … …  
    122122        <TopLine Value="253"/>
    123123        <CursorPos X="14" Y="266"/>
    124         <UsageCount Value="24"/>
     124        <UsageCount Value="23"/>
    125125      </Unit7>
    126126      <Unit8>
    … …  
    130130        <TopLine Value="749"/>
    131131        <CursorPos X="3" Y="753"/>
    132         <UsageCount Value="22"/>
     132        <UsageCount Value="21"/>
    133133      </Unit8>
    134134      <Unit9>
    … …  
    137137        <TopLine Value="58"/>
    138138        <CursorPos X="72" Y="81"/>
    139         <UsageCount Value="13"/>
     139        <UsageCount Value="12"/>
    140140        <DefaultSyntaxHighlighter Value="XML"/>
    141141      </Unit9>
    … …  
    145145        <TopLine Value="1"/>
    146146        <CursorPos X="46" Y="49"/>
    147         <UsageCount Value="11"/>
     147        <UsageCount Value="10"/>
    148148        <DefaultSyntaxHighlighter Value="XML"/>
    149149      </Unit10>
    … …  
    154154        <TopLine Value="67"/>
    155155        <CursorPos X="17" Y="80"/>
    156         <UsageCount Value="22"/>
     156        <UsageCount Value="21"/>
    157157      </Unit11>
    158158      <Unit12>
    … …  
    161161        <TopLine Value="2639"/>
    162162        <CursorPos X="1" Y="2660"/>
    163         <UsageCount Value="10"/>
     163        <UsageCount Value="9"/>
    164164      </Unit12>
    165165      <Unit13>
    … …  
    169169        <TopLine Value="594"/>
    170170        <CursorPos X="14" Y="607"/>
    171         <UsageCount Value="5"/>
     171        <UsageCount Value="4"/>
    172172      </Unit13>
    173173      <Unit14>
    … …  
    181181        <TopLine Value="43"/>
    182182        <CursorPos X="3" Y="58"/>
    183         <UsageCount Value="70"/>
     183        <UsageCount Value="72"/>
    184184        <Loaded Value="True"/>
    185185        <LoadedDesigner Value="True"/>
    … …  
    191191        <TopLine Value="110"/>
    192192        <CursorPos X="33" Y="123"/>
    193         <UsageCount Value="31"/>
     193        <UsageCount Value="30"/>
    194194      </Unit15>
    195195      <Unit16>
    … …  
    199199        <TopLine Value="18"/>
    200200        <CursorPos X="16" Y="39"/>
    201         <UsageCount Value="6"/>
     201        <UsageCount Value="5"/>
    202202      </Unit16>
    203203      <Unit17>
    … …  
    206206        <TopLine Value="248"/>
    207207        <CursorPos X="3" Y="269"/>
    208         <UsageCount Value="6"/>
     208        <UsageCount Value="5"/>
    209209      </Unit17>
    210210      <Unit18>
    … …  
    214214        <TopLine Value="443"/>
    215215        <CursorPos X="3" Y="441"/>
    216         <UsageCount Value="11"/>
     216        <UsageCount Value="12"/>
    217217        <Loaded Value="True"/>
    218218      </Unit18>
    … …  
    223223        <TopLine Value="906"/>
    224224        <CursorPos X="16" Y="919"/>
    225         <UsageCount Value="6"/>
     225        <UsageCount Value="5"/>
    226226      </Unit19>
    227227      <Unit20>
    … …  
    231231        <TopLine Value="38"/>
    232232        <CursorPos X="3" Y="51"/>
    233         <UsageCount Value="5"/>
     233        <UsageCount Value="4"/>
    234234      </Unit20>
    235235      <Unit21>
    … …  
    239239        <WindowIndex Value="0"/>
    240240        <TopLine Value="1"/>
    241         <CursorPos X="15" Y="12"/>
    242         <UsageCount Value="68"/>
     241        <CursorPos X="6" Y="22"/>
     242        <UsageCount Value="70"/>
    243243        <Loaded Value="True"/>
    244244        <DefaultSyntaxHighlighter Value="None"/>
    … …  
    251251        <TopLine Value="254"/>
    252252        <CursorPos X="10" Y="265"/>
    253         <UsageCount Value="11"/>
     253        <UsageCount Value="12"/>
    254254        <Loaded Value="True"/>
    255255      </Unit22>
    … …  
    260260        <TopLine Value="785"/>
    261261        <CursorPos X="22" Y="993"/>
    262         <UsageCount Value="30"/>
     262        <UsageCount Value="29"/>
    263263      </Unit23>
    264264      <Unit24>
    … …  
    270270        <EditorIndex Value="1"/>
    271271        <WindowIndex Value="0"/>
    272         <TopLine Value="22"/>
    273         <CursorPos X="17" Y="57"/>
    274         <UsageCount Value="61"/>
     272        <TopLine Value="43"/>
     273        <CursorPos X="22" Y="57"/>
     274        <UsageCount Value="63"/>
    275275        <Loaded Value="True"/>
    276276        <LoadedDesigner Value="True"/>
    … …  
    282282        <TopLine Value="144"/>
    283283        <CursorPos X="1" Y="157"/>
    284         <UsageCount Value="10"/>
     284        <UsageCount Value="9"/>
    285285      </Unit25>
    286286      <Unit26>
    … …  
    289289        <TopLine Value="2676"/>
    290290        <CursorPos X="1" Y="2689"/>
    291         <UsageCount Value="11"/>
     291        <UsageCount Value="10"/>
    292292      </Unit26>
    293293      <Unit27>
    … …  
    296296        <TopLine Value="376"/>
    297297        <CursorPos X="1" Y="389"/>
    298         <UsageCount Value="10"/>
     298        <UsageCount Value="9"/>
    299299      </Unit27>
    300300      <Unit28>
    … …  
    320320        <EditorIndex Value="4"/>
    321321        <WindowIndex Value="0"/>
    322         <TopLine Value="18"/>
    323         <CursorPos X="34" Y="69"/>
    324         <UsageCount Value="21"/>
     322        <TopLine Value="38"/>
     323        <CursorPos X="33" Y="54"/>
     324        <UsageCount Value="24"/>
    325325        <Loaded Value="True"/>
    326326        <LoadedDesigner Value="True"/>
    … …  
    332332        <TopLine Value="760"/>
    333333        <CursorPos X="1" Y="773"/>
    334         <UsageCount Value="10"/>
     334        <UsageCount Value="11"/>
    335335        <Loaded Value="True"/>
    336336      </Unit31>
    … …  
    338338    <JumpHistory Count="30" HistoryIndex="29">
    339339      <Position1>
    340         <Filename Value="Forms\USourceSelection.pas"/>
    341         <Caret Line="62" Column="18" TopLine="49"/>
     340        <Filename Value="Forms\UInstanceOptions.pas"/>
     341        <Caret Line="112" Column="41" TopLine="92"/>
    342342      </Position1>
    343343      <Position2>
    344344        <Filename Value="Forms\UInstanceOptions.pas"/>
    345         <Caret Line="9" Column="47" TopLine="4"/>
     345        <Caret Line="86" Column="21" TopLine="65"/>
    346346      </Position2>
    347347      <Position3>
    348348        <Filename Value="Forms\UInstanceOptions.pas"/>
    349         <Caret Line="74" Column="72" TopLine="61"/>
     349        <Caret Line="62" Column="17" TopLine="51"/>
    350350      </Position3>
    351351      <Position4>
    352         <Filename Value="Forms\UInstanceOptions.pas"/>
    353         <Caret Line="73" Column="16" TopLine="60"/>
     352        <Filename Value="Forms\USourceSelection.pas"/>
     353        <Caret Line="86" Column="5" TopLine="79"/>
    354354      </Position4>
    355355      <Position5>
    356356        <Filename Value="Forms\USourceSelection.pas"/>
    357         <Caret Line="21" Column="29" TopLine="1"/>
     357        <Caret Line="29" Column="19" TopLine="16"/>
    358358      </Position5>
    359359      <Position6>
    360         <Filename Value="Forms\USourceSelection.pas"/>
    361         <Caret Line="20" Column="15" TopLine="7"/>
     360        <Filename Value="USource.pas"/>
     361        <Caret Line="29" Column="53" TopLine="21"/>
    362362      </Position6>
    363363      <Position7>
    364         <Filename Value="Forms\UInstanceOptions.pas"/>
    365         <Caret Line="81" Column="1" TopLine="68"/>
     364        <Filename Value="USource.pas"/>
     365        <Caret Line="55" Column="40" TopLine="157"/>
    366366      </Position7>
    367367      <Position8>
    368         <Filename Value="Forms\UInstanceOptions.pas"/>
    369         <Caret Line="85" Column="1" TopLine="72"/>
     368        <Filename Value="USource.pas"/>
     369        <Caret Line="19" Column="10" TopLine="7"/>
    370370      </Position8>
    371371      <Position9>
    372         <Filename Value="Forms\UInstanceOptions.pas"/>
    373         <Caret Line="59" Column="54" TopLine="52"/>
     372        <Filename Value="Forms\UMainForm.pas"/>
     373        <Caret Line="366" Column="47" TopLine="356"/>
    374374      </Position9>
    375375      <Position10>
    376         <Filename Value="Forms\UInstanceOptions.pas"/>
    377         <Caret Line="73" Column="1" TopLine="65"/>
     376        <Filename Value="Forms\UMainForm.pas"/>
     377        <Caret Line="364" Column="44" TopLine="353"/>
    378378      </Position10>
    379379      <Position11>
    380         <Filename Value="Forms\UInstanceOptions.pas"/>
    381         <Caret Line="110" Column="1" TopLine="85"/>
     380        <Filename Value="Forms\UMainForm.pas"/>
     381        <Caret Line="367" Column="42" TopLine="353"/>
    382382      </Position11>
    383383      <Position12>
    384         <Filename Value="Forms\UInstanceOptions.pas"/>
    385         <Caret Line="90" Column="1" TopLine="65"/>
     384        <Filename Value="Forms\UMainForm.pas"/>
     385        <Caret Line="370" Column="52" TopLine="354"/>
    386386      </Position12>
    387387      <Position13>
    388         <Filename Value="Forms\UInstanceOptions.pas"/>
    389         <Caret Line="74" Column="49" TopLine="62"/>
     388        <Filename Value="Forms\UMainForm.pas"/>
     389        <Caret Line="276" Column="32" TopLine="265"/>
    390390      </Position13>
    391391      <Position14>
    392         <Filename Value="Forms\UInstanceOptions.pas"/>
    393         <Caret Line="88" Column="26" TopLine="75"/>
     392        <Filename Value="Forms\UMainOptions.pas"/>
     393        <Caret Line="44" Column="44" TopLine="37"/>
    394394      </Position14>
    395395      <Position15>
    396         <Filename Value="Forms\UInstanceOptions.pas"/>
    397         <Caret Line="115" Column="33" TopLine="95"/>
     396        <Filename Value="Forms\UMainForm.pas"/>
     397        <Caret Line="389" Column="58" TopLine="378"/>
    398398      </Position15>
    399399      <Position16>
    400         <Filename Value="UInstance.pas"/>
    401         <Caret Line="21" Column="20" TopLine="8"/>
     400        <Filename Value="Forms\UMainForm.pas"/>
     401        <Caret Line="293" Column="45" TopLine="279"/>
    402402      </Position16>
    403403      <Position17>
    404         <Filename Value="USource.pas"/>
    405         <Caret Line="32" Column="27" TopLine="8"/>
     404        <Filename Value="Forms\UMainOptions.pas"/>
     405        <Caret Line="45" Column="44" TopLine="38"/>
    406406      </Position17>
    407407      <Position18>
    408         <Filename Value="Forms\UInstanceOptions.pas"/>
    409         <Caret Line="86" Column="42" TopLine="73"/>
     408        <Filename Value="Forms\UMainOptions.pas"/>
     409        <Caret Line="64" Column="3" TopLine="43"/>
    410410      </Position18>
    411411      <Position19>
    412         <Filename Value="Forms\UInstanceOptions.pas"/>
    413         <Caret Line="73" Column="43" TopLine="60"/>
     412        <Filename Value="Forms\UMainForm.pas"/>
     413        <Caret Line="268" Column="16" TopLine="258"/>
    414414      </Position19>
    415415      <Position20>
    416         <Filename Value="Forms\UInstanceOptions.pas"/>
    417         <Caret Line="86" Column="43" TopLine="73"/>
     416        <Filename Value="Forms\UMainForm.pas"/>
     417        <Caret Line="269" Column="16" TopLine="259"/>
    418418      </Position20>
    419419      <Position21>
    420         <Filename Value="USource.pas"/>
    421         <Caret Line="32" Column="17" TopLine="19"/>
     420        <Filename Value="Forms\UMainForm.pas"/>
     421        <Caret Line="270" Column="16" TopLine="260"/>
    422422      </Position21>
    423423      <Position22>
    424424        <Filename Value="Forms\UMainForm.pas"/>
    425         <Caret Line="219" Column="37" TopLine="201"/>
     425        <Caret Line="277" Column="16" TopLine="267"/>
    426426      </Position22>
    427427      <Position23>
    428         <Filename Value="Forms\UInstanceOptions.pas"/>
    429         <Caret Line="112" Column="41" TopLine="92"/>
     428        <Filename Value="Forms\UMainForm.pas"/>
     429        <Caret Line="158" Column="19" TopLine="156"/>
    430430      </Position23>
    431431      <Position24>
    432         <Filename Value="Forms\UInstanceOptions.pas"/>
    433         <Caret Line="86" Column="21" TopLine="65"/>
     432        <Filename Value="Forms\UMainForm.pas"/>
     433        <Caret Line="11" Column="19" TopLine="1"/>
    434434      </Position24>
    435435      <Position25>
    436         <Filename Value="Forms\UInstanceOptions.pas"/>
    437         <Caret Line="62" Column="17" TopLine="51"/>
     436        <Filename Value="Forms\UMainForm.pas"/>
     437        <Caret Line="159" Column="24" TopLine="146"/>
    438438      </Position25>
    439439      <Position26>
    440440        <Filename Value="Forms\USourceSelection.pas"/>
    441         <Caret Line="86" Column="5" TopLine="79"/>
     441        <Caret Line="54" Column="33" TopLine="38"/>
    442442      </Position26>
    443443      <Position27>
    444         <Filename Value="Forms\USourceSelection.pas"/>
    445         <Caret Line="29" Column="19" TopLine="16"/>
     444        <Filename Value="Forms\UMainForm.pas"/>
     445        <Caret Line="294" Column="35" TopLine="279"/>
    446446      </Position27>
    447447      <Position28>
    448         <Filename Value="USource.pas"/>
    449         <Caret Line="29" Column="53" TopLine="21"/>
     448        <Filename Value="UInstance.pas"/>
     449        <Caret Line="90" Column="25" TopLine="75"/>
    450450      </Position28>
    451451      <Position29>
    452         <Filename Value="USource.pas"/>
    453         <Caret Line="55" Column="40" TopLine="157"/>
     452        <Filename Value="UInstance.pas"/>
     453        <Caret Line="80" Column="1" TopLine="75"/>
    454454      </Position29>
    455455      <Position30>
    456         <Filename Value="USource.pas"/>
    457         <Caret Line="19" Column="10" TopLine="7"/>
     456        <Filename Value="UInstance.pas"/>
     457        <Caret Line="91" Column="51" TopLine="75"/>
    458458      </Position30>
    459459    </JumpHistory>
    … …  
    496496  </CompilerOptions>
    497497  <Debugging>
    498     <BreakPoints Count="1">
    499       <Item1>
    500         <Source Value="UInstance.pas"/>
    501         <Line Value="94"/>
    502       </Item1>
    503     </BreakPoints>
    504498    <Exceptions Count="3">
    505499      <Item1>

  • trunk/ReadMe.txt

    r6 r7  
    11=FreePascalManager=
     2
     3Date: 2011-02-04
    24
    35==Features==
    … …  
    810* Can be placed to removable drive (configuration stored in XML file)
    911
     12=Dependecies=
     13
     14'''Packages:'''
     15
     16* Synapse
     17
     18'''External programs:'''
     19
     20* Subversion
     21* InnoSetup
     22
    1023=Download=
    1124
    … …  
    1326http://svn.zdechov.net/svn/FreePascalManager/trunk
    1427
    15 =Author=
     28=Contributors=
    1629
    17 Email: robie@centrum.cz (Chronos)
     30* Chronos (robie@centrum.cz)
    1831
    1932

  • trunk/UInstance.pas

    r6 r7  
    7878procedure TInstance.Build;
    7979begin
    80   (*OperationProgressForm.Environment := 'path=' + MainForm.GetBinUtilsDir;
     80  OperationProgressForm.Environment := 'path=' + MainForm.GetBinUtilsDir;
    8181  OperationProgressForm.Path := GetPath + DirectorySeparator + FPCSource.ProjectShortName;
    82   OperationProgressForm.CommandLine := 'make all PP="' +
     82  OperationProgressForm.CommandLine := 'make clean all PP="' +
    8383    MainForm.GetBinUtilsDir + DirectorySeparator + 'fpc"';
    8484  OperationProgressForm.ShowModal;
    … …  
    9090    ' PP="' + MainForm.GetBinUtilsDir + DirectorySeparator + 'fpc"';
    9191  OperationProgressForm.ShowModal;
    92   *)
    9392
    9493  if Assigned(IDESource) then begin
Note: See TracChangeset for help on using the changeset viewer.