We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 3094d79 commit 13a0127Copy full SHA for 13a0127
source/extfiledialog.pas
@@ -124,8 +124,8 @@ procedure TfrmExtFileDialog.FormCreate(Sender: TObject);
124
raise Exception.CreateFmt('Constructor of base class %s called. Use one of its descendants instead.', [ClassName]);
125
{$IfNDef WINDOWS}
126
ShellTreeView.Images := MainForm.ImageListMain;
127
- ShellTreeView.OnGetImageIndex := @ShellTreeViewGetImageIndex;
128
- ShellTreeView.OnGetSelectedIndex := @ShellTreeViewGetSelectedIndex;
+ ShellTreeView.OnGetImageIndex := ShellTreeViewGetImageIndex;
+ ShellTreeView.OnGetSelectedIndex := ShellTreeViewGetSelectedIndex;
129
{$ENDIF}
130
FFilterNames := TStringList.Create;
131
FFilterMasks := TStringList.Create;
0 commit comments