home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1999 January
/
Chip_1999-01_cd.bin
/
zkuste
/
delphi
/
D1
/
CALCBOX.ZIP
/
DEMO
/
TRYME1.DFM
/
TRYME1.txt
< prev
Wrap
Text File
|
1996-01-22
|
28KB
|
1,028 lines
object Form1: TForm1
Left = 154
Top = 45
Width = 435
Height = 373
Caption = 'TCalculatorBox'
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
TextHeight = 16
object Label16: TLabel
Left = 24
Top = 184
Width = 372
Height = 13
Caption =
'If you have a Compuserve account you can use SWREG to send us p' +
'ayment.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 64
Top = 104
Width = 79
Height = 13
Caption = 'Component only '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label17: TLabel
Left = 67
Top = 120
Width = 114
Height = 13
Caption = 'Component plus source '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 184
Top = 104
Width = 65
Height = 13
Caption = '�30 exclusive'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label20: TLabel
Left = 184
Top = 120
Width = 68
Height = 13
Caption = ' �45 exclusive'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object TabbedNotebook1: TTabbedNotebook
Left = 16
Top = 8
Width = 399
Height = 336
PageIndex = 6
TabFont.Color = clBtnText
TabFont.Height = -11
TabFont.Name = 'MS Sans Serif'
TabFont.Style = []
TabOrder = 0
object TTabPage
Left = 5
Top = 64
Caption = 'Introducing...'
object Memo2: TMemo
Left = 16
Top = 16
Width = 351
Height = 233
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'PopUp Calculator is a native VCL component that '
'combines a memo control and speedbutton into a '
'virtual '#39'combo'#39' control which drops a calculator.'
''
'It is designed to be used as a business data entry tool. '
''
'It is geared towards simple accounting functions - and '
'as such is based on real numbers (although it will '
'display numbers to a precision of up to 6 decimal '
'places).'
''
'Functionality for you as developer'
'------------------------------------------------'
'PopUp Calculator is a descendent of CustomMemo - '
'and almost all of its functionality has been published so '
'that you are able to right align its display, set color, '
'maximum length, etc.'
''
'Additional properties include: setting decimal precision '
'and setting text in the control. '
''
'You can refresh the display programmatically and you '
'can attach code to events.'
''
'PopUp Calculator will adjust itself and pop the '
'calculator above the control if there is not enough '
'space on screen below the form to contain the '
'calculator.'
''
'Delphi'#39's exception handler has been harnessed so that '
'a friendly error message is displayed when an error '
'occurs. The calculator can then be re-set and the user '
'can try again.'
''
'Functionality for your users'
'--------------------------------------'
'Users click on the control'#39's speedbutton to drop a four '
'function (add, subtract, multiply, divide) calculator. '
''
'The calculator drops with the current value in the control '
'already keyed in to its display.'
''
'Additional buttons on the calculator enable users to set '
'decimal precision, clear the display, paste the '
'displayed information to memo control, return to your '
'program without altering information displayed in the '
'memo control.'
''
'Thank you for taking the time to evaluate our product.')
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 0
end
end
object TTabPage
Left = 5
Top = 64
Caption = 'Properties'
object Label30: TLabel
Left = 200
Top = 63
Width = 29
Height = 29
Caption = '22'
Font.Color = clFuchsia
Font.Height = -24
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label31: TLabel
Left = 240
Top = 77
Width = 100
Height = 13
Caption = 'properties have been'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label32: TLabel
Left = 200
Top = 112
Width = 55
Height = 13
Caption = 'surfaced in '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label33: TLabel
Left = 256
Top = 112
Width = 87
Height = 13
Caption = 'TCalculatorBox'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object ListBox1: TListBox
Left = 16
Top = 24
Width = 145
Height = 153
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'Align'
'Alignment '
'BorderStyle'
'Color'
'Ctl3D'
'DragCursor'
'DragMode'
'Enabled'
'Font'
'HideSelection'
'MaxLength'
'OEMConvert'
'ParentColor'
'ParentCtl3D'
'ParentFont'
'ParentShowHint'
'PopupMenu'
'ReadOnly'
'ShowHint'
'TabOrder'
'TabStop'
'Visible'
' ')
ParentFont = False
TabOrder = 0
end
object BitBtn2: TBitBtn
Left = 19
Top = 208
Width = 340
Height = 31
Caption = 'Click here to try setting some properties programmatically'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn2Click
Glyph.Data = {
68010000424D6801000000000000760000002800000012000000120000000100
040000000000D800000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888541F938888888888888888883146A2888888888888888888DB0D228888
00888880088888941944888808000008088888C0C8EE8880D0DDDDD0088888B4
A26D880DDDDDDDDDD088886066E2880DDDDDDDDDDF0888CC00CC80DDDDDDDDDD
D0088833003380DDDDDDDDDDDDD00866006680DDDDDDDDDDDDDD08DD00DD80DD
00DDDDD0FDDD08BB00BB880DFF000DDFDD0088660066888008FFFDDDD08888DD
00DD8888800000D0088888BB00BB888888888800888888660066888888888880
888888DD00DD888888888888888888BB00BB0000000000000000000000000000
000000000000000000000000}
end
end
object TTabPage
Left = 5
Top = 64
Caption = 'Methods'
object Label26: TLabel
Left = 32
Top = 72
Width = 143
Height = 13
Caption = 'All 14 of the standard methods'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 32
Top = 99
Width = 112
Height = 13
Caption = 'of a Memo control have'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label28: TLabel
Left = 32
Top = 125
Width = 86
Height = 13
Caption = 'been published in '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label29: TLabel
Left = 32
Top = 152
Width = 87
Height = 13
Caption = 'TCalculatorBox'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object ListBox2: TListBox
Left = 208
Top = 24
Width = 121
Height = 185
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'OnChange'
'OnClick'
'OnDblClick'
'OnDragDrop'
'OnDragOver'
'OnEndDrag'
'OnEnter'
'OnExit'
'OnKeyDown'
'OnKeyPress'
'OnKeyUp'
'OnMouseDown'
'OnMouseMove'
'OnMouseUp')
ParentFont = False
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 31
Top = 222
Width = 300
Height = 31
Caption = 'Click here for a Drag and Drop Demo'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
68010000424D6801000000000000760000002800000012000000120000000100
040000000000D800000000000000000000000000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
888888541F938888888888888888883146A2888888888888888888DB0D228888
00888880088888941944888808000008088888C0C8EE8880D0DDDDD0088888B4
A26D880DDDDDDDDDD088886066E2880DDDDDDDDDDF0888CC00CC80DDDDDDDDDD
D0088833003380DDDDDDDDDDDDD00866006680DDDDDDDDDDDDDD08DD00DD80DD
00DDDDD0FDDD08BB00BB880DFF000DDFDD0088660066888008FFFDDDD08888DD
00DD8888800000D0088888BB00BB888888888800888888660066888888888880
888888DD00DD888888888888888888BB00BB0000000000000000000000000000
000000000000000000000000}
end
end
object TTabPage
Left = 5
Top = 64
Caption = 'About the author'
object Image5: TImage
Left = 355
Top = 11
Width = 18
Height = 18
Picture.Data = {<image000.bmp>}
end
object Image6: TImage
Left = 348
Top = 202
Width = 18
Height = 18
Picture.Data = {<image001.bmp>}
end
object Image7: TImage
Left = 356
Top = 178
Width = 18
Height = 18
Picture.Data = {<image002.bmp>}
end
object Image8: TImage
Left = 172
Top = 18
Width = 18
Height = 18
Picture.Data = {<image003.bmp>}
end
object Image9: TImage
Left = 140
Top = 10
Width = 18
Height = 18
Picture.Data = {<image004.bmp>}
end
object Image10: TImage
Left = 20
Top = 18
Width = 18
Height = 18
Picture.Data = {<image005.bmp>}
end
object Image11: TImage
Left = 308
Top = 242
Width = 18
Height = 18
Picture.Data = {<image006.bmp>}
end
object Image12: TImage
Left = 92
Top = 250
Width = 18
Height = 18
Picture.Data = {<image007.bmp>}
end
object Memo3: TMemo
Left = 17
Top = 35
Width = 325
Height = 204
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'I developed TCalculatorBox to fill a need I had when porting '
'our vertical market accounting software to Windows but I '
'believe it will have wider applicability since I have seen sever' +
'al '
'requests for a Quicken-like control.'
''
'I live with a teenage daughter and computer tolerant husband '
'in a seventeenth century house in the Scottish countryside '
'next to a bubbling stream, in sight of the snow capped '
'Grampian mountains.'
''
'Do drop me a line if you have any queries, problems, '
'improvements or suggestions about this component.'
''
'Charlotte Gamsu'
'Hogmanay, 1995.')
ParentFont = False
ReadOnly = True
TabOrder = 0
end
end
object TTabPage
Left = 5
Top = 64
Caption = 'Order Info'
object Label1: TLabel
Left = 16
Top = 16
Width = 128
Height = 24
Caption = 'Directly from us'
Font.Color = clPurple
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 14
Top = 135
Width = 183
Height = 24
Caption = 'Compuserve SWREG'
Font.Color = clPurple
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 18
Top = 44
Width = 354
Height = 13
Caption =
'Order your copy of TCalculaotrBox directly from us. Fill in the ' +
'accompanying'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 18
Top = 58
Width = 334
Height = 13
Caption =
'Order Form and send it to us together with a cheque for the appr' +
'opriate'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 18
Top = 73
Width = 215
Height = 13
Caption = 'amount. Cheques must be payable in Sterling.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 267
Top = 89
Width = 65
Height = 13
Caption = '�30 exclusive'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 64
Top = 89
Width = 79
Height = 13
Caption = 'Component only '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 64
Top = 105
Width = 114
Height = 13
Caption = 'Component plus source '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label15: TLabel
Left = 264
Top = 105
Width = 68
Height = 13
Caption = ' �45 exclusive'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 18
Top = 161
Width = 294
Height = 13
Caption = 'You can now use Compuserve'#39's SWREG to send us payment.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label18: TLabel
Left = 11
Top = 192
Width = 3
Height = 13
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label21: TLabel
Left = 42
Top = 179
Width = 170
Height = 13
Caption = 'SWREG No 9050: Component only '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 42
Top = 195
Width = 205
Height = 13
Caption = 'SWREG No. 9051 Component plus source '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label23: TLabel
Left = 267
Top = 179
Width = 65
Height = 13
Caption = '$45 exclusive'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label24: TLabel
Left = 264
Top = 195
Width = 68
Height = 13
Caption = ' $69 exclusive'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label25: TLabel
Left = 18
Top = 234
Width = 301
Height = 13
Caption = '(Save on shipping costs - have your product delivered by e-mail)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object TTabPage
Left = 5
Top = 64
Caption = 'Technical Support'
object Label2: TLabel
Left = 32
Top = 29
Width = 134
Height = 13
Caption = 'Support is offered via E-mail.'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 30
Top = 59
Width = 288
Height = 13
Caption = 'Our Web page is currently under construction. Watch out for'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 30
Top = 83
Width = 71
Height = 13
Caption = 'the opening of '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 110
Top = 83
Width = 91
Height = 13
Caption = 'Charlotte'#39's Web'
Color = clBtnFace
Font.Color = clPurple
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Image1: TImage
Left = 240
Top = 15
Width = 18
Height = 18
Picture.Data = {<image008.bmp>}
end
object Image2: TImage
Left = 262
Top = 23
Width = 18
Height = 18
Picture.Data = {<image009.bmp>}
end
object Image3: TImage
Left = 332
Top = 34
Width = 18
Height = 18
Picture.Data = {<image010.bmp>}
end
object Image4: TImage
Left = 196
Top = 98
Width = 18
Height = 18
Picture.Data = {<image011.bmp>}
end
object Memo1: TMemo
Left = 28
Top = 128
Width = 329
Height = 121
Color = clTeal
Font.Color = clNavy
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'We will provide interim version releases of TCalculatorBox to '
'registered users free of charge.'
''
'Interim version releases will typically contain bug-fixes and si' +
'mple '
'enhancements that address shortcomings. '
''
'These releases will be delivered to the registered user via the ' +
'same '
'mode as the original order (e-mail or postal mail).')
ParentFont = False
ReadOnly = True
TabOrder = 0
end
end
object TTabPage
Left = 5
Top = 64
Caption = 'Version 2.0'
object Label38: TLabel
Left = 36
Top = 43
Width = 291
Height = 13
Caption =
'Specially written float functions to handle international settin' +
'gs'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image17: TImage
Left = 13
Top = 17
Width = 18
Height = 18
Picture.Data = {<image012.bmp>}
end
object Label39: TLabel
Left = 36
Top = 19
Width = 289
Height = 13
Caption = 'Decimal Separator as defined in Win.Ini is used automatically '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image18: TImage
Left = 13
Top = 41
Width = 18
Height = 18
Picture.Data = {<image013.bmp>}
end
object GroupBox1: TGroupBox
Left = 8
Top = 5
Width = 345
Height = 55
Caption = 'Additional Calculator Buttons'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
object Image13: TImage
Left = 20
Top = 19
Width = 18
Height = 18
Picture.Data = {<image014.bmp>}
end
object Image14: TImage
Left = 19
Top = 34
Width = 18
Height = 18
Picture.Data = {<image015.bmp>}
end
object Label34: TLabel
Left = 43
Top = 21
Width = 95
Height = 13
Caption = 'Change sign button'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label35: TLabel
Left = 43
Top = 36
Width = 101
Height = 13
Caption = 'Four memory buttons'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 67
Width = 345
Height = 55
Caption = 'International Support'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object Image15: TImage
Left = 13
Top = 17
Width = 18
Height = 18
Picture.Data = {<image016.bmp>}
end
object Label36: TLabel
Left = 36
Top = 19
Width = 289
Height = 13
Caption = 'Decimal Separator as defined in Win.Ini is used automatically '
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image16: TImage
Left = 13
Top = 31
Width = 18
Height = 18
Picture.Data = {<image017.bmp>}
end
object Label37: TLabel
Left = 36
Top = 33
Width = 291
Height = 13
Caption =
'Specially written float functions to handle international settin' +
'gs'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object GroupBox3: TGroupBox
Left = 6
Top = 130
Width = 345
Height = 55
Caption = 'Additional Display Information'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object Image19: TImage
Left = 13
Top = 17
Width = 18
Height = 18
Picture.Data = {<image018.bmp>}
end
object Label40: TLabel
Left = 36
Top = 19
Width = 280
Height = 13
Caption = 'Display shows the mathematical operator pressed / clicked'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image20: TImage
Left = 13
Top = 34
Width = 18
Height = 18
Picture.Data = {<image019.bmp>}
end
object Label41: TLabel
Left = 36
Top = 36
Width = 238
Height = 13
Caption = 'Display indicates when a value is stored in memory'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
object GroupBox4: TGroupBox
Left = 8
Top = 192
Width = 345
Height = 49
Caption = 'Extra Functionality'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
object Image21: TImage
Left = 12
Top = 17
Width = 18
Height = 18
Picture.Data = {<image020.bmp>}
end
object Label42: TLabel
Left = 36
Top = 16
Width = 251
Height = 13
Caption = 'Calculator now also supports to key presses for digits,'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label43: TLabel
Left = 47
Top = 30
Width = 151
Height = 13
Caption = 'operators and decimal separator'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
end
end
end
end