mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

1658673 delete в строке ввода

Browse source 
1658671  	  в строке ввода не работает ctrl+x
This commit is contained in:
Attid 2007-02-13 11:47:09 +00:00
commit c875680147
1 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
fmain.pas
View file

@ -856,8 +856,11 @@ begin
{ Key:=0;
ActiveFrame.ClearCmdLine; // hack delete key
}
actDelete.Execute;
Exit;
if (not edtCommand.Focused) or (Key = VK_F8) then
begin
actDelete.Execute;
Exit;
end;
end;
VK_F9:
begin
@ -1028,8 +1031,11 @@ begin
if (Key=VK_X) then
begin
actRunTerm.Execute;
Exit;
if not edtCommand.Focused then
begin
actRunTerm.Execute;
Exit;
end;
end;
if (Key=VK_T) then
@ -1986,7 +1992,7 @@ end;
procedure TfrmMain.FormActivate(Sender: TObject);
begin
KeyPreview:=True;
ActiveFrame.SetFocus;
// ActiveFrame.SetFocus;
// writeln('Activate');
end;
@ -2237,7 +2243,7 @@ begin
with ActiveFrame do
begin
SelectFileIfNoSelected(GetActiveitem);
{$IFNDEF WIN32} // Alexx2000 ñäåëàòü ïîçæå
{$IFNDEF WIN32} //TODO Alexx2000 ñäåëàòü ïîçæå
ShowChownForm(ActiveFrame.pnlFile.FileList, ActiveFrame.ActiveDir);
{$ENDIF}
end;