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

IDE, LCL: Formatting.

Browse Source
This commit is contained in:
Juha 2023-05-15 00:58:50 +03:00
parent 6e1adda721
commit 65d888e286
3 changed files with 21 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ide/searchresultview.pp
View File

@ -706,7 +706,6 @@ begin
exit;
end;
end;
SearchPos:= TLazSearchMatchPos.Create;
SearchPos.MatchStart:=MatchStart;
SearchPos.MatchLen:=MatchLen;
@ -771,7 +770,8 @@ begin
end;
procedure TSearchResultsView.Parse_Search_Phrases(var slPhrases: TStrings);
var i, iLength: Integer;
var
i, iLength: Integer;
sPhrases, sPhrase: string;
begin
//Parse Phrases
@ -785,14 +785,12 @@ begin
if not ((sPhrases[i] = ' ') or (sPhrases[i] = ',')) then
sPhrase := sPhrase + sPhrases[i];
if (sPhrase > ' ') then
slPhrases.Add(UpperCase(sPhrase));//End of phrase, add to phrase list
slPhrases.Add(UpperCase(sPhrase)); //End of phrase, add to phrase list
sPhrase := '';//Reset sPhrase
end else
begin
if (sPhrases[i] > ' ') then
end
else if (sPhrases[i] > ' ') then
sPhrase := sPhrase + sPhrases[i];
end;//End if ((sPhrases[i] = ' ') or (sPhrases[i] = ','))
end;//End for-loop i
end; //End for-loop i
end;
procedure TSearchResultsView.ResultsNoteBookChanging(Sender: TObject;
@ -1347,7 +1345,7 @@ begin
end;
ChildNode := Items.AddChild(Node, Line);
Node.Expanded:=true;
Node.Expanded := true;
ChildNode.Data := MatchPos;
end;

2
ide/toolbarconfig.pas
View File

@ -444,7 +444,7 @@ begin
end;
procedure TToolBarConfig.AddToolBarItem(CmdItem: TIDEButtonCommand);
Var
var
Node: TTreeNode;
lvItem: TListItem;
begin