paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 19:33:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

Cody: ppu list: update unit info after finished collecting

Browse Source 
git-svn-id: trunk@30867 -
This commit is contained in:
mattias 2011-05-23 12:25:02 +00:00
parent 876af7f3cb
commit 461aea87a1
2 changed files with 23 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/ide/ppulistdlg.lfm
View File

@ -54,7 +54,7 @@ object PPUListDialog: TPPUListDialog
object UnitsStringGrid: TStringGrid
Left = 6
Height = 209
Top = 11
Top = 6
Width = 724
Align = alTop
AutoFillColumns = True
@ -110,25 +110,25 @@ object PPUListDialog: TPPUListDialog
Cursor = crVSplit
Left = 0
Height = 5
Top = 0
Top = 221
Width = 736
Align = alTop
ResizeAnchor = akTop
end
object UnitGroupBox: TGroupBox
Left = 6
Height = 182
Top = 226
Height = 176
Top = 232
Width = 724
Align = alClient
BorderSpacing.Around = 6
Caption = 'UnitGroupBox'
ClientHeight = 161
ClientHeight = 155
ClientWidth = 716
TabOrder = 2
object UnitPageControl: TPageControl
Left = 0
Height = 161
Height = 155
Top = 0
Width = 716
ActivePage = UnitLinkedFilesTabSheet
@ -239,11 +239,11 @@ object PPUListDialog: TPPUListDialog
end
object UnitLinkedFilesTabSheet: TTabSheet
Caption = 'UnitLinkedFilesTabSheet'
ClientHeight = 128
ClientHeight = 122
ClientWidth = 712
object UnitLinkedFilesStringGrid: TStringGrid
Left = 0
Height = 128
Height = 122
Top = 0
Width = 712
Align = alClient

16
components/codetools/ide/ppulistdlg.pas
View File

@ -153,6 +153,7 @@ type
procedure JumpToUnit(TheUnitName: string);
// units info
procedure UpdateUnitsInfo;
procedure FillUnitsInfo(AnUnitName: string);
function FindUsesPath(UsingUnit, UsedUnit: TPPUDlgListItem): TFPList;
@ -754,6 +755,17 @@ begin
end;
end;
procedure TPPUListDialog.UpdateUnitsInfo;
var
AnUnitName: String;
begin
if (UnitsStringGrid.Row<2) or (UnitsStringGrid.Row>=UnitsStringGrid.RowCount) then
AnUnitName:=''
else
AnUnitName:=UnitsStringGrid.Cells[0,UnitsStringGrid.Row];
FillUnitsInfo(AnUnitName);
end;
procedure TPPUListDialog.FillUnitsInfo(AnUnitName: string);
var
Item: TPPUDlgListItem;
@ -1083,8 +1095,10 @@ begin
UpdateUnitsGrid;
UpdateLinkedFilesTreeView;
if FSearchingItems.Count=0 then
if FSearchingItems.Count=0 then begin
IdleConnected:=false;
UpdateUnitsInfo;
end;
end;
procedure TPPUListDialog.AddUses(SrcItem: TPPUDlgListItem; UsedUnits: TStrings);