Code: Alles auswählen
* *
#include "appevent.ch"
#include "dcdialog.ch"
#include "dcgra.ch"
#include "dcmsg.ch"
#include "routenverfolgung.ch"
#include "nls.ch"
#include "xbp.ch"
#include "q:\include\inkey.ch"
#pragma Library( "XBTBASE1.LIB") // wird dadurch in keinem
#pragma Library( "XBTBASE2.LIB") // Projektfile mehr benötigt als Angabe
#pragma Library( "XppUI2.lib" ) // für den XbpPrintDialog()
#pragma Library( "dclipx.lib" )
#pragma Library( "..\zusaetze\mk_verkehrsbetriebe.lib" )
#pragma Library ("q:\zusaetze_gui\allgemein\mk_zusaetze.lib")
********************************************************************************
PROCEDURE main()
LOCAL getlist := {}
LOCAL GetOptions
LOCAL oAusschnitte := ausschnitte():new()
LOCAL oDatenBank := datenbank():new(,,,.T.)
LOCAL oDialogZusatz := DialogRoutenZusatz():new(,,"04.09.2012")
LOCAL oEinstellung := einstellung():new()
LOCAL oSignale := signale():new()
MEMVAR oSysPara
oDatenbank:erzeugeAlleVerzeichnisse()
oSysPara:pruefeMehrfachStart(.F.)
oDialogZusatz:erzeugeMenuBar(@getlist)
//------------------------------------------------------------------------------
PruefeMeldepunktUpdate()
oAusschnitte:db_oeffnen("bez",,,,,,,,,,,,.T.)
oDialogZusatz:ausschnitte2Array(oAusschnitte)
oAusschnitte:schliesse_datenbank()
oEinstellung:db_oeffnen(,,,,,,,.T.)
oEinstellung:erzeugeVerzeichnisse(oSysPara:cDatenPfad + "\icon\")
oEinstellung:schliesse_datenbank()
oSignale:cPfad += Alltrim(Str(Year(Date()))) + "/" + Right("0" + Alltrim(Str(Month(Date()))),2) + "/"
oSignale:cDbank += DToS(Date())
oSignale:db_oeffnen(,,,,,.T.)
oSignale:initvaria()
oDialogZusatz:linien2array(oSignale,oEinstellung)
oSignale:schliesse_datenbank()
//------------------------------------------------------------------------------
DCMENUITEM "~Einstellungen";
ACTION {|| einstellungen(oDialogZusatz:oDateiMenu) };
MESSAGE "Programmeinstellungen" INTO oDialogZusatz:oMessageBox;
PARENT oDialogZusatz:oDateiMenu
//------------------------------------------------------------------------------
oDialogZusatz:erzeugeProgrammendeMenue(@getlist)
oDialogZusatz:erzeugeHilfeMenue(@getlist)
oDialogZusatz:erzeugestatusbar(@getlist)
//------------------------------------------------------------------------------
@ 1,1 DCGROUP oDialogZusatz:oRahmenHTML;
CAPTION "Routenanzeige";
SIZE DCGUI_PARENTWIDTH-10,DCGUI_PARENTHEIGHT
//------------------------------------------------------------------------------
DCGETOPTIONS;
ABORTQUERY MSG {|| AppQuit(oSysPara:cProgrammName,.T.,"Programmende mit ESC") };
AUTORESIZE;
AUTOWINDOWMENU;
BORDER XBPDLG_SIZEBORDER;
BUSY "Programm wird gestartet, Daten werden geladen";
CLOSEQUERY MSG {|| AppQuit(oSysPara:cProgrammName,.T.,"Programmende über X-Button") };
ICON 1;
PIXEL;
TITLE TokenUpper(SubStr(oSysPara:cProgrammName,1,Rat(".",oSysPara:cProgrammName)-1)) + " Version: " + oDialogZusatz:cVersion + " (" + oSysPara:cCopyright + ") " + oSysPara:cLizenznehmerName
DCREAD GUI;
EVAL {|o| oSysPara:erzeugeHilfe(oSysPara:oHauptDialog),;
oSysPara:oHauptdialog:setFrameState(XBPDLG_FRAMESTAT_MAXIMIZED),;
test(oDialogZusatz:oRahmenHTML,oSysPara);
};
OPTIONS GetOptions;
PARENT @oSysPara:oHauptDialog
RETURN
********************************************************************************
FUNCTION test(oDialog,oSysPara)
altd()
RETURN(.T.)