diff options
| author | Tomas Bzatek <tbzatek@redhat.com> | 2024-12-23 23:59:45 +0100 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@redhat.com> | 2025-11-27 19:36:10 +0100 |
| commit | b9703b29819b619037cc282d719c187e51bacd30 (patch) | |
| tree | bd6d73e5fb6bcb6eb307844103b3dff185f2ac9a /UProgress.pas | |
| parent | a9634b933f71a9045e61d29c486f2d51d39fd1e2 (diff) | |
| download | tuxcmd-b9703b29819b619037cc282d719c187e51bacd30.tar.xz | |
Port to g-i generated glib2 bindings
Includes switch to FPC -Mobjfpc and related pointer style fixes.
Diffstat (limited to 'UProgress.pas')
| -rw-r--r-- | UProgress.pas | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/UProgress.pas b/UProgress.pas index f389328..bc6410b 100644 --- a/UProgress.pas +++ b/UProgress.pas @@ -22,8 +22,7 @@ unit UProgress; interface uses - SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView, - UEngines; + SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts; type TFProgress = class(TGTKDialog) @@ -89,9 +88,9 @@ begin // ClientArea.AddControlEx(Space, False, False, 0); // ClientArea.AddControlEx(VBox, True, True, 0); // AddControl(VBox); - OnKeyDown := FormKeyDown; - OnCloseQuery := FormCloseQuery; - CancelButton.OnClick := CancelButtonClick; + OnKeyDown := @FormKeyDown; + OnCloseQuery := @FormCloseQuery; + CancelButton.OnClick := @CancelButtonClick; CancelButton.Default := True; end; |