object Zahlenraten: TFGUIForm Left = 913 Top = 253 BorderIcons = [biSystemMenu] Caption = 'Zahlenraten' ClientHeight = 73 ClientWidth = 233 Color = clBtnFace ParentFont = True FormStyle = fsStayOnTop OldCreateOrder = True Position = poDesigned ShowHint = True Visible = True OnClose = FormClose OnCloseQuery = FormCloseQuery OnResize = FormResize FrameType = 5 Resizable = False Undecorated = False Background = clBtnFace PixelsPerInch = 96 TextHeight = 13 object lZahl: TJLabel Tag = 1 Left = 8 Top = 8 Width = 62 Height = 20 Hint = 'jLabel1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Dialog' Font.Style = [fsBold] Foreground = 3355443 Background = clBtnFace Text = 'Zahl:' HorizontalAlignment = LEFT VerticalAlignment = CENTER HorizontalTextPosition = RIGHT VerticalTextPosition = CENTER IconTextGap = 4 DisplayedMnemonic = 0 DisplayedMnemonicIndex = 0 end object jTextField1: TJTextField Tag = 2 Left = 80 Top = 8 Width = 145 Height = 25 Cursor = crIBeam Hint = 'jTextField1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Dialog' Font.Style = [] Foreground = 3355443 Background = clWhite HorizontalAlignment = LEFT Text = '' Editable = True end object bRaten: TJButton Tag = 4 Left = 8 Top = 40 Width = 219 Height = 25 Hint = 'jButton1' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Dialog' Font.Style = [fsBold] Foreground = 3355443 Background = 15658734 actionPerformed = 'bRaten_ActionPerformed' Text = 'Raten!' Mnemonic = 0 DisplayedMnemonicIndex = 0 Selected = False BorderPainted = True FocusPainted = False ContentAreaFilled = True HorizontalAlignment = CENTER VerticalAlignment = CENTER HorizontalTextPosition = RIGHT VerticalTextPosition = CENTER IconTextGap = 4 RolloverEnabled = False Border.BorderType = NoBorder Border.LineColor = clBlack Border.LineThickness = 0 Border.LineRounded = False Border.EtchHighlightColor = clBlack Border.EtchShadowColor = clBlack Border.Etchtype = 0 Border.BevelHighlightColor = clBlack Border.BevelShadowColor = clBlack Border.Beveltype = 0 Border.MatteColor = clBlack Border.MatteTop = 0 Border.MatteLeft = 0 Border.MatteBottom = 0 Border.MatteRight = 0 end end