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

* Focus edit on activate, support multiple words in search term

Browse Source 
git-svn-id: trunk@59138 -
This commit is contained in:
michael 2018-09-22 20:29:36 +00:00
parent 51cb1f0b2d
commit fcbcab32c4
2 changed files with 35 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/idespotter/frmspotter.lfm
View File

@ -9,12 +9,13 @@ object SpotterForm: TSpotterForm
ClientHeight = 232
ClientWidth = 497
FormStyle = fsStayOnTop
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
Position = poDefaultSizeOnly
ShowInTaskBar = stNever
LCLVersion = '2.1.0.0'
LCLVersion = '1.9.0.0'
Visible = True
object ECommand: TEdit
Left = 0
@ -40,8 +41,10 @@ object SpotterForm: TSpotterForm
OnEnter = LBMatchesEnter
OnKeyUp = LBMatchesKeyUp
ParentShowHint = False
ScrollWidth = 495
ShowHint = True
TabOrder = 1
TabStop = False
TopIndex = -1
end
end

34
components/idespotter/frmspotter.pas
View File

@ -46,6 +46,7 @@ type
LBMatches: TListBox;
procedure ECommandChange(Sender: TObject);
procedure ECommandKeyUp(Sender: TObject; var Key: Word; {%H-}Shift: TShiftState);
procedure FormActivate(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
@ -70,7 +71,7 @@ var
implementation
Uses LCLType, LCLProc;
Uses StrUtils,LCLType, LCLProc;
{$R *.lfm}
@ -106,6 +107,11 @@ begin
end;
end;
procedure TSpotterForm.FormActivate(Sender: TObject);
begin
ECommand.SetFocus;
end;
procedure TSpotterForm.FormClose(Sender: TObject;
var CloseAction: TCloseAction);
begin
@ -118,14 +124,36 @@ Var
i : Integer;
Cmd : TIDECommand;
pref,ks : string;
Words : Array of string;
MatchPos : Array of Integer;
Function Match(S : String) : Boolean;
Var
I : integer;
begin
Result:=True;
I:=0;
While Result and (I<Length(Words)) do
begin
MatchPos[i]:=Pos(Words[i],S);
Result:=MatchPos[i]<>0;
inc(I);
end;
end;
begin
aCmd:=LowerCase(aCmd);
Setlength(Words,WordCount(aCmd,[' ']));
Setlength(MatchPos,Length(Words));
For I:=1 to Length(Words) do
Words[I-1]:=ExtractWord(I,aCmd,[' ']);
LBMatches.Items.BeginUpdate;
try
LBMatches.Items.Clear;
For I:=0 to FCommands.Count-1 do
if Pos(aCmd,FCommands[I])>0 then
if Match(FCommands[I]) then
begin
Cmd:=TIDECommand(FCommands.Objects[i]);
Pref:=GetCommandCategoryString(Cmd);
@ -163,7 +191,7 @@ begin
if MF=nil then MF:=Application.MainForm;
if Assigned(MF) then
begin
Top:=40; //MF.ClientOrigin.y+MF.Height+32; // Needs some additional work ?
Top:=MF.ClientOrigin.y+MF.Height+32; // Needs some additional work ?
Left:=MF.ClientOrigin.x+(MF.Width-Width) div 2;
end;
ECommand.Clear;