diff options
Diffstat (limited to 'UChown.pas')
| -rw-r--r-- | UChown.pas | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -116,7 +116,7 @@ begin GroupFrame.AddControl(GroupListViewScrolledWindow); FillData; - OnKeyDown := FormKeyDown; + OnKeyDown := @FormKeyDown; end; procedure TFChown.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean); @@ -156,8 +156,8 @@ begin FileLabel.Caption := Format(LANGFChmod_FileLabel, [StrToUTF8(FileName), AttrToStr(Mode), AttrToOctal(Mode), susr, sgrp]); FileLabel.UseMarkup := True; if Length(FileName) > 20 then FileLabel.SetSizeRequest(200, -1); - OwnerListView.OnSelectionChanged := OwnerListViewSelectionChanged; - GroupListView.OnSelectionChanged := GroupListViewSelectionChanged; + OwnerListView.OnSelectionChanged := @OwnerListViewSelectionChanged; + GroupListView.OnSelectionChanged := @GroupListViewSelectionChanged; end; procedure TFChown.FillData; |
