442 lines
12 KiB
Plaintext
442 lines
12 KiB
Plaintext
object fMain: TfMain
|
|
Left = 3490
|
|
Height = 560
|
|
Top = 0
|
|
Width = 921
|
|
Caption = 'SPackGui'
|
|
ClientHeight = 528
|
|
ClientWidth = 921
|
|
DesignTimePPI = 108
|
|
Menu = mmMenu
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
OnShow = FormShow
|
|
Position = poDesktopCenter
|
|
LCLVersion = '1.9.0.0'
|
|
object pnLeft: TPanel
|
|
Left = 0
|
|
Height = 503
|
|
Top = 0
|
|
Width = 225
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
ClientHeight = 503
|
|
ClientWidth = 225
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object clbStates: TCheckListBox
|
|
Left = 0
|
|
Height = 150
|
|
Top = 0
|
|
Width = 225
|
|
Align = alTop
|
|
Items.Strings = (
|
|
'Installed'
|
|
'Not installed'
|
|
'To upgrade'
|
|
)
|
|
ItemHeight = 26
|
|
OnClickCheck = clbStatesClickCheck
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
Data = {
|
|
03000000000000
|
|
}
|
|
end
|
|
object spHorizPanel: TSplitter
|
|
Cursor = crVSplit
|
|
Left = 0
|
|
Height = 6
|
|
Top = 150
|
|
Width = 225
|
|
Align = alTop
|
|
ResizeAnchor = akTop
|
|
end
|
|
object tvPackageTree: TTreeView
|
|
Left = 0
|
|
Height = 347
|
|
Top = 156
|
|
Width = 225
|
|
Align = alClient
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
OnClick = tvPackageTreeClick
|
|
end
|
|
end
|
|
object spVertPanel: TSplitter
|
|
Left = 225
|
|
Height = 503
|
|
Top = 0
|
|
Width = 6
|
|
end
|
|
object lvPackageList: TListView
|
|
Left = 231
|
|
Height = 503
|
|
Top = 0
|
|
Width = 690
|
|
Align = alClient
|
|
AutoSort = False
|
|
Columns = <
|
|
item
|
|
Caption = 'Package'
|
|
Width = 169
|
|
end
|
|
item
|
|
Caption = 'Version'
|
|
Width = 101
|
|
end
|
|
item
|
|
Caption = 'Last version'
|
|
Width = 101
|
|
end
|
|
item
|
|
Alignment = taRightJustify
|
|
Caption = 'Size'
|
|
Width = 101
|
|
end
|
|
item
|
|
Alignment = taRightJustify
|
|
Caption = 'Installed size'
|
|
Width = 101
|
|
end
|
|
item
|
|
Caption = 'Description'
|
|
Width = 281
|
|
end>
|
|
GridLines = True
|
|
MultiSelect = True
|
|
ParentFont = False
|
|
PopupMenu = pmPackageList
|
|
RowSelect = True
|
|
ScrollBars = ssAutoBoth
|
|
SortType = stData
|
|
TabOrder = 2
|
|
ViewStyle = vsReport
|
|
OnColumnClick = lvPackageListColumnClick
|
|
OnCompare = lvPackageListCompare
|
|
end
|
|
object sbStatusBar: TStatusBar
|
|
Left = 0
|
|
Height = 25
|
|
Top = 503
|
|
Width = 921
|
|
Panels = <>
|
|
ParentFont = False
|
|
end
|
|
object mmMenu: TMainMenu
|
|
left = 765
|
|
top = 414
|
|
object mnuFile: TMenuItem
|
|
Caption = '&File'
|
|
object mnuFileOpen: TMenuItem
|
|
Action = acFileOpen
|
|
end
|
|
object mnuFileSave: TMenuItem
|
|
Action = acFileSave
|
|
end
|
|
object mnuFileSaveAll: TMenuItem
|
|
Action = acFileSaveAll
|
|
end
|
|
object mnuFileSep1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuFileShowLog: TMenuItem
|
|
Action = acFileShowLog
|
|
end
|
|
object mnuFileSep2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuFileExit: TMenuItem
|
|
Action = acFileExit
|
|
end
|
|
end
|
|
object mnuEdit: TMenuItem
|
|
Caption = '&Edit'
|
|
object mnuEditCancel: TMenuItem
|
|
Action = acEditCancel
|
|
end
|
|
object mnuEditApply: TMenuItem
|
|
Action = acEditApply
|
|
end
|
|
object mnuEditSep1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuEditSearch: TMenuItem
|
|
Action = acEditSearch
|
|
end
|
|
object mnuEditShowHistory: TMenuItem
|
|
Action = acEditShowHistory
|
|
end
|
|
object mnuEditSep2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuEditReload: TMenuItem
|
|
Action = acEditReload
|
|
end
|
|
end
|
|
object mnuPackage: TMenuItem
|
|
Caption = '&Package'
|
|
object mnuPackageReinit: TMenuItem
|
|
Action = acPackageReinit
|
|
end
|
|
object mnuPackageInstall: TMenuItem
|
|
Action = acPackageInstall
|
|
end
|
|
object mnuPackageUpdate: TMenuItem
|
|
Action = acPackageUpdate
|
|
end
|
|
object mnuPackageRemove: TMenuItem
|
|
Action = acPackageRemove
|
|
end
|
|
object mnuPackageSep1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuPackageChooseVersion: TMenuItem
|
|
Action = acPackageChooseVersion
|
|
end
|
|
object mnuPackageSep2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuPackageProperties: TMenuItem
|
|
Action = acPackageProperties
|
|
end
|
|
end
|
|
object mnuTools: TMenuItem
|
|
Caption = '&Tools'
|
|
object mnuToolsCheckConfFiles: TMenuItem
|
|
Action = acToolsCheckConfFiles
|
|
end
|
|
object mnuToolsCheckDependencies: TMenuItem
|
|
Action = acToolsCheckDeps
|
|
end
|
|
end
|
|
object mnuConfig: TMenuItem
|
|
Caption = '&Configuration'
|
|
object mnuConfigEnvironment: TMenuItem
|
|
Action = acConfigEnvironment
|
|
end
|
|
object mnuConfigDisplay: TMenuItem
|
|
Action = acConfigDisplay
|
|
end
|
|
object mnuConfigRepositories: TMenuItem
|
|
Action = acConfigRepositories
|
|
end
|
|
end
|
|
object mnuHelp: TMenuItem
|
|
Caption = '&Help'
|
|
object mnuHelpManual: TMenuItem
|
|
Action = acHelpManual
|
|
end
|
|
object mnuHelpSep1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuHelpBugReport: TMenuItem
|
|
Action = acHelpBugReport
|
|
end
|
|
object mnuHelpSep2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuHelpAbout: TMenuItem
|
|
Action = acHelpAbout
|
|
end
|
|
end
|
|
object mnuDebug: TMenuItem
|
|
Caption = 'Debug'
|
|
object mnuDebugCreateException: TMenuItem
|
|
Action = acDebugCreateException
|
|
end
|
|
object mnuDebugLogHeapStatus: TMenuItem
|
|
Action = acDebugLogHeapStatus
|
|
end
|
|
object mnuLogDatabase: TMenuItem
|
|
Caption = 'Log package database...'
|
|
OnClick = mnuLogDatabaseClick
|
|
end
|
|
end
|
|
end
|
|
object acActionList: TActionList
|
|
left = 693
|
|
top = 414
|
|
object acFileOpen: TAction
|
|
Category = 'File'
|
|
Caption = '&Open a package list...'
|
|
Hint = 'Open a list of packages to install...'
|
|
ShortCut = 16463
|
|
end
|
|
object acFileSave: TAction
|
|
Category = 'File'
|
|
Caption = '&Save a package list...'
|
|
Hint = 'Allows to save a list of packges for deployment purposes...'
|
|
ShortCut = 16467
|
|
end
|
|
object acFileSaveAll: TAction
|
|
Category = 'File'
|
|
Caption = 'Save list of &installed packages...'
|
|
Hint = 'Save the list of installed packages, usefull for cloning purposes...'
|
|
ShortCut = 24659
|
|
end
|
|
object acFileShowLog: TAction
|
|
Category = 'File'
|
|
Caption = 'Show &log...'
|
|
Hint = 'Affichiche le journal des évènements, utile pour le déboguage'
|
|
OnExecute = acFileShowLogExecute
|
|
end
|
|
object acFileExit: TAction
|
|
Category = 'File'
|
|
Caption = 'E&xit'
|
|
Hint = 'Sort du programme (si des modifications n''ont pas été appliquées elles seront perdues)'
|
|
OnExecute = acFileExitExecute
|
|
ShortCut = 16465
|
|
end
|
|
object acEditCancel: TAction
|
|
Category = 'Edit'
|
|
Caption = '&Cancel changes'
|
|
Hint = 'Cancel all change that have not been applied yet'
|
|
ShortCut = 16474
|
|
end
|
|
object acEditApply: TAction
|
|
Category = 'Edit'
|
|
Caption = 'A&pply changes...'
|
|
Hint = 'Apply asked modification to the system'
|
|
ShortCut = 16452
|
|
end
|
|
object acEditSearch: TAction
|
|
Category = 'Edit'
|
|
Caption = '&Search...'
|
|
Hint = 'Search packages following a set of criteria'
|
|
OnExecute = acEditSearchExecute
|
|
ShortCut = 16454
|
|
end
|
|
object acEditShowHistory: TAction
|
|
Category = 'Edit'
|
|
Caption = '&Display search history...'
|
|
Hint = 'Display the list of search that have been made'
|
|
end
|
|
object acEditReload: TAction
|
|
Category = 'Edit'
|
|
Caption = 'Re&load package list'
|
|
Hint = 'Download again indes files and reload package list'
|
|
OnExecute = acEditReloadExecute
|
|
ShortCut = 116
|
|
end
|
|
object acPackageReinit: TAction
|
|
Category = 'Package'
|
|
Caption = 'Reini&tialize'
|
|
Hint = 'Reinstall selected packages'
|
|
ShortCut = 16468
|
|
end
|
|
object acPackageInstall: TAction
|
|
Category = 'Package'
|
|
Caption = '&Install'
|
|
Hint = 'Install selected packages'
|
|
ShortCut = 16457
|
|
end
|
|
object acPackageUpdate: TAction
|
|
Category = 'Package'
|
|
Caption = '&Upgrade'
|
|
Hint = 'Upgrade the selected packages'
|
|
ShortCut = 16469
|
|
end
|
|
object acPackageRemove: TAction
|
|
Category = 'Package'
|
|
Caption = '&Remove'
|
|
Hint = 'Uninstall the selected packages'
|
|
ShortCut = 16466
|
|
end
|
|
object acPackageChooseVersion: TAction
|
|
Category = 'Package'
|
|
Caption = 'Choose &version...'
|
|
Hint = 'Allows you to select the version of a package if several are available'
|
|
end
|
|
object acPackageProperties: TAction
|
|
Category = 'Package'
|
|
Caption = '&Properties...'
|
|
Hint = 'Display informations aabout the selected package...'
|
|
OnExecute = acPackagePropertiesExecute
|
|
end
|
|
object acConfigEnvironment: TAction
|
|
Category = 'Config'
|
|
Caption = '&Environment parameters...'
|
|
Hint = 'Allow you to change some parameters relative to the environment'
|
|
OnExecute = acConfigEnvironmentExecute
|
|
end
|
|
object acConfigDisplay: TAction
|
|
Category = 'Config'
|
|
Caption = 'Display parameters...'
|
|
Hint = 'Allow you to change display to your taste...'
|
|
OnExecute = acConfigDisplayExecute
|
|
end
|
|
object acConfigRepositories: TAction
|
|
Category = 'Config'
|
|
Caption = '&Package repositories...'
|
|
Hint = 'Allow to change package repositories and choose default one...'
|
|
OnExecute = acConfigRepositoriesExecute
|
|
end
|
|
object acHelpManual: TAction
|
|
Category = 'Help'
|
|
Caption = '&Manual'
|
|
Hint = 'Display online manual in your web browser'
|
|
ShortCut = 112
|
|
end
|
|
object acHelpBugReport: TAction
|
|
Category = 'Help'
|
|
Caption = 'Create a &bug repport...'
|
|
Hint = 'Allow you to send a bug repport to developper'
|
|
end
|
|
object acHelpAbout: TAction
|
|
Category = 'Help'
|
|
Caption = '&About...'
|
|
Hint = 'Display informations on the program...'
|
|
OnExecute = acHelpAboutExecute
|
|
end
|
|
object acToolsCheckConfFiles: TAction
|
|
Category = 'Tools'
|
|
Caption = '&Update configuration files...'
|
|
Hint = 'Permit to check if system configuration files are up-to-date'
|
|
end
|
|
object acToolsCheckDeps: TAction
|
|
Category = 'Tools'
|
|
Caption = 'Check &dependances...'
|
|
Hint = 'Allow you to check dependencies consistency of the system'
|
|
end
|
|
object acDebugCreateException: TAction
|
|
Category = 'Debug'
|
|
Caption = 'Create an exception'
|
|
OnExecute = acDebugCreateExceptionExecute
|
|
end
|
|
object acDebugLogHeapStatus: TAction
|
|
Category = 'Debug'
|
|
Caption = 'Log heap status'
|
|
OnExecute = acDebugLogHeapStatusExecute
|
|
end
|
|
end
|
|
object pmPackageList: TPopupMenu
|
|
left = 837
|
|
top = 414
|
|
object mnuPackageListReinit: TMenuItem
|
|
Action = acPackageReinit
|
|
end
|
|
object mnuPackageListInstall: TMenuItem
|
|
Action = acPackageInstall
|
|
end
|
|
object mnuPackageListUpdate: TMenuItem
|
|
Action = acPackageUpdate
|
|
end
|
|
object mnuPackageListRemove: TMenuItem
|
|
Action = acPackageRemove
|
|
end
|
|
object mnuPackageListBar1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuPackageListChooseVersion: TMenuItem
|
|
Action = acPackageChooseVersion
|
|
end
|
|
object mnuPackageListBar2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuPackageListProperties: TMenuItem
|
|
Action = acPackageProperties
|
|
end
|
|
end
|
|
end
|