Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

local oDialog    := NIL
local oRahmen := NIL
@ 55, 5 DCGROUP oRahmen;
                PARENT oDialog;  <---------- was muß da hin? oDialog:drawingarea bringt hier einen Fehler wegen unbekannt.
                  SIZE DCGUI_PARENTWIDTH-30,DCGUI_PARENTHEIGHT - 70
    
//------------------------------------------------------------------------------
       DCGETOPTIONS;
             BORDER XBPDLG_SIZEBORDER;
         CLOSEQUERY MSG {|| IF(oSysPara:oMessage:anzeigen(" Abbruch?",.T.,"N"),.T.,.F.)};
         HILITEGETS GRA_CLR_CYAN;
        NOMAXBUTTON;
        NOMINBUTTON;
              PIXEL;
         SAYOPTIONS XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT;
       TOOLTIPCOLOR GRA_CLR_BLACK, GRA_CLR_YELLOW;
        WINDOWWIDTH 400;
       WINDOWHEIGHT 200

         DCREAD GUI;
            OPTIONS GetOptions;
             PARENT @oDialog

Code: Alles auswählen

METHOD DialogFahrerZusatz:stornierentagesdienste(aTagesdienste)
       LOCAL getlist       := {}
       LOCAL GetOptions
       LOCAL lErfolg       := .T.
       LOCAL oBrowse       := NIL
       LOCAL oDialog       := NIL
       LOCAL oPbAbbruch    := NIL
       LOCAL oPbSpeichern  := NIL
       LOCAL oRahmenBrowse := NIL
       LOCAL oRahmenPB     := NIL

       MEMVAR oSysPara
//------------------------------------------------------------------------------
       @  5,5 DCGROUP oRahmenBrowse;
                 SIZE DCGUI_PARENTWIDTH-10,DCGUI_PARENTHEIGHT - 50
       @ DCGUI_ROW,5 DCGROUP oRahmenPB;
                        SIZE DCGUI_PARENTWIDTH-10, ::nPbHoehe+10
       @ 10,5 DCBROWSE oBrowse;
                  DATA aTagesdienste;
           NOSOFTTRACK;
                PARENT oRahmenBrowse;
                  SIZE DCGUI_PARENTWIDTH-10,DCGUI_PARENTHEIGHT-10;
               TABSTOP

       DCBROWSECOL OBJECTVAR datum;
            HEADER "Datum";
            PARENT oBrowse;
             WIDTH 70
       DCBROWSECOL OBJECTVAR dienstbez;
            HEADER "Dienst";
            PARENT oBrowse;
             WIDTH 120
       DCBROWSECOL OBJECTVAR nummerneu;
            HEADER "neuer Fahrer";
            PARENT oBrowse;
             WIDTH 80
//------------------------------------------------------------------------------
       @ 0,0 DCPUSHBUTTON;
                  CAPTION "Speichern";
                     EVAl {|| oPbSpeichern:setPos({10,10})};
                   OBJECT oPbSpeichern;
                   PARENT oRahmenPB;
                     SIZE ::nPbLaenge,::nPbHoehe;
                  TABSTOP;
                  TOOLTIP "Ändert die angezeigten Tagesdienste um"
       @ 0,0 DCPUSHBUTTON;
                  CAPTION "Abbruch";
                     EVAL {|| oPbAbbruch:setPos( {oPbSpeichern:currentpos()[1] + oPbspeichern:currentsize()[1],10} )};
                   OBJECT oPbAbbruch;
                   PARENT oRahmenPB;
                     SIZE ::nPbLaenge,::nPbHoehe;
                  TABSTOP;
                  TOOLTIP "Abbruch ohne Speichern"
//------------------------------------------------------------------------------
       DCGETOPTIONS;
             BORDER XBPDLG_SIZEBORDER;
         CLOSEQUERY MSG {|| IF(oSysPara:oMessage:anzeigen(" Abbruch?",.T.,"N"),.T.,.F.)};
         HILITEGETS GRA_CLR_CYAN;
        NOMAXBUTTON;
        NOMINBUTTON;
              PIXEL;
         SAYOPTIONS XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT;
       TOOLTIPCOLOR GRA_CLR_BLACK, GRA_CLR_YELLOW;
        WINDOWWIDTH 500;
       WINDOWHEIGHT 700

         DCREAD GUI;
            OPTIONS GetOptions;
             PARENT @oDialog;
              TITLE "Tagesdienste eines Fahrers ändern"
RETURN lErfolg

Code: Alles auswählen

FUNCTION MAIN()
LOCAL GetList := {}, oGroup

@ 0, 0 DCGROUP oGroup CAPTION 'Test' SIZE 35,2.5
@ 1, 1 DCPUSHBUTTON CAPTION 'Ein Test' SIZE 20,1 PARENT oGroup
@ 1,21 DCPUSHBUTTON CAPTION 'Zwei Tests' SIZE 20,1 PARENT oGroup

DCREAD GUI FIT ADDBUTTONS

RETURN NIL