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

Added SUPPORT_REMOTE DoRemote dialog

Browse Source 
git-svn-id: trunk@28923 -
This commit is contained in:
pierre 2014-10-24 22:03:19 +00:00
parent 5ad5d984ac
commit c228424fc9
1 changed files with 44 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
ide/fpmopts.inc
View File

@ -584,10 +584,11 @@ end;
procedure TIDEApp.DoRemote;
var R,R2: TRect;
IL1,IL2,IL3,IL4,IL5,IL6: PEditorInputLine;
IL1,IL2,IL3,IL4,IL5,IL6,IL7,IL8: PEditorInputLine;
IL9,IL10,IL11 : PEditorInputLine;
D: PCenterDialog;
const
FieldLines = 6;
FieldLines = 11;
begin
{
RemoteMachine : string = '';
@ -641,13 +642,47 @@ begin
Insert(IL5);
R2.Move(0,-1);
Insert(New(PLabel, Init(R2,label_remote_ident, IL5)));
{ remote machine command }
{ remote machine send command }
R2.Move(0,3);
New(IL6, Init(R2, 255));
IL6^.Data^:=RemoteSendCommand;
Insert(IL6);
R2.Move(0,-1);
Insert(New(PLabel, Init(R2,label_remote_command, IL6)));
Insert(New(PLabel, Init(R2,label_remote_send_command, IL6)));
{ remote machine exec command }
R2.Move(0,3);
New(IL7, Init(R2, 255));
IL7^.Data^:=RemoteExecCommand;
Insert(IL7);
R2.Move(0,-1);
Insert(New(PLabel, Init(R2,label_remote_exec_command, IL7)));
{ remote machine exec command using ssh }
R2.Move(0,3);
New(IL8, Init(R2, 255));
IL8^.Data^:=RemoteSshExecCommand;
Insert(IL8);
R2.Move(0,-1);
Insert(New(PLabel, Init(R2,label_remote_ssh_exec_command, IL8)));
{ Remote shell executable }
R2.Move(0,3);
New(IL9, Init(R2, 255));
IL9^.Data^:=RemoteShell;
Insert(IL9);
R2.Move(0,-1);
Insert(New(PLabel, Init(R2,label_remote_shell, IL9)));
{ Remote copy executable }
R2.Move(0,3);
New(IL10, Init(R2, 255));
IL10^.Data^:=RemoteCopy;
Insert(IL10);
R2.Move(0,-1);
Insert(New(PLabel, Init(R2,label_remote_copy, IL10)));
R2.Move(0,3);
New(IL11, Init(R2, 255));
IL11^.Data^:=RemoteGdbServer;
Insert(IL11);
R2.Move(0,-1);
Insert(New(PLabel, Init(R2,label_remote_gdbserver, IL11)));
end;
InsertButtons(D);
if Desktop^.ExecView(D)=cmOK then
@ -658,6 +693,11 @@ begin
RemoteConfig:=IL4^.Data^;
RemoteIdent:=IL5^.Data^;
RemoteSendCommand:=IL6^.Data^;
RemoteExecCommand:=IL7^.Data^;
RemoteSshExecCommand:=IL8^.Data^;
RemoteShell:=IL9^.Data^;
RemoteCopy:=IL9^.Data^;
RemoteGdbServer:=IL11^.Data^;
end;
Dispose(D, Done);
end;