diff options
Diffstat (limited to 'UChmod.pas')
| -rw-r--r-- | UChmod.pas | 32 |
1 files changed, 16 insertions, 16 deletions
@@ -22,7 +22,7 @@ unit UChmod; interface uses - SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKMenus; + SysUtils, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKMenus; type TFChmod = class(TGTKDialog) @@ -75,7 +75,7 @@ begin HBox2.Homogeneous := False; HBox2.BorderWidth := 5; RecursiveCheckButton := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_ApplyRecursivelyFor); - RecursiveCheckButton.OnToggled := RecursiveCheckButtonToggled; + RecursiveCheckButton.OnToggled := @RecursiveCheckButtonToggled; RecursiveOptionMenu := TGTKOptionMenu.Create(Self); miAllFiles := TGTKMenuItem.Create(Self); miAllFiles.Caption := LANGFChmod_miAllFiles; @@ -127,37 +127,37 @@ begin VBox := TGTKVBox.Create(Self); VBox.BorderWidth := 5; cbSUID := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_SUID); - VBox.AddControlEx(cbSUID, False, False, 0); cbSUID.OnToggled := PermissionsCheckBoxToggle; + VBox.AddControlEx(cbSUID, False, False, 0); cbSUID.OnToggled := @PermissionsCheckBoxToggle; cbSGID := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_SGID); - VBox.AddControlEx(cbSGID, False, False, 0); cbSGID.OnToggled := PermissionsCheckBoxToggle; + VBox.AddControlEx(cbSGID, False, False, 0); cbSGID.OnToggled := @PermissionsCheckBoxToggle; cbSticky := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_Sticky); - VBox.AddControlEx(cbSticky, False, False, 0); cbSticky.OnToggled := PermissionsCheckBoxToggle; + VBox.AddControlEx(cbSticky, False, False, 0); cbSticky.OnToggled := @PermissionsCheckBoxToggle; VBox.AddControlEx(TGTKHSeparator.Create(Self), False, False, 2); cbUSRRead := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_RUSR); - VBox.AddControlEx(cbUSRRead, False, False, 0); cbUSRRead.OnToggled := PermissionsCheckBoxToggle; + VBox.AddControlEx(cbUSRRead, False, False, 0); cbUSRRead.OnToggled := @PermissionsCheckBoxToggle; cbUSRWrite := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_WUSR); - VBox.AddControlEx(cbUSRWrite, False, False, 0); cbUSRWrite.OnToggled := PermissionsCheckBoxToggle; + VBox.AddControlEx(cbUSRWrite, False, False, 0); cbUSRWrite.OnToggled := @PermissionsCheckBoxToggle; cbUSRExec := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_XUSR); - VBox.AddControlEx(cbUSRExec, False, False, 0); cbUSRExec.OnToggled := PermissionsCheckBoxToggle; + VBox.AddControlEx(cbUSRExec, False, False, 0); cbUSRExec.OnToggled := @PermissionsCheckBoxToggle; VBox.AddControlEx(TGTKHSeparator.Create(Self), False, False, 2); cbGRPRead := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_RGRP); - VBox.AddControlEx(cbGRPRead, False, False, 0); cbGRPRead.OnToggled := PermissionsCheckBoxToggle; + VBox.AddControlEx(cbGRPRead, False, False, 0); cbGRPRead.OnToggled := @PermissionsCheckBoxToggle; cbGRPWrite := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_WGRP); - VBox.AddControlEx(cbGRPWrite, False, False, 0); cbGRPWrite.OnToggled := PermissionsCheckBoxToggle; + VBox.AddControlEx(cbGRPWrite, False, False, 0); cbGRPWrite.OnToggled := @PermissionsCheckBoxToggle; cbGRPExec := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_XGRP); - VBox.AddControlEx(cbGRPExec, False, False, 0); cbGRPExec.OnToggled := PermissionsCheckBoxToggle; + VBox.AddControlEx(cbGRPExec, False, False, 0); cbGRPExec.OnToggled := @PermissionsCheckBoxToggle; VBox.AddControlEx(TGTKHSeparator.Create(Self), False, False, 2); cbALLRead := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_ROTH); - VBox.AddControlEx(cbALLRead, False, False, 0); cbALLRead.OnToggled := PermissionsCheckBoxToggle; + VBox.AddControlEx(cbALLRead, False, False, 0); cbALLRead.OnToggled := @PermissionsCheckBoxToggle; cbALLWrite := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_WOTH); - VBox.AddControlEx(cbALLWrite, False, False, 0); cbALLWrite.OnToggled := PermissionsCheckBoxToggle; + VBox.AddControlEx(cbALLWrite, False, False, 0); cbALLWrite.OnToggled := @PermissionsCheckBoxToggle; cbALLExec := TGTKCheckButton.CreateWithLabel(Self, LANGFChmod_XOTH); - VBox.AddControlEx(cbALLExec, False, False, 0); cbALLExec.OnToggled := PermissionsCheckBoxToggle; + VBox.AddControlEx(cbALLExec, False, False, 0); cbALLExec.OnToggled := @PermissionsCheckBoxToggle; PermissionFrame.AddControl(VBox); Busy := False; - OnKeyDown := FormKeyDown; - OctalEntry.OnChanged := OctalEntryChanged; + OnKeyDown := @FormKeyDown; + OctalEntry.OnChanged := @OctalEntryChanged; RecursiveCheckButtonToggled(Self); end; |