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 /UConnectionProperties.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 'UConnectionProperties.pas')
| -rw-r--r-- | UConnectionProperties.pas | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/UConnectionProperties.pas b/UConnectionProperties.pas index 7b9ef1b..a7dd921 100644 --- a/UConnectionProperties.pas +++ b/UConnectionProperties.pas @@ -22,7 +22,7 @@ unit UConnectionProperties; interface uses - SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKMenus; + SysUtils, Classes, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKMenus; type TFConnectionProperties = class(TGTKDialog) @@ -207,15 +207,15 @@ begin Lock := True; - OnKeyDown := FormKeyDown; - NameEntry.OnChanged := NameEntryChanged; - URIEntry.OnChanged := URIEntryChanged; - ServiceTypeOptionMenu.OnChanged := ServiceTypeOptionMenuChanged; - ServerEntry.OnChanged := ServiceTypeOptionMenuChanged; - UserNameEntry.OnChanged := ServiceTypeOptionMenuChanged; - PasswordEntry.OnChanged := ServiceTypeOptionMenuChanged; - TargetDirEntry.OnChanged := ServiceTypeOptionMenuChanged; - MaskPasswordCheckButton.OnToggled := MaskPasswordCheckButtonToggled; + OnKeyDown := @FormKeyDown; + NameEntry.OnChanged := @NameEntryChanged; + URIEntry.OnChanged := @URIEntryChanged; + ServiceTypeOptionMenu.OnChanged := @ServiceTypeOptionMenuChanged; + ServerEntry.OnChanged := @ServiceTypeOptionMenuChanged; + UserNameEntry.OnChanged := @ServiceTypeOptionMenuChanged; + PasswordEntry.OnChanged := @ServiceTypeOptionMenuChanged; + TargetDirEntry.OnChanged := @ServiceTypeOptionMenuChanged; + MaskPasswordCheckButton.OnToggled := @MaskPasswordCheckButtonToggled; NameEntry.SetFocus; @@ -310,7 +310,7 @@ begin CurrentURI := MakeURI(False); URIEntry.OnChanged := nil; URIEntry.Text := MakeURI(MaskPasswordCheckButton.Checked); - URIEntry.OnChanged := URIEntryChanged; + URIEntry.OnChanged := @URIEntryChanged; NameEntryChanged(Sender); end; |