diff options
Diffstat (limited to 'UProgress.pas')
| -rw-r--r-- | UProgress.pas | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/UProgress.pas b/UProgress.pas index bc6410b..3b167d6 100644 --- a/UProgress.pas +++ b/UProgress.pas @@ -22,7 +22,7 @@ unit UProgress; interface uses - SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts; + SysUtils, Classes, lazgdk3, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls; type TFProgress = class(TGTKDialog) @@ -54,7 +54,6 @@ begin WindowPosition := wpCenter; Cancelled := False; Buttons := []; - ShowSeparator := False; ActionArea.SetSizeRequest(0, 4); Caption := LANGProgress; CancelButton := TGTKButton.Create(Self); @@ -96,7 +95,7 @@ end; procedure TFProgress.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftState; var Accept: boolean); begin - if Key = GDK_ESCAPE then begin + if Key = GDK_KEY_Escape then begin Accept := False; CancelButtonClick(Sender); end; @@ -126,8 +125,12 @@ begin LabelBox.AddControlEx(Label1, True, True, 0); LabelBox.AddControlEx(Label2, True, True, 0); LabelBox.AddControlEx(Label3, True, True, 0); - Label2.XAlign := 0; Label2.XPadding := 20; - Label3.XAlign := 0; Label3.XPadding := 20; + Label2.XAlign := 0; + Label2.MarginStart := 20; + Label2.MarginEnd := 20; + Label3.XAlign := 0; + Label3.MarginStart := 20; + Label3.MarginEnd := 20; BarBox.AddControlEx(Bar1HBox, False, False, 0); BarBox.AddControlEx(Space2, False, False, 0); BarBox.AddControlEx(Bar2HBox, False, False, 0); |