diff options
Diffstat (limited to 'URemoteWait.pas')
| -rw-r--r-- | URemoteWait.pas | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/URemoteWait.pas b/URemoteWait.pas index c3802d1..c727296 100644 --- a/URemoteWait.pas +++ b/URemoteWait.pas @@ -22,7 +22,7 @@ unit URemoteWait; interface uses - SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKConsts; + SysUtils, Classes, lazgdk3, GTKControls, GTKForms, GTKStdCtrls, GTKConsts; type TFRemoteWait = class(TGTKDialog) @@ -61,7 +61,6 @@ begin Label1.UseUnderline := True; Label1.UseMarkup := True; Label1.XAlign := 0; - Label1.XPadding := 0; Label1.LineWrap := True; Box.AddControlEx(Label1, False, False, 2); { @@ -74,7 +73,8 @@ begin } Box.BorderWidth := 6; ClientArea.AddControlEx(Box, True, True, 0); - CancelButton := TGTKButton.CreateFromStock(Self, 'gtk-cancel'); + CancelButton := TGTKButton.CreateFromIconName(Self, 'gtk-cancel'); + CancelButton.Caption := 'Cancel'; CancelButton.Default := True; ActionArea.AddControlEndEx(CancelButton, False, False, 2); OnKeyDown := @FormKeyDown; @@ -86,7 +86,7 @@ end; procedure TFRemoteWait.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean); begin case Key of - GDK_RETURN, GDK_KP_ENTER, GDK_ESCAPE: Cancelled := True; + GDK_KEY_Return, GDK_KEY_KP_Enter, GDK_KEY_Escape: Cancelled := True; end; end; |