diff options
Diffstat (limited to 'UChown.pas')
| -rw-r--r-- | UChown.pas | 16 |
1 files changed, 10 insertions, 6 deletions
@@ -22,7 +22,7 @@ unit UChown; interface uses - SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView; + SysUtils, Classes, lazgdk3, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKView; type TFChown = class(TGTKDialog) @@ -81,11 +81,15 @@ begin ClientArea.AddControlEx(HBox2, False, False, 3); FileLabel := TGTKLabel.Create(Self); - FileLabel.SetAlignment(0, 0); - FileLabel.SetPadding(10, 5); + FileLabel.XAlign := 0; + FileLabel.YAlign := 0; + FileLabel.MarginStart := 10; + FileLabel.MarginEnd := 10; + FileLabel.MarginTop := 5; + FileLabel.MarginBottom := 5; FileLabel.Caption := '<span weight="ultrabold">File:</span> .adobe'#10'<span weight="ultrabold">Text:</span> rw-rw-rw'#10 + '<span weight="ultrabold">Octal:</span> 666'#10'<span weight="ultrabold">Owner:</span> root'#10 + - '<span weight="ultrabold">Group:</span> root'; + '<span weight="ultrabold">Group:</span> root'; FileLabel.UseMarkup := True; FileFrame.AddControl(FileLabel); @@ -122,8 +126,8 @@ end; procedure TFChown.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean); begin case Key of - GDK_RETURN, GDK_KP_ENTER: ModalResult := mbOK; - GDK_ESCAPE: ModalResult := mbCancel; + GDK_KEY_Return, GDK_KEY_KP_Enter: ModalResult := mbOK; + GDK_KEY_Escape: ModalResult := mbCancel; end; end; |