paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix error in RemoteCopy assignment at Remote dialog box exit

Browse Source 
git-svn-id: trunk@28934 -
This commit is contained in:
pierre 2014-10-26 21:39:58 +00:00
parent cda66fd328
commit c528a029ec
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/fpmopts.inc
View File

@ -678,6 +678,7 @@ begin
R2.Move(0,-1); R2.Move(0,-1);
Insert(New(PLabel, Init(R2,label_remote_copy, IL10))); Insert(New(PLabel, Init(R2,label_remote_copy, IL10)));
R2.Move(0,3); R2.Move(0,3);
{ Remote gdbserver }
New(IL11, Init(R2, 255)); New(IL11, Init(R2, 255));
IL11^.Data^:=RemoteGdbServer; IL11^.Data^:=RemoteGdbServer;
Insert(IL11); Insert(IL11);
@ -696,7 +697,7 @@ begin
RemoteExecCommand:=IL7^.Data^; RemoteExecCommand:=IL7^.Data^;
RemoteSshExecCommand:=IL8^.Data^; RemoteSshExecCommand:=IL8^.Data^;
RemoteShell:=IL9^.Data^; RemoteShell:=IL9^.Data^;
RemoteCopy:=IL9^.Data^; RemoteCopy:=IL10^.Data^;
RemoteGdbServer:=IL11^.Data^; RemoteGdbServer:=IL11^.Data^;
end; end;
Dispose(D, Done); Dispose(D, Done);