Grid Oluşturma

Function GridInit(Grid As Object)
Dim i As Number
  
  'Gridi oluşturuyoruz 3 sayısı sütun ve 5 sayıları satır sayıları
  Grid.Init(3,5,5)
  
  i:=1
  Grid.SetColName(i,"sehir_adi")
  Grid.sehir_adi.Caption:="Şehir Adı"
  Grid.sehir_adi.Width:=100
 
  i:=i+1
  Grid.SetColName(i,"ilce_goster")
  Grid.ilce_goster.Caption:="İlçeler"
  Grid.ilce_goster.Width:=50
  Grid.ilce_goster.ColType:=PG_PUSHBUTTON
  
  i:=i+1
  Grid.SetColName(i,"id")
  Grid.r_sayac.Caption:="ID"
  Grid.r_sayac.Width:=50
  Grid.r_sayac.CffVarType:=VARTYPE_NUM
  Grid.r_sayac.Visible:=True
  
EndFunction