Changeset 316 for ModularSystem/Demo
- Timestamp:
- Jan 19, 2012, 7:34:30 PM (13 years ago)
- Location:
- ModularSystem/Demo
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
ModularSystem/Demo
- Property svn:ignore
-
old new 1 1 lib 2 2 project1.exe 3 project1
-
- Property svn:ignore
-
ModularSystem/Demo/UMainForm.lfm
r314 r316 31 31 item 32 32 Caption = 'Dependencies' 33 Width = 1 5033 Width = 162 34 34 end> 35 35 OwnerData = True 36 PopupMenu = PopupMenu1 36 37 RowSelect = True 37 38 TabOrder = 0 … … 45 46 Top = 281 46 47 Width = 75 48 Action = AModuleInstall 47 49 Anchors = [akLeft, akBottom] 48 Caption = 'Install'49 Enabled = False50 OnClick = ButtonInstallClick51 50 TabOrder = 1 52 51 end … … 56 55 Top = 281 57 56 Width = 75 57 Action = AModuleUninstall 58 58 Anchors = [akLeft, akBottom] 59 Caption = 'Uninstall'60 Enabled = False61 OnClick = ButtonUninstallClick62 59 TabOrder = 2 63 60 end … … 67 64 Top = 281 68 65 Width = 75 66 Action = AModuleUpdate 69 67 Anchors = [akLeft, akBottom] 70 Caption = 'Update'71 Enabled = False72 OnClick = ButtonUpdateClick73 68 TabOrder = 3 74 69 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 75 99 end -
ModularSystem/Demo/UMainForm.pas
r314 r316 7 7 uses 8 8 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls, 9 StdCtrls, UModularSystem, UModuleUser, UModuleBase;9 StdCtrls, Menus, ActnList, UModularSystem, UModuleUser, UModuleBase; 10 10 11 11 type … … 15 15 TMainForm = class(TForm) 16 16 published 17 AModuleInstall: TAction; 18 AModuleUninstall: TAction; 19 AModuleUpdate: TAction; 20 ActionList1: TActionList; 17 21 ButtonUpdate: TButton; 18 22 ButtonUninstall: TButton; 19 23 ButtonInstall: TButton; 20 24 ListViewModules: TListView; 25 MenuItem1: TMenuItem; 26 MenuItem2: TMenuItem; 27 MenuItem3: TMenuItem; 28 PopupMenu1: TPopupMenu; 21 29 procedure ButtonInstallClick(Sender: TObject); 22 30 procedure ButtonUninstallClick(Sender: TObject); … … 64 72 Installed: Boolean; 65 73 begin 66 if Assigned( Item) then Installed := TModule(Item.Data).Installed;67 ButtonInstall.Enabled := Selectedand not Installed;68 ButtonUninstall.Enabled := Selectedand Installed;69 ButtonUpdate.Enabled := Selectedand 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; 70 78 end; 71 79 -
ModularSystem/Demo/project1.lpi
r314 r316 28 28 <local> 29 29 <FormatVersion Value="1"/> 30 <LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/> 30 31 </local> 31 32 </RunParams> … … 93 94 </Linking> 94 95 <Other> 95 <CompilerMessages>96 <MsgFileName Value=""/>97 </CompilerMessages>98 96 <CompilerPath Value="$(CompPath)"/> 99 97 </Other> -
ModularSystem/Demo/project1.lps
r314 r316 5 5 <Version Value="9"/> 6 6 <BuildModes Active="Default"/> 7 <Units Count=" 9">7 <Units Count="10"> 8 8 <Unit0> 9 9 <Filename Value="project1.lpr"/> 10 10 <IsPartOfProject Value="True"/> 11 11 <UnitName Value="project1"/> 12 <UsageCount Value="2 4"/>12 <UsageCount Value="29"/> 13 13 </Unit0> 14 14 <Unit1> … … 18 18 <ResourceBaseClass Value="Form"/> 19 19 <UnitName Value="UMainForm"/> 20 <IsVisibleTab Value="True"/> 20 21 <EditorIndex Value="0"/> 21 22 <WindowIndex Value="0"/> 22 <TopLine Value=" 106"/>23 <CursorPos X=" 50" Y="117"/>24 <UsageCount Value="2 4"/>23 <TopLine Value="59"/> 24 <CursorPos X="40" Y="69"/> 25 <UsageCount Value="29"/> 25 26 <Loaded Value="True"/> 26 27 <LoadedDesigner Value="True"/> 27 28 </Unit1> 28 29 <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> 29 63 <Filename Value="UModularSystem.pas"/> 30 64 <UnitName Value="UModularSystem"/> … … 33 67 <CursorPos X="66" Y="106"/> 34 68 <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> 59 71 <Filename Value="H:\Lazarus\0.9.31_2.6.0\lcl\include\control.inc"/> 60 72 <WindowIndex Value="0"/> … … 62 74 <CursorPos X="1" Y="3352"/> 63 75 <UsageCount Value="10"/> 64 </Unit 5>65 <Unit 6>76 </Unit6> 77 <Unit7> 66 78 <Filename Value="H:\Lazarus\0.9.31_2.6.0\lcl\include\customlistview.inc"/> 67 <EditorIndex Value="3"/>68 79 <WindowIndex Value="0"/> 69 80 <TopLine Value="984"/> 70 81 <CursorPos X="1" Y="1003"/> 71 82 <UsageCount Value="10"/> 72 <Loaded Value="True"/> 73 </Unit6> 74 <Unit7> 83 </Unit7> 84 <Unit8> 75 85 <Filename Value="H:\Lazarus\0.9.31_2.6.0\lcl\dialogs.pp"/> 76 86 <UnitName Value="Dialogs"/> 77 <EditorIndex Value="2"/>78 87 <WindowIndex Value="0"/> 79 88 <TopLine Value="487"/> 80 89 <CursorPos X="10" Y="500"/> 81 90 <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"/> 89 94 <EditorIndex Value="1"/> 90 95 <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"/> 94 99 <Loaded Value="True"/> 95 </Unit 8>100 </Unit9> 96 101 </Units> 97 102 <General> 98 103 <ActiveWindowIndexAtStart Value="0"/> 99 104 </General> 100 <JumpHistory Count=" 15" HistoryIndex="14">105 <JumpHistory Count="21" HistoryIndex="20"> 101 106 <Position1> 102 107 <Filename Value="UMainForm.pas"/> … … 112 117 </Position3> 113 118 <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"/> 116 121 </Position4> 117 122 <Position5> 118 <Filename Value=" H:\Lazarus\0.9.31_2.6.0\lcl\include\customlistview.inc"/>119 <Caret Line="99 7" Column="1" TopLine="984"/>123 <Filename Value="UMainForm.pas"/> 124 <Caret Line="99" Column="1" TopLine="94"/> 120 125 </Position5> 121 126 <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"/> 124 129 </Position6> 125 130 <Position7> 126 <Filename Value=" H:\Lazarus\0.9.31_2.6.0\lcl\include\customlistview.inc"/>127 <Caret Line="99 9" Column="1" TopLine="984"/>131 <Filename Value="UMainForm.pas"/> 132 <Caret Line="99" Column="1" TopLine="94"/> 128 133 </Position7> 129 134 <Position8> 130 <Filename Value=" H:\Lazarus\0.9.31_2.6.0\lcl\include\customlistview.inc"/>131 <Caret Line="1 003" Column="1" TopLine="984"/>135 <Filename Value="UMainForm.pas"/> 136 <Caret Line="120" Column="77" TopLine="98"/> 132 137 </Position8> 133 138 <Position9> 134 139 <Filename Value="UMainForm.pas"/> 135 <Caret Line="1 01" Column="1" TopLine="94"/>140 <Caret Line="121" Column="38" TopLine="98"/> 136 141 </Position9> 137 142 <Position10> 138 143 <Filename Value="UMainForm.pas"/> 139 <Caret Line=" 99" Column="1" TopLine="94"/>144 <Caret Line="112" Column="32" TopLine="106"/> 140 145 </Position10> 141 146 <Position11> 142 147 <Filename Value="UMainForm.pas"/> 143 <Caret Line=" 100" Column="1" TopLine="94"/>148 <Caret Line="66" Column="1" TopLine="59"/> 144 149 </Position11> 145 150 <Position12> 146 151 <Filename Value="UMainForm.pas"/> 147 <Caret Line=" 99" Column="1" TopLine="94"/>152 <Caret Line="67" Column="1" TopLine="59"/> 148 153 </Position12> 149 154 <Position13> 150 155 <Filename Value="UMainForm.pas"/> 151 <Caret Line=" 120" Column="77" TopLine="98"/>156 <Caret Line="68" Column="1" TopLine="59"/> 152 157 </Position13> 153 158 <Position14> 154 159 <Filename Value="UMainForm.pas"/> 155 <Caret Line=" 121" Column="38" TopLine="98"/>160 <Caret Line="69" Column="1" TopLine="59"/> 156 161 </Position14> 157 162 <Position15> 158 163 <Filename Value="UMainForm.pas"/> 159 <Caret Line=" 112" Column="32" TopLine="106"/>164 <Caret Line="70" Column="1" TopLine="59"/> 160 165 </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> 161 190 </JumpHistory> 162 191 </ProjectSession>
Note:
See TracChangeset
for help on using the changeset viewer.