Attribute VB_Name = "mdlAllgemein"
Sub Positionierung()
AbstandRand = MDIHauptmenu.ScaleHeight / 60
AbstandInnen = MDIHauptmenu.ScaleHeight / 60
'------------- Positionieren von frmTisch Formular ---------------
frmTisch.Left = AbstandRand
frmTisch.Top = AbstandRand
frmTisch.Height = 0.5 * (MDIHauptmenu.ScaleHeight - 4 * AbstandRand)
frmTisch.Width = 0.65 * MDIHauptmenu.ScaleWidth

frmTisch.shpTisch.Left = 0
frmTisch.shpTisch.Top = 0
frmTisch.shpTisch.Width = frmTisch.Width
frmTisch.shpTisch.Height = frmTisch.Height



frmTisch.dgrTisch.Top = AbstandInnen
frmTisch.dgrTisch.Left = AbstandInnen
frmTisch.dgrTisch.Height = frmTisch.Height - 5 * AbstandRand
frmTisch.dgrTisch.Width = frmTisch.Width - 2 * AbstandRand

frmTisch.cmdTisch.Caption = "Alt"
frmTisch.lblTischSumme.Height = frmTisch.Height - frmTisch.dgrTisch.Height - 2 * AbstandInnen
'RestPositionierung  von  Label und Command Button siehe TischAktualisieren bei mdlDatenbanken
'Call ShowSizedForm(frmTisch, frmTisch.Width, True) ' <-- Aufruf der Prozedur um die Auflösung anzupassen


'------------- Positionieren von frmTastenMenu1 Formular ---------------
frmTastenMenu1.Left = frmTisch.Left + frmTisch.ScaleWidth
frmTastenMenu1.Top = frmTisch.Top
frmTastenMenu1.Width = MDIHauptmenu.ScaleWidth - frmTisch.Width - 2 * frmTisch.Left
frmTastenMenu1.Height = 0.9 * frmTisch.Height


cmdAbstand = frmTastenMenu1.Width / 40
For I = 0 To frmTastenMenu1.cmdTastenMenu1.Count - 1
 frmTastenMenu1.cmdTastenMenu1.Item(I).Height = (frmTastenMenu1.Height - 5 * cmdAbstand) / 4
Next I

With frmTastenMenu1.cmdTastenMenu1
 
 .Item(0).Left = cmdAbstand
 .Item(0).Top = cmdAbstand
 .Item(0).Width = 0.5 * frmTastenMenu1.Width - 1.5 * cmdAbstand
 
 .Item(1).Left = .Item(0).Left + .Item(0).Width + cmdAbstand
 .Item(1).Top = .Item(0).Top
 .Item(1).Width = 0.5 * frmTastenMenu1.Width - 1.5 * cmdAbstand

 
 .Item(2).Left = .Item(0).Left
 .Item(2).Top = .Item(0).Top + .Item(0).Height + cmdAbstand
 .Item(2).Width = 0.5 * frmTastenMenu1.Width - 1.5 * cmdAbstand
 
 .Item(3).Left = .Item(2).Left + .Item(2).Width + cmdAbstand
 .Item(3).Top = .Item(1).Top + .Item(1).Height + cmdAbstand
 .Item(3).Width = 0.5 * frmTastenMenu1.Width - 1.5 * cmdAbstand
 
 
 .Item(4).Left = .Item(2).Left
 .Item(4).Top = .Item(2).Top + .Item(2).Height + cmdAbstand
 .Item(4).Width = .Item(2).Width
 
 .Item(5).Left = .Item(3).Left
 .Item(5).Top = .Item(3).Top + .Item(3).Height + cmdAbstand
 .Item(5).Width = .Item(3).Width

 .Item(6).Left = .Item(4).Left
 .Item(6).Top = .Item(4).Top + .Item(4).Height + cmdAbstand
 .Item(6).Width = 0.4 * frmTastenMenu1.Width - 1.5 * cmdAbstand
 
 .Item(7).Left = .Item(6).Left + .Item(6).Width + cmdAbstand
 .Item(7).Top = .Item(5).Top + .Item(5).Height + cmdAbstand
 .Item(7).Width = 0.6 * frmTastenMenu1.Width - 1.5 * cmdAbstand

 
 

End With

'Dim Breite As Long
'Breite = MDIHauptmenu.ScaleWidth - frmTisch.Width - 2 * frmTisch.Left
'Call ShowSizedForm(frmTastenMenu1, Breite, True) ' <-- Aufruf der Prozedur um die Auflösung anzupassen
frmTastenMenu1.shpTastenMenu1.Left = 0
frmTastenMenu1.shpTastenMenu1.Top = 0
frmTastenMenu1.shpTastenMenu1.Width = frmTastenMenu1.Width
frmTastenMenu1.shpTastenMenu1.Height = frmTastenMenu1.Height


