diff options
Diffstat (limited to 'USymlink.pas')
| -rw-r--r-- | USymlink.pas | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/USymlink.pas b/USymlink.pas index 40a7cd6..f107d92 100644 --- a/USymlink.pas +++ b/USymlink.pas @@ -22,7 +22,7 @@ unit USymlink; interface uses - SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts; + SysUtils, Classes, lazgdk3, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls; type TFSymlink = class(TGTKDialog) @@ -57,14 +57,12 @@ begin Label1.Caption := LANGFSymlink_ExistingFilename; Label1.UseUnderline := True; Label1.XAlign := 0; - Label1.XPadding := 0; FromEntry := TGTKEntry.Create(Self); Label1.FocusControl := FromEntry; Label2 := TGTKLabel.Create(Self); Label2.Caption := LANGFSymlink_SymlinkFilename; Label2.UseUnderline := True; Label2.XAlign := 0; - Label2.XPadding := 0; ToEntry := TGTKEntry.Create(Self); Label2.FocusControl := ToEntry; RelativeCheckButton := TGTKCheckButton.CreateWithLabel(Self, LANGFSymlink_RelativePath); @@ -84,8 +82,8 @@ end; procedure TFSymlink.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; |