object HalloHorst: TFGUIForm Left = 672 Top = 440 BorderIcons = [biSystemMenu] Caption = 'HalloHorst' ClientHeight = 65 ClientWidth = 225 Color = clBtnFace ParentFont = True FormStyle = fsStayOnTop OldCreateOrder = True Position = poDesigned Visible = True OnClose = FormClose OnCloseQuery = FormCloseQuery OnResize = FormResize FrameType = 5 Resizable = False Undecorated = False Background = clBtnFace PixelsPerInch = 96 TextHeight = 13 object lName: TJLabel Tag = 1 Left = 8 Top = 8 Width = 46 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 = 'Name:' HorizontalAlignment = LEFT VerticalAlignment = CENTER HorizontalTextPosition = RIGHT VerticalTextPosition = CENTER IconTextGap = 4 DisplayedMnemonic = 0 DisplayedMnemonicIndex = 0 end object jTextField1: TJTextField Tag = 2 Left = 64 Top = 8 Width = 150 Height = 20 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 bSageHallo: TJButton Tag = 4 Left = 8 Top = 32 Width = 211 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 = 'bSageHallo_ActionPerformed' Text = 'Sage Hallo!' 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