'------------- Positionieren von frmSchnellwahltaste Formular ---------------
frmSchnellwahltaste.Left = frmTisch.Left
frmSchnellwahltaste.Height = frmTisch.Height
frmSchnellwahltaste.Top = frmTisch.Top + frmTisch.Height + 2 * AbstandRand
frmSchnellwahltaste.Width = frmTisch.Width

frmSchnellwahltaste.shpSchnellwahltaste.Left = 0
frmSchnellwahltaste.shpSchnellwahltaste.Top = 0
frmSchnellwahltaste.shpSchnellwahltaste.Width = frmSchnellwahltaste.Width
frmSchnellwahltaste.shpSchnellwahltaste.Height = frmSchnellwahltaste.Height

frmSchnellwahltaste.Picture1.Top = AbstandInnen
frmSchnellwahltaste.Picture1.Left = AbstandInnen
frmSchnellwahltaste.Picture1.Width = frmSchnellwahltaste.shpSchnellwahltaste.Width - 2 * AbstandInnen
frmSchnellwahltaste.Picture1.Height = frmSchnellwahltaste.shpSchnellwahltaste.Height - 2 * AbstandInnen

frmSchnellwahltaste.mshflgrdSchnellwahltaste.Top = 0
frmSchnellwahltaste.mshflgrdSchnellwahltaste.Left = 0.25 * frmSchnellwahltaste.Picture1.Width
frmSchnellwahltaste.mshflgrdSchnellwahltaste.Height = frmSchnellwahltaste.Picture1.Height
frmSchnellwahltaste.mshflgrdSchnellwahltaste.Width = frmSchnellwahltaste.Picture1.Width - frmSchnellwahltaste.mshflgrdSchnellwahltaste.Left

frmSchnellwahltaste.VScroll1.Top = 0
frmSchnellwahltaste.VScroll1.Left = frmSchnellwahltaste.mshflgrdSchnellwahltaste.Left - frmSchnellwahltaste.VScroll1.Width
frmSchnellwahltaste.VScroll1.Height = frmSchnellwahltaste.mshflgrdSchnellwahltaste.Height

frmSchnellwahltaste.cmdWG.Item(0).Top = 0 'AbstandInnen
frmSchnellwahltaste.cmdWG.Item(0).Left = AbstandInnen / 2 'AbstandInnen
frmSchnellwahltaste.cmdWG.Item(0).Height = frmSchnellwahltaste.mshflgrdSchnellwahltaste.Height / 8
frmSchnellwahltaste.cmdWG.Item(0).Width = frmSchnellwahltaste.VScroll1.Left - AbstandInnen


'Call ShowSizedForm(frmSchnellwahltaste, frmSchnellwahltaste.Width, True)  ' <-- Aufruf der Prozedur um die Auflösung anzupassen
Call frmSchnellwahltaste.WGFuehlen
Call frmSchnellwahltaste.FarbeAblesen(frmSchnellwahltaste.cmdWG.Item(1).Caption)
frmSchnellwahltaste.cmdWG.Item(1).BackColor = &H46A3FF

frmSchnellwahltaste.MSHFlexGrid1.Visible = False



'------------- Positionieren von frmTastenMenu2 Formular ---------------
frmTastenMenu2.Left = frmTastenMenu1.Left
frmTastenMenu2.Top = frmSchnellwahltaste.Top
frmTastenMenu2.Height = frmTastenMenu1.Height
frmTastenMenu2.Width = frmTastenMenu1.Width

cmdAbstand = frmTastenMenu2.Width / 40
TastenHoehe = (frmTastenMenu2.Height - 6 * cmdAbstand) / 5
TastenBreite = (frmTastenMenu2.Width - 5 * cmdAbstand) / 5


For I = 0 To frmTastenMenu2.cmdTastenMenu2.Count - 1
 frmTastenMenu2.cmdTastenMenu2.Item(I).Height = TastenHoehe
Next I

frmTastenMenu2.txtPLU.Left = cmdAbstand
frmTastenMenu2.txtPLU.Top = cmdAbstand
frmTastenMenu2.txtPLU.Height = frmTastenMenu2.cmdTastenMenu2.Item(0).Height
frmTastenMenu2.txtPLU.Width = (frmTastenMenu2.Width - 3 * cmdAbstand) / 2

