GFA BASIC 3.0 Bedienungsanleitung Seite 515

AES-Bibliotheken
DIM r%(3)
Resource-Indizes für DIALOG
form1%=0 !Formular/Dialog
ikon1%=1 {ICON in Baum FORMI
vor%=2 IFTEXT in Baum FORM1
nac%=3 IFTEXT in Baum FORM]
str%=4 IFTEXT in Baum FORM1
ort%=5 IFTEXT in Baum FORM]
abbruch%=6 !BUTTON in Baum FORMI
ok%=7 {BUTTON in Baum FORM1
r%(1)=8 {BUTTON in Baum FORMI1
r%(2)=9 IBUTTON in Baum FORM1
r%(3)=10 IBUTTON in Baum FORM1
ausgabe%=11 !STRING in Baum FORM
~RSRC_FREE()
RESERVE FRE(0)+32000
laden_ok!=RSRC_LOAD("\dialog.rsc") !Resource laden
IF NOT laden_ok!
ALERT 1,"RSC nicht gefunden" ,1," Return ",a%
RESERVE FRE(0)+32000
EDIT
ENDIF
~ RSRC_GADDR(0,0, tree%)
IAdresse des Objektbaumes
ermitteln
11-89