Code: Alles auswählen
oDialogZusatz:standardPbLeiste(.T.,,,@getlist,oDialogZusatz:oTagesdienst,,,,.T.)
//------------------------------------------------------------------------------
DCGETOPTIONS;
BORDER XBPDLG_SIZEBORDER;
BUSY "Daten werden geladen";
COLORGETS {{ GRA_CLR_BLACK, GRA_CLR_CYAN },{ GRA_CLR_BLACK, GRA_CLR_WHITE }};
EVAL {|o| SetAppWindow(o) }; /* muß hier stehen für das Cascading*/
HILITEGETS GRA_CLR_CYAN;
NOESCAPEKEY;
NOMAXBUTTON;
NOMINBUTTON;
PIXEL;
SAYOPTIONS XBPSTATIC_TEXT_VCENTER+XBPSTATIC_TEXT_RIGHT;
TOOLTIPCOLOR GRA_CLR_BLACK, GRA_CLR_YELLOW;
WINDOWWIDTH oDialogZusatz:nFensterBreite;
WINDOWHEIGHT oDialogZusatz:nFensterHoehe
DCREAD GUI;
APPWINDOW oSysPara:oHauptDialog:drawingArea;
EVAL {|| oDialogZusatz:oTagesdienst:schalteEditControls(.F.),;
oDialogZusatz:oPbNeu:setCaption( "Drucken"),; ------------------------> da sieht man es kurz wechseln aber sofort steht wieder "Neu" drin.
oDialogZusatz:oPbAbbruch:cargo[3] := "AUS",;
SetAppFocus(oDialogZusatz:oPbNeu);
};
OPTIONS GetOptions;
PARENT @oDialog;
TITLE "Tagesdienstedruck " + oDialogzusatz:cVersion
***************************************************************************************************************
METHOD mk_dialog:standardPbLeiste(lNavigationAus,; // hier werden Standard PushButton für normale Dialoge aufgebaut
lLoeschenAus,;
oParent,;
getlist,;
objekt,;
lNeuAus,;
lSpeichernAus,;
lAbbruchAus,;
lNavigationWeg,;
lEditAus,;
lAendernAus)
DEFAULT lNavigationAus TO .F.
DEFAULT lLoeschenAus TO .T.
DEFAULT lNeuAus TO .F.
DEFAULT lSpeichernAus TO .F.
DEFAULT lABbruchAus TO .F.
DEFAULT lNavigationWeg TO .F.
DEFAULT lEditAus TO .F.
DEFAULT lAendernAus TO .F.
IF ! lNavigationWeg
@ 0,0 DCPUSHBUTTON;
ACTION {|| objekt:skipdb(,,,,,-1),;
::SkipzusatzDb(),;
dc_getrefresh(getlist),;
dc_getorigset(getlist);
};
CAPTION {||ICON_GOTOP,NIL};
EVAL {|o| o:setpos( {5,10}),;
AAdd(::aPbNavigieren,{o,.T.} );
};
HIDE {|| lNavigationAus};
OBJECT ::oPbTop;
PARENT oParent;
SIZE ::nPbLaengeBMP,::nPbHoehe;
TABSTOP;
TOOLTIP "Zum Anfang der Tabelle"
@ DCGUI_ROW,DCGUI_COL + 5 DCPUSHBUTTON;
ACTION {|| objekt:skipsatz(,,.T.,,,-1),;
::SkipzusatzDb(getlist),;
dc_getrefresh(getlist),;
dc_getorigset(getlist);
};
CAPTION {||ICON_GOBACK,NIL};
EVAL {|o| o:setpos( {::oPbTop:currentpos()[1] + ::oPbTop:currentsize()[1],::oPbTop:currentpos()[2]} ),;
AAdd(::aPbNavigieren,{o,.T.});
};
HIDE {|| lNavigationAus};
OBJECT ::oPbZurueck;
PARENT oParent;
SIZE ::nPblaengeBMP,::nPbHoehe;
TABSTOP;
TOOLTIP "vorheriger Satz in der Tabelle"
@ DCGUI_ROW,DCGUI_COL + 5 DCPUSHBUTTON;
ACTION {|| objekt:skipsatz(,,.T.),;
::SkipzusatzDb(getlist),;
dc_getrefresh(getlist),;
dc_getorigset(getlist);
};
CAPTION {||ICON_GONEXT,NIL};
EVAL {|o| o:setpos( {::oPbZurueck:currentpos()[1] + ::oPbZurueck:currentsize()[1],::oPbZurueck:currentpos()[2]} ),;
AAdd(::aPbNavigieren,{o,.T.});
};
HIDE {|| lNavigationAus};
OBJECT ::oPbVor;
PARENT oParent;
SIZE ::nPblaengeBMP,::nPbHoehe;
TABSTOP;
TOOLTIP "nächster Satz in der Tabelle"
@ DCGUI_ROW,DCGUI_COL + 5 DCPUSHBUTTON;
ACTION {|| objekt:skipdb(),;
::SkipzusatzDb(getlist),;
dc_getrefresh(getlist),;
dc_getorigset(getlist);
};
CAPTION {||ICON_GOBOTTOM,NIL};
EVAL {|o| o:setpos( {::oPbVor:currentpos()[1] + ::oPbVor:currentsize()[1],::oPbVor:currentpos()[2]} ),;
AAdd(::aPbNavigieren,{o,.T.});
};
HIDE {|| lNavigationAus};
OBJECT ::oPbBottom;
PARENT oParent;
SIZE ::nPblaengeBMP,::nPbHoehe;
TABSTOP;
TOOLTIP "Letzter Satz in der Tabelle"
ENDIF
IF ! lEditAus
@ DCGUI_ROW,DCGUI_COL + 5 DCPUSHBUTTON;
ACTION {|| ::schalteControls("neu",objekt,getlist)};
CAPTION "Neu";
CARGO "AN";
EVAL {|o| IF( lNavigationWeg,o:setPos({5,10}),o:setPos( {::oPbBottom:currentPos()[1] + ::oPbBottom:currentSize()[1],::oPbBottom:currentPos()[2] } ))};
HIDE {|| lNeuAus};
OBJECT ::oPbNeu;
PARENT oParent;
SIZE ::nPbLaenge,::nPbHoehe;
TABSTOP;
TOOLTIP "Neuanlage eines Datensatzes";
WHEN {|| ::pbWhenPruefung(::oPbNeu,objekt,"neu")}
@ DCGUI_ROW,DCGUI_COL + 5 DCPUSHBUTTON;
ACTION {|| ::schalteControls("ändern",objekt,getlist)};
CAPTION {||"Ändern"};
CARGO "AN";
EVAL {|o| o:setPos( {::oPbNeu:currentPos()[1] + ::oPbNeu:currentSize()[1],::oPbNeu:currentPos()[2] } )};
HIDE {|| lAendernAus};
OBJECT ::oPbAendern;
PARENT oParent;
SIZE ::nPbLaenge,::nPbHoehe;
TABSTOP;
TOOLTIP "Ändern des angezeigten Datensatzes";
WHEN {|| ::pbWhenPruefung(::oPbAendern,objekt,"ändern")}
@ DCGUI_ROW,DCGUI_COL + 5 DCPUSHBUTTON;
ACTION {|| ::schalteControls("speichern",objekt,getlist)};
CAPTION {||::cPbSpeichernCaption};
CARGO "AN";
EVAL {|o| o:setPos( {::oPbAendern:currentPos()[1] + ::oPbAendern:currentSize()[1],::oPbAendern:currentPos()[2] } )};
HIDE {|| lSpeichernAus};
OBJECT ::oPbSpeichern;
PARENT oParent;
SIZE ::nPbLaenge,::nPbHoehe;
TABSTOP;
TOOLTIP "Speichern des angezeigten Datensatzes";
WHEN {|| ::pbWhenPruefung(::oPbSpeichern,objekt,"speichern")}
@ DCGUI_ROW,DCGUI_COL + 5 DCPUSHBUTTON;
ACTION {|| ::schalteControls("abbruch",objekt,getlist)};
CAPTION {||"Abbruch"};
CARGO "AN";
EVAL {|o| o:setPos( {::oPbSpeichern:currentPos()[1] + ::oPbSpeichern:currentSize()[1],::oPbSpeichern:currentPos()[2] } )};
HIDE {|| lAbbruchAus};
OBJECT ::oPbAbbruch;
PARENT oParent;
SIZE ::nPbLaenge,::nPbHoehe;
TABSTOP;
TOOLTIP "Abbruch des Editiervorganges";
WHEN {|| ::pbWhenPruefung(::oPbAbbruch,objekt,"abbruch")}
@ DCGUI_ROW,DCGUI_COL + 5 DCPUSHBUTTON;
ACTION {|| ::schalteControls("löschen",objekt,getlist)};
CAPTION {||"Löschen"};
CARGO "AN";
EVAL {|o| o:setPos( {::oPbAbbruch:currentPos()[1] + ::oPbAbbruch:currentSize()[1],::oPbAbbruch:currentPos()[2] } )};
HIDE {|| lLoeschenAus};
OBJECT ::oPbLoeschen;
PARENT oParent;
SIZE ::nPbLaenge,::nPbHoehe;
TABSTOP;
TOOLTIP "Löschen des angezeigten Datensatzes";
WHEN {|| ::pbWhenPruefung(::oPbLoeschen,objekt,"löschen")}
ENDIF
RETURN self
vielleicht mache ich ja wirklich was falsch. Ich erkenne es aber nicht.