Changeset 316 for ModularSystem


Ignore:
Timestamp:
Jan 19, 2012, 7:34:30 PM (12 years ago)
Author:
chronos
Message:
Location:
ModularSystem/Demo
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • ModularSystem/Demo

    • Property svn:ignore

      •  

        old new  
        11lib
        22project1.exe
         3project1

  • ModularSystem/Demo/UMainForm.lfm

    r314 r316  
    3131      item
    3232        Caption = 'Dependencies'
    33         Width = 150
     33        Width = 162
    3434      end>
    3535    OwnerData = True
     36    PopupMenu = PopupMenu1
    3637    RowSelect = True
    3738    TabOrder = 0
    … …  
    4546    Top = 281
    4647    Width = 75
     48    Action = AModuleInstall
    4749    Anchors = [akLeft, akBottom]
    48     Caption = 'Install'
    49     Enabled = False
    50     OnClick = ButtonInstallClick
    5150    TabOrder = 1
    5251  end
    … …  
    5655    Top = 281
    5756    Width = 75
     57    Action = AModuleUninstall
    5858    Anchors = [akLeft, akBottom]
    59     Caption = 'Uninstall'
    60     Enabled = False
    61     OnClick = ButtonUninstallClick
    6259    TabOrder = 2
    6360  end
    … …  
    6764    Top = 281
    6865    Width = 75
     66    Action = AModuleUpdate
    6967    Anchors = [akLeft, akBottom]
    70     Caption = 'Update'
    71     Enabled = False
    72     OnClick = ButtonUpdateClick
    7368    TabOrder = 3
    7469  end
     70  object PopupMenu1: TPopupMenu
     71    left = 183
     72    top = 67
     73    object MenuItem1: TMenuItem
     74      Action = AModuleInstall
     75    end
     76    object MenuItem2: TMenuItem
     77      Action = AModuleUninstall
     78    end
     79    object MenuItem3: TMenuItem
     80      Action = AModuleUpdate
     81    end
     82  end
     83  object ActionList1: TActionList
     84    left = 137
     85    top = 165
     86    object AModuleInstall: TAction
     87      Caption = 'Install'
     88      OnExecute = ButtonInstallClick
     89    end
     90    object AModuleUninstall: TAction
     91      Caption = 'Uninstall'
     92      OnExecute = ButtonUninstallClick
     93    end
     94    object AModuleUpdate: TAction
     95      Caption = 'Update'
     96      OnExecute = ButtonUpdateClick
     97    end
     98  end
    7599end

  • ModularSystem/Demo/UMainForm.pas

    r314 r316  
    77uses
    88  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    9   StdCtrls, UModularSystem, UModuleUser, UModuleBase;
     9  StdCtrls, Menus, ActnList, UModularSystem, UModuleUser, UModuleBase;
    1010
    1111type
    … …  
    1515  TMainForm = class(TForm)
    1616  published
     17    AModuleInstall: TAction;
     18    AModuleUninstall: TAction;
     19    AModuleUpdate: TAction;
     20    ActionList1: TActionList;
    1721    ButtonUpdate: TButton;
    1822    ButtonUninstall: TButton;
    1923    ButtonInstall: TButton;
    2024    ListViewModules: TListView;
     25    MenuItem1: TMenuItem;
     26    MenuItem2: TMenuItem;
     27    MenuItem3: TMenuItem;
     28    PopupMenu1: TPopupMenu;
    2129    procedure ButtonInstallClick(Sender: TObject);
    2230    procedure ButtonUninstallClick(Sender: TObject);
    … …  
    6472  Installed: Boolean;
    6573begin
    66   if Assigned(Item) then Installed := TModule(Item.Data).Installed;
    67   ButtonInstall.Enabled := Selected and not Installed;
    68   ButtonUninstall.Enabled := Selected and Installed;
    69   ButtonUpdate.Enabled := Selected and Installed;
     74  if Assigned(ListViewModules.Selected) then Installed := TModule(ListViewModules.Selected.Data).Installed;
     75  AModuleInstall.Enabled := Assigned(ListViewModules.Selected) and not Installed;
     76  AModuleUninstall.Enabled := Assigned(ListViewModules.Selected) and Installed;
     77  AModuleUpdate.Enabled := Assigned(ListViewModules.Selected) and Installed;
    7078end;
    7179

  • ModularSystem/Demo/project1.lpi

    r314 r316  
    2828      <local>
    2929        <FormatVersion Value="1"/>
     30        <LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
    3031      </local>
    3132    </RunParams>
    … …  
    9394    </Linking>
    9495    <Other>
    95       <CompilerMessages>
    96         <MsgFileName Value=""/>
    97       </CompilerMessages>
    9896      <CompilerPath Value="$(CompPath)"/>
    9997    </Other>

  • ModularSystem/Demo/project1.lps

    r314 r316  
    55    <Version Value="9"/>
    66    <BuildModes Active="Default"/>
    7     <Units Count="9">
     7    <Units Count="10">
    88      <Unit0>
    99        <Filename Value="project1.lpr"/>
    1010        <IsPartOfProject Value="True"/>
    1111        <UnitName Value="project1"/>
    12         <UsageCount Value="24"/>
     12        <UsageCount Value="29"/>
    1313      </Unit0>
    1414      <Unit1>
    … …  
    1818        <ResourceBaseClass Value="Form"/>
    1919        <UnitName Value="UMainForm"/>
     20        <IsVisibleTab Value="True"/>
    2021        <EditorIndex Value="0"/>
    2122        <WindowIndex Value="0"/>
    22         <TopLine Value="106"/>
    23         <CursorPos X="50" Y="117"/>
    24         <UsageCount Value="24"/>
     23        <TopLine Value="59"/>
     24        <CursorPos X="40" Y="69"/>
     25        <UsageCount Value="29"/>
    2526        <Loaded Value="True"/>
    2627        <LoadedDesigner Value="True"/>
    2728      </Unit1>
    2829      <Unit2>
     30        <Filename Value="UModuleUser.pas"/>
     31        <IsPartOfProject Value="True"/>
     32        <UnitName Value="UModuleUser"/>
     33        <EditorIndex Value="4"/>
     34        <WindowIndex Value="0"/>
     35        <TopLine Value="11"/>
     36        <CursorPos X="27" Y="28"/>
     37        <UsageCount Value="29"/>
     38        <Loaded Value="True"/>
     39      </Unit2>
     40      <Unit3>
     41        <Filename Value="UModuleBase.pas"/>
     42        <IsPartOfProject Value="True"/>
     43        <UnitName Value="UModuleBase"/>
     44        <EditorIndex Value="3"/>
     45        <WindowIndex Value="0"/>
     46        <TopLine Value="1"/>
     47        <CursorPos X="36" Y="8"/>
     48        <UsageCount Value="27"/>
     49        <Loaded Value="True"/>
     50      </Unit3>
     51      <Unit4>
     52        <Filename Value="..\UModularSystem.pas"/>
     53        <IsPartOfProject Value="True"/>
     54        <UnitName Value="UModularSystem"/>
     55        <EditorIndex Value="2"/>
     56        <WindowIndex Value="0"/>
     57        <TopLine Value="142"/>
     58        <CursorPos X="68" Y="154"/>
     59        <UsageCount Value="25"/>
     60        <Loaded Value="True"/>
     61      </Unit4>
     62      <Unit5>
    2963        <Filename Value="UModularSystem.pas"/>
    3064        <UnitName Value="UModularSystem"/>
    … …  
    3367        <CursorPos X="66" Y="106"/>
    3468        <UsageCount Value="24"/>
    35       </Unit2>
    36       <Unit3>
    37         <Filename Value="UModuleUser.pas"/>
    38         <IsPartOfProject Value="True"/>
    39         <UnitName Value="UModuleUser"/>
    40         <EditorIndex Value="5"/>
    41         <WindowIndex Value="0"/>
    42         <TopLine Value="11"/>
    43         <CursorPos X="27" Y="28"/>
    44         <UsageCount Value="24"/>
    45         <Loaded Value="True"/>
    46       </Unit3>
    47       <Unit4>
    48         <Filename Value="UModuleBase.pas"/>
    49         <IsPartOfProject Value="True"/>
    50         <UnitName Value="UModuleBase"/>
    51         <EditorIndex Value="4"/>
    52         <WindowIndex Value="0"/>
    53         <TopLine Value="1"/>
    54         <CursorPos X="36" Y="8"/>
    55         <UsageCount Value="22"/>
    56         <Loaded Value="True"/>
    57       </Unit4>
    58       <Unit5>
     69      </Unit5>
     70      <Unit6>
    5971        <Filename Value="H:\Lazarus\0.9.31_2.6.0\lcl\include\control.inc"/>
    6072        <WindowIndex Value="0"/>
    … …  
    6274        <CursorPos X="1" Y="3352"/>
    6375        <UsageCount Value="10"/>
    64       </Unit5>
    65       <Unit6>
     76      </Unit6>
     77      <Unit7>
    6678        <Filename Value="H:\Lazarus\0.9.31_2.6.0\lcl\include\customlistview.inc"/>
    67         <EditorIndex Value="3"/>
    6879        <WindowIndex Value="0"/>
    6980        <TopLine Value="984"/>
    7081        <CursorPos X="1" Y="1003"/>
    7182        <UsageCount Value="10"/>
    72         <Loaded Value="True"/>
    73       </Unit6>
    74       <Unit7>
     83      </Unit7>
     84      <Unit8>
    7585        <Filename Value="H:\Lazarus\0.9.31_2.6.0\lcl\dialogs.pp"/>
    7686        <UnitName Value="Dialogs"/>
    77         <EditorIndex Value="2"/>
    7887        <WindowIndex Value="0"/>
    7988        <TopLine Value="487"/>
    8089        <CursorPos X="10" Y="500"/>
    8190        <UsageCount Value="10"/>
    82         <Loaded Value="True"/>
    83       </Unit7>
    84       <Unit8>
    85         <Filename Value="..\UModularSystem.pas"/>
    86         <IsPartOfProject Value="True"/>
    87         <UnitName Value="UModularSystem"/>
    88         <IsVisibleTab Value="True"/>
     91      </Unit8>
     92      <Unit9>
     93        <Filename Value="..\..\..\..\other\lazarus\lcl\include\customlistview.inc"/>
    8994        <EditorIndex Value="1"/>
    9095        <WindowIndex Value="0"/>
    91         <TopLine Value="142"/>
    92         <CursorPos X="8" Y="156"/>
    93         <UsageCount Value="20"/>
     96        <TopLine Value="434"/>
     97        <CursorPos X="24" Y="448"/>
     98        <UsageCount Value="10"/>
    9499        <Loaded Value="True"/>
    95       </Unit8>
     100      </Unit9>
    96101    </Units>
    97102    <General>
    98103      <ActiveWindowIndexAtStart Value="0"/>
    99104    </General>
    100     <JumpHistory Count="15" HistoryIndex="14">
     105    <JumpHistory Count="21" HistoryIndex="20">
    101106      <Position1>
    102107        <Filename Value="UMainForm.pas"/>
    … …  
    112117      </Position3>
    113118      <Position4>
    114         <Filename Value="H:\Lazarus\0.9.31_2.6.0\lcl\include\customlistview.inc"/>
    115         <Caret Line="977" Column="1" TopLine="964"/>
     119        <Filename Value="UMainForm.pas"/>
     120        <Caret Line="101" Column="1" TopLine="94"/>
    116121      </Position4>
    117122      <Position5>
    118         <Filename Value="H:\Lazarus\0.9.31_2.6.0\lcl\include\customlistview.inc"/>
    119         <Caret Line="997" Column="1" TopLine="984"/>
     123        <Filename Value="UMainForm.pas"/>
     124        <Caret Line="99" Column="1" TopLine="94"/>
    120125      </Position5>
    121126      <Position6>
    122         <Filename Value="H:\Lazarus\0.9.31_2.6.0\lcl\include\customlistview.inc"/>
    123         <Caret Line="998" Column="1" TopLine="984"/>
     127        <Filename Value="UMainForm.pas"/>
     128        <Caret Line="100" Column="1" TopLine="94"/>
    124129      </Position6>
    125130      <Position7>
    126         <Filename Value="H:\Lazarus\0.9.31_2.6.0\lcl\include\customlistview.inc"/>
    127         <Caret Line="999" Column="1" TopLine="984"/>
     131        <Filename Value="UMainForm.pas"/>
     132        <Caret Line="99" Column="1" TopLine="94"/>
    128133      </Position7>
    129134      <Position8>
    130         <Filename Value="H:\Lazarus\0.9.31_2.6.0\lcl\include\customlistview.inc"/>
    131         <Caret Line="1003" Column="1" TopLine="984"/>
     135        <Filename Value="UMainForm.pas"/>
     136        <Caret Line="120" Column="77" TopLine="98"/>
    132137      </Position8>
    133138      <Position9>
    134139        <Filename Value="UMainForm.pas"/>
    135         <Caret Line="101" Column="1" TopLine="94"/>
     140        <Caret Line="121" Column="38" TopLine="98"/>
    136141      </Position9>
    137142      <Position10>
    138143        <Filename Value="UMainForm.pas"/>
    139         <Caret Line="99" Column="1" TopLine="94"/>
     144        <Caret Line="112" Column="32" TopLine="106"/>
    140145      </Position10>
    141146      <Position11>
    142147        <Filename Value="UMainForm.pas"/>
    143         <Caret Line="100" Column="1" TopLine="94"/>
     148        <Caret Line="66" Column="1" TopLine="59"/>
    144149      </Position11>
    145150      <Position12>
    146151        <Filename Value="UMainForm.pas"/>
    147         <Caret Line="99" Column="1" TopLine="94"/>
     152        <Caret Line="67" Column="1" TopLine="59"/>
    148153      </Position12>
    149154      <Position13>
    150155        <Filename Value="UMainForm.pas"/>
    151         <Caret Line="120" Column="77" TopLine="98"/>
     156        <Caret Line="68" Column="1" TopLine="59"/>
    152157      </Position13>
    153158      <Position14>
    154159        <Filename Value="UMainForm.pas"/>
    155         <Caret Line="121" Column="38" TopLine="98"/>
     160        <Caret Line="69" Column="1" TopLine="59"/>
    156161      </Position14>
    157162      <Position15>
    158163        <Filename Value="UMainForm.pas"/>
    159         <Caret Line="112" Column="32" TopLine="106"/>
     164        <Caret Line="70" Column="1" TopLine="59"/>
    160165      </Position15>
     166      <Position16>
     167        <Filename Value="UMainForm.pas"/>
     168        <Caret Line="66" Column="1" TopLine="59"/>
     169      </Position16>
     170      <Position17>
     171        <Filename Value="UMainForm.pas"/>
     172        <Caret Line="67" Column="1" TopLine="59"/>
     173      </Position17>
     174      <Position18>
     175        <Filename Value="UMainForm.pas"/>
     176        <Caret Line="68" Column="1" TopLine="59"/>
     177      </Position18>
     178      <Position19>
     179        <Filename Value="UMainForm.pas"/>
     180        <Caret Line="66" Column="1" TopLine="59"/>
     181      </Position19>
     182      <Position20>
     183        <Filename Value="..\..\..\..\other\lazarus\lcl\include\customlistview.inc"/>
     184        <Caret Line="448" Column="24" TopLine="434"/>
     185      </Position20>
     186      <Position21>
     187        <Filename Value="UMainForm.pas"/>
     188        <Caret Line="67" Column="23" TopLine="59"/>
     189      </Position21>
    161190    </JumpHistory>
    162191  </ProjectSession>
Note: See TracChangeset for help on using the changeset viewer.