sorry, hab Deinen Post jetzt erst gelesen.....
Code: Alles auswählen
aSize := {1200,900}
aRefSize := Appdesktop():currentSize()
aPos:= { Int( (aRefSize[1] - aSize[1] ) / 2 ) , Int( (aRefSize[2] - aSize[2] ) / 2 ) }
oDlg := XbpDialog():new(Appdesktop() , SetAppWindow(), aPos, aSize, , .F.)
oDlg:taskList := .T.
oDlg:title := "Formular sowieso"
oDlg:icon := ICON_APPLICATION
oDlg:MaxButton:= .F.
oDlg:MinButton:= .F.
oDlg:border := XBPDLG_DLGBORDER
oDlg:close := {|| lExit := .T. }
oDlg:create()
SetAppFocus( oDlg )
drawingArea := oDlg:drawingArea
drawingArea:setFontCompoundName( "16.Times New Roman" )
Drawingarea:scrollbars:=XBP_SCROLLBAR_VERT
oFormular := XbpStatic():new( Drawingarea, , {0,0}, {1024,1550} )
oFormular:caption:= "Formular" // das Formular das ich anzeigen will...
oFormular:clipSiblings := .T.
oFormular:type := XBPSTATIC_TYPE_BITMAP
oFormular:create()
oButtons := XbpStatic():new( oDlg, , {1025,0}, {175,900} )
oButtons:caption:= NIL
oButtons:clipSiblings := .T.
oButtons:type := XBPSTATIC_TYPE_BITMAP
oButtons:create()
oXbp01 := XbpStatic():new( oFormular, , {15,1470}, {500,25}) // Kassenname
oXbp01:clipSiblings := .T.
oXbp01:options := XBPSTATIC_TEXT_LEFT
oXbp01:Caption:=( "FFFFFFFFFFFFFFFELD1")
oXbp01:setFontCompoundName( "14.Lucida Console" )
oXbp01:create()
oXbp02 := XbpStatic():new( oFormular, , {15,1415}, {550,25}) // Name, Vorname
oXbp02:clipSiblings := .T.
oXbp02:options := XBPSTATIC_TEXT_LEFT
oXbp02:Caption:=( "Mustermann, HansXXXXXXXXXXXXXXXXXXXXXXXX")
oXbp02:setFontCompoundName( "14.Lucida Console" )
oXbp02:create()
oXbp03 := XbpStatic():new( oFormular, , {450,1415}, {120,25}) // Geburtsdatum
oXbp03:clipSiblings := .T.
oXbp03:options := XBPSTATIC_TEXT_LEFT
oXbp03:Caption:=( "01.01.1920")
oXbp03:setFontCompoundName( "14.Lucida Console" )
oXbp03:create()
oXbp04 := XbpStatic():new( oFormular, , {575,1415}, {400,25}) // Krankenkasse
oXbp04:clipSiblings := .T.
oXbp04:options := XBPSTATIC_TEXT_LEFT
oXbp04:Caption:=( "Krankenkasse AOK sowieso")
oXbp04:setFontCompoundName( "14.Lucida Console" )
oXbp04:create()
oXbp05 := XbpStatic():new( oFormular, , {15,1300}, {520,25}) // Anschrift des Patienten
oXbp05:clipSiblings := .T.
oXbp05:options := XBPSTATIC_TEXT_LEFT
oXbp05:Caption:=( "Hinter dem Blumengarten 2, 92318 Berg-Richtheim")
oXbp05:setFontCompoundName( "14.Lucida Console" )
oXbp05:create()
oXbp06 := XbpStatic():new( oFormular, , {575,1300}, {180,25}) // Telefonnummer
oXbp06:clipSiblings := .T.
oXbp06:options := XBPSTATIC_TEXT_LEFT
oXbp06:Caption:=( "09181 - 4061-209")
oXbp06:setFontCompoundName( "14.Lucida Console" )
oXbp06:create()
oXbp07 := XbpStatic():new( oFormular, , {950,1300}, {80,25}) // Geschlecht
oXbp07:clipSiblings := .T.
oXbp07:options := XBPSTATIC_TEXT_LEFT
oXbp07:Caption:=( "M")
oXbp07:setFontCompoundName( "14.Lucida Console" )
oXbp07:create()
oM_01 := XbpStatic():new( oFormular, , {575,1470}, {120,25}) // Eingetroffen am
oM_01:clipSiblings := .T.
oM_01:options := XBPSTATIC_TEXT_LEFT
oM_01:Caption:=( "01.01.1920")
oM_01:setFontCompoundName( "14.Lucida Console" )
oM_01:create()
oM_02 := XbpStatic():new( oFormular, , {800,1470}, {70,25}) // Uhrzeit
oM_02:clipSiblings := .T.
oM_02:options := XBPSTATIC_TEXT_LEFT
oM_02:Caption:=( "12:50")
oM_02:setFontCompoundName( "14.Lucida Console" )
oM_02:create()
oM_03 := XbpStatic():new( oFormular, , {15,1375}, {300,25}) // Beschäftigt als
oM_03:clipSiblings := .T.
oM_03:options := XBPSTATIC_TEXT_LEFT
oM_03:Caption:=( "Beruf beschäftigt als so")
oM_03:setFontCompoundName( "14.Lucida Console" )
oM_03:create()
oM_04 := XbpStatic():new( oFormular, , {450,1375}, {120,25}) // Seit
oM_04:clipSiblings := .T.
oM_04:options := XBPSTATIC_TEXT_LEFT
oM_04:Caption:=( "01.01.1900")
oM_04:setFontCompoundName( "14.Lucida Console" )
oM_04:create()
oM_05 := XbpStatic():new( oFormular, , {575,1375}, {400,25}) // Pflegekasse
oM_05:clipSiblings := .T.
oM_05:options := XBPSTATIC_TEXT_LEFT
oM_05:Caption:=( "Meine Pflegekasse als so")
oM_05:setFontCompoundName( "14.Lucida Console" )
oM_05:create()
oM_06 := XbpStatic():new( oFormular, , {15,1335}, {1000,25}) // Unfallbetrieb
oM_06:clipSiblings := .T.
oM_06:options := XBPSTATIC_TEXT_LEFT
oM_06:Caption:=( "Der Unfallbetrieb wo es passiert ist, mit anschrift und Telefonnummer")
oM_06:setFontCompoundName( "14.Lucida Console" )
oM_06:create()
oM_07 := XbpStatic():new( oFormular, , {775,1300}, {200,25}) // Staatsangehörigkeit
oM_07:clipSiblings := .T.
oM_07:options := XBPSTATIC_TEXT_LEFT
oM_07:Caption:=( "Afroamerikaner")
oM_07:setFontCompoundName( "14.Lucida Console" )
oM_07:create()
oM_08 := XbpStatic():new( oFormular, , {15,1255}, {120,25}) // Unfalltag
oM_08:clipSiblings := .T.
oM_08:options := XBPSTATIC_TEXT_LEFT
oM_08:Caption:=( "01.01.1900")
oM_08:setFontCompoundName( "14.Lucida Console" )
oM_08:create()
oM_09 := XbpStatic():new( oFormular, , {250,1255}, {80,25}) // Unfallzeit
oM_09:clipSiblings := .T.
oM_09:options := XBPSTATIC_TEXT_LEFT
oM_09:Caption:=( "12:12")
oM_09:setFontCompoundName( "14.Lucida Console" )
oM_09:create()
oXbp := XbpPushButton():new( oButtons, , {10,768}, {164,44}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 }, { XBP_PP_COMPOUNDNAME, "16.Times New Roman" } } )
oXbp:caption := "Seite ~1"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| If(NEU_FORM(oDLG, "MUSTER12"),(DisablePushButtons(drawingarea), Form_Anzeige(oDlg, oFormular, "MUSTER12" ), FORM_EDIT(oDlg, oFormular, .T., "MUSTER12"),Form_Anzeige(oDlg, oFormular, "MUSTER12" )),""),;
EnablePushButtons(drawingarea), SetAppFocus(oDlg) }
oXbp := XbpPushButton():new( oButtons, , {10,724}, {164,44}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 }, { XBP_PP_COMPOUNDNAME, "16.Times New Roman" } } )
oXbp:caption := "Seite ~2"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| If(NEU_FORM(oDLG, "MUSTER12"),(DisablePushButtons(drawingarea), Form_Anzeige(oDlg, oFormular, "MUSTER12" ), FORM_EDIT(oDlg, oFormular, .T., "MUSTER12"),Form_Anzeige(oDlg, oFormular, "MUSTER12" )),""),;
EnablePushButtons(drawingarea), SetAppFocus(oDlg) }
oXbp := XbpPushButton():new( oButtons, , {10,636}, {164,44}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 }, { XBP_PP_COMPOUNDNAME, "16.Times New Roman" } } )
oXbp:caption := "~Neu"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| If(NEU_FORM(oDLG, "MUSTER12"),(DisablePushButtons(drawingarea), Form_Anzeige(oDlg, oFormular, "MUSTER12" ), FORM_EDIT(oDlg, oFormular, .T., "MUSTER12"),Form_Anzeige(oDlg, oFormular, "MUSTER12" )),""),;
EnablePushButtons(drawingarea), SetAppFocus(oDlg) }
oXbp := XbpPushButton():new( oButtons, , {10,592}, {164,44}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 }, { XBP_PP_COMPOUNDNAME, "16.Times New Roman" } } )
oXbp:caption := "Bearbeiten"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| DisablePushButtons(drawingarea), FORM_EDIT(oDlg, oFormular, .F., "MUSTER12"),FORM_Anzeige(oDlg, oFormular, "MUSTER12"), EnablePushButtons(drawingarea),;
SetAppFocus(oDlg) }
oXbp := XbpPushButton():new( oButtons, ,{10,548}, {164,44}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 }, { XBP_PP_COMPOUNDNAME, "16.Times New Roman" } } )
oXbp:caption := "~Drucken"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| DisablePushButtons(drawingarea), FORM_DRUCK(oDlg, "MUSTER12", oFormular),FORM_Anzeige(oDlg, oFormular, "MUSTER12"), EnablePushButtons(drawingarea),;
SetAppFocus(oDlg) }
oXbp := XbpPushButton():new( oButtons, , {10,504}, {164,44}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 }, { XBP_PP_COMPOUNDNAME, "16.Times New Roman" } } )
oXbp:caption := "Vor"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| DBSkip( 1 ), If( PNR # nPNR, DBSkip(-1), (FORM_Anzeige(oDlg, oFormular, "MUSTER12" )) ) }
oXbp := XbpPushButton():new( oButtons, , {10,460}, {164,44}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 }, { XBP_PP_COMPOUNDNAME, "16.Times New Roman" } } )
oXbp:caption := "Zurck"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| DBSkip( -1 ), If( PNR # nPNR, DBSkip(1), If( BOF(), "", (Form_Anzeige(oDlg, oFormular, "MUSTER12" ))) ) }
oXbp := XbpPushButton():new( oButtons, ,{10,416}, {164,44}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 }, { XBP_PP_COMPOUNDNAME, "16.Times New Roman" } } )
oXbp:caption := "L”schen"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| DEL_Formular(oDlg, "MUSTER12"), DBSkip( -1 ), If( PNR # nPNR, DBSkip(1),""), (Form_Anzeige(oDlg, oFormular, "MUSTER12" )) }
oXbp := XbpPushButton():new( oButtons, , {10,372}, {164,44}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 }, { XBP_PP_COMPOUNDNAME, "16.Times New Roman" } } )
oXbp:caption := "~Kopieren"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| DisablePushButtons(drawingarea), Form_KOPIE("MUSTER12"), Form_Anzeige(oDlg, oFormular, "MUSTER12" ), FORM_EDIT(oDlg, oFormular,.F., "MUSTER12"),Form_Anzeige(oDlg, oFormular, "MUSTER12" ),;
SetAppFocus(oDlg) }
*oXbp := XbpPushButton():new( oButtons, , {10,350}, {164,46}, { { XBP_PP_BGCLR, XBPSYSCLR_BUTTONMIDDLE }, { XBP_PP_FGCLR, -58 }, { XBP_PP_COMPOUNDNAME, "16.Times New Roman" } } )
*oXbp:caption := ""
*oXbp:tabStop := .T.
*oXbp:create()
*oXbp:activate := {|| NIL }
oXbp := XbpPushButton():new( oButtons, , {10,188}, {164,44} )
oXbp:setFontCompoundName( "16.Times New Roman" )
oXbp:caption := "F1 - Hilfe"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| NIL }
oXbp := XbpPushButton():new( oButtons, , {10,144}, {164,44} )
oXbp:setFontCompoundName( "16.Times New Roman" )
oXbp:caption := "F2 - Schoner"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| BS_Schoner() }
oXbpF10 := HBColorButton():new( oButtons, , {10,100}, {164,44})
oXbpF10:caption := "F10 - Spooler"
oXbpF10:setFontCompoundName( "16.Times New Roman" )
oXbpF10:FontColor:= If(PRUEFESPOOL(oDlg),GRA_CLR_DARKGREEN,GRA_CLR_BLACK)
oXbpF10:tabStop := .T.
oXbpF10:create()
oXbpF10:activate := {|| DisablePushButtons(drawingarea), Spool32(oDlg, lDruckStation, lDruckLokal), EnablePushButtons(drawingarea), SetAppFocus(oDlg) ,;
oXbpF10:FontColor:=If(PRUEFESPOOL(oDlg),GRA_CLR_DARKGREEN,GRA_CLR_BLACK), oXbpF10:Configure() }
oXbp := XbpPushButton():new( oButtons, , {10,56}, {164,44} )
oXbp:setFontCompoundName( "16.Times New Roman" )
oXbp:caption := "~Einstellungen"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| DisablePushButtons(drawingarea), GE_FORM(oDlg), EnablePushButtons(drawingarea), SetAppFocus(oDlg) }
oXbp := XbpPushButton():new( oButtons, , {42,8}, {132,46} )
oXbp:setFontCompoundName( "24.Times New Roman" )
oXbp:caption := "Ende"
oXbp:tabStop := .T.
oXbp:create()
oXbp:activate := {|| lExit := .T. }
oDlg:show()
SetAppFocus(oDlg)
oDlg:SetSize({1280,899})
oDlg:Configure()
oDlg:SetSize({1280,900})
oDlg:Configure()
CLEAR TYPEAHEAD
nEvent := xbe_None
DO WHILE ! lExit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
IF nEvent == xbeP_Keyboard
Do Case
case mp1 == 27 // ESC
lEXIT := .T.
case mp1 == xbeK_ENTER // Enter
DisablePushButtons(drawingarea)
FORM_EDIT(oDlg, oFormular, .F., "Formular" )
EnablePushButtons(drawingarea)
SetAppFocus(oDlg)
case mp1 = xbeK_LEFT // Taste links
DBSkip( -1 )
If PNR # nPNR
DBSkip(1)
Else
If ! Bof()
Form_Anzeige(oDlg, oFormular, "F" )
Endif
Endif
case mp1 = xbeK_RIGHT // Taste rechts
DBSkip( 1 )
If PNR # nPNR .OR. EOF()
DBSkip( -1 )
Else
Form_Anzeige(oDlg, oFormular, "F1040" )
Endif
case mp1 = xbeK_DEL // Löschen
DEL_Formular(oDlg, "MUSTER12")
Form_Anzeige(oDlg, oFormular, "MUSTER12" )
case mp1 = asc("N") .or. mp1 = asc("n") // NEU
If NEU_FORM(oDLG, "F1040")
DisablePushButtons(drawingarea)
Form_Anzeige(oDlg, oFormular, "F1040" )
Form_EDIT(oDlg, oFormular, .T., "F1040")
Form_Anzeige(oDlg, oFormular, "F1040" )
EnablePushButtons(drawingarea)
SetAppFocus(oDlg)
Endif
case mp1 = asc("D") .or. mp1 = asc("d") // Drucken
DisablePushButtons(drawingarea)
FORM_DRUCK(oDlg, "F1040", oFormular)
FORM_Anzeige(oDlg, oFormular, "F1040")
EnablePushButtons(drawingarea)
SetAppFocus(oDlg)
case mp1 = asc("K") .or. mp1 = asc("k") // Kopie
DisablePushButtons(drawingarea)
FORM_KOPIE("F1040")
Form_Anzeige(oDlg, oFormular, "F1040" )
FORM_EDIT(oDlg, oFormular,.F., "F1040")
Form_Anzeige(oDlg, oFormular, "F1040" )
EnablePushButtons(drawingarea)
SetAppFocus(oDlg)
case mp1 = asc("E") .or. mp1 = asc("e") // Einstellungen
DisablePushButtons(drawingarea)
GE_FORM(oDlg)
EnablePushButtons(drawingarea)
SetAppFocus(oDlg)
case mp1 = xbeK_F1 // F1
case mp1 = xbeK_F2 // F2
BS_Schoner()
case mp1 = xbeK_F10 // F10
DisablePushButtons(drawingarea)
Spool32(oDlg)
EnablePushButtons(drawingarea)
SetAppFocus(oDlg)
oXbpF10:FontColor:=If(PRUEFESPOOL(oDlg),GRA_CLR_DARKGREEN,GRA_CLR_BLACK)
oXbpF10:Configure()
Endcase
Endif
ENDDO
oDlG:Destroy()
_ChkUse(cFormular,.T.)
DBSelectArea( "PATSTAMM" )
SET ORDER To 1
RETURN NIL
Weiter ist kein Scrollen via Mausrad möglich.