diff options
Diffstat (limited to 'UOverwrite.pas')
| -rw-r--r-- | UOverwrite.pas | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/UOverwrite.pas b/UOverwrite.pas index 78f057b..e2d7b43 100644 --- a/UOverwrite.pas +++ b/UOverwrite.pas @@ -22,7 +22,7 @@ unit UOverwrite; interface uses - gtk2, SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts; + gtk2, SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts; const OVERWRITE_CANCEL = 0; OVERWRITE_OVERWRITE = 1; @@ -70,28 +70,28 @@ begin ToInfoLabel.XAlign := 0; ToInfoLabel.XPadding := 40; OverwriteButton := TGTKButton.Create(Self); OverwriteButton.Caption := LANGOverwriteButton_Caption; - OverwriteButton.OnClick := ButtonClick; + OverwriteButton.OnClick := @ButtonClick; OverwriteAllButton := TGTKButton.Create(Self); OverwriteAllButton.Caption := LANGOverwriteAllButton_Caption; - OverwriteAllButton.OnClick := ButtonClick; + OverwriteAllButton.OnClick := @ButtonClick; SkipButton := TGTKButton.Create(Self); SkipButton.Caption := LANGSkipButton_Caption; - SkipButton.OnClick := ButtonClick; + SkipButton.OnClick := @ButtonClick; CancelButton := TGTKButton.Create(Self); CancelButton.Caption := LANGCancel; - CancelButton.OnClick := ButtonClick; + CancelButton.OnClick := @ButtonClick; OverwriteAllOlderButton := TGTKButton.Create(Self); OverwriteAllOlderButton.Caption := LANGOverwriteAllOlderButton_Caption; - OverwriteAllOlderButton.OnClick := ButtonClick; + OverwriteAllOlderButton.OnClick := @ButtonClick; SkipAllButton := TGTKButton.Create(Self); SkipAllButton.Caption := LANGSkipAllButton_Caption; - SkipAllButton.OnClick := ButtonClick; + SkipAllButton.OnClick := @ButtonClick; RenameButton := TGTKButton.Create(Self); RenameButton.Caption := LANGRenameButton_Caption; - RenameButton.OnClick := ButtonClick; + RenameButton.OnClick := @ButtonClick; AppendButton := TGTKButton.Create(Self); AppendButton.Caption := LANGAppendButton_Caption; - AppendButton.OnClick := ButtonClick; + AppendButton.OnClick := @ButtonClick; ButtonTable := TGTKTable.Create(Self); ButtonTable.RowCount := 3; ButtonTable.ColCount := 3; @@ -107,7 +107,7 @@ begin ClientArea.AddControlEx(FromVBox, True, True, 5); ClientArea.AddControlEx(ToVBox, True, True, 5); ActionArea.AddControlEx(ButtonTable, True, True, 0); - OnKeyDown := FormKeyDown; + OnKeyDown := @FormKeyDown; end; procedure TFOverwrite.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean); |