Fixed: Compiling with fbc 1.10.0

XusinboyBekchanov · Feb 25, 2023 · b8de0de · b8de0de
1 parent 1a05e12
commit b8de0de
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/mff/Control.bas b/mff/Control.bas
@@ -958,7 +958,7 @@ Namespace My.Sys.Forms
 					Case 3: nLeft = CW_USEDEFAULT: nTop = CW_USEDEFAULT: nWidth = CW_USEDEFAULT: nHeight = CW_USEDEFAULT ' WindowsDefaultBounds
 					End Select
 					Dim As Integer AControlParent(2) => {0, WS_EX_CONTROLPARENT}
-					Dim As Integer ATabStop(2) => {0,WS_TABSTOP},AGrouped(2) = >{0,WS_GROUP}
+					Dim As Integer ATabStop(2) = {0, WS_TABSTOP}, AGrouped(2) = {0, WS_GROUP}
 					If ClassName = "WebBrowser" Then
 						'Style = WS_TABSTOP Or WS_CHILD Or WS_VISIBLE
 						'ExStyle = 0

diff --git a/mff/Grid.bas b/mff/Grid.bas
@@ -56,7 +56,7 @@ Namespace My.Sys.Forms
 			If ColumnIndex < FColumns.Count Then
 				Dim As GridCell Ptr Cell = FColumns.Object(ColumnIndex)
 				If Cell = 0 Then
-					Cell = New GridCell
+					Cell = New_(GridCell)
 					Cell->Column = Cast(Grid Ptr, Parent)->Columns.Column(ColumnIndex)
 					Cell->Row = Cast(Grid Ptr, Parent)->Rows.Item(Index)
 					Cell->Parent = Parent