.Net Grid auf VO-Form

[Frank Müßner]

Hallo,

ich kann ja .Net Controls auf VO-Form verwenden. Das klappt so weit auch in dem ich SetParent(.NetControl:Handle, SELF:Handle()) verwende.

Jetzt versuche ich gerade das Devexpress.XtraGrid.GridControl in der gleichen weise zu verwenden. Mit dem Code:

Code: Select all

METHOD PostInit(oWindow,iCtlID,oServer,uExtra)
	//Put your PostInit additions here
        
    SELF:gridControl1 := Devexpress.XtraGrid.GridControl{}
    SELF:gridView1 := Devexpress.XtraGrid.Views.Grid.GridView{}
           
    SELF:gridControl1:Location := System.Drawing.Point{167, 49}
    SELF:gridControl1:MainView := SELF:gridView1
    SELF:gridControl1:Name := "gridControl1"
    SELF:gridControl1:Size := System.Drawing.Size{595, 271}
    SELF:gridControl1:TabIndex := 0
    SELF:gridControl1:ViewCollection:AddRange(<Devexpress.XtraGrid.Views.Base.BaseView>{ SELF:gridView1 })
           
    SELF:gridView1:GridControl := SELF:gridControl1
    SELF:gridView1:Name := "gridView1"
            
    
    LOCAL table1 AS System.Data.DataTable
    table1:=System.Data.DataTable{}
    table1:Columns:Add("test1")
    table1:Rows:Add("Wert")
    SELF:gridControl1:DataSource:=table1
            
    SetParent(SELF:gridControl1:Handle, SELF:Handle())
            
            
	RETURN NIL

Wird das Grid angezeigt, aber keine Spalten und Werte.

Der identische Code aus einem generierten WindowsFormsApplikation zeigt das GRid mit Spalten und Daten.

Woran kann das liegen?
Frank

[Frank Müßner]

Hi,
Ich habe ein kleines Beispiel erstellt.
Vielleicht kann jemand testen, warum auch das normale Windows Grid nicht angezeigt wird. Oder wo mein Gedankenfehler liegt.
Vielen Dank im Voraus.
Grüße Frank