1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

use cToolTipController.pkg

Object oToolTipController1 is a cToolTipController
    Move Self to ghoToolTipController
End_Object

Object oButton is a Button
    Set psToolTip to "Klick mich!"
End_Object

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

CD_Popup_Object Artikel_sl is a dbModalPanel
    Object oArtikel_DD is a cArtikelDataDictionary
        Procedure OnConstrain
            Constrain ARTIKEL.STAND gt 0
        End_Procedure
    End_Object

    Set Main_DD To oArtikel_DD
    Set Server  To oArtikel_DD

    Object oSelList Is A dbList
        Set Main_File to ARTIKEL.File_Number
        Set Ordering to 1
        Set Auto_Server_State to True
        Set pbHeaderTogglesDirection to True

        Begin_row
            Entry_Item ARTIKEL.NUMMER
            Entry_Item ARTIKEL.Bezeichnung
        End_Row
        
        Set Form_Width 0 to 49
        Set Header_Label 0 to "NUMMER >>"

        Set Form_Width 1 to 108
        Set Header_Label 1 to "Bezeichnung >>"

    End_Object

CD_End_Object