Skip to content

Commit 13a0127

Browse files
committed
fix: Error: (4004) Variable identifier expected
Refs #2268
1 parent 3094d79 commit 13a0127

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

source/extfiledialog.pas

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -124,8 +124,8 @@ procedure TfrmExtFileDialog.FormCreate(Sender: TObject);
124124
raise Exception.CreateFmt('Constructor of base class %s called. Use one of its descendants instead.', [ClassName]);
125125
{$IfNDef WINDOWS}
126126
ShellTreeView.Images := MainForm.ImageListMain;
127-
ShellTreeView.OnGetImageIndex := @ShellTreeViewGetImageIndex;
128-
ShellTreeView.OnGetSelectedIndex := @ShellTreeViewGetSelectedIndex;
127+
ShellTreeView.OnGetImageIndex := ShellTreeViewGetImageIndex;
128+
ShellTreeView.OnGetSelectedIndex := ShellTreeViewGetSelectedIndex;
129129
{$ENDIF}
130130
FFilterNames := TStringList.Create;
131131
FFilterMasks := TStringList.Create;

0 commit comments

Comments
 (0)