diff options
| author | Tomas Bzatek <tbzatek@redhat.com> | 2024-12-24 12:41:48 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@redhat.com> | 2025-11-27 19:39:51 +0100 |
| commit | 1b2b4bb4f3ecc034a6e9364d8768e50b167a9680 (patch) | |
| tree | 065ddde53b64f7957a30b7dc9d83a748f309868c /UProgress.pas | |
| parent | b9703b29819b619037cc282d719c187e51bacd30 (diff) | |
| download | tuxcmd-1b2b4bb4f3ecc034a6e9364d8768e50b167a9680.tar.xz | |
Rough GTK3 port
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); |