** END HEADER -- Diese Zeile nicht entfernen // // Erstellt am 20.02.24 // parameter bModal local f f = new TestformForm() if (bModal) f.mdi = false // Nicht-MDI festlegen f.ReadModal() else f.Open() endif class TestformForm of FORM set procedure to :hitTime2:Password.cc with (this) metric = 6 // Pixel height = 423.0 left = 800.0 top = 0.0 width = 336.0 text = "" endwith this.E_Passwort = new ph_PasswordEntry(this) with (this.E_Passwort) left = 94 top = 133 width = 180 value = "" maxLength = 20 fontBold = true endwith endclass