diff options
Diffstat (limited to 'USymlink.pas')
| -rw-r--r-- | USymlink.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/USymlink.pas b/USymlink.pas index b98c2ab..40a7cd6 100644 --- a/USymlink.pas +++ b/USymlink.pas @@ -22,7 +22,7 @@ unit USymlink; interface uses - SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts; + SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts; type TFSymlink = class(TGTKDialog) @@ -68,7 +68,7 @@ begin ToEntry := TGTKEntry.Create(Self); Label2.FocusControl := ToEntry; RelativeCheckButton := TGTKCheckButton.CreateWithLabel(Self, LANGFSymlink_RelativePath); - RelativeCheckButton.OnToggled := RelativeCheckButtonToggled; + RelativeCheckButton.OnToggled := @RelativeCheckButtonToggled; Box.AddControlEx(Label1, False, False, 2); Box.AddControlEx(FromEntry, False, False, 0); Box.AddControlEx(RelativeCheckButton, False, False, 0); @@ -77,7 +77,7 @@ begin Box.AddControlEx(ToEntry, False, False, 0); Box.BorderWidth := 10; ClientArea.AddControlEx(Box, True, True, 0); - OnKeyDown := FormKeyDown; + OnKeyDown := @FormKeyDown; ToEntry.SetFocus; end; |