stark vereinfacht.
Code: Alles auswählen
********************************************************************************
PROCEDURE main()
MEMVAR oHauptDialog
//------------------------------------------------------------------------------
DCGETOPTIONS;
ABORTQUERY MSG {|| AppQuit("",.T.,"Programmende mit ESC") };
AUTORESIZE;
AUTOWINDOWMENU;
BORDER XBPDLG_SIZEBORDER;
CLOSEQUERY MSG {|| AppQuit("",.T.,"Programmende über X-Button") };
ICON ICON_APPLICATION;
PIXEL;
TITLE TokenUpper(SubStr(oSysPara:cProgrammName,1,Rat(".",oSysPara:cProgrammName)-1)) + " (DATENEMPFANG AUSGESCHALTET)"
DCREAD GUI;
EVAL {|o| oHauptdialog:setFrameState(XBPDLG_FRAMESTAT_MAXIMIZED),;
oDateneingang:disableItem(2),;
SetTimerEvent(10000, {|| starteThread(oThread,oEinstellung:neustart,oHauptDialog,oDatenEingang,oSignale) } );
};
OPTIONS GetOptions;
PARENT @oHauptDialog
RETURN