object CodeGenFrm: TCodeGenFrm Left = 315 Height = 106 Top = 230 Width = 293 ActiveControl = GenerateBtn AutoSize = True BorderStyle = bsDialog Caption = 'Example Code Generator' ClientHeight = 106 ClientWidth = 293 Font.Color = clWindowText Font.Pitch = fpVariable Position = poScreenCenter ShowHint = True LCLVersion = '2.3.0.0' object CopySb: TSpeedButton AnchorSideLeft.Control = CodeEd AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = CodeEd AnchorSideTop.Side = asrCenter Left = 266 Height = 22 Hint = 'Copy code to clipboard' Top = 29 Width = 23 BorderSpacing.Left = 4 BorderSpacing.Right = 12 Glyph.Data = { 42010000424D4201000000000000760000002800000011000000110000000100 040000000000CC00000000000000000000000000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888800000008888888888888888800000008888888444444444800000008888 8884FFFFFFF48000000088888884F00000F48000000080000004FFFFFFF48000 000080FFFFF4F00000F48000000080F00004FFFFFFF48000000080FFFFF4F00F 44448000000080F00004FFFF4F488000000080FFFFF4FFFF44888000000080F0 0F04444448888000000080FFFF0F088888888000000080FFFF00888888888000 0000800000088888888880000000888888888888888880000000888888888888 888880000000 } OnClick = CopySbClick end object Label2: TLabel AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner Left = 12 Height = 15 Top = 12 Width = 28 BorderSpacing.Left = 12 BorderSpacing.Top = 12 Caption = 'Code' FocusControl = CodeEd ParentColor = False end object GenerateBtn: TButton AnchorSideLeft.Control = CodeEd AnchorSideTop.Control = CodeEd AnchorSideTop.Side = asrBottom Left = 12 Height = 25 Hint = 'Display code generation dialog' Top = 64 Width = 105 BorderSpacing.Top = 12 BorderSpacing.Bottom = 12 BorderSpacing.InnerBorder = 4 Caption = 'Generate Code' OnClick = GenerateBtnClick TabOrder = 0 end object CodeEd: TEdit AnchorSideLeft.Control = Label2 AnchorSideTop.Control = Label2 AnchorSideTop.Side = asrBottom Left = 12 Height = 23 Top = 29 Width = 250 BorderSpacing.Top = 2 Constraints.MinWidth = 250 ReadOnly = True TabOrder = 1 end object CloseBtn: TBitBtn AnchorSideTop.Control = GenerateBtn AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 206 Height = 25 Top = 64 Width = 75 Anchors = [akTop, akRight] BorderSpacing.Right = 12 BorderSpacing.Bottom = 12 Kind = bkClose TabOrder = 2 end object OgMakeCodes1: TOgMakeCodes KeyFileName = 'ONGUARD.INI' ShowHints = True Left = 104 Top = 8 end end