mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-12 09:56:12 +02:00
IDE: pckage links dlg: added filenames
git-svn-id: trunk@12813 -
This commit is contained in:
mattias
parent
2c862f210c
commit
72f329a32d
@ -140,6 +140,7 @@ type
|
||||
destructor Destroy; override;
|
||||
procedure Clear;
|
||||
function GetUserLinkFile: string;
|
||||
function GetGlobalLinkDirectory: string;
|
||||
procedure UpdateGlobalLinks;
|
||||
procedure UpdateUserLinks;
|
||||
procedure UpdateAll;
|
||||
@ -315,6 +316,12 @@ begin
|
||||
Result:=AppendPathDelim(GetPrimaryConfigPath)+'packagefiles.xml';
|
||||
end;
|
||||
|
||||
function TPackageLinks.GetGlobalLinkDirectory: string;
|
||||
begin
|
||||
Result:=AppendPathDelim(EnvironmentOptions.LazarusDirectory)
|
||||
+'packager'+PathDelim+'globallinks'+PathDelim;
|
||||
end;
|
||||
|
||||
procedure TPackageLinks.UpdateGlobalLinks;
|
||||
|
||||
function ParseFilename(const Filename: string;
|
||||
@ -382,8 +389,7 @@ begin
|
||||
Exclude(FStates,plsGlobalLinksNeedUpdate);
|
||||
|
||||
FGlobalLinks.FreeAndClear;
|
||||
GlobalLinksDir:=AppendPathDelim(EnvironmentOptions.LazarusDirectory)
|
||||
+'packager'+PathDelim+'globallinks'+PathDelim;
|
||||
GlobalLinksDir:=GetGlobalLinkDirectory;
|
||||
//debugln('UpdateGlobalLinks A ',GlobalLinksDir);
|
||||
if FindFirst(GlobalLinksDir+'*.lpl', faAnyFile, FileInfo)=0 then begin
|
||||
PkgVersion:=TPkgVersion.Create;
|
||||
|
||||
@ -5,6 +5,7 @@ object PackageLinksDialog: TPackageLinksDialog
|
||||
Width = 659
|
||||
HorzScrollBar.Page = 658
|
||||
VertScrollBar.Page = 450
|
||||
ActiveControl = CloseBitBtn
|
||||
Caption = 'PackageLinksDialog'
|
||||
ClientHeight = 451
|
||||
ClientWidth = 659
|
||||
@ -28,7 +29,7 @@ object PackageLinksDialog: TPackageLinksDialog
|
||||
TabOrder = 0
|
||||
end
|
||||
object ScopeGroupBox: TGroupBox
|
||||
Height = 53
|
||||
Height = 109
|
||||
Width = 659
|
||||
Align = alTop
|
||||
AutoSize = True
|
||||
@ -38,23 +39,22 @@ object PackageLinksDialog: TPackageLinksDialog
|
||||
ChildSizing.HorizontalSpacing = 6
|
||||
ChildSizing.VerticalSpacing = 6
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 3
|
||||
ClientHeight = 34
|
||||
ClientHeight = 90
|
||||
ClientWidth = 655
|
||||
TabOrder = 1
|
||||
object FileMustExistCheckBox: TCheckBox
|
||||
Left = 6
|
||||
Height = 22
|
||||
Top = 6
|
||||
Width = 168
|
||||
Width = 193
|
||||
Caption = 'FileMustExistCheckBox'
|
||||
OnChange = FileMustExistCheckBoxChange
|
||||
TabOrder = 0
|
||||
end
|
||||
object ShowGlobalLinksCheckBox: TCheckBox
|
||||
Left = 180
|
||||
Left = 6
|
||||
Height = 22
|
||||
Top = 6
|
||||
Top = 34
|
||||
Width = 193
|
||||
Caption = 'ShowGlobalLinksCheckBox'
|
||||
Checked = True
|
||||
@ -63,10 +63,10 @@ object PackageLinksDialog: TPackageLinksDialog
|
||||
TabOrder = 1
|
||||
end
|
||||
object ShowUserLinksCheckBox: TCheckBox
|
||||
Left = 379
|
||||
Left = 6
|
||||
Height = 22
|
||||
Top = 6
|
||||
Width = 183
|
||||
Top = 62
|
||||
Width = 193
|
||||
Caption = 'ShowUserLinksCheckBox'
|
||||
Checked = True
|
||||
OnChange = ShowUserLinksCheckBoxChange
|
||||
@ -76,8 +76,8 @@ object PackageLinksDialog: TPackageLinksDialog
|
||||
end
|
||||
object PkgStringGrid: TStringGrid
|
||||
AnchorSideBottom.Control = CloseBitBtn
|
||||
Height = 350
|
||||
Top = 53
|
||||
Height = 294
|
||||
Top = 109
|
||||
Width = 659
|
||||
Align = alTop
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
|
||||
@ -3,34 +3,34 @@
|
||||
LazarusResources.Add('TPackageLinksDialog','FORMDATA',[
|
||||
'TPF0'#19'TPackageLinksDialog'#18'PackageLinksDialog'#4'Left'#3'"'#1#6'Height'
|
||||
+#3#195#1#3'Top'#3#189#0#5'Width'#3#147#2#18'HorzScrollBar.Page'#3#146#2#18'V'
|
||||
+'ertScrollBar.Page'#3#194#1#7'Caption'#6#18'PackageLinksDialog'#12'ClientHei'
|
||||
+'ght'#3#195#1#11'ClientWidth'#3#147#2#8'OnCreate'#7#10'FormCreate'#0#7'TBitB'
|
||||
+'tn'#11'CloseBitBtn'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRig'
|
||||
+'ht.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#5'Owner'#21'AnchorSi'
|
||||
+'deBottom.Side'#7#9'asrBottom'#4'Left'#3'C'#2#6'Height'#2'$'#3'Top'#3#153#1#5
|
||||
+'Width'#2'J'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderS'
|
||||
+'pacing.Around'#2#6#7'Caption'#6#6'&Close'#4'Kind'#7#7'bkClose'#11'ModalResu'
|
||||
+'lt'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#0#0#0#9'TGroupBox'#13'ScopeGroupBox'
|
||||
+#6'Height'#2'5'#5'Width'#3#147#2#5'Align'#7#5'alTop'#8'AutoSize'#9#7'Caption'
|
||||
+#6#13'ScopeGroupBox'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing.Top'
|
||||
+'BottomSpacing'#2#6#29'ChildSizing.HorizontalSpacing'#2#6#27'ChildSizing.Ver'
|
||||
+'ticalSpacing'#2#6#18'ChildSizing.Layout'#7#29'cclLeftToRightThenTopToBottom'
|
||||
+#27'ChildSizing.ControlsPerLine'#2#3#12'ClientHeight'#2'"'#11'ClientWidth'#3
|
||||
+'ertScrollBar.Page'#3#194#1#13'ActiveControl'#7#11'CloseBitBtn'#7'Caption'#6
|
||||
+#18'PackageLinksDialog'#12'ClientHeight'#3#195#1#11'ClientWidth'#3#147#2#8'O'
|
||||
+'nCreate'#7#10'FormCreate'#0#7'TBitBtn'#11'CloseBitBtn'#23'AnchorSideRight.C'
|
||||
+'ontrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBot'
|
||||
+'tom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3
|
||||
+'C'#2#6'Height'#2'$'#3'Top'#3#153#1#5'Width'#2'J'#7'Anchors'#11#7'akRight'#8
|
||||
+'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#6'&Clos'
|
||||
+'e'#4'Kind'#7#7'bkClose'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#0
|
||||
+#0#0#9'TGroupBox'#13'ScopeGroupBox'#6'Height'#2'm'#5'Width'#3#147#2#5'Align'
|
||||
+#7#5'alTop'#8'AutoSize'#9#7'Caption'#6#13'ScopeGroupBox'#28'ChildSizing.Left'
|
||||
+'RightSpacing'#2#6#28'ChildSizing.TopBottomSpacing'#2#6#29'ChildSizing.Horiz'
|
||||
+'ontalSpacing'#2#6#27'ChildSizing.VerticalSpacing'#2#6#18'ChildSizing.Layout'
|
||||
+#7#29'cclLeftToRightThenTopToBottom'#12'ClientHeight'#2'Z'#11'ClientWidth'#3
|
||||
+#143#2#8'TabOrder'#2#1#0#9'TCheckBox'#21'FileMustExistCheckBox'#4'Left'#2#6#6
|
||||
+'Height'#2#22#3'Top'#2#6#5'Width'#3#168#0#7'Caption'#6#21'FileMustExistCheck'
|
||||
+'Height'#2#22#3'Top'#2#6#5'Width'#3#193#0#7'Caption'#6#21'FileMustExistCheck'
|
||||
+'Box'#8'OnChange'#7#27'FileMustExistCheckBoxChange'#8'TabOrder'#2#0#0#0#9'TC'
|
||||
+'heckBox'#23'ShowGlobalLinksCheckBox'#4'Left'#3#180#0#6'Height'#2#22#3'Top'#2
|
||||
+#6#5'Width'#3#193#0#7'Caption'#6#23'ShowGlobalLinksCheckBox'#7'Checked'#9#8
|
||||
+'OnChange'#7#29'ShowGlobalLinksCheckBoxChange'#5'State'#7#9'cbChecked'#8'Tab'
|
||||
+'Order'#2#1#0#0#9'TCheckBox'#21'ShowUserLinksCheckBox'#4'Left'#3'{'#1#6'Heig'
|
||||
+'ht'#2#22#3'Top'#2#6#5'Width'#3#183#0#7'Caption'#6#21'ShowUserLinksCheckBox'
|
||||
+#7'Checked'#9#8'OnChange'#7#27'ShowUserLinksCheckBoxChange'#5'State'#7#9'cbC'
|
||||
+'hecked'#8'TabOrder'#2#2#0#0#0#11'TStringGrid'#13'PkgStringGrid'#24'AnchorSi'
|
||||
+'deBottom.Control'#7#11'CloseBitBtn'#6'Height'#3'^'#1#3'Top'#2'5'#5'Width'#3
|
||||
+#147#2#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akB'
|
||||
+'ottom'#0#8'ColCount'#2#4#10'FixedColor'#7#9'clBtnFace'#9'FixedCols'#2#0#7'O'
|
||||
+'ptions'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorz'
|
||||
+'Line'#13'goRangeSelect'#11'goColSizing'#6'goTabs'#13'goColSpanning'#18'goDb'
|
||||
+'lClickAutoSize'#14'goSmoothScroll'#0#8'RowCount'#2#5#10'ScrollBars'#7#10'ss'
|
||||
+'AutoBoth'#8'TabOrder'#2#2#7'TabStop'#9#0#0#0
|
||||
+'heckBox'#23'ShowGlobalLinksCheckBox'#4'Left'#2#6#6'Height'#2#22#3'Top'#2'"'
|
||||
+#5'Width'#3#193#0#7'Caption'#6#23'ShowGlobalLinksCheckBox'#7'Checked'#9#8'On'
|
||||
+'Change'#7#29'ShowGlobalLinksCheckBoxChange'#5'State'#7#9'cbChecked'#8'TabOr'
|
||||
+'der'#2#1#0#0#9'TCheckBox'#21'ShowUserLinksCheckBox'#4'Left'#2#6#6'Height'#2
|
||||
+#22#3'Top'#2'>'#5'Width'#3#193#0#7'Caption'#6#21'ShowUserLinksCheckBox'#7'Ch'
|
||||
+'ecked'#9#8'OnChange'#7#27'ShowUserLinksCheckBoxChange'#5'State'#7#9'cbCheck'
|
||||
+'ed'#8'TabOrder'#2#2#0#0#0#11'TStringGrid'#13'PkgStringGrid'#24'AnchorSideBo'
|
||||
+'ttom.Control'#7#11'CloseBitBtn'#6'Height'#3'&'#1#3'Top'#2'm'#5'Width'#3#147
|
||||
+#2#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBotto'
|
||||
+'m'#0#8'ColCount'#2#4#10'FixedColor'#7#9'clBtnFace'#9'FixedCols'#2#0#7'Optio'
|
||||
+'ns'#11#15'goFixedVertLine'#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'
|
||||
+#13'goRangeSelect'#11'goColSizing'#6'goTabs'#13'goColSpanning'#18'goDblClick'
|
||||
+'AutoSize'#14'goSmoothScroll'#0#8'RowCount'#2#5#10'ScrollBars'#7#10'ssAutoBo'
|
||||
+'th'#8'TabOrder'#2#2#7'TabStop'#9#0#0#0
|
||||
]);
|
||||
|
||||
@ -100,8 +100,10 @@ begin
|
||||
Caption:=lisPLDPackageLinks;
|
||||
CloseBitBtn.Caption:=lisMenuClose;
|
||||
FileMustExistCheckBox.Caption:=lisPLDOnlyExistingFiles;
|
||||
ShowGlobalLinksCheckBox.Caption:=lisPLDShowGlobalLinks;
|
||||
ShowUserLinksCheckBox.Caption:=lisPLDShowUserLinks;
|
||||
ShowGlobalLinksCheckBox.Caption:=lisPLDShowGlobalLinks
|
||||
+' ('+PkgLinks.GetGlobalLinkDirectory+'*.lpl)';
|
||||
ShowUserLinksCheckBox.Caption:=lisPLDShowUserLinks
|
||||
+' ('+PkgLinks.GetUserLinkFile+')';
|
||||
UpdateAll;
|
||||
end;
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user