Gadget erstellen mit PB4

[javabean]

Vielen Dank für die Hilfe!!!!

->>Jetzt klappt's!

[nicolaus]

@ts-soft

mal ne frage wo nimmst du denn die *.lib her di in den examples mit drin sind?

[ts-soft]

Die URL ist eigentlich beigefügt: http://www.radasm.com/
Aber es wäre besser, die LibVersion in PBOSL (PBOSL_CreateGadget) zu
verwenden, weil in dieser Version sind noch kleine Fehler.

[i.j.radtke]

wie kann ich den zellinhalt der aktuellen zelle (z.b. nach beforeedit oder nach afteredit) abfragen ?

[Thatsanee]

wie kann ich den zellinhalt der aktuellen zelle (z.b. nach beforeedit oder nach afteredit) abfragen ?

Hi,
und hast du es schon geschafft den Zellinhalt auszulesen ?

[i.j.radtke]

sorry, tut mir leid. Habe zur Zeit wenig Gelegenheit mich mit PB zu beschäftigen. Hoffe in den langen Winterabenden wieder.

[edel]

Das auslesen geht in etwa so

Beispiel :

Code: Alles auswählen

  XIncludeFile "RaGrid.pbi"
  
  Macro MAKEColRow(nCol,nRow)
    (nCol | (nRow<<16))
  EndMacro
  
  Structure PersonData
    Name.s
    Plz.s
  EndStructure
  
  *hW.Long = OpenWindow(#PB_Any,#PB_Ignore,#PB_Ignore,610,550,"Test")
 
  CreateGadgetList(*hW\l)
  GridGadget(0,5,5,600,490,#STYLE_GRIDFRAME|#STYLE_NOFOCUS)
  
  AddGridColumn(0,"Name" ,50,#TYPE_EDITTEXT)
  AddGridColumn(0,"Plz"  ,50,#TYPE_EDITTEXT)
  
  Person.PersonData
  
  Person\Name = "Susi"
  Person\Plz  = "51580"
  
  AddGadgetGridItem(0,@Person)
  
  Person\Name = "Herbert"
  
  AddGadgetGridItem(0,@Person)
  
  Repeat
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_Gadget
      
      If EventGadget() = 0
        If EventType() = #PB_EventType_Grid_BeforeEdit
          nCol    = SendMessage_(GadgetID(0),#GM_GETCURCOL,0,0) 
          nRow    = SendMessage_(GadgetID(0),#GM_GETCURROW,0,0)
          nColRow = MAKEPARAM(nCol,nRow)
          
          Buffer = AllocateMemory(100)
          
          SendMessage_(GadgetID(0),#GM_GETCELLDATA,nColRow,Buffer)
          
          Debug PeekS(Buffer)
          
          FreeMemory(Buffer)
          
        EndIf 
      EndIf
      
    EndIf
    
  Until Event = #WM_CLOSE