diff options
Diffstat (limited to 'UCopyMove.pas')
| -rw-r--r-- | UCopyMove.pas | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/UCopyMove.pas b/UCopyMove.pas index 0bbbcf2..3a2c3d3 100644 --- a/UCopyMove.pas +++ b/UCopyMove.pas @@ -22,7 +22,7 @@ unit UCopyMove; interface uses - SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts; + SysUtils, Classes, lazgdk3, GTKControls, GTKForms, GTKStdCtrls; type TFCopyMove = class(TGTKDialog) @@ -54,7 +54,6 @@ begin Label1 := TGTKLabel.Create(Self); Label1.Caption := 'Copy 1 file(s) to:'; Label1.XAlign := 0; - Label1.XPadding := 0; Label1.SetSizeRequest(-1, 20); Entry := TGTKEntry.Create(Self); Box.AddControlEx(Label1, False, False, 0); @@ -68,8 +67,8 @@ end; procedure TFCopyMove.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean); begin case Key of - GDK_RETURN, GDK_KP_ENTER: ModalResult := mbOK; - GDK_ESCAPE: ModalResult := mbCancel; + GDK_KEY_Return, GDK_KEY_KP_Enter: ModalResult := mbOK; + GDK_KEY_Escape: ModalResult := mbCancel; end; end; |