mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
56 lines
1,020 B
ObjectPascal
56 lines
1,020 B
ObjectPascal
unit fCopyDlg;
|
|
|
|
interface
|
|
|
|
uses
|
|
LResources,
|
|
SysUtils, Types, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, Buttons;
|
|
|
|
type
|
|
|
|
{ TfrmCopyDlg }
|
|
|
|
TfrmCopyDlg = class(TForm)
|
|
btnOK: TBitBtn;
|
|
btnCancel: TBitBtn;
|
|
cbDropReadOnlyFlag: TCheckBox;
|
|
edtDst: TEdit;
|
|
lblCopySrc: TLabel;
|
|
cmbFileType: TComboBox;
|
|
lblFileType: TLabel;
|
|
procedure frmCopyDlgKeyPress(Sender: TObject; var Key: Char);
|
|
procedure frmCopyDlgShow(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmCopyDlg: TfrmCopyDlg;
|
|
|
|
implementation
|
|
uses
|
|
uLng;
|
|
|
|
procedure TfrmCopyDlg.frmCopyDlgShow(Sender: TObject);
|
|
begin
|
|
edtDst.SelectAll;
|
|
edtDst.SetFocus;
|
|
end;
|
|
|
|
procedure TfrmCopyDlg.frmCopyDlgKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
if Key=#27 then
|
|
ModalResult:=mrCancel;
|
|
if Key=#13 then
|
|
begin
|
|
ModalResult:=mrOK;
|
|
Key:=#0;
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
{$I fCopyDlg.lrs}
|
|
end.
|