Absolute Array

Date: 02-16-2022

Return to Index

 
'Compilable Example:  (Jose Includes)
#Compile Exe
#Dim All
#Include "Win32API.inc"
#Include "mlg.inc"
 
Enum Equates Singular
   IDC_Grid = 500
End Enum
 
Global hDlg, hGrid As Dword
Global D() As String
 
Function PBMain() As Long
   Local P, Rows, Cols As Long
   Dialog New Pixels, 0, "MLG Example",300,300,600,350, %WS_OverlappedWindow To hDlg
 
   MLG_Init
   Control Add "MyLittleGrid", hDlg, %IDC_Grid, "r10/c4", 10,10,580,330, %MLG_STYLE
   Control Handle hDlg, %IDC_Grid To hGrid
 
   Rows = 10 : Cols = 4
   P = SendMessage(hGrid, %MLG_GetArrayPTR, VarPtr(Rows), VarPtr(Cols))
   ReDim D(Rows,Cols) At P
   D(1,1) = "Start"
   D(5,1) = "Start"
   D(0,1) = "01"
   D(1,0) = "10"
 
   Dialog Show Modal hDlg
End Function 

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm