IDE: View Package Links: select links

git-svn-id: trunk@39998 -
This commit is contained in:
mattias 2013-01-28 10:21:20 +00:00
parent 61ea5d6afb
commit 647c1b3b87
2 changed files with 8 additions and 1 deletions

View File

@ -109,28 +109,34 @@ object PackageLinksDialog: TPackageLinksDialog
Align = alTop Align = alTop
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
ColCount = 6 ColCount = 6
ColumnClickSorts = True
Columns = < Columns = <
item item
ButtonStyle = cbsCheckboxColumn ButtonStyle = cbsCheckboxColumn
Title.Caption = 'Select' Title.Caption = 'Select'
end end
item item
ReadOnly = True
Title.Caption = 'Name' Title.Caption = 'Name'
end end
item item
ReadOnly = True
Title.Caption = 'Version' Title.Caption = 'Version'
end end
item item
ReadOnly = True
Title.Caption = 'Group' Title.Caption = 'Group'
end end
item item
ReadOnly = True
Title.Caption = 'State' Title.Caption = 'State'
end end
item item
ReadOnly = True
Title.Caption = 'Filename' Title.Caption = 'Filename'
end> end>
FixedCols = 0 FixedCols = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goTabs, goColSpanning, goDblClickAutoSize, goSmoothScroll] Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goTabs, goColSpanning, goDblClickAutoSize, goSmoothScroll]
TabOrder = 1 TabOrder = 1
OnCheckboxToggled = PkgStringGridCheckboxToggled OnCheckboxToggled = PkgStringGridCheckboxToggled
OnSelection = PkgStringGridSelection OnSelection = PkgStringGridSelection

View File

@ -355,6 +355,7 @@ begin
end; end;
PkgStringGrid.Cells[0,i]:=PkgStringGrid.Columns[0].ValueUnchecked;
PkgStringGrid.Cells[1,i]:=Link.Name; PkgStringGrid.Cells[1,i]:=Link.Name;
PkgStringGrid.Cells[2,i]:=Link.Version.AsString; PkgStringGrid.Cells[2,i]:=Link.Version.AsString;
if Link.Origin=ploGlobal then if Link.Origin=ploGlobal then