object InputForm: TInputForm Left = 200 Top = 192 BorderIcons = [] BorderStyle = bsSingle Caption = 'Withdraw' ClientHeight = 231 ClientWidth = 443 Color = clBtnFace Constraints.MaxHeight = 258 Constraints.MaxWidth = 451 Constraints.MinHeight = 258 Constraints.MinWidth = 451 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose PixelsPerInch = 96 TextHeight = 13 object ControlPanel: TPanel Left = 0 Top = 0 Width = 443 Height = 231 Align = alClient BevelOuter = bvNone Color = clSilver TabOrder = 0 object LExpenses: TLabel Left = 8 Top = 123 Width = 133 Height = 16 Caption = 'Withdraw Amount .........' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LLastBalance: TLabel Left = 10 Top = 29 Width = 252 Height = 16 Caption = 'Last Balance ...................................................' + '......' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LDate: TLabel Left = 10 Top = 53 Width = 131 Height = 16 Caption = 'Date..................................' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LAccountType: TLabel Left = 10 Top = 77 Width = 131 Height = 16 Caption = 'Account Type................' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object LDescription: TLabel Left = 10 Top = 101 Width = 131 Height = 16 Caption = 'Description.....................' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object AFForm_Btn: TSpeedButton Left = 142 Top = 99 Width = 21 Height = 21 Hint = 'Call AutoFill Form' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3 333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0 C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0 F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF 00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333 3333333373FF7333333333333000333333333333377733333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = AFForm_BtnClick end object BtNewBalance: TSpeedButton Left = 4 Top = 147 Width = 91 Height = 21 Caption = 'New Balance' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = BtNewBalanceClick end object LRemark: TLabel Left = 10 Top = 173 Width = 130 Height = 16 Caption = 'Remarks ........................' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object WithdrawBevel: TBevel Left = 10 Top = 198 Width = 423 Height = 3 Style = bsRaised end object TBDeposit: TSpeedButton Left = 10 Top = 207 Width = 73 Height = 21 Caption = 'Deposit' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = TBDepositClick end object TBSave: TSpeedButton Left = 284 Top = 207 Width = 73 Height = 21 Caption = 'Save' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = TBSaveClick end object TBClose: TSpeedButton Left = 360 Top = 207 Width = 69 Height = 21 Caption = 'Close' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False OnClick = TBCloseClick end object DotLabel: TLabel Left = 95 Top = 150 Width = 45 Height = 16 Caption = '...............' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False Transparent = True end object AMForm_Btn: TSpeedButton Left = 142 Top = 75 Width = 21 Height = 21 Hint = 'Edit bank accounts' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 55555555FFFFFFFF5555555000000005555555577777777FF555550999999900 55555575555555775F55509999999901055557F55555557F75F5001111111101 105577FFFFFFFF7FF75F00000000000011057777777777775F755070FFFFFF0F 01105777F555557F75F75500FFFFFF0FF0105577F555FF7F57575550FF700008 8F0055575FF7777555775555000888888F005555777FFFFFFF77555550000000 0F055555577777777F7F555550FFFFFF0F05555557F5FFF57F7F555550F000FF 0005555557F777557775555550FFFFFF0555555557F555FF7F55555550FF7000 05555555575FF777755555555500055555555555557775555555} NumGlyphs = 2 ParentFont = False ParentShowHint = False ShowHint = True OnClick = AMForm_BtnClick end object EExpenses: TEdit Tag = 2 Left = 142 Top = 123 Width = 291 Height = 21 CharCase = ecUpperCase Color = 12579047 Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 12 ParentFont = False TabOrder = 4 Text = '0' OnChange = EExpensesChange OnKeyPress = EExpensesKeyPress end object LLastBalanceShow: TPanel Left = 269 Top = 29 Width = 163 Height = 19 BevelInner = bvLowered BevelOuter = bvNone Caption = '0.0' Color = 12579047 Ctl3D = False Font.Charset = ANSI_CHARSET Font.Color = clNavy Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold] ParentCtl3D = False ParentFont = False TabOrder = 0 end object TimePicker: TDateTimePicker Left = 142 Top = 51 Width = 291 Height = 21 CalAlignment = dtaLeft Date = 35826.451703587960000000 Time = 35826.451703587960000000 Color = 12579047 DateFormat = dfLong DateMode = dmComboBox Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Kind = dtkDate ParseInput = False ParentFont = False TabOrder = 1 OnKeyPress = TimePickerKeyPress end object EAccoType: TComboBox Left = 164 Top = 75 Width = 269 Height = 21 Style = csDropDownList Color = 12579047 ItemHeight = 13 Items.Strings = ( 'Checking' 'Saving' 'Credit Card' 'Other' 'Unknown') MaxLength = 100 TabOrder = 2 OnKeyPress = EAccoTypeKeyPress end object EDescript: TComboBox Left = 164 Top = 99 Width = 269 Height = 21 Color = 12579047 ItemHeight = 13 MaxLength = 100 TabOrder = 3 Text = 'EDescript' OnKeyPress = EDescriptKeyPress end object EBalance: TEdit Tag = 3 Left = 142 Top = 147 Width = 290 Height = 21 Color = 12579047 Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ImeName = 'Float' ParentFont = False ReadOnly = True TabOrder = 5 Text = '0.0' OnKeyPress = EBalanceKeyPress end object ERemark: TEdit Left = 142 Top = 171 Width = 290 Height = 21 Color = 12579047 Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 50 ParentFont = False TabOrder = 6 Text = 'ERemark' OnKeyPress = ERemarkKeyPress end object CalculatorPanel: TPanel Left = 142 Top = 143 Width = 121 Height = 52 BevelInner = bvLowered BorderWidth = 3 Caption = 'CalculatorPanel' TabOrder = 7 Visible = False object LCDPanel: TPanel Left = 5 Top = 5 Width = 111 Height = 20 Align = alBottom BevelOuter = bvNone BorderWidth = 3 Caption = '0' Color = clNavy Font.Charset = DEFAULT_CHARSET Font.Color = clYellow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 object ClearBtn: TSpeedButton Left = 0 Top = 0 Width = 111 Height = 20 Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False OnClick = ClearBtnClick end end object KeysPanel: TPanel Left = 5 Top = 25 Width = 111 Height = 22 Align = alBottom TabOrder = 1 object PlusBtn: TSpeedButton Left = 2 Top = 2 Width = 18 Height = 18 Caption = '+' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False OnClick = PlusBtnClick end object MinusBtn: TSpeedButton Left = 22 Top = 2 Width = 18 Height = 18 Caption = '-' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False OnClick = MinusBtnClick end object MultiplyBtn: TSpeedButton Left = 42 Top = 2 Width = 18 Height = 18 Caption = 'x' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False OnClick = MultiplyBtnClick end object DevideBtn: TSpeedButton Left = 62 Top = 2 Width = 18 Height = 18 Caption = '/' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False OnClick = DevideBtnClick end object OKBtn: TSpeedButton Left = 82 Top = 2 Width = 27 Height = 18 Caption = 'OK' Flat = True Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Layout = blGlyphBottom ParentFont = False OnClick = OKBtnClick end end end object TipPanel: TPanel Left = 9 Top = 2 Width = 423 Height = 21 Alignment = taLeftJustify BevelInner = bvSpace BevelOuter = bvNone Caption = ' Tip: PandaMoney recommends you to use Enter key instead of T' + 'AB.' Color = clNavy Font.Charset = ANSI_CHARSET Font.Color = clYellow Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 8 end end end