With frmTastenMenu2.cmdTastenMenu2
 'Reihe 1 wird positioniert
 .Item(0).Left = frmTastenMenu2.txtPLU.Left + frmTastenMenu2.txtPLU.Width + cmdAbstand
 .Item(0).Top = cmdAbstand
 .Item(0).Width = frmTastenMenu2.txtPLU.Width
 'Reihe 2 wird positioniert
 .Item(1).Left = cmdAbstand
 .Item(1).Top = frmTastenMenu2.txtPLU.Top + frmTastenMenu2.txtPLU.Height + cmdAbstand
 .Item(1).Width = TastenBreite
 .Item(2).Left = .Item(1).Left + .Item(1).Width + cmdAbstand
 .Item(2).Top = .Item(1).Top
 .Item(2).Width = .Item(1).Width
 .Item(3).Left = .Item(2).Left + .Item(2).Width + cmdAbstand
 .Item(3).Top = .Item(2).Top
 .Item(3).Width = .Item(2).Width
 .Item(4).Left = .Item(3).Left + .Item(3).Width + cmdAbstand
 .Item(4).Top = .Item(3).Top
 .Item(4).Width = 2 * .Item(3).Width
 'Reihe 3 wird positioniert
 .Item(5).Left = cmdAbstand
 .Item(5).Top = .Item(1).Top + .Item(1).Height + cmdAbstand
 .Item(5).Width = TastenBreite
 .Item(6).Left = .Item(5).Left + .Item(5).Width + cmdAbstand
 .Item(6).Top = .Item(5).Top
 .Item(6).Width = .Item(5).Width
 .Item(7).Left = .Item(6).Left + .Item(6).Width + cmdAbstand
 .Item(7).Top = .Item(6).Top
 .Item(7).Width = .Item(6).Width
 .Item(8).Left = .Item(7).Left + .Item(7).Width + cmdAbstand
 .Item(8).Top = .Item(7).Top
 .Item(8).Width = 2 * .Item(7).Width
 'Reihe 4 wird positioniert
 .Item(9).Left = cmdAbstand
 .Item(9).Top = .Item(5).Top + .Item(5).Height + cmdAbstand
 .Item(9).Width = TastenBreite
 .Item(10).Left = .Item(9).Left + .Item(9).Width + cmdAbstand
 .Item(10).Top = .Item(9).Top
 .Item(10).Width = .Item(9).Width
 .Item(11).Left = .Item(10).Left + .Item(10).Width + cmdAbstand
 .Item(11).Top = .Item(10).Top
 .Item(11).Width = .Item(10).Width
 'Reihe 4 wird positioniert
 .Item(12).Left = cmdAbstand
 .Item(12).Top = .Item(9).Top + .Item(9).Height + cmdAbstand
 .Item(12).Width = TastenBreite
 .Item(13).Left = .Item(12).Left + .Item(12).Width + cmdAbstand
 .Item(13).Top = .Item(12).Top
 .Item(13).Width = .Item(12).Width
 .Item(14).Left = .Item(13).Left + .Item(13).Width + cmdAbstand
 .Item(14).Top = .Item(13).Top
 .Item(14).Width = .Item(13).Width
 'Enter wird positioniert
 .Item(15).Left = .Item(11).Left + .Item(11).Width + cmdAbstand
 .Item(15).Top = .Item(11).Top
 .Item(15).Width = 2 * .Item(11).Width
 .Item(15).Height = 2 * .Item(11).Height + cmdAbstand


End With

'Call ShowSizedForm(frmTastenMenu2, frmTastenMenu1.Width, True) ' <-- Aufruf der Prozedur um die Auflösung anzupassen

frmTastenMenu2.shpTastenMenu2.Left = 0
frmTastenMenu2.shpTastenMenu2.Top = 0
frmTastenMenu2.shpTastenMenu2.Width = frmTastenMenu2.Width
frmTastenMenu2.shpTastenMenu2.Height = frmTastenMenu2.Height




'------------- Positionieren von frmRaum Formular ---------------
frmRaum.Top = 0
frmRaum.Left = 0
frmRaum.Height = MDIHauptmenu.ScaleHeight
frmRaum.Width = 0.9 * MDIHauptmenu.ScaleWidth

'Positionieren von Label und Text Steuerelement
frmRaum.lblTischauswahl.Left = AbstandInnen
frmRaum.lblTischauswahl.Top = AbstandInnen
'frmRaum.lblTischauswahl.Height = frmRaum.ScaleHeight / 30
frmRaum.lblTischauswahl.FontName = "Tahoma"
frmRaum.lblTischauswahl.FontSize = "12"


frmRaum.PicLeisteOben.Top = 0
frmRaum.PicLeisteOben.Left = 0
frmRaum.PicLeisteOben.Width = frmRaum.Width
frmRaum.PicLeisteOben.Height = 1.1 * MDIHauptmenu.picLeisteUnten.Height


frmRaum.txtTischauswahl.Left = frmRaum.lblTischauswahl.Left + frmRaum.lblTischauswahl.Width + AbstandInnen
frmRaum.txtTischauswahl.Height = 0.8 * frmRaum.PicLeisteOben.Height
frmRaum.txtTischauswahl.Top = frmRaum.PicLeisteOben.ScaleHeight / 2 - frmRaum.txtTischauswahl.Height / 2

frmRaum.txtTischauswahl.Width = frmRaum.lblTischauswahl.Width / 2
frmRaum.txtTischauswahl.FontName = "Tahoma"
frmRaum.txtTischauswahl.FontSize = 16

frmRaum.cmdkellnerAnmeldung.Top = frmRaum.txtTischauswahl.Top
frmRaum.cmdkellnerAnmeldung.Left = frmRaum.Width - 1.5 * frmRaum.cmdkellnerAnmeldung.Width
frmRaum.cmdkellnerAnmeldung.Height = frmRaum.txtTischauswahl.Height



'Positionieren von Rahmen imgLokal Steuerelement
frmRaum.imgLokal.Top = frmRaum.lblTischauswahl.Top + frmRaum.lblTischauswahl.Height + AbstandInnen
frmRaum.imgLokal.Left = AbstandInnen
frmRaum.imgLokal.Height = frmRaum.ScaleHeight - frmRaum.lblTischauswahl.Height - 3 * AbstandInnen
frmRaum.imgLokal.Width = frmRaum.ScaleWidth - 2 * AbstandInnen



'------------- Positionieren von frmLink Formular ---------------
'Positionieren Formular
frmLink.Top = 0
frmLink.Left = frmRaum.Left + frmRaum.Width
frmLink.Height = frmRaum.Height
frmLink.Width = MDIHauptmenu.ScaleWidth - frmRaum.ScaleWidth
'Positionieren von Picturebox Oberfläche
frmLink.picOberflaeche.Top = 0
frmLink.picOberflaeche.Left = 0
frmLink.picOberflaeche.Height = frmLink.Height + 50
frmLink.picOberflaeche.Width = frmLink.ScaleWidth
'Positionieren von Label1 als Link Steuerelement 1
frmLink.lblOberflaecheLink1.Top = 50
frmLink.lblOberflaecheLink1.Left = 0
frmLink.lblOberflaecheLink1.Width = frmLink.picOberflaeche.Width
frmLink.lblOberflaecheLink1.Height = frmLink.picOberflaeche.ScaleHeight / 30

frmLink.lblOberflaecheLink1.FontName = "Arial"
frmLink.lblOberflaecheLink1.FontSize = "12"
frmLink.lblOberflaecheLink1.BackColor = &H80000002

'Positionieren von Label2 als Link Steuerelement 2
frmLink.lblOberflaecheLink2.Top = frmLink.picOberflaeche.ScaleHeight - frmLink.lblOberflaecheLink2.Height - 50
frmLink.lblOberflaecheLink2.Left = frmLink.lblOberflaecheLink1.Left
frmLink.lblOberflaecheLink2.Width = frmLink.lblOberflaecheLink1.Width
frmLink.lblOberflaecheLink2.Height = frmLink.lblOberflaecheLink1.Height

frmLink.lblOberflaecheLink2.FontName = "Arial"
frmLink.lblOberflaecheLink2.FontSize = "12"
frmLink.lblOberflaecheLink2.BackColor = &H80000002

'Positionieren von cmdStationenLink
frmLink.cmdStationenLink.Item(0).Height = frmLink.picOberflaeche.ScaleHeight / 10

frmLink.cmdStationenLink.Item(0).Width = 0.8 * frmLink.picOberflaeche.ScaleWidth
frmLink.cmdStationenLink.Item(0).Left = (frmLink.ScaleWidth - frmLink.cmdStationenLink.Item(0).Width) / 2
frmLink.cmdStationenLink.Item(0).FontName = "Arial"
frmLink.cmdStationenLink.Item(0).FontSize = "9"
frmLink.cmdStationenLink.Item(0).Visible = False
'Positionieren von cmdVerwaltungLink
frmLink.cmdVerwaltungLink.Item(0).Height = frmLink.cmdStationenLink.Item(0).Height
frmLink.cmdVerwaltungLink.Item(0).Width = frmLink.cmdStationenLink.Item(0).Width
frmLink.cmdVerwaltungLink.Item(0).Left = (frmLink.ScaleWidth - frmLink.cmdVerwaltungLink.Item(0).Width) / 2
frmLink.cmdVerwaltungLink.Item(0).FontName = "Arial"
frmLink.cmdVerwaltungLink.Item(0).FontSize = "10"
frmLink.cmdVerwaltungLink.Item(0).Visible = False

End Sub