Tom, das ist so nicht korrekt. Wenn ich keinen Parent angebe, passierz sowas:
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
- ohne Parent.PNG (43.97 KiB) 10213 mal betrachtet
Die Rahmen dienen als Parent für den browse, bzw. für die Buttons. Sie werden aber anscheinend nicht berücksichtigt. Schau mal, wo die PB erscheinen. die sollten doch eigentlich direkt im Parent auftauchen und nicht versetzt. das habe ich nicht, wenn ich in der Group den parent angebe. Deshalb habe ich das wohl auch immer so gemacht. Irgendwas ist da noch nicht richtig.