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 /UColumns.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 'UColumns.pas')
| -rw-r--r-- | UColumns.pas | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/UColumns.pas b/UColumns.pas index d59b990..773b399 100644 --- a/UColumns.pas +++ b/UColumns.pas @@ -22,8 +22,7 @@ unit UColumns; interface uses - glib2, gdk2, gtk2, pango, SysUtils, Types, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKConsts, GTKView, - GTKUtils, GTKDialogs, GTKPixbuf, GTKClasses, + gdk2, gtk2, SysUtils, Classes, Variants, GTKControls, GTKForms, GTKStdCtrls, GTKExtCtrls, GTKView, GTKPixbuf, UCoreClasses; type @@ -52,7 +51,7 @@ var implementation -uses ULocale, UCoreUtils, UConfig, UCore; +uses ULocale, UConfig; procedure TFColumns.FormCreate(Sender: TObject); @@ -106,7 +105,7 @@ begin Column.Resizable := False; Column.FixedWidth := 20; Column.SizingMode := smFixed; - Column.OnToggled := ListViewColumnToggled; + Column.OnToggled := @ListViewColumnToggled; Column := ListView.Columns.Add; Column.AddAttribute('text', 1); Column.Resizable := False; @@ -134,9 +133,9 @@ begin AddColumnItems; - ListView.OnSelectionChanged := ListViewSelectionChanged; - MoveUpButton.OnClick := MoveUpDownButtonButtonClick; - MoveDownButton.OnClick := MoveUpDownButtonButtonClick; + ListView.OnSelectionChanged := @ListViewSelectionChanged; + MoveUpButton.OnClick := @MoveUpDownButtonButtonClick; + MoveDownButton.OnClick := @MoveUpDownButtonButtonClick; ListView.SetFocus; end; @@ -194,13 +193,11 @@ end; procedure TFColumns.ApplyColumnList; var i, j: integer; TempIDs, TempArrayI: array[1..ConstNumPanelColumns] of integer; - TempArrayB: array[1..ConstNumPanelColumns] of boolean; begin // Copy the old items for i := 1 to ConstNumPanelColumns do begin TempIDs[i] := ConfColumnIDs[i]; TempArrayI[i] := ConfColumnSizes[i]; - TempArrayB[i] := ConfColumnVisible[i]; end; // Search for moved columns |