paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 05:20:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: find in files: check if click on node, bug #19059

Browse Source 
git-svn-id: trunk@30443 -
This commit is contained in:
mattias 2011-04-23 23:15:38 +00:00
parent 2dd6f59bd1
commit 0c7c336af1
1 changed files with 20 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
ide/searchresultview.pp
View File

@ -169,6 +169,8 @@ type
procedure SearchInListEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState );
procedure FilterButtonClick (Sender: TObject );
procedure TreeViewMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
FMaxItems: integer;
FWorkedSearchText: string;
@ -177,8 +179,6 @@ type
function BeautifyPageName(const APageName: string): string;
function GetPageIndex(const APageName: string): integer;
function GetTreeView(APageIndex: integer): TLazSearchResultTV;
procedure TreeViewClicked(Sender: TObject);
procedure TreeViewDoubleClicked(Sender: TObject);
procedure SetItems(Index: Integer; Value: TStrings);
function GetItems(Index: integer): TStrings;
procedure SetMaxItems(const AValue: integer);
@ -565,6 +565,23 @@ begin
end;//End if Assigned(CurrentTV)
end;
procedure TSearchResultsView.TreeViewMouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
TV: TCustomTreeView;
Node: TTreeNode;
begin
if Button<>mbLeft then exit;
TV:=Sender as TCustomTreeView;
Node:=TV.GetNodeAt(X,Y);
if Node=nil then exit;
if x<Node.DisplayTextLeft then exit;
if ([ssDouble,ssTriple,ssQuad]*Shift=[])
and EnvironmentOptions.MsgViewDblClickJumps then exit;
if Assigned(fOnSelectionChanged) then
fOnSelectionChanged(Self)
end;
function TSearchResultsView.BeautifyPageName(const APageName: string): string;
const
MaxPageName = 22;
@ -826,13 +843,12 @@ begin
Parent:= Page[NewPage];
Align:= alClient;
BorderSpacing.Around := 0;
OnClick:= @TreeViewClicked;
OnDblClick:= @TreeViewDoubleClicked;
OnKeyDown := @TreeViewKeyDown;
OnAdvancedCustomDrawItem:= @TreeViewAdvancedCustomDrawItem;
OnShowHint:= @LazTVShowHint;
OnMouseMove:= @LazTVMousemove;
OnMouseWheel:= @LazTVMouseWheel;
OnMouseUp:=@TreeViewMouseUp;
ShowHint:= true;
RowSelect := True; // we are using custom draw
Options := Options + [tvoAllowMultiselect] - [tvoThemedDraw];
@ -962,20 +978,6 @@ begin
end;//with
end;//TreeViewDrawItem
procedure TSearchResultsView.TreeViewClicked(Sender: TObject);
begin
if EnvironmentOptions.MsgViewDblClickJumps then exit;
if Assigned(fOnSelectionChanged) then
fOnSelectionChanged(Self)
end;//TreeViewClicked
procedure TSearchResultsView.TreeViewDoubleClicked(Sender: TObject);
begin
if not EnvironmentOptions.MsgViewDblClickJumps then exit;
if Assigned(fOnSelectionChanged) then
fOnSelectionChanged(Self)
end;//TreeViewDoubleClicked
{Returns the Position within the source file from a properly formated search result}
function TSearchResultsView.GetSourcePositon: TPoint;
var