Code: Alles auswählen
CLASS rahmenButton FROM XbpStatic
EXPORTED:
VAR aKonfigButton,;
nBreite,;
nHoehe,;
nLinks,;
nPbBreite,;
nPbHoehe,;
oPbNeu,;
oPbFinden,;
oPbEdit,;
oPbSkipMinus,;
oPbSkipPlus,;
oPbAnfang,;
oPbEnde,;
oPbSichern,;
oPbLoeschen,;
oPBBeenden
METHOD init
METHOD create
METHOD destroy
METHOD erzeugeButton
METHOD konfigButton
ENDCLASS
********************************************************************************
METHOD rahmenButton:init(oParent, oOwner, aPos, aSize, aPresParam, lVisible)
::xbpStatic:init(oParent, oOwner, aPos, aSize, aPresParam, lVisible)
::type := XBPSTATIC_TYPE_GROUPBOX
::aKonfigButton := {;
{"Neuerfassung von Datensätzen (aktivieren mit Leertaste, oder Mausklick)" ,"~Neu"},;
{"Suchen von Datensätzen (aktivieren mit Leertaste, oder Mausklick)" ,"~Finden"},;
{"Editieren des angezeigten Datensatzes (aktivieren mit Leertaste, oder Mausklick)","~Ändern"},;
{"vorherigen Datensatz anspringen (aktivieren mit Leertaste, oder Mausklick)" ,"~<"},;
{"nächster Datensatz anspringen (aktivieren mit Leertaste, oder Mausklick)" ,"~>"},;
{"Anfang der Datenbank anspringen (aktivieren mit Leertaste, oder Mausklick)" ,"~Anfang"},;
{"Ende der Datenbank anspringen (aktivieren mit Leertaste, oder Mausklick)" ,"~Ende"},;
{"Speichern von Datensätzen (aktivieren mit Leertaste, oder Mausklick)" ,"~Speichern"},;
{"Löschen des angezeigten Datensatzes (aktivieren mit Leertaste, oder Mausklick)" ,"~Löschen"},;
{"Beenden der Maske (aktivieren mit Leertaste, oder Mausklick)" ,"~Beenden"};
}
::nLinks := 5
::nPbBreite := (::currentSize()[1]-5-5)/10 // steht hier schon zur Verfügung.
::nPbHoehe := ::currentSize()[2]-5-15 // merkwürdig
RETURN self
********************************************************************************
METHOD rahmenButton:create(oSleHilfe, aPbActivate )
::xbpStatic:create()
::erzeugeButton()
::konfigButton(oSleHilfe)
AEval(::childList(),{|x,i| ::childlist()[i]:activate := aPbActivate[i,1]})
RETURN self
********************************************************************************
METHOD rahmenButton:destroy()
::XbpStatic:destroy()
RETURN self
********************************************************************************
METHOD rahmenButton:erzeugeButton()
::oPbNeu := XbpPushButton():new(self,,{::nLinks,5},{::nPbBreite,::nPbHoehe})
::nLinks += ::nPbBreite
::oPbFinden := XbpPushButton():new(self,,{::nLinks,5},{::nPbBreite,::nPbHoehe})
::nLinks += ::nPbBreite
::oPbEdit := XbpPushButton():new(self,,{::nLinks,5},{::nPbBreite,::nPbHoehe})
::nLinks += ::nPbBreite
::oPbSkipMinus := XbpPushButton():new(self,,{::nLinks,5},{::nPbBreite,::nPbHoehe})
::nLinks += ::nPbBreite
::oPbSkipPlus := XbpPushButton():new(self,,{::nLinks,5},{::nPbBreite,::nPbHoehe})
::nLinks += ::nPbBreite
::oPbAnfang := XbpPushButton():new(self,,{::nLinks,5},{::nPbBreite,::nPbHoehe})
::nLinks += ::nPbBreite
::oPbEnde := XbpPushButton():new(self,,{::nLinks,5},{::nPbBreite,::nPbHoehe})
::nLinks += ::nPbBreite
::oPbSichern := XbpPushButton():new(self,,{::nLinks,5},{::nPbBreite,::nPbHoehe})
::nLinks += ::nPbBreite
::oPbLoeschen := XbpPushButton():new(self,,{::nLinks,5},{::nPbBreite,::nPbHoehe})
::nLinks += ::nPbBreite
::oPbBeenden := XbpPushButton():new(self,,{::nLinks,5},{::nPbBreite,::nPbHoehe})
RETURN self
********************************************************************************
METHOD rahmenButton:konfigButton(oSleHilfe)
AEval(::childlist(), {|x,i| ::childlist()[i]:setInputFocus := {|y,nI| oSleHilfe:setcaption(::aKonfigButton[nI,1])}})
::oPbNeu:tabStop := .T.
::oPbFinden:tabStop := .T.
::oPbEdit:tabStop := .T.
::oPbSkipMinus:tabStop := .T.
::oPbSkipPlus:tabStop := .T.
::oPbAnfang:tabStop := .T.
::oPbEnde:tabStop := .T.
::oPbSichern:tabStop := .T.
::oPbLoeschen:tabStop := .T.
::oPbBeenden:tabStop := .T.
::oPbNeu:create():setName(1)
::oPbFinden:create():setName(2)
::oPbEdit:create():setName(3)
::oPbSkipMinus:create():setName(4)
::oPbSkipPlus:create():setName(5)
::oPbAnfang:create():setName(6)
::oPbEnde:create():setName(7)
::oPbSichern:create():setName(8)
::oPbLoeschen:create():setName(9)
::oPbBeenden:create():setName(10)
AEval(::childlist(), {|x,i| ::childlist()[i]:setcaption(::aKonfigButton[i,2])})
RETURN self