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

IDE: less hints

Browse Source 
git-svn-id: trunk@64216 -
This commit is contained in:
mattias 2020-12-17 13:48:16 +00:00
parent a448729659
commit 0fa3320aa5
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/ideinstances.pas
View File

@ -358,7 +358,7 @@ begin
Result := False;
outMessageType := '';
SetLength(outParams, 0);
SetLength(outParams{%H-}, 0);
try
ReadXMLFile(xDOM, aStream, []);
except
@ -605,7 +605,7 @@ var
try
xClient.ServerID := SERVERNAME_COLLECT;
SetLength(xOutParams, 0);
SetLength(xOutParams{%H-}, 0);
AddFilesToParams(FilesToOpen, xOutParams);
xStream := TMemoryStream.Create;
@ -765,7 +765,7 @@ begin
try
//ask to show prompt
xStream.Clear;
SetLength(xOutParams, 0);
SetLength(xOutParams{%H-}, 0);
TIDEInstances.AddFilesToParams(aFiles, xOutParams);
TIDEInstances.BuildMessage(MESSAGE_STARTNEWINSTANCE, xOutParams, xStream);
xStream.Position := 0;
@ -805,7 +805,7 @@ begin
xStream := TMemoryStream.Create;
try
xStream.Clear;
SetLength(xOutParams, 0);
SetLength(xOutParams{%H-}, 0);
TIDEInstances.BuildMessage(MESSAGE_GETOPENEDPROJECT, xOutParams, xStream);
xStream.Position := 0;
Self.PostRequest(MESSAGETYPE_XML, xStream);
@ -871,7 +871,7 @@ begin
end;
end;
SetLength(xParams, 5);
SetLength(xParams{%H-}, 5);
xParams[0] := TIDEInstances.MessageParam(PARAM_RESULT, IntToStr(Ord(xResult)));
xParams[1] := TIDEInstances.MessageParam(PARAM_HANDLEBRINGTOFRONT, IntToStr(xSourceWindowHandle)); // do not use Application.MainFormHandle here - it steals focus from active source editor
xParams[2] := TIDEInstances.MessageParam(PARAM_MODALERRORMESSAGE, dlgRunningInstanceModalError);
@ -947,7 +947,7 @@ begin
if Assigned(FStartNewInstanceEvent) then
FGetCurrentProjectEvent(xResult);
SetLength(xParams, 1);
SetLength(xParams{%H-}, 1);
xParams[0] := TIDEInstances.MessageParam(PARAM_RESULT, xResult);
SimpleResponse(aMsgID, RESPONSE_GETOPENEDPROJECT, xParams);
end;