diff options
Diffstat (limited to 'URunFromVFS.pas')
| -rw-r--r-- | URunFromVFS.pas | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/URunFromVFS.pas b/URunFromVFS.pas index a1309ff..4710a33 100644 --- a/URunFromVFS.pas +++ b/URunFromVFS.pas @@ -22,8 +22,8 @@ unit URunFromVFS; interface uses - glib2, gtk2, pango, SysUtils, Types, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView, - GTKUtils, GTKDialogs, GTKPixbuf, GTKClasses, UCoreClasses; + gtk2, SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, + GTKPixbuf, UCoreClasses; type TFRunFromVFS = class(TGTKDialog) @@ -56,7 +56,7 @@ var implementation -uses ULocale, UConfig; +uses ULocale; procedure TFRunFromVFS.FormCreate(Sender: TObject); @@ -89,7 +89,7 @@ begin CloseButton := TGTKButton.CreateFromStock(Self, GTK_STOCK_CLOSE); // CloseButton.Default := True; // Default := CloseButton; - CloseButton.OnClick := CloseButtonClick; + CloseButton.OnClick := @CloseButtonClick; ButtonBox := TGTKHButtonBox.Create(Self); ButtonBox.Layout := blEnd; ButtonBox.Spacing := 0; @@ -173,11 +173,11 @@ begin ExecuteButton := TGTKImageButton.Create(Self); ExecuteButton.SetFromStock('gtk-execute', isButton); ExecuteButton.Caption := LANGFRunFromVFS_ExecuteButton; - ExecuteButton.OnClick := ExecuteButtonClick; + ExecuteButton.OnClick := @ExecuteButtonClick; ExecuteButton.Spacing := 7; ExecuteAllButton := TGTKImageButton.Create(Self); ExecuteAllButton.Caption := LANGFRunFromVFS_ExecuteAllButton; - ExecuteAllButton.OnClick := ExecuteAllButtonClick; + ExecuteAllButton.OnClick := @ExecuteAllButtonClick; ExecuteAllButton.Spacing := 7; @@ -216,7 +216,7 @@ begin ActionArea.AddControlEx(HBox2, False, False, 0); CloseButton.SetFocus; - OnKeyDown := FormKeyDown; + OnKeyDown := @FormKeyDown; end; procedure TFRunFromVFS.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean); |