Flummi/amxmodx
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Component update (whoa I hate delphi reinstallations)

Browse Source 
Added another feature for the Code-Explorer
This commit is contained in:
Christian Hammacher
2006-03-06 19:47:22 +00:00
parent eb7a49f6d4
commit f2b8b82515
21 changed files with 70 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
editor/studio/UnitCodeExplorerUpdater.pas
View File

@@ -152,16 +152,10 @@ var exConstants, exDefined, exIncluded, exMethods, exDefault, exEvents,
eStr: TStringList;
eScrollPosX, eScrollPosY: Integer;
eTempNode: TTreeNode;
eSelected: Integer;
begin
if Application.Terminated then exit;
if (frmMain.trvExplorer.Items.Count = 0) or (eActive <> ActiveDoc.Index) then exit;
if Assigned(frmMain.trvExplorer.Selected) then
eSelected := frmMain.trvExplorer.Selected.AbsoluteIndex
else
eSelected := -1;
frmMain.trvExplorer.Items.BeginUpdate;
try
eScrollPosX := GetScrollPos(frmMain.trvExplorer.Handle, SB_HORZ);
@@ -324,8 +318,6 @@ begin
SetScrollPos(frmMain.trvExplorer.Handle, SB_HORZ, eScrollPosX, False);
SetScrollPos(frmMain.trvExplorer.Handle, SB_VERT, eScrollPosY, False);
if eSelected <> -1 then
frmMain.trvExplorer.Items[eSelected].Selected := True;
except
// well, yes.
end;