initial commit from lost SVN repo
This commit is contained in:
fatalerrors
441
spackgui/frmmain.lfm
Normal file
441
spackgui/frmmain.lfm
Normal file
@@ -0,0 +1,441 @@
|
||||
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
|
||||
Reference in New Issue
Block